drawpic.pro

IDL Version 6.4, Microsoft Windows (Win32 x86 m32). (c) 2007, ITT Visual Information Solutions Inst

pro drawpic
loadct,0
window,0,xsize=420,ysize=200
tem=indgen(200)+20
tem=reverse(tem)
colorbar=intarr(420,200)
for i=0,419 do begin
  colorbar[i,*]=tem
endfor

for fn=1,50 do begin
  fname=string(fn,format='("rt5",i2.2,".sav")')
  restore,fname
  tt1=string(tt,format='("t=",f4.2)')
  imagif=bytscl(r0,max=1.75,min=1.2,top=199)+byte(20)
  tv,colorbar
  tv,imagif
  xyouts,0.38,0.8,tt1,/normal,size=2.0
  xyouts,0.87,0.1,1.0,/normal,size=1.0
  xyouts,0.87,0.5,1.5,/normal,size=1.0
  xyouts,0.87,0.9,2.0,/normal,size=1.0
  if(fn eq 50)then write_gif,tvrd(),/multiple,/close else write_gif,'KelvinHelmholtz1.gif',tvrd(),/multiple
endfor

;for fn=1,60 do begin
;  fnjpg=string(fn,format='("rr5",i2.2,".jpg")')
;  read_jpeg,fnjpg,image
;  if(fn eq 60)then write_gif,'RTsimp0.gif',image,/multiple,/close else write_gif,'RTsimp.gif',image,/multiple
;endfor

end