FUNCTION CDFX,dx
;
; Converts X device coordinate of a 1150 x 900 window to
; fractional coordinates
;
   xmet = 0.40944/500.0
   xoff0 = 36.0
   xoff1 = 0.02930

   xf = (float(dx) - xoff0)*xmet + xoff1
   RETURN, xf
end
; ****************************************************************
FUNCTION CDFY,dy
;
; Converts Y device coordinate of a 1150 x 900 window to
; fractional coordinates
;
   ymet = 0.33208/300.0
   yoff0 = 679.0
   yoff1 = 0.75574

   yf = (float(dy)-yoff0)*ymet + yoff1
   RETURN, yf
end
;*****************************************************************
PRO add_text, hh, mm, wave, maxv, sdate
;
; Adds the text to the PostScript file
;
; INPUTS:
;   hh      UT 2-digit hours                       LONG
;   wave    Wavelength                             LONG
;   maxv    Maximum value - Rayleighs              FLOAT
;   sdate   Date                                   STRING
font = '!5'

; 1150 is byte array size for CDFX, 900 is byte array size used
offset = (1150 - 900) / 2

imgx = 50 + offset
imgy = 40
cb_bot = imgy + 810
cb_top = cb_bot + 24
; ADD THE MLT LABELS
x = 10 + offset
y = imgy + 393
xx = CDFX(x)
xyouts,xx,CDFY(y),'18',/norm
xyouts,xx,CDFY(y-20),'MLT',/norm
x = 860 + offset
xx = CDFX(x)
xyouts,xx,CDFY(y),'06',/norm
xyouts,xx,CDFY(y-20),'MLT',/norm
x = imgx + 365 
y = 10
xyouts,CDFX(x),CDFY(y),'00 MLT',/norm

; ADD THE LATITUDES
x = imgx + 365
y = imgy + 800 - 25
xx = CDFX(X)
xyouts,xx,CDFY(y),'70!9%!X',/norm
y = imgy + 600 - 25
xyouts,xx,CDFY(y),'80!9%!X',/norm

x = imgx
y = 875
str = STRING(FORMAT='(I5)',wave)
str = STRTRIM(str,2)
xx = CDFX(x)
xyouts,xx,CDFY(y),'POLAR '+str + ' A IMAGES',/norm
Y = y - 20
xyouts,xx,CDFY(y),'PACE GEOMAGNETIC COORDINATES',/norm

; ANNOTATE THE COLOR BAR
x = 675 + offset
y = cb_top + 5
yy = CDFY(y)
xyouts,CDFX(x),yy,'RAYLEIGHS',ALIGNMENT=0.5,/norm
x = 500 + offset
xyouts,CDFX(x),yy,'0',ALIGNMENT=0.5,/norm
str = STRING(FORMAT='(I5)',maxv)
str = STRTRIM(str,2)
x = 849 + offset
xyouts,CDFX(x),yy,str,ALIGNMENT=0.5,/norm

; ADD THE UT LABEL
strh = STRING(FORMAT='(I2)',hh)
strm = STRING(FORMAT='(I2)',mm)
if (hh lt 10) then STRPUT,strh,'0',0
if (mm lt 10) then STRPUT,strm,'0',0
str = strh + strm + ' UT'
x = 819 - 10 + offset
y = imgy + 10
xyouts,CDFX(x),CDFY(y),str,ALIGNMENT=1.0,/norm

; ADD THE DATE
x = imgx + 10
xyouts,CDFX(x),CDFY(y),sdate,/norm
end