From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 pkg/images/imgeom/imlintran.cl | 50 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)
 create mode 100644 pkg/images/imgeom/imlintran.cl

(limited to 'pkg/images/imgeom/imlintran.cl')

diff --git a/pkg/images/imgeom/imlintran.cl b/pkg/images/imgeom/imlintran.cl
new file mode 100644
index 00000000..59db414f
--- /dev/null
+++ b/pkg/images/imgeom/imlintran.cl
@@ -0,0 +1,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
+
-- 
cgit