diff options
Diffstat (limited to 'pkg/xtools/gtools/gtreset.x')
| -rw-r--r-- | pkg/xtools/gtools/gtreset.x | 83 |
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 |