1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
include <imhdr.h>
# MK_MAG -- Procedure to compute the x and y magnification factors.
procedure mk_mag (im, iw, xmag, ymag)
pointer im # pointer to the frame buffer
pointer iw # pointer to the wcs structure
real xmag, ymag # x and y magnifications
real xll, yll, xur, yur
begin
# Compute the x and y magnification.
call iw_fb2im (iw, 1.0, 1.0, xll, yll)
call iw_fb2im (iw, real (IM_LEN(im,1)), real (IM_LEN(im,2)), xur, yur)
xmag = abs (xur - xll) / (IM_LEN(im,1) - 1)
ymag = abs (yur - yll) / (IM_LEN(im,2) - 1)
end
|
