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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
include "tvmark.h"
# MK_SHOW -- Procedure to show the immark parameters
procedure mk_show (mk)
pointer mk # pointer to the immark structure
pointer sp, str
bool itob()
int mk_stati()
real mk_statr()
begin
call smark (sp)
call salloc (str, SZ_FNAME, TY_CHAR)
# Print a blank line.
call printf ("\n")
# Print the frame info.
call printf ("%s: %d %s: %s\n")
call pargstr (KY_FRAME)
call pargi (mk_stati (mk, FRAME))
call pargstr (KY_COORDS)
call mk_stats (mk, COORDS, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
# Print the output info.
call printf (" %s: %s %s: %s %s: %b\n")
call pargstr (KY_OUTIMAGE)
call mk_stats (mk, OUTIMAGE, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
call mk_stats (mk, LOGFILE, Memc[str], SZ_FNAME)
call pargstr (KY_LOGFILE)
call pargstr (Memc[str])
call pargstr (KY_AUTOLOG)
call pargb (itob (mk_stati (mk, AUTOLOG)))
# Print the deletions file info.
call printf (" %s: %s %s: %g\n")
call pargstr (KY_DELETIONS)
call mk_stats (mk, DELETIONS, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
call pargstr (KY_TOLERANCE)
call pargr (mk_statr (mk, TOLERANCE))
# Print the font info.
call printf (" %s: %s %s: %d\n")
call pargstr (KY_FONT)
call mk_stats (mk, FONT, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
call pargstr (KY_GRAYLEVEL)
call pargi (mk_stati (mk, GRAYLEVEL))
# Print the mark type info.
call printf (" %s: %s ")
call pargstr (KY_MARK)
call mk_stats (mk, MARK, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
call printf ("%s: %s ")
call pargstr (KY_CIRCLES)
call mk_stats (mk, CSTRING, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
call printf ("%s: %s %g\n")
call pargstr (KY_RECTANGLE)
call mk_stats (mk, RSTRING, Memc[str], SZ_FNAME)
call pargstr (Memc[str])
call pargr (mk_statr (mk, RATIO))
call printf (" %s: %d %s: %d\n")
call pargstr (KY_SZPOINT)
call pargi (2 * mk_stati (mk, SZPOINT) + 1)
call pargstr (KY_SIZE)
call pargi (mk_stati (mk, SIZE))
call printf (" %s: %b ")
call pargstr (KY_LABEL)
call pargb (itob (mk_stati (mk, LABEL)))
call printf ("%s: %b ")
call pargstr (KY_NUMBER)
call pargb (itob (mk_stati (mk, NUMBER)))
call printf (" %s: %d %s: %d\n")
call pargstr (KY_NXOFFSET)
call pargi (mk_stati (mk, NXOFFSET))
call pargstr (KY_NYOFFSET)
call pargi (mk_stati (mk, NYOFFSET))
# Print a blank line.
call printf ("\n")
call sfree (sp)
end
|
