blob: ec04132c7f61c61d80847921ec04523678e3dec4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
|
