PRO plot_scan, pix_x, pix_y, xr1,xr2,ysc1,ysc2,main_title

@wload.com
@chandle.com



 tmp_str = string_name(sel_array)   ; active images in memory

 n = n_elements(tmp_str)

 line = FLTARR(n)
 
  FOR frame=0,n-1 DO BEGIN

   ghandle,frame

   pix_x = pix_x > 0 < (sz(1)-1)
   pix_y = pix_y > 0 < (sz(2)-1)

   line(frame) = image(pix_x,pix_y)   
 
 ENDFOR


 main_title = main_title + 'P('+STRCOMPRESS(STRING(pix_x),/REMOVE_ALL) $
              +','+STRCOMPRESS(STRING(pix_y),/REMOVE_ALL)+')'
 
 sub_tit = STRCOMPRESS(STRING(n)) + ' Images' 

 plot,line,title = main_title , subtitle= sub_tit,$
	   ytitle="Amplitude",yrange=[ysc1,ysc2]


RETURN
END