Repatch (from linux) of OSX IRAF

1 files changed, 131 insertions, 0 deletions

diff --git a/pkg/proto/maskexpr/peregfuncs.h b/pkg/proto/maskexpr/peregfuncs.h
new file mode 100644
index 00000000..cc777a9a
--- /dev/null
+++ b/pkg/proto/maskexpr/peregfuncs.h
@@ -0,0 +1,131 @@
+# PEREGFUNCS.H -- Structure definitions.
+
+# Circle definitions.
+
+define	LEN_CIRCLEDES	5
+define	C_PL		Memi[$1]	# reference mask
+define	C_XCEN		Memr[P2R($1+1)]	# X center of circle
+define	C_YCEN		Memr[P2R($1+2)]	# Y center of circle
+define	C_RADIUS	Memr[P2R($1+3)]	# radius of circle
+define	C_PV		Memi[$1+4]	# pixel value
+
+
+# Ellipse definitions.
+
+define	LEN_ELLDES	10
+define	E_PL		Memi[$1]	# reference mask
+define	E_XCEN		Memr[P2R($1+1)]	# X center of ellipse
+define	E_YCEN		Memr[P2R($1+2)]	# Y center of ellipse
+define	E_AA		Memr[P2R($1+3)]	# aa parameter
+define	E_BB		Memr[P2R($1+4)]	# bb parameter
+define	E_CC		Memr[P2R($1+5)]	# cc parameter
+define	E_FF		Memr[P2R($1+6)]	# ff paramater
+define	E_DXMAX		Memr[P2R($1+7)]	# the maximum x offset
+define	E_DYMAX		Memr[P2R($1+8)]	# the maximum x offset
+define	E_PV		Memi[$1+9]	# pixel value
+
+
+# Box definitions.
+
+define	LEN_BOXDES	6
+define	B_PL		Memi[$1]	# reference mask
+define	B_X1		Memr[P2R($1+1)]	# X1 lower left corner of box
+define	B_Y1		Memr[P2R($1+2)]	# Y1 lower left corner of box
+define	B_X2		Memr[P2R($1+3)]	# X2 upper right corner of box
+define	B_Y2		Memr[P2R($1+4)]	# Y2 upper right corner of box
+define	B_PV		Memi[$1+5]	# pixel value
+
+
+# Polygon definitions.
+
+define	TOL		0.0001		# pixel units
+define	swapi		{tempi=$2;$2=$1;$1=tempi}
+define	swapr		{tempr=$2;$2=$1;$1=tempr}
+define	equal		(abs($1-$2)<TOL)
+
+define	LEN_PGONDES	7
+define	P_PL		Memi[$1]	# pointer to X vector
+define	P_XP		Memi[$1+1]	# pointer to X vector
+define	P_YP		Memi[$1+2]	# pointer to Y vector
+define	P_OO		Memi[$1+3]	# pointer to previous range list
+define	P_OY		Memi[$1+4]	# y value of previous range list
+define	P_NS		Memi[$1+5]	# number of line segments
+define	P_PV		Memi[$1+6]	# pixel value
+
+
+# Circular annulus definitions.
+
+define	LEN_CANNDES	6
+define	CA_PL		Memi[$1]	# reference mask
+define	CA_XCEN		Memr[P2R($1+1)]	# x center of circle
+define	CA_YCEN		Memr[P2R($1+2)]	# y center of circle
+define	CA_RADIUS1	Memr[P2R($1+3)]	# inner radius of annulus
+define	CA_RADIUS2	Memr[P2R($1+4)]	# outer radius of annulus
+define	CA_PV		Memi[$1+5]	# pixel value
+
+
+# Elliptical annulus defintiions.
+
+define	LEN_EANNDES	16
+define	EA_PL		Memi[$1]	 # reference mask
+define	EA_XCEN		Memr[P2R($1+1)]	 # x center of ellipse
+define	EA_YCEN		Memr[P2R($1+2)]	 # y center of ellipse
+define	EA_AA1		Memr[P2R($1+3)]	 # aa parameter for inner ellipse
+define	EA_BB1		Memr[P2R($1+4)]	 # bb parameter for inner ellipse
+define	EA_CC1		Memr[P2R($1+5)]	 # cc parameter for inner ellipse
+define	EA_FF1		Memr[P2R($1+6)]	 # ff parameter for inner ellipse
+define	EA_DXMAX1	Memr[P2R($1+7)]  # max dx value for inner ellipse
+define	EA_DYMAX1	Memr[P2R($1+8)]  # max dy value for inner ellipse
+define	EA_AA2		Memr[P2R($1+9)]	 # aa parameter for outer ellipse
+define	EA_BB2		Memr[P2R($1+10)] # bb parameter for outer ellipse
+define	EA_CC2		Memr[P2R($1+11)] # cc parameter for outer ellipse
+define	EA_FF2		Memr[P2R($1+12)] # ff parameter for outer ellipse
+define	EA_DXMAX2	Memr[P2R($1+13)] # max dx value for outer ellipse
+define	EA_DYMAX2	Memr[P2R($1+14)] # max dy value for outer ellipse
+define	EA_PV		Memi[$1+15]	 # pixel value
+
+
+# Rasterop annulus definitions.
+
+define	LEN_RANNDES	7
+define	RA_PL		Memi[$1]	# the mask descriptor
+define	RA_IXP		Memi[$1+1]	# pointer to inner polygon X vector
+define	RA_IYP		Memi[$1+2]	# pointer to inner Y polygon vector
+define	RA_OXP		Memi[$1+3]	# pointer to outer X polygon vector
+define	RA_OYP		Memi[$1+4]	# pointer to outer Y polygon vector
+define	RA_NVER		Memi[$1+5]	# number of vertices
+define	RA_PV		Memi[$1+6]	# mask pixel value
+
+
+# Polygon annulus definitions.
+
+define	LEN_PAGONDES	7
+define	PA_PL		Memi[$1]	# the mask descriptor
+define	PA_IXP		Memi[$1+1]	# pointer to inner polygon X vector
+define	PA_IYP		Memi[$1+2]	# pointer to inner Y polygon vector
+define	PA_OXP		Memi[$1+3]	# pointer to outer X polygon vector
+define	PA_OYP		Memi[$1+4]	# pointer to outer Y polygon vector
+define	PA_NVER		Memi[$1+5]	# number of vertices
+define	PA_PV		Memi[$1+6]	# mask pixel value
+
+
+# Column definitions.
+
+define	LEN_COLSDES	4
+define	L_PL		Memi[$1]	# reference mask
+define	L_RANGES	Memi[$1+1]	# pointer to the ranges	
+define	L_NRANGES	Memi[$1+2]	# the number of ranges
+define	L_XS		Memi[$1+3]	# the starting x coordinate value
+define	L_NPIX		Memi[$1+4]	# the number of pixels value
+define	L_PV		Memi[$1+5]	# pixel value
+
+
+# Line definitions.
+
+define	LEN_LINESDES	3
+define	L_PL		Memi[$1]	# reference mask
+define	L_RANGES	Memi[$1+1]	# pointer to the ranges	
+define	L_PV		Memi[$1+2]	# pixel value
+
+define	MAX_NRANGES	100
+define	SMALL_NUMBER	1.0e-24