pro wicon,in,out,mtf

;convolution of frames in the movie IN with 'MTF'
;to degrade the WL resolution down to the IR one

si=size(in)
out=intarr(si(1),si(2),si(3))
big=intarr(si(1),si(1))		;expecting always si(1)>si(2)

for i=0,si(3)-1 do begin
	print,i
	ima=in(*,*,i)
	big(*,0:si(2)-1)=ima	;making a square array
	big(*,si(2):si(1)-1)=ima(*,0:si(1)-si(2)-1)

	bif=fft(big,-1)
	bif=fft(bif*mtf,1)
	ima=nint(float(bif))
	ima=ima(*,0:si(2)-1)
	out(0,0,i)=ima
endfor
end