blob: 75d7325a393865904d4b9ead38d3cf684582cc7b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
# GKP_TXPARG -- Convert a short integer text attribute code into a string
# and pass the string to FMTIO.
procedure gkp_txparg (code)
short code # defined in <gset.h>
begin
switch (code) {
case GT_NORMAL:
call pargstr ("normal")
case GT_CENTER:
call pargstr ("center")
case GT_LEFT:
call pargstr ("left")
case GT_RIGHT:
call pargstr ("right")
case GT_UP:
call pargstr ("up")
case GT_DOWN:
call pargstr ("down")
case GT_TOP:
call pargstr ("top")
case GT_BOTTOM:
call pargstr ("bottom")
case GT_ROMAN:
call pargstr ("roman")
case GT_GREEK:
call pargstr ("greek")
case GT_ITALIC:
call pargstr ("italic")
case GT_BOLD:
call pargstr ("bold")
case GT_LOW:
call pargstr ("low")
case GT_MEDIUM:
call pargstr ("medium")
case GT_HIGH:
call pargstr ("high")
default:
call pargstr ("??")
}
end
|
