blob: 9479fbdd5b1bfb3729280821deeb14f04605c894 (
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 "imd.h"
# IMD_TXSET -- Set the text drawing attributes.
procedure imd_txset (gki)
short gki[ARB] # attribute structure
pointer tx
include "imd.com"
begin
tx = IMD_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
|
