pro cmpmov,mov1,mov2,mov ; this procedure composes two integer-type movies ; of equal size in one which contains couples of ; frames side-by-side. s=size(mov1) mov=intarr(2*s(1),s(2),s(3)) for i=0,s(3)-1 do begin mov(0,0,i)=mov1(*,*,i) mov(s(1),0,i)=mov2(*,*,i) endfor end