1
2
3 dcl (graphic_manipulator_$init,
4 gm_$init) entry (fixed bin (35));
5
6 dcl (graphic_manipulator_$segp,
7 gm_$segp) entry (pointer, fixed bin (35));
8
9 dcl (graphic_manipulator_$create_position,
10 gm_$create_position,
11 graphic_manipulator_$cpos,
12 gm_$cpos) entry (fixed bin, float bin (27), float bin (27), float bin (27), fixed bin (35)) returns (fixed bin (18));
13
14 dcl (graphic_manipulator_$create_mode,
15 gm_$create_mode,
16 graphic_manipulator_$cmode,
17 gm_$cmode) entry (fixed bin, fixed bin, fixed bin (35)) returns (fixed bin (18));
18
19 dcl (graphic_manipulator_$create_scale,
20 gm_$create_scale,
21 graphic_manipulator_$cscale,
22 gm_$cscale) entry (float bin (27), float bin (27), float bin (27), fixed bin (35)) returns (fixed bin (18));
23
24 dcl (graphic_manipulator_$create_rotation,
25 gm_$create_rotation,
26 graphic_manipulator_$crot,
27 gm_$crot) entry (float bin (27), float bin (27), float bin (27), fixed bin (35)) returns (fixed bin (18));
28
29 dcl (graphic_manipulator_$create_clip,
30 gm_$create_clip,
31 graphic_manipulator_$cclip,
32 gm_$cclip) entry (float bin (27), float bin (27), float bin (27), float bin (27), float bin (27), float bin (27),
33 fixed bin (35)) returns (fixed bin (18));
34
35 dcl (graphic_manipulator_$create_color,
36 gm_$create_color,
37 graphic_manipulator_$ccolor,
38 gm_$ccolor) entry (fixed bin, fixed bin, fixed bin, fixed bin (35)) returns (fixed bin (18));
39
40 dcl (graphic_manipulator_$create_text,
41 gm_$create_text,
42 graphic_manipulator_$ctext,
43 gm_$ctext) entry (fixed bin, fixed bin, char (*), fixed bin (35)) returns (fixed bin (18));
44
45 dcl (graphic_manipulator_$create_data,
46 gm_$create_data,
47 graphic_manipulator_$cdata,
48 gm_$cdata) entry (fixed bin, bit (*), fixed bin (35)) returns (fixed bin (18));
49
50 dcl (graphic_manipulator_$create_list,
51 gm_$create_list,
52 graphic_manipulator_$clist,
53 gm_$clist) entry (fixed bin (18) dimension (*), fixed bin, fixed bin (35)) returns (fixed bin (18));
54
55 dcl (graphic_manipulator_$create_array,
56 gm_$create_array,
57 graphic_manipulator_$carray,
58 gm_$carray) entry (fixed bin (18) dimension (*), fixed bin, fixed bin (35)) returns (fixed bin (18));
59
60 dcl (graphic_manipulator_$assign_name,
61 gm_$assign_name) entry (char (*), fixed bin (18), fixed bin (35)) returns (fixed bin (18));
62
63 dcl (graphic_manipulator_$find_structure,
64 gm_$find_structure,
65 graphic_manipulator_$fstruc,
66 gm_$fstruc) entry (char (*), fixed bin (18), fixed bin (35)) returns (fixed bin (18));
67
68 dcl (graphic_manipulator_$add_element,
69 gm_$add_element) entry (fixed bin (18), fixed bin, fixed bin (18), fixed bin (35));
70
71 dcl (graphic_manipulator_$replace_element,
72 gm_$replace_element) entry (fixed bin (18), fixed bin, fixed bin (18), fixed bin (35)) returns (fixed bin (18));
73
74 dcl (graphic_manipulator_$replace_node,
75 gm_$replace_node) entry (fixed bin (18), fixed bin (18), fixed bin (35));
76
77 dcl (graphic_manipulator_$remove_symbol,
78 gm_$remove_symbol) entry (char (*), fixed bin (35));
79
80 dcl (graphic_manipulator_$replicate,
81 gm_$replicate) entry (fixed bin (18), fixed bin (35)) returns (fixed bin (18));
82
83 dcl (graphic_manipulator_$examine_type,
84 gm_$examine_type) entry (fixed bin (18), bit (1) aligned, fixed bin, fixed bin (35));
85
86 dcl (graphic_manipulator_$examine_position,
87 gm_$examine_position,
88 graphic_manipulator_$epos,
89 gm_$epos) entry (fixed bin (18), fixed bin, float bin, float bin, float bin, fixed bin (35));
90
91 dcl (graphic_manipulator_$examine_mode,
92 gm_$examine_mode,
93 graphic_manipulator_$emode,
94 gm_$emode) entry (fixed bin (18), fixed bin, fixed bin, fixed bin (35));
95
96 dcl (graphic_manipulator_$examine_color,
97 gm_$examine_color,
98 graphic_manipulator_$ecolor,
99 gm_$ecolor) entry (fixed bin (18), fixed bin, fixed bin, fixed bin, fixed bin (35));
100
101 dcl (graphic_manipulator_$examine_mapping,
102 gm_$examine_mapping,
103 graphic_manipulator_$emap,
104 gm_$emap) entry (fixed bin (18), fixed bin, float bin dimension (*), fixed bin, fixed bin (35));
105
106 dcl (graphic_manipulator_$examine_contents,
107 gm_$examine_contents) entry (fixed bin (18), fixed bin (18) dimension (*), fixed bin, fixed bin (35));
108
109 dcl (graphic_manipulator_$examine_list,
110 gm_$examine_list,
111 graphic_manipulator_$elist,
112 gm_$elist) entry (fixed bin (18), dimension (*) fixed bin (18), fixed bin, fixed bin (35));
113
114 dcl (graphic_manipulator_$examine_symtab,
115 graphic_manipulator_$esymtab,
116 gm_$examine_symtab,
117 gm_$esymtab) entry (fixed bin (18) dimension (*), fixed bin, fixed bin (35));
118
119 dcl (graphic_manipulator_$examine_symbol,
120 gm_$examine_symbol,
121 graphic_manipulator_$esymbol,
122 gm_$esymbol) entry (fixed bin (18), fixed bin (18), fixed bin, char (*), fixed bin (35));
123
124 dcl (graphic_manipulator_$examine_text,
125 gm_$examine_text,
126 graphic_manipulator_$etext,
127 gm_$etext) entry (fixed bin (18), fixed bin, fixed bin, char (*), fixed bin (35));
128
129 dcl (graphic_manipulator_$examine_data,
130 gm_$examine_data,
131 graphic_manipulator_$edata,
132 gm_$edata) entry (fixed bin (18), fixed bin, bit (*), fixed bin (35));
133
134 dcl (graphic_manipulator_$get_struc,
135 gm_$get_struc,
136 graphic_manipulator_$gstruc,
137 gm_$gstruc) entry (char (*), char (*), char (*), fixed bin, fixed bin (35));
138
139 dcl (graphic_manipulator_$put_struc,
140 gm_$put_struc,
141 graphic_manipulator_$pstruc,
142 gm_$pstruc) entry (char (*), char (*), char (*), fixed bin, fixed bin (35));
143
144 dcl (graphic_manipulator_$save_file,
145 gm_$save_file) entry (char (*), char (*), fixed bin (35));
146
147 dcl (graphic_manipulator_$use_file,
148 gm_$use_file) entry (char (*), char (*), fixed bin (35));
149
150