blob: 28ed1d323116ef3f7c7d4ac7a983b6062dd70120 (
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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gset.h>
include <gki.h>
include "gkt.h"
# GKT_TXSET -- Set the text drawing attributes.
procedure gkt_txset (gki)
short gki[ARB] # attribute structure
pointer tx
include "gkt.com"
begin
tx = GKT_TXAP(g_kt)
TX_UP(tx) = gki[GKI_TXSET_UP]
TX_PATH(tx) = gki[GKI_TXSET_P ]
TX_HJUSTIFY(tx) = gki[GKI_TXSET_HJ]
TX_VJUSTIFY(tx) = gki[GKI_TXSET_VJ]
TX_FONT(tx) = gki[GKI_TXSET_F ]
TX_QUALITY(tx) = gki[GKI_TXSET_Q ]
TX_COLOR(tx) = gki[GKI_TXSET_CI]
TX_SPACING(tx) = GKI_UNPACKREAL (gki[GKI_TXSET_SP])
TX_SIZE(tx) = gki[GKI_TXSET_SZ]
end
|
