;+
;       NAME:
;             fl_annotate
;
;       PURPOSE:
;               To annotate the collage image produced by first_light.
;      
;       METHOD: Standard xyouts calls
;
;	CALLING SEQUENCE:
;
;               fl_annotate,gnttime,gkitime,gbhtime,gkmtime
;
;
;	PARAMETERS:
;	   g**time  the times corresponding to the ground based images used     
;
;	KEYWORDS:
;
;       OUTPUT TYPE:
; 
;       CALLS: 
;
;	HISTORY:
;	   Procedure developed to annotate the first_light collage 
;	   Written by D. Alexander 5-May-94
;          12-Jul-1994 - (SLF) add character size scaling for z-buffer
;			       parameterize character size
;-
;
pro fl_annotate,gnttime,gkitime,gbhtime,gkmtime

zbuf_scale=[1.0,.75]
zfact=zbuf_scale(!d.name eq 'Z')
charsize= 1.2 * zfact			; oldsize (1.2)

plots,[0,256],[256,256],/device
plots,[256,256],[256,0],/device
plots,[594,594],[256,0],/device
plots,[594,850],[256,256],/device
plots,[594,594],[594,850],/device
plots,[594,850],[594,594],/device
plots,[0,256],[594,594],/device
plots,[256,256],[594,850],/device
plots,[256,594],[681,681],color=200,/device
plots,[169,169],[256,594],color=200,/device
plots,[681,681],[256,594],color=200,/device
plots,[256,594],[169,169],color=200,/device

xyouts,/norm,0.01,0.74,'Radioheliograph',charsize=charsize
xyouts,/norm,0.135,0.74,gnttime,charsize=charsize
xyouts,/norm,0.01,0.025,'Helium 10830',charsize=charsize
xyouts,/norm,0.135,0.025,gkitime,charsize=charsize
xyouts,/norm,0.71,0.03,'H-alpha',charsize=charsize
xyouts,/norm,0.835,0.03,gbhtime,charsize=charsize
xyouts,/norm,0.71,0.74,'KP Magnetogram',charsize=charsize
xyouts,/norm,0.835,0.74,gkmtime,charsize=charsize
xyouts,/norm,0.37,0.93,'!13 The Sun Today!3',charsize=3.0*zfact
return
end