; IDL Version 5.2 (OSF alpha)
; Journal File for sxt_co@isass0.solar.isas.ac.jp
; Working directory: /home/www/sxt_co/010105
; Date: Sat Dec 30 12:32:56 2000
 
restgen,file='ch_6dec2.genx',iout,dout
loadct,3
over
tvlct,r,g,b,/get
wdef,0,512,392
restgen,file='18:01:41.genx',aa,bb,xx,yy
tvscl,sqrt(dout(*,*,0)>0)
tvscl,sqrt(dout(*,*,1)>0),256,0
xyouts,10,10,/dev,'5-DEC-00  19:43',charsi=2
xyouts,266,10,/dev,'7-DEC-00  18:01',charsi=2
grid,2,1,256,392
out=tvrd()
plots,xx,yy,/dev,lines=1
restgen,file='19:43:21.genx',aa,bb,xx,yy
plots,xx+256,yy,/dev,lines=1
out=tvrd()
write_gif,'ch_comp2.gif',out,r,g,b
write_gif,'ch_comp2_thumb.gif',rebin(out,128,392/4),r,g,b
tvscl,sqrt(dout(*,*,0)>0)
tvscl,sqrt(dout(*,*,1)>0),256,0
grid,2,1,256,392
xyouts,266,10,/dev,'7-DEC-00  18:01',charsi=2
xyouts,10,10,/dev,'5-DEC-00  19:43',charsi=2
plots,xx,yy,/dev,lines=1
restgen,file='18:01:41.genx',aa,bb,xx,yy
plots,xx+256,yy,/dev,lines=1
out=tvrd()
write_gif,'ch_check2.gif',out,r,g,b
write_gif,'ch_check2_thumb.gif',rebin(out,128,392/4),r,g,b
end
