function mkcombined, arg1, arg2, start, stop ; 'arg's are of the form: A(*).bytarr(320,320), ; 'start' is the starting frame number, ; 'stop' is the frame number to stop on, ; ;--------------------------------------------------------------------- ; The Sun raster files are generated prior to the IDL session ; by translating an NCAR cgm file to the sun rasterfile format via ; the ctrans command, and individual files(frames) obtained using ; rassplit. fsize= 320 nframes= stop - start + 1 themov= bytarr(2*fsize, fsize, nframes) window, 1, xsize= 2*fsize, ysize= fsize, /pixmap if (nframes eq 1) then begin fred1= reverse(arg1(*,*), 2) fred2= reverse(arg2(*,*), 2) tv, fred1 tv, fred2, fsize, 0 themov(*,*)= tvrd() return, themov endif else begin for i= 0, stop-start do begin fred1= reverse(arg1(*,*,i), 2) fred2= reverse(arg2(*,*,i), 2) tv, fred1 tv, fred2, fsize, 0 themov(*,*,i)= tvrd() endfor endelse wdelete, 1 return, themov end