; file: xrt_movie.pro ; init: Nov 13 2007 from Kelly Korreck at Orsay ; this is for use with quicktime pro only ; it assumes you have an index named index, and the list of files as files. ; the directory it writes to is /Users/kkorreck/"number".png wdef,0,index[0].naxis1,index[0].naxis2 loadct, 3 tvlct,red,green,blue,/get for i=0,n_elements(files[ss])-1 do begin & $ ist = strcompress(string(1000+i),/rem) &$ tvscl,(image_out[*,*,i]^0.4) & $ opf ='/Users/kkorreck/'+trim(i,'(i3.3)')+".png" & $ print,'Saving image as: ',opf & $ xyouts,0.05,0.02,'frame: '+ist &$ write_png,opf,tvrd(),red,green,blue &$ ENDFOR