blob: a0e5d2d5b609a1f86b3e43af3854eaa243637823 (
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
76
77
|
# IMD global definitions.
define MAX_CHARSIZES 10 # max discreet device char sizes
define SZ_SBUF 1024 # initial string buffer size
define SZ_GDEVICE 31 # maxsize forced device name
define DEF_MAXFRAMES 16 # maximum frames/metafile
# The IMD state/device descriptor.
define LEN_IMD 81
define IMD_SBUF Memi[$1] # string buffer
define IMD_SZSBUF Memi[$1+1] # size of string buffer
define IMD_NEXTCH Memi[$1+2] # next char pos in string buf
define IMD_NCHARSIZES Memi[$1+3] # number of character sizes
define IMD_POLYLINE Memi[$1+4] # device supports polyline
define IMD_POLYMARKER Memi[$1+5] # device supports polymarker
define IMD_FILLAREA Memi[$1+6] # device supports fillarea
define IMD_CELLARRAY Memi[$1+7] # device supports cell array
define IMD_XRES Memi[$1+8] # device resolution in X
define IMD_YRES Memi[$1+9] # device resolution in Y
define IMD_ZRES Memi[$1+10] # device resolution in Z
define IMD_FILLSTYLE Memi[$1+11] # number of fill styles
define IMD_ROAM Memi[$1+12] # device supports roam
define IMD_ZOOM Memi[$1+13] # device supports zoom
define IMD_SELERASE Memi[$1+14] # device has selective erase
define IMD_PIXREP Memi[$1+15] # device supports pixel replic.
define IMD_STARTFRAME Memi[$1+16] # frame advance at metafile BOF
define IMD_ENDFRAME Memi[$1+17] # frame advance at metafile EOF
# extra space
define IMD_CURSOR Memi[$1+20] # last cursor accessed
define IMD_COLOR Memi[$1+21] # last color set
define IMD_TXSIZE Memi[$1+22] # last text size set
define IMD_TXFONT Memi[$1+23] # last text font set
define IMD_TYPE Memi[$1+24] # last line type set
define IMD_WIDTH Memi[$1+25] # last line width set
define IMD_DEVNAME Memi[$1+26] # name of open device
define IMD_FRAME Memi[$1+27] # frame buffer number
# extra space
define IMD_CHARHEIGHT Memi[$1+30+$2-1] # character height
define IMD_CHARWIDTH Memi[$1+40+$2-1] # character width
define IMD_CHARSIZE Memr[P2R($1+50+$2-1)] # text sizes permitted
define IMD_PLAP ($1+60) # polyline attributes
define IMD_PMAP ($1+64) # polymarker attributes
define IMD_FAAP ($1+68) # fill area attributes
define IMD_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]
|
