generate_quicklooks.pro

pro generate_quicklooks

for tt=  11316, 11322 do begin

  o=obj_new('cws2',overpass=tt)
   o->atrain::create_b,tt
  lon = o->get_data(pro='LON',/DATA)
  lat  = o->get_data(pro='LAT',/DATA)
  bf = o->atrain::get_file()
  print,bf
   minute = 15*(strmid(file_basename(bf),13,2) /15) 
  hour = strmid(file_basename(bf),11,2)
  print,hour,minute
  oM = obj_new('msg_data_cl')
oM->set_date,2008,6,13,hour,minute
rgb= oM->get_product('rgb')

view2d,rgb,/asp,/no_ax,title='overpass '+string(tt,format='(i5.5)')
pxl = geo_2_msg(lon,lat)
plots,pxl.(0),pxl.(1),color=fsc_color('red')

img = tvrd(true=3)
write_jpeg,'/home/awalther/'+string(tt,format='(i5.5)')+'.jpg',img,true=3

endfor
stop


o = obj_new('msg_data_cl')
o->set_date,2008,6,13,12,0
rgb= o->get_product('rgb')



end

pro make_msg

o=obj_new('msg_data_cl',scale=0.3)
i=0
o->set_date,2008,6,13,0,0

while i lt 100 do begin

  rgb=o->get_product('rgb')
  view2d,rgb,/aspect,/no_ax,title=o->get_date(/string)
  img = tvrd(true=3)
  write_jpeg,'/home/awalther/'+string(i,format='(i3.3)')+'.jpg',img,true=3

  i++
  o->change_date,minute = 15


endwhile


end