Repatch (from linux) of OSX IRAF

1 files changed, 52 insertions, 0 deletions

diff --git a/pkg/images/immatch/src/geometry/geotran.h b/pkg/images/immatch/src/geometry/geotran.h
new file mode 100644
index 00000000..d2fa6b55
--- /dev/null
+++ b/pkg/images/immatch/src/geometry/geotran.h
@@ -0,0 +1,52 @@
+# GEOTRAN Structure
+
+define	LEN_GEOSTRUCT	(30 + SZ_FNAME)
+
+# output picture formatting parameters
+
+define	GT_NCOLS		Memi[$1]	 # number of output columns
+define	GT_NLINES		Memi[$1+1]	 # number of output lines
+define	GT_XMIN			Memr[P2R($1+2)]	 # x minimum
+define	GT_XMAX			Memr[P2R($1+3)]	 # x maximum
+define	GT_YMIN			Memr[P2R($1+4)]	 # y minimun	
+define	GT_YMAX			Memr[P2R($1+5)]	 # y maximum
+define	GT_XSCALE		Memr[P2R($1+6)]	 # x scale
+define	GT_YSCALE		Memr[P2R($1+7)]	 # y scale
+
+# transformation parameters
+
+define	GT_GEOMODE		Memi[$1+8]	 # Type of transformation
+define	GT_XIN			Memr[P2R($1+9)]	 # x input pixel
+define	GT_YIN			Memr[P2R($1+10)] # y input pixel
+define	GT_XOUT			Memr[P2R($1+11)] # x output pixel
+define	GT_YOUT			Memr[P2R($1+12)] # y output pixel
+define	GT_XSHIFT		Memr[P2R($1+13)] # x shift
+define	GT_YSHIFT		Memr[P2R($1+14)] # y shift
+define	GT_XMAG			Memr[P2R($1+15)] # input image x scale
+define	GT_YMAG			Memr[P2R($1+16)] # input image y scale
+define	GT_XROTATION		Memr[P2R($1+17)] # rotation angle
+define	GT_YROTATION		Memr[P2R($1+18)] # scale angle
+
+# interpolation parameters
+define	GT_XSAMPLE		Memr[P2R($1+19)] # x surface subsampling
+define	GT_YSAMPLE		Memr[P2R($1+20)] # y surface subsampling
+define	GT_INTERPOLANT		Memi[$1+21]	 # image interpolant
+define	GT_NSINC		Memi[$1+22]	 # sinc width half-width
+define	GT_NXYMARGIN		Memi[$1+23]	 # the interpolation margin
+define	GT_BOUNDARY		Memi[$1+24]	 # boundary extension
+define	GT_CONSTANT		Memr[P2R($1+25)] # constant boundary extension
+define	GT_FLUXCONSERVE		Memi[$1+26]	 # conserve total flux
+define	GT_INTERPSTR		Memc[P2C($1+27)] # interpolation string
+
+# GEOTRAN MODES
+
+define	GT_NONE		1		# parameters defined by user
+define	GT_LINEAR	2		# use linear transformation
+define	GT_DISTORT	3		# distortion transformation only
+define	GT_GEOMETRIC	4               # use full transformation
+
+# GEOTRAN COORDINATE MODES
+
+define	GT_ONE		1
+define	GT_TWO		2
+define	GT_FOUR		3