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
|
include <ctype.h>
include "tvmark.h"
# MK_PPARS -- Store the IMMARK parameters.
procedure mk_ppars (mk)
pointer mk # pointer to the immark structure
pointer sp, str
bool itob()
int mk_stati()
real mk_statr()
begin
# Allocate working space.
call smark (sp)
call salloc (str, SZ_LINE, TY_CHAR)
# Store the mark type.
call mk_stats (mk, MARK, Memc[str], SZ_LINE)
call clpstr ("mark", Memc[str])
# Store the circle and rectangles descriptors.
call mk_stats (mk, CSTRING, Memc[str], SZ_LINE)
call clpstr ("radii", Memc[str])
call mk_stats (mk, RSTRING, Memc[str], SZ_LINE)
call clpstr ("lengths", Memc[str])
call clputb ("number", itob (mk_stati (mk, NUMBER)))
call clputb ("label", itob (mk_stati (mk, LABEL)))
call clputi ("txsize", mk_stati (mk, SIZE))
call clputi ("pointsize", 2 * mk_stati (mk, SZPOINT) + 1)
call clputi ("color", mk_stati (mk, GRAYLEVEL))
call clputi ("nxoffset", mk_stati (mk, NXOFFSET))
call clputi ("nyoffset", mk_stati (mk, NYOFFSET))
call clputr ("tolerance", mk_statr (mk, TOLERANCE))
call sfree (sp)
end
|
