Initial commit

1 files changed, 210 insertions, 0 deletions

diff --git a/pkg/xtools/gtools/gtget.x b/pkg/xtools/gtools/gtget.x
new file mode 100644
index 00000000..8274dab9
--- /dev/null
+++ b/pkg/xtools/gtools/gtget.x
@@ -0,0 +1,210 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+include	<gset.h>
+include	"gtools.h"
+
+# GT_GETI -- Set integer parameters.
+
+int procedure gt_geti (gt, param)
+
+pointer	gt			# GTOOLS pointer
+int	param			# Parameter to set
+
+begin
+	switch (param) {
+	case GTLINE:
+	    return (GT_LINE(gt))
+	case GTTRANSPOSE:
+	    return (GT_TRANSPOSE(gt))
+	case GTSYSID:
+	    return (GT_SYSID(gt))
+	case GTCOLOR:
+	    return (GT_COLOR(gt))
+	case GTXFLIP:
+	    return (GT_XFLIP(gt))
+	case GTYFLIP:
+	    return (GT_YFLIP(gt))
+	case GTDRAWTITLE:
+	    return (GT_DRWTITLE(gt))
+	case GTDRAWXLABELS:
+	    return (GT_DRWXLABELS(gt))
+	case GTDRAWYLABELS:
+	    return (GT_DRWYLABELS(gt))
+	}
+end
+
+
+# GT_GETR -- Set real parameters.
+
+real procedure gt_getr (gt, param)
+
+pointer	gt			# GTOOLS pointer
+int	param			# Parameter to set
+
+begin
+	switch (param) {
+	case GTVXMIN:
+	    return (GT_VXMIN(gt))
+	case GTVXMAX:
+	    return (GT_VXMAX(gt))
+	case GTVYMIN:
+	    return (GT_VYMIN(gt))
+	case GTVYMAX:
+	    return (GT_VYMAX(gt))
+	case GTXMIN:
+	    if (GT_XFLIP(gt) == NO)
+		return (GT_XMIN(gt))
+	    else
+		return (GT_XMAX(gt))
+	case GTXMAX:
+	    if (GT_XFLIP(gt) == NO)
+		return (GT_XMAX(gt))
+	    else
+		return (GT_XMIN(gt))
+	case GTYMIN:
+	    if (GT_YFLIP(gt) == NO)
+		return (GT_YMIN(gt))
+	    else
+		return (GT_YMAX(gt))
+	case GTYMAX:
+	    if (GT_YFLIP(gt) == NO)
+		return (GT_YMAX(gt))
+	    else
+		return (GT_YMIN(gt))
+	case GTXBUF:
+	    return (GT_XBUF(gt))
+	case GTYBUF:
+	    return (GT_YBUF(gt))
+	case GTLCLIP:
+	    return (GT_LCLIP(gt))
+	case GTHCLIP:
+	    return (GT_HCLIP(gt))
+	case GTXSIZE:
+	    return (GT_XSIZE(gt))
+	case GTYSIZE:
+	    return (GT_YSIZE(gt))
+	}
+end
+
+
+# GT_GETS -- Get string parameters.
+
+procedure gt_gets (gt, param, str, sz_str)
+
+pointer	gt			# GTOOLS pointer
+int	param			# Parameter to set
+char	str[sz_str]		# String
+int	sz_str			# Size of string
+
+begin
+	str[1] = EOS
+	switch (param) {
+	case GTPARAMS:
+	    if (GT_PARAMS(gt) != NULL)
+	        call strcpy (Memc[GT_PARAMS(gt)], str, sz_str)
+	case GTTITLE:
+	    if (GT_TITLE(gt) != NULL)
+	        call strcpy (Memc[GT_TITLE(gt)], str, sz_str)
+	case GTSUBTITLE:
+	    if (GT_SUBTITLE(gt) != NULL)
+	        call strcpy (Memc[GT_SUBTITLE(gt)], str, sz_str)
+	case GTCOMMENTS:
+	    if (GT_COMMENTS(gt) != NULL)
+	        call strcpy (Memc[GT_COMMENTS(gt)], str, sz_str)
+	case GTXLABEL:
+	    if (GT_XLABEL(gt) != NULL)
+	        call strcpy (Memc[GT_XLABEL(gt)], str, sz_str)
+	case GTYLABEL:
+	    if (GT_YLABEL(gt) != NULL)
+	        call strcpy (Memc[GT_YLABEL(gt)], str, sz_str)
+	case GTXUNITS:
+	    if (GT_XUNITS(gt) != NULL)
+	        call strcpy (Memc[GT_XUNITS(gt)], str, sz_str)
+	case GTYUNITS:
+	    if (GT_YUNITS(gt) != NULL)
+	        call strcpy (Memc[GT_YUNITS(gt)], str, sz_str)
+	case GTXFORMAT:
+	    if (GT_XFORMAT(gt) != NULL)
+	        call strcpy (Memc[GT_XFORMAT(gt)], str, sz_str)
+	case GTYFORMAT:
+	    if (GT_YFORMAT(gt) != NULL)
+	        call strcpy (Memc[GT_YFORMAT(gt)], str, sz_str)
+	case GTXTRAN:
+	    switch (GT_XTRAN(gt)) {
+	    case GW_LINEAR:
+	        call strcpy ("linear", str, sz_str)
+	    case GW_ELOG:
+	        call strcpy ("logarithmic", str, sz_str)
+	    }
+	case GTYTRAN:
+	    switch (GT_YTRAN(gt)) {
+	    case GW_LINEAR:
+	        call strcpy ("linear", str, sz_str)
+	    case GW_ELOG:
+	        call strcpy ("logarithmic", str, sz_str)
+	    }
+	case GTTYPE:
+	    #switch (GT_TYPE(gt)) {
+	    #case 1:
+	    #    call strcpy ("mark", str, sz_str)
+	    #case 2:
+	    #    call strcpy ("line", str, sz_str)
+	    #case 3:
+	    #    call strcpy ("histogram", str, sz_str)
+	    #}
+	    switch (GT_TYPE(gt)) {
+	    case 1:
+		switch (GT_MARK(gt)) {
+		case GM_POINT:
+		    call strcpy ("point", str, sz_str)
+		case GM_BOX:
+		    call strcpy ("box", str, sz_str)
+		case GM_PLUS:
+		    call strcpy ("plus", str, sz_str)
+		case GM_CROSS:
+		    call strcpy ("cross", str, sz_str)
+		case GM_DIAMOND:
+		    call strcpy ("diamond", str, sz_str)
+		case GM_HLINE:
+		    call strcpy ("hline", str, sz_str)
+		case GM_VLINE:
+		    call strcpy ("vline", str, sz_str)
+		case GM_HEBAR:
+		    call strcpy ("hebar", str, sz_str)
+		case GM_VEBAR:
+		    call strcpy ("vebar", str, sz_str)
+		case GM_CIRCLE:
+		    call strcpy ("circle", str, sz_str)
+		}
+	    case 2:
+		call sprintf (str, sz_str, "line%d")
+		    call pargi (GT_LINE(gt))
+	    case 3:
+		call sprintf (str, sz_str, "hist%d")
+		    call pargi (GT_LINE(gt))
+	    }
+	case GTMARK:
+	    switch (GT_MARK(gt)) {
+	    case GM_POINT:
+	        call strcpy ("point", str, sz_str)
+	    case GM_BOX:
+	        call strcpy ("box", str, sz_str)
+	    case GM_PLUS:
+	        call strcpy ("plus", str, sz_str)
+	    case GM_CROSS:
+	        call strcpy ("cross", str, sz_str)
+	    case GM_DIAMOND:
+	        call strcpy ("diamond", str, sz_str)
+	    case GM_HLINE:
+	        call strcpy ("hline", str, sz_str)
+	    case GM_VLINE:
+	        call strcpy ("vline", str, sz_str)
+	    case GM_HEBAR:
+	        call strcpy ("hebar", str, sz_str)
+	    case GM_VEBAR:
+	        call strcpy ("vebar", str, sz_str)
+	    case GM_CIRCLE:
+	        call strcpy ("circle", str, sz_str)
+	    }
+	}
+end