image_ar.pro

IDL语言编写的用于天文自适应光学仿真的软件CAOS V6.0的第一部分。

; $Id: image_ar.pro,v 1.2 2002/03/14 11:49:12 riccardi Exp $

function image_ar,yxar,input
;+
;resample an image sampled with a different step in y and x axis to the same step.
;usage : resampled_image=image_ar(aspect_ratio,image)
;			aspect_ratio is the image aspect ratio
;-
sz=size(input)
if sz[0] ne 2 then begin
	MESSAGE,"input must be 2-D"
endif
nx=sz[1]
ny=sz[2]
y=findgen(fix(ny*yxar))/yxar
return, interpolate(input,findgen(nx),y,/grid)
end