blob: 09ab7b80892e495c73204ef1a660045f1505f6eb (
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
# GKTRANS definitions.
define MAX_CHARSIZES 10 # max discreet device char sizes
define SZ_SBUF 1024 # initial string buffer size
define SZ_MFRECORD (1440/SZB_CHAR) # metafile record size
define SZ_GDEVICE 31 # maxsize forced device name
define DEF_MAXFRAMES 16 # maximum frames/metafile
# The GKTRANS state/device descriptor.
define LEN_GKT 81
define GKT_SBUF Memi[$1] # string buffer
define GKT_SZSBUF Memi[$1+1] # size of string buffer
define GKT_NEXTCH Memi[$1+2] # next char pos in string buf
define GKT_NCHARSIZES Memi[$1+3] # number of character sizes
define GKT_POLYLINE Memi[$1+4] # device supports polyline
define GKT_POLYMARKER Memi[$1+5] # device supports polymarker
define GKT_FILLAREA Memi[$1+6] # device supports fillarea
define GKT_CELLARRAY Memi[$1+7] # device supports cell array
define GKT_ZRES Memi[$1+8] # device resolution in Z
define GKT_FILLSTYLE Memi[$1+9] # number of fill styles
define GKT_ROAM Memi[$1+10] # device supports roam
define GKT_ZOOM Memi[$1+11] # device supports zoom
define GKT_SELERASE Memi[$1+12] # device has selective erase
define GKT_PIXREP Memi[$1+13] # device supports pixel replic.
define GKT_STARTFRAME Memi[$1+14] # frame advance at metafile BOF
define GKT_ENDFRAME Memi[$1+15] # frame advance at metafile EOF
# extra space
define GKT_CURSOR Memi[$1+20] # last cursor accessed
define GKT_COLOR Memi[$1+21] # last color set
define GKT_TXSIZE Memi[$1+22] # last text size set
define GKT_TXFONT Memi[$1+23] # last text font set
define GKT_TYPE Memi[$1+24] # last line type set
define GKT_WIDTH Memi[$1+25] # last line width set
define GKT_DEVNAME Memi[$1+26] # name of open device
# extra space
define GKT_CHARHEIGHT Memi[$1+30+$2-1] # character height
define GKT_CHARWIDTH Memi[$1+40+$2-1] # character width
define GKT_CHARSIZE Memr[P2R($1+50+$2-1)] # text sizes permitted
define GKT_PLAP ($1+60) # polyline attributes
define GKT_PMAP ($1+64) # polymarker attributes
define GKT_FAAP ($1+68) # fill area attributes
define GKT_TXAP ($1+71) # default text attributes
# Substructure definitions.
define LEN_PL 4
define PL_STATE Memi[$1] # polyline attributes
define PL_LTYPE Memi[$1+1]
define PL_WIDTH Memi[$1+2]
define PL_COLOR Memi[$1+3]
define LEN_PM 4
define PM_STATE Memi[$1] # polymarker attributes
define PM_LTYPE Memi[$1+1]
define PM_WIDTH Memi[$1+2]
define PM_COLOR Memi[$1+3]
define LEN_FA 3 # fill area attributes
define FA_STATE Memi[$1]
define FA_STYLE Memi[$1+1]
define FA_COLOR Memi[$1+2]
define LEN_TX 10 # text attributes
define TX_STATE Memi[$1]
define TX_UP Memi[$1+1]
define TX_SIZE Memi[$1+2]
define TX_PATH Memi[$1+3]
define TX_SPACING Memr[P2R($1+4)]
define TX_HJUSTIFY Memi[$1+5]
define TX_VJUSTIFY Memi[$1+6]
define TX_FONT Memi[$1+7]
define TX_QUALITY Memi[$1+8]
define TX_COLOR Memi[$1+9]
|
