Repatch (from linux) of OSX IRAF

1 files changed, 92 insertions, 0 deletions

diff --git a/sys/gio/calcomp/ccp.h b/sys/gio/calcomp/ccp.h
new file mode 100644
index 00000000..037dbc6a
--- /dev/null
+++ b/sys/gio/calcomp/ccp.h
@@ -0,0 +1,92 @@
+# CCP definitions.
+
+define	MAX_CHARSIZES	10			# max discreet device char sizes
+define	SZ_SBUF		1024			# initial string buffer size
+define	SZ_GDEVICE	31			# maxsize forced device name
+define	CCP_LDEV	5			# device for "plots(0,0,ldev")
+define	CCP_UP		3			# "pen-up" code
+define	CCP_DOWN	2			# "pen-down" code
+define	PL_SINGLE	1			# rel width of single-width line
+define	MAXTRACES	15			# maximum adjacent bold traces
+define	SEGSIZE		256			# segment buffer size
+define	XSEG		Memr[xseg + $1 - 1]	# segment buffer for ccp_calcseg
+define	YSEG		Memr[yseg + $1 - 1]	# "
+define	DIS		sqrt ((($3)-($1))**2+(($4)-($2))**2) #dis (x1,y1, x2,y2)
+define	XTRAN		($1) * g_xndcto_p	# convert NDC to plotter coords
+define	YTRAN		($1) * g_yndcto_p	# "
+define	FRAME_OFFSET	1.0			# pltr units between [new]frames
+define	MAX_PL_XWIDTH	0.3307			# max pltr x (m) if no graphcap
+define	MAX_PL_YHEIGHT	0.2540			# max pltr y (m) if no graphcap
+define	DEF_MPER_PUNIT	0.0254			# default meters / plotter unit
+define	DEF_DASHLEN	0.1000			# default dash length, pltr unit
+define	DEF_GAPLEN	0.0500			# default gap length, pltr units
+define	DEF_PLWSEP	0.0050			# default ntracing sep. in pu
+
+# CCP state device descriptor:
+
+define	LEN_CCP		81
+
+define	CCP_SBUF	Memi[$1]		# string buffer
+define	CCP_SZSBUF	Memi[$1+1]		# size of string buffer
+define	CCP_NEXTCH	Memi[$1+2]		# next char pos in string buf
+define	CCP_NCHARSIZES	Memi[$1+3]		# number of character sizes
+define	CCP_POLYLINE	Memi[$1+4]		# device supports polyline
+define	CCP_POLYMARKER	Memi[$1+5]		# device supports polymarker
+define	CCP_FILLAREA	Memi[$1+6]		# device supports fillarea
+define	CCP_CELLARRAY	Memi[$1+7]		# device supports cell array
+define	CCP_ZRES	Memi[$1+8]		# device resolution in Z
+define	CCP_FILLSTYLE	Memi[$1+9]		# number of fill styles
+define	CCP_ROAM	Memi[$1+10]		# device supports roam
+define	CCP_ZOOM	Memi[$1+11]		# device supports zoom
+define	CCP_SELERASE	Memi[$1+12]		# device has selective erase
+define	CCP_PIXREP	Memi[$1+13]		# device supports pixel replic.
+define	CCP_STARTFRAME	Memi[$1+14]		# frame advance at metafile BOF
+define	CCP_ENDFRAME	Memi[$1+15]		# frame advance at metafile EOF
+	# extra space
+define	CCP_CURSOR	Memi[$1+20]		# last cursor accessed
+define	CCP_COLOR	Memi[$1+21]		# last color set
+define	CCP_TXSIZE	Memi[$1+22]		# last text size set
+define	CCP_TXFONT	Memi[$1+23]		# last text font set
+define	CCP_LTYPE	Memi[$1+24]		# last line type set
+define	CCP_WIDTH	Memi[$1+25]		# last line width set
+define	CCP_DEVNAME	Memi[$1+26]		# name of open device
+define	CCP_DEVCHAN	Memi[$1+27]		# channel for "plots(0,0,ldev)"
+	# extra space
+define	CCP_CHARHEIGHT	Memi[$1+30+$2-1]	# character height
+define	CCP_CHARWIDTH 	Memi[$1+40+$2-1]	# character width
+define	CCP_CHARSIZE	Memr[P2R($1+50+$2-1)]	# text sizes permitted
+define	CCP_PLAP	($1+60)			# polyline attributes
+define	CCP_PMAP	($1+64)			# polymarker attributes
+define	CCP_FAAP	($1+68)			# fill area attributes
+define	CCP_TXAP	($1+71)			# default text attributes
+
+# Substructure definitions.
+
+define	LEN_PL		4
+define	PL_STATE	Memi[$1]		# polyline attributes
+define	PL_LTYPE	Memi[$1+1]
+define	PL_WIDTH	Memi[$1+2]
+define	PL_COLOR	Memi[$1+3]
+
+define	LEN_PM		4
+define	PM_STATE	Memi[$1]		# polymarker attributes
+define	PM_LTYPE	Memi[$1+1]
+define	PM_WIDTH	Memi[$1+2]
+define	PM_COLOR	Memi[$1+3]
+
+define	LEN_FA		3			# fill area attributes
+define	FA_STATE	Memi[$1]
+define	FA_STYLE	Memi[$1+1]
+define	FA_COLOR	Memi[$1+2]
+
+define	LEN_TX		10			# text attributes
+define	TX_STATE	Memi[$1]
+define	TX_UP		Memi[$1+1]
+define	TX_SIZE		Memi[$1+2]
+define	TX_PATH		Memi[$1+3]
+define	TX_SPACING	Memr[P2R($1+4)]
+define	TX_HJUSTIFY	Memi[$1+5]
+define	TX_VJUSTIFY	Memi[$1+6]
+define	TX_FONT		Memi[$1+7]
+define	TX_QUALITY	Memi[$1+8]
+define	TX_COLOR	Memi[$1+9]