blob: f2f4f040ba0ef2d66d74149c8f3f3b8e33244d08 (
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 "ccp.h"
# CCP_TXSET -- Set the text drawing attributes.
procedure ccp_txset (gki)
short gki[ARB] # attribute structure
pointer tx
include "ccp.com"
begin
tx = CCP_TXAP(g_cc)
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
|
