diff options
Diffstat (limited to 'sys/gio/gks/gstxci.x')
| -rw-r--r-- | sys/gio/gks/gstxci.x | 18 |
1 files changed, 18 insertions, 0 deletions
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 <gset.h> + +# 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 |