From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- pkg/xtools/gtools/gtinit.x | 164 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 164 insertions(+) create mode 100644 pkg/xtools/gtools/gtinit.x (limited to 'pkg/xtools/gtools/gtinit.x') 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 +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 -- cgit