close,1 pixx=1534 & pixy=1029 if(n_elements(dPm ) eq 0) then dPm =intarr(pixx,pixy) if(n_elements(head) eq 0) then head=bytarr(2880*2) mywin=0 filenm=' ' fpos=0 fpos=lonarr(1000) & ftmp=long(0) & ii=0 mn=-500 & mx=1200 if( n_elements(listfile) eq 0) then begin ;{ listfile=' ' print,$ 'Enter in a filename that contains a list of the images you wish to view.' print,'The list should include the entire path to the images.' read,listfile endif $ else begin ;}{ print,' ' print,'Your present listfile is: ',listfile print,'If you want to change it, enter the idl command: listfile=''newone''' print,'Where ''newone'' is an example new list file.' print,' ' endelse;} print,' ' print,'The images listed in file: ',listfile,' will now be displayed.' print,' ' print,'You can use the mouse to move backwards and forwards in your image list.' print,'Place the mouse in the image window, and then:' print,' To move forwards, use the left most mouse button.' print,' To move backwards, use the middle mouse button.' print,' ' print,' ' ; Open a window device,window_state=winst if(winst(mywin) eq 0)then window,mywin,xsize=pixx-500,ysize=pixy ; Load color table _a=intarr(256) & _b=intarr(256) & _c=intarr(256) openr,11,'idldark2.rgb' & readu,11,_a & readu,11,_b & readu,11,_c & close,11 tvlct,_a,_b,_c close,13 & openr,13,listfile while ( not eof(13) ) do begin ;{ point_lun,-13,ftmp & fpos(ii)=ftmp readf,13,filenm close,1 & openr,1,filenm & readu,1,head & readu,1,dPm & close,1 wset,mywin & tv,bytscl(dPm(250:pixx-1-250,*),min=mn,max=mx) xyouts,.0,.85,filenm,size=2,/NORMAL print,'Image presently displayed is: ',filenm ; Logic to move forwards or backwards in the list of images. cursor,x,y,/NORMAL if ( !ERR eq 2 ) then begin ;{ ii=ii-1 & if (ii le 0) then ii=0 point_lun,13,fpos(ii) endif else begin ;}{ ii=ii+1 endelse ;} endwhile ;} close,13 end