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 --- sys/gio/gks/gstxci.x | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 sys/gio/gks/gstxci.x (limited to 'sys/gio/gks/gstxci.x') diff --git a/sys/gio/gks/gstxci.x b/sys/gio/gks/gstxci.x new file mode 100644 index 00000000..ec04132c --- /dev/null +++ b/sys/gio/gks/gstxci.x @@ -0,0 +1,18 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include + +# GSTXCI -- Set colour index. This function is currently implemented +# by setting the text font to bold when the color index > 1, and to +# the default (roman) otherwise. + +procedure gstxci (coli) + +int coli # Text colour index + +begin + if (coli > 1) + call gsawi (G_TXFONT, GT_BOLD) + else + call gsawi (G_TXFONT, GT_ROMAN) +end -- cgit