1
2
3 dcl ((graphic_macros_$box,
4 gmc_$box) entry (float bin, float bin, fixed bin (35)),
5 (graphic_macros_$circle,
6 gmc_$circle) entry (float bin, float bin, fixed bin (35)),
7 (graphic_macros_$arc,
8 gmc_$arc) entry (float bin, float bin, float bin, fixed bin (35)),
9 (graphic_macros_$ellipse,
10 gmc_$ellipse) entry (float bin, float bin, float bin, fixed bin, float bin, fixed bin (35)),
11 (graphic_macros_$ellipse_by_foci,
12 gmc_$ellipse_by_foci) entry (float bin, float bin, float bin, float bin, float bin, fixed bin (35)),
13 (graphic_macros_$polygon,
14 gmc_$polygon) entry (float bin, float bin, fixed bin, fixed bin (35))) returns (fixed bin (18));
15
16