;+
; NAME:
;	PlotUserstring
; PURPOSE:
;	Add strings to maps
; CATEGORY:
;	sat/idl/toolbox/graphics
; CALLING SEQUENCE:
	PRO PlotUserstring, str, pos, align=align, _extra=_extra
; INPUTS:
;	str 		scalar or array; type: string
;					User specified string(s) to be plotted
;	pos			array[2,n]; type: real; default: [[0.05,0.95],[0.80,0.05]]
;					Start position(s) of user string(s) in normal
;					coordinates. The default allows plotting of two
;					user-defined strings in upper-left and lower-right
;					corners.
; OPTIONAL INPUT PARAMETERS:
; OUTPUTS:
; INCLUDE:
	@compile_opt.pro			; On error, return to caller
; CALLS:
; PROCEDURE:
; MODIFICATION HISTORY:
;	JUL-2008, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

IF IsType(str,/string) THEN BEGIN

	n = n_elements(str)

	InitVar, pos  , [[0.05,0.95],[0.80,0.05]]
	InitVar, align, replicate(0,n)

	FOR i=0,n_elements(str)-1 DO	$
		xyouts, /normal 	, $
			pos[0,i]		, $
			pos[1,i]		, $
			str[  i]		, $
			align = align[i], $
			_extra= _extra

ENDIF

RETURN  &  END