Repatch (from linux) of OSX IRAF

1 files changed, 83 insertions, 0 deletions

diff --git a/pkg/xtools/gtools/gtreset.x b/pkg/xtools/gtools/gtreset.x
new file mode 100644
index 00000000..696db0cd
--- /dev/null
+++ b/pkg/xtools/gtools/gtreset.x
@@ -0,0 +1,83 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	"gtools.h"
+
+# GT_RESET -- Reset parameters after a gclear, greset, or gcancel.
+
+procedure gt_reset (gp, gt)
+
+pointer	gp			#I GIO pointer
+pointer	gt			#I GTOOLS pointer
+
+begin
+	if (GT_RESET(gt) == NO)
+	    call gt_ireset (gp, gt)
+
+	call gseti (gp, G_TXUP, Memi[gt+GT_TXUP])
+	call gsetr (gp, G_TXSIZE, Memr[P2R(gt+GT_TXSIZE)])
+	call gseti (gp, G_TXPATH, Memi[gt+GT_TXPATH])
+	call gsetr (gp, G_TXSPACING, Memr[P2R(gt+GT_TXSPACING)])
+	call gseti (gp, G_TXHJUSTIFY, Memi[gt+GT_TXHJUSTIFY])
+	call gseti (gp, G_TXVJUSTIFY, Memi[gt+GT_TXVJUSTIFY])
+	call gseti (gp, G_TXFONT, Memi[gt+GT_TXFONT])
+	call gseti (gp, G_TXQUALITY, Memi[gt+GT_TXQUALITY])
+	call gseti (gp, G_TXCOLOR, Memi[gt+GT_TXCOLOR])
+
+	call gseti (gp, G_DRAWTITLE, Memi[gt+GT_DRAWTITLE])
+	call gsetr (gp, G_TITLESIZE, Memr[P2R(gt+GT_TITLESIZE)])
+	#call gseti (gp, G_TITLEJUST, Memi[gt+GT_TITLEJUST])
+	call gseti (gp, G_NTITLELINES, Memi[gt+GT_NTITLELINES])
+	call gsetr (gp, G_ASPECT, Memr[P2R(gt+GT_ASPECT)])
+	#call gsetr (gp, G_CHARSIZE, Memr[P2R(gt+GT_CHARSIZE)])
+	call gseti (gp, G_TITLECOLOR, Memi[gt+GT_TITLECOLOR])
+	call gseti (gp, G_FRAMECOLOR, Memi[gt+GT_FRAMECOLOR])
+
+	call gseti (gp, G_XDRAWAXES, Memi[gt+GT_XDRAWAXES])
+	call gseti (gp, G_XSETAXISPOS, Memi[gt+GT_XSETAXISPOS])
+	call gsetr (gp, G_XAXISPOS1, Memr[P2R(gt+GT_XAXISPOS1)])
+	call gsetr (gp, G_XAXISPOS2, Memr[P2R(gt+GT_XAXISPOS2)])
+	call gseti (gp, G_YDRAWGRID, Memi[gt+GT_XDRAWGRID])
+	call gseti (gp, G_XROUND, Memi[gt+GT_XROUND])
+	call gseti (gp, G_XLABELAXIS, Memi[gt+GT_XLABELAXIS])
+	call gsetr (gp, G_XAXISLABELSIZE, Memr[P2R(gt+GT_XAXISLABELSIZE)])
+	call gseti (gp, G_XDRAWTICKS, Memi[gt+GT_XDRAWTICKS])
+	call gseti (gp, G_XLABELTICKS, Memi[gt+GT_XLABELTICKS])
+	call gseti (gp, G_XNMAJOR, Memi[gt+GT_XNMAJOR])
+	call gseti (gp, G_XNMINOR, Memi[gt+GT_XNMINOR])
+	call gsetr (gp, G_XMAJORLENGTH, Memr[P2R(gt+GT_XMAJORLENGTH)])
+	call gsetr (gp, G_XMINORLENGTH, Memr[P2R(gt+GT_XMINORLENGTH)])
+	call gsetr (gp, G_XMAJORWIDTH, Memr[P2R(gt+GT_XMAJORWIDTH)])
+	call gsetr (gp, G_XMINORWIDTH, Memr[P2R(gt+GT_XMINORWIDTH)])
+	call gsetr (gp, G_XAXISWIDTH, Memr[P2R(gt+GT_XAXISWIDTH)])
+	call gsetr (gp, G_XTICKLABELSIZE, Memr[P2R(gt+GT_XTICKLABELSIZE)])
+	call gseti (gp, G_XGRIDCOLOR, Memi[gt+GT_XGRIDCOLOR])
+	call gseti (gp, G_XAXISLABELCOLOR, Memi[gt+GT_XAXISLABELCOLOR])
+	call gseti (gp, G_XAXISCOLOR, Memi[gt+GT_XAXISCOLOR])
+	call gseti (gp, G_XTICKLABELCOLOR, Memi[gt+GT_XTICKLABELCOLOR])
+	call gseti (gp, G_XTICKCOLOR, Memi[gt+GT_XTICKCOLOR])
+
+	call gseti (gp, G_YDRAWAXES, Memi[gt+GT_YDRAWAXES])
+	call gseti (gp, G_YSETAXISPOS, Memi[gt+GT_YSETAXISPOS])
+	call gsetr (gp, G_YAXISPOS1, Memr[P2R(gt+GT_YAXISPOS1)])
+	call gsetr (gp, G_YAXISPOS2, Memr[P2R(gt+GT_YAXISPOS2)])
+	call gseti (gp, G_XDRAWGRID, Memi[gt+GT_YDRAWGRID])
+	call gseti (gp, G_YROUND, Memi[gt+GT_YROUND])
+	call gseti (gp, G_YLABELAXIS, Memi[gt+GT_YLABELAXIS])
+	call gsetr (gp, G_YAXISLABELSIZE, Memr[P2R(gt+GT_YAXISLABELSIZE)])
+	call gseti (gp, G_YDRAWTICKS, Memi[gt+GT_YDRAWTICKS])
+	call gseti (gp, G_YLABELTICKS, Memi[gt+GT_YLABELTICKS])
+	call gseti (gp, G_YNMAJOR, Memi[gt+GT_YNMAJOR])
+	call gseti (gp, G_YNMINOR, Memi[gt+GT_YNMINOR])
+	call gsetr (gp, G_YMAJORLENGTH, Memr[P2R(gt+GT_YMAJORLENGTH)])
+	call gsetr (gp, G_YMINORLENGTH, Memr[P2R(gt+GT_YMINORLENGTH)])
+	call gsetr (gp, G_YMAJORWIDTH, Memr[P2R(gt+GT_YMAJORWIDTH)])
+	call gsetr (gp, G_YMINORWIDTH, Memr[P2R(gt+GT_YMINORWIDTH)])
+	call gsetr (gp, G_YAXISWIDTH, Memr[P2R(gt+GT_YAXISWIDTH)])
+	call gsetr (gp, G_YTICKLABELSIZE, Memr[P2R(gt+GT_YTICKLABELSIZE)])
+	call gseti (gp, G_YGRIDCOLOR, Memi[gt+GT_YGRIDCOLOR])
+	call gseti (gp, G_YAXISLABELCOLOR, Memi[gt+GT_YAXISLABELCOLOR])
+	call gseti (gp, G_YAXISCOLOR, Memi[gt+GT_YAXISCOLOR])
+	call gseti (gp, G_YTICKLABELCOLOR, Memi[gt+GT_YTICKLABELCOLOR])
+	call gseti (gp, G_YTICKCOLOR, Memi[gt+GT_YTICKCOLOR])
+end