1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
# IMLINTRAN -- Linearly transform and image by calling the GEOTRAN task
# with the appropriate parameters.
procedure imlintran (input, output, xrotation, yrotation, xmag, ymag, xin, yin,
xout, yout, ncols, nlines, interpolant, boundary, constant,
fluxconserve, nxblock, nyblock, verbose)
string input
string output
real xrotation
real yrotation
real xmag
real ymag
real xin
real yin
real xout
real yout
real ncols
real nlines
string interpolant
string boundary
real constant
bool fluxconserve
int nxblock
int nyblock
bool verbose
begin
# Declare local variables.
string tinput, toutput
real txrotation, tyrotation
# Get the parameters.
tinput = input
toutput = output
txrotation = xrotation
tyrotation = yrotation
# Call GEOTRAN.
geotran (input=tinput, output=toutput, database="",
xrotation=txrotation, yrotation=tyrotation, xin=xin, yin=yin,
xout=xout, yout=yout, xshift=INDEF, yshift=INDEF, xmin=1.0,
xmax=ncols, ymin=1.0, ymax=nlines, xscale=1.0, yscale=1.0,
ncols=INDEF, nlines=INDEF, xmag=xmag, ymag=ymag,
interpolant=interpolant, boundary=boundary, constant=constant,
xsample=1., ysample=1., fluxconserve=fluxconserve, nxblock=nxblock,
nyblock=nyblock, verbose=verbose)
end
|
