1 /* -------- BEGIN include file graphic_code_dcl.incl.pl1 ---------- */
 2 
 3 /* The following structure maintains a nonobvious positional relationship
 4   with respect to the LSM block types as defined by the graphic compiler.
 5   It therefore has an intimiate and delicate relationship with certain tables
 6   defined in graphic_comp_specs.incl.pl1. */
 7 
 8 dcl 1 Graphic_Code_Structure aligned static options (constant),
 9     2 Dynamic_and_structural_effectors aligned,
10       3 (Pause_char initial ("$"),
11          Reference_char initial ("%"),
12          Increment_char initial ("&"),
13          Alter_char initial ("'"),
14          Node_begin_char initial ("("),
15          Node_end_char initial (")"),
16          Control_char initial ("*"),
17          Display_char initial ("+"),
18          Query_char initial (","),
19          Erase_char initial ("-"),
20          Synchronize_char initial ("."),
21          Delete_char initial ("/")) char (1) unaligned,
22     2 Graphic_effectors aligned,
23       3 (Setposition_char initial ("0"),
24          Setpoint_char initial ("1"),
25          Vector_char initial ("2"),
26          Shift_char initial ("3"),
27          Point_char initial ("4")) char (1) unaligned,
28       3 Illegal_pad char (3) unaligned initial ((3)"U"),
29     2 Mapping_effectors aligned,
30       3 (Scaling_char initial ("5"),
31          Rotation_char initial ("6"),
32          Clipping_char initial ("7")) char (1) unaligned,
33       3 Illegal_pad char (5) unaligned initial ((5)"U"),
34     2 Mode_effectors aligned,
35       3 (Intensity_char initial ("8"),
36          Linetype_char initial ("9"),
37          Sensitivity_char initial (";"),
38          Blinking_char initial (":"),
39          Color_char initial ("<")) char (1) unaligned,
40       3 Illegal_pad char (3) unaligned initial ((3)"U"),
41     2 Special_effectors aligned,
42       3 (Symbol_char initial ("="),
43          Text_char initial (">"),
44          Datablock_char initial ("?")) char (1) unaligned,
45       3 Illegal_pad char (9) unaligned initial ((9)"U");
46 
47 dcl 1 Graphic_Defaults aligned static options (constant),
48     2 Mode_defaults aligned,
49       3 Intensity_default fixed bin initial (7),
50       3 Linetype_default fixed bin initial (0),
51       3 Blinking_default fixed bin initial (0),
52       3 Sensitivity_default fixed bin initial (0),
53       3 Color_default (3) fixed bin initial ((3)16),
54     2 Mapping_defaults aligned,
55       3 Scaling_default (3) float bin initial ((3)1e0),
56       3 Rotation_default (3) fixed bin initial ((3)0),
57       3 Clipping_default (3, 2) fixed bin initial ((3) (-2048, 2048)),
58     2 Identity_matrix (3, 3) float bin initial (1e0, (3)0e0, 1e0, (3)0e0, 1e0);
59 
60 dcl  Graphic_Element_Lengths (32 : 63) aligned static options (constant) initial
61      ((4)-1,                                                                                        /* not used */
62      1,   /* pause */         4,        /* reference */     9,        /* increment */     9,        /* alter */
63      5,   /* node begin */    1,        /* node end */      4,        /* control */       4,        /* display */
64      3,   /* query */         1,        /* erase */         1,        /* synchronize */   4,        /* delete */
65      10,  /* setposition */   10,       /* setpoint */      10,       /* vector */        10,       /* shift */
66      10,  /* point */         10,       /* scaling */       7,        /* rotation */      13,       /* clipping */
67      2,   /* intensity */     2,        /* line type */     2,        /* blinking */      2,        /* sensitivity */
68      4,   /* color */         0,        /* symbol */        0,        /* text */          0         /* data */);
69 
70 dcl  zero_node_id char (3) static initial ("@@@") options (constant);
71 
72 dcl  request_for_status char (1) static aligned initial ("^]") options (constant);
73 
74 dcl (List_char initial ("@"),
75      Array_char initial ("A")) char (1) aligned static options (constant);
76 
77 /* --------- END include file graphic_code_dcl.incl.pl1 ----------- */