pro update_gif_comm

;
;  extends the raw jpg image to add the comments from the comment database
;

use_eof_cat,/q
list_exp_comm,'1996-1-1',comm,n,/date

sn = comm.seq_num
sn = sn(rem_dup(sn))
nn = n_elements(sn)

for i=0,nn-1 do begin
   list_exper,'1996-1-1','2005-1-1',obs,n,search='SEQ_NUM='+trim(sn(i))
   f = strtrim(obs.filename,2)
   break_file,f,disk,dir,file,ext
   gif = '/archive/private/data/cds/atlas/'+file+'.jpg'
   if file_exist(gif) then begin
      show_jpg,gif,image
      s = size(image)
      maxim = max(image)
      stat = where(comm.seq_num eq sn(i),count)
      if count gt 0 then begin
         if !d.window ge 0 then wdelete,!d.window
         text = comm(stat).comment
         extra = 25*count
         if (s(2) - 650) lt extra then begin
            print,'Adding ',count,' comments to ',file
            window,5,xs=600,ys=count*25
            wset,5
            for j=0,count-1 do begin
               xyouts,10,extra-(25*(j+1))+5,text(j),/dev,chars=2.2
            endfor
            tarr = tvrd()
            tarr = byte(float(tarr)*maxim/max(tarr))
            outgif = concat2d(tarr,image)
            window,0,xs=600,ys=650+extra
            wset,0
            tvscl,outgif
            wshow
            tvlct,r,g,b,/get
            x2jpeg,gif,r,g,b,window=0
;            mk_jpg,gif
         endif else begin

         endelse
      endif else begin
         print,'**** JPG file not found *** --> '+gif
      endelse
      if !d.window ge 0 then wdelete,!d.window
   endif else begin
      print,'No comments found ???'
   endelse
endfor

;wdelete,5
end