Initial commit

1 files changed, 164 insertions, 0 deletions

diff --git a/pkg/xtools/gtools/gtinit.x b/pkg/xtools/gtools/gtinit.x
new file mode 100644
index 00000000..11e0c5bb
--- /dev/null
+++ b/pkg/xtools/gtools/gtinit.x
@@ -0,0 +1,164 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	"gtools.h"
+
+# GT_INIT1 -- Open the GTOOLS pointer.
+
+pointer procedure gt_init1 (gp)
+
+pointer	gp
+pointer	gt
+
+pointer	gt_init()
+errchk	gt_init, gt_ireset
+
+begin
+	# Initialize the graphics.
+
+	gt = gt_init()
+	call gt_ireset (gp, gt)
+
+	return (gt)
+end
+
+
+# GT_INIT -- Allocate and initialize GTOOLS pointer.
+#
+# This is an older version.  To properly set things either gt_ireset
+# should be called after gt_init or use the new gt_init1.
+
+pointer procedure gt_init ()
+
+pointer	gt
+
+begin
+	# Initialize the graphics.
+
+	call calloc (gt, LEN_GT, TY_STRUCT)
+	GT_VXMIN(gt) = INDEFR
+	GT_VXMAX(gt) = INDEFR
+	GT_VYMIN(gt) = INDEFR
+	GT_VYMAX(gt) = INDEFR
+	GT_XMIN(gt) = INDEFR
+	GT_XMAX(gt) = INDEFR
+	GT_YMIN(gt) = INDEFR
+	GT_YMAX(gt) = INDEFR
+	call gt_sets (gt, GTXTRAN, "linear")
+	call gt_sets (gt, GTYTRAN, "linear")
+	GT_XSIZE(gt) = 2.
+	GT_YSIZE(gt) = 2.
+	GT_SYSID(gt) = YES
+	GT_PARAMS(gt) = NULL
+	GT_TITLE(gt) = NULL
+	GT_SUBTITLE(gt) = NULL
+	GT_COMMENTS(gt) = NULL
+	GT_XLABEL(gt) = NULL
+	GT_YLABEL(gt) = NULL
+	GT_XUNITS(gt) = NULL
+	GT_YUNITS(gt) = NULL
+	GT_DRWTITLE(gt) = YES
+	GT_DRWXLABELS(gt) = YES
+	GT_DRWYLABELS(gt) = YES
+	GT_XFORMAT(gt) = NULL
+	GT_YFORMAT(gt) = NULL
+	GT_XBUF(gt) = .03
+	GT_YBUF(gt) = .03
+	GT_LCLIP(gt) = 0.
+	GT_HCLIP(gt) = 0.
+	GT_XFLIP(gt) = NO
+	GT_YFLIP(gt) = NO
+	GT_TRANSPOSE(gt) = NO
+	call gt_sets (gt, GTTYPE, "mark")
+	call gt_sets (gt, GTMARK, "plus")
+	call gt_seti (gt, GTLINE, 1)
+	call gt_seti (gt, GTCOLOR, 1)
+
+	GT_RESET(gt) = NO
+
+	return (gt)
+end
+
+
+# GT_IRESET -- Initialize GTOOLS values from GP pointer.
+
+procedure gt_ireset (gp, gt)
+
+pointer	gp			#I GIO pointer
+pointer	gt			#I GTOOLS pointer
+
+int	gstati()
+real	gstatr()
+
+begin
+	Memi[gt+GT_TXUP] = gstati (gp, G_TXUP)
+	Memr[P2R(gt+GT_TXSIZE)] = gstatr (gp, G_TXSIZE)
+	Memi[gt+GT_TXPATH] = gstati (gp, G_TXPATH)
+	Memr[P2R(gt+GT_TXSPACING)] = gstatr (gp, G_TXSPACING)
+	Memi[gt+GT_TXHJUSTIFY] = gstati (gp, G_TXHJUSTIFY)
+	Memi[gt+GT_TXVJUSTIFY] = gstati (gp, G_TXVJUSTIFY)
+	Memi[gt+GT_TXFONT] = gstati (gp, G_TXFONT)
+	Memi[gt+GT_TXQUALITY] = gstati (gp, G_TXQUALITY)
+	Memi[gt+GT_TXCOLOR] = gstati (gp, G_TXCOLOR)
+
+	Memi[gt+GT_DRAWTITLE] = gstati (gp, G_DRAWTITLE)
+	Memr[P2R(gt+GT_TITLESIZE)] = gstatr (gp, G_TITLESIZE)
+	#Memi[gt+GT_TITLEJUST] = gstati (gp, G_TITLEJUST)
+	Memi[gt+GT_NTITLELINES] = gstati (gp, G_NTITLELINES)
+	Memr[P2R(gt+GT_ASPECT)] = gstatr (gp, G_ASPECT)
+	#Memr[P2R(gt+GT_CHARSIZE)] = gstatr (gp, G_CHARSIZE)
+	Memi[gt+GT_TITLECOLOR] = gstati (gp, G_TITLECOLOR)
+	Memi[gt+GT_FRAMECOLOR] = gstati (gp, G_FRAMECOLOR)
+
+	Memi[gt+GT_XDRAWAXES] = gstati (gp, G_XDRAWAXES)
+	Memi[gt+GT_XSETAXISPOS] = gstati (gp, G_XSETAXISPOS)
+	Memr[P2R(gt+GT_XAXISPOS1)] = gstatr (gp, G_XAXISPOS1)
+	Memr[P2R(gt+GT_XAXISPOS2)] = gstatr (gp, G_XAXISPOS2)
+	Memi[gt+GT_XDRAWGRID] = gstati (gp, G_YDRAWGRID)
+	Memi[gt+GT_XROUND] = gstati (gp, G_XROUND)
+	Memi[gt+GT_XLABELAXIS] = gstati (gp, G_XLABELAXIS)
+	Memr[P2R(gt+GT_XAXISLABELSIZE)] = gstatr (gp, G_XAXISLABELSIZE)
+	Memi[gt+GT_XDRAWTICKS] = gstati (gp, G_XDRAWTICKS)
+	Memi[gt+GT_XLABELTICKS] = gstati (gp, G_XLABELTICKS)
+	Memi[gt+GT_XNMAJOR] = gstati (gp, G_XNMAJOR)
+	#Memi[gt+GT_XNMINOR] = gstati (gp, G_XNMINOR)
+	Memi[gt+GT_XNMINOR] = 0
+	Memr[P2R(gt+GT_XMAJORLENGTH)] = gstatr (gp, G_XMAJORLENGTH)
+	Memr[P2R(gt+GT_XMINORLENGTH)] = gstatr (gp, G_XMINORLENGTH)
+	Memr[P2R(gt+GT_XMAJORWIDTH)] = gstatr (gp, G_XMAJORWIDTH)
+	Memr[P2R(gt+GT_XMINORWIDTH)] = gstatr (gp, G_XMINORWIDTH)
+	Memr[P2R(gt+GT_XAXISWIDTH)] = gstatr (gp, G_XAXISWIDTH)
+	Memr[P2R(gt+GT_XTICKLABELSIZE)] = gstatr (gp, G_XTICKLABELSIZE)
+	Memi[gt+GT_XGRIDCOLOR] = gstati (gp, G_XGRIDCOLOR)
+	Memi[gt+GT_XAXISLABELCOLOR] = gstati (gp, G_XAXISLABELCOLOR)
+	Memi[gt+GT_XAXISCOLOR] = gstati (gp, G_XAXISCOLOR)
+	Memi[gt+GT_XTICKLABELCOLOR] = gstati (gp, G_XTICKLABELCOLOR)
+	Memi[gt+GT_XTICKCOLOR] = gstati (gp, G_XTICKCOLOR)
+
+	Memi[gt+GT_YDRAWAXES] = gstati (gp, G_YDRAWAXES)
+	Memi[gt+GT_YSETAXISPOS] = gstati (gp, G_YSETAXISPOS)
+	Memr[P2R(gt+GT_YAXISPOS1)] = gstatr (gp, G_YAXISPOS1)
+	Memr[P2R(gt+GT_YAXISPOS2)] = gstatr (gp, G_YAXISPOS2)
+	Memi[gt+GT_YDRAWGRID] = gstati (gp, G_XDRAWGRID)
+	Memi[gt+GT_YROUND] = gstati (gp, G_YROUND)
+	Memi[gt+GT_YLABELAXIS] = gstati (gp, G_YLABELAXIS)
+	Memr[P2R(gt+GT_YAXISLABELSIZE)] = gstatr (gp, G_YAXISLABELSIZE)
+	Memi[gt+GT_YDRAWTICKS] = gstati (gp, G_YDRAWTICKS)
+	Memi[gt+GT_YLABELTICKS] = gstati (gp, G_YLABELTICKS)
+	Memi[gt+GT_YNMAJOR] = gstati (gp, G_YNMAJOR)
+	#Memi[gt+GT_YNMINOR] = gstati (gp, G_YNMINOR)
+	Memi[gt+GT_YNMINOR] = 0
+	Memr[P2R(gt+GT_YMAJORLENGTH)] = gstatr (gp, G_YMAJORLENGTH)
+	Memr[P2R(gt+GT_YMINORLENGTH)] = gstatr (gp, G_YMINORLENGTH)
+	Memr[P2R(gt+GT_YMAJORWIDTH)] = gstatr (gp, G_YMAJORWIDTH)
+	Memr[P2R(gt+GT_YMINORWIDTH)] = gstatr (gp, G_YMINORWIDTH)
+	Memr[P2R(gt+GT_YAXISWIDTH)] = gstatr (gp, G_YAXISWIDTH)
+	Memr[P2R(gt+GT_YTICKLABELSIZE)] = gstatr (gp, G_YTICKLABELSIZE)
+	Memi[gt+GT_YGRIDCOLOR] = gstati (gp, G_YGRIDCOLOR)
+	Memi[gt+GT_YAXISLABELCOLOR] = gstati (gp, G_YAXISLABELCOLOR)
+	Memi[gt+GT_YAXISCOLOR] = gstati (gp, G_YAXISCOLOR)
+	Memi[gt+GT_YTICKLABELCOLOR] = gstati (gp, G_YTICKLABELCOLOR)
+	Memi[gt+GT_YTICKCOLOR] = gstati (gp, G_YTICKCOLOR)
+
+	GT_RESET(gt) = YES
+end