;-----------------------------------------------------------------
; smooth2d.pro
;
; written by Andreas Reigber
;------------------------------------------------------------------
; Just like smooth for a 2D-array, but with the possibility of
; a rectangular box size
;------------------------------------------------------------------
; This software has been released under the terms of the GNU Public
; license. See http://www.gnu.org/copyleft/gpl.html for details.
;------------------------------------------------------------------
function smooth2d,bild,xsmm,ysmm
s=size(bild)
xsize=s(1)
ysize=s(2)
xsmm=round(xsmm)
ysmm=round(ysmm)

sbild=bild
if xsmm ne 1 then for i=0,ysize-1 do sbild(*,i) = smooth(sbild(*,i),xsmm)
if ysmm ne 1 then for i=0,xsize-1 do sbild(i,*) = smooth(sbild(i,*),ysmm)

return,sbild

end