PRO sel,ar1 ; ;Procedure for selecting 61x61 subarray ar2 from ar1, ;rebinning ar2 to (380x380), and displaying. ;Michal tvscl,ar1 print,'CURSOR: CENTER OF EXTRACTED FRAME 61x61 pix' cursor,x,y,/device x1=x-30 y1=y-30 x2=x+30 y2=y+30 print,x1,y1,x2,y2 ar2=ar1(x1:x2,y1:y2) ar2=congrid(ar2,380,380,/interp) window,2,xsize=380,ysize=380 tvscl,ar2 xloadct wset,0 END