1 /* --------------- BEGIN include file graphic_etypes.incl.pl1 --------------- */
 2 
 3 /* Types of position, mode, and other effectors for the
 4    Multics General Graphic System */
 5 
 6 
 7 /* Null code */
 8 
 9 dcl (Null initial (-1),
10 
11 /* Position codes */
12 
13      Setposition initial (0),
14      Setpoint initial (1),
15      Vector initial (2),
16      Shift initial (3),
17      Point initial (4),
18 
19 /* Mode codes, with values where appropriate */
20 
21      Scaling initial (8),
22      Rotation initial (9),
23      Clipping initial (10),
24 
25      Intensity initial (16),
26           Full_intensity initial (7),
27           Half_intensity initial (3),
28           Invisible initial (0),
29 
30      Linetype initial (17),
31           Solid initial (0),
32           Dashed initial (1),
33           Dotted initial (2),
34           Dash_dotted initial (3),
35           Long_dashed initial (4),
36 
37      Sensitivity initial (18),
38           Sensitive initial (1),
39           Insensitive initial (0),
40 
41      Blink initial (19),
42           Steady initial (0),
43           Blinking initial (1),
44 
45      Color initial (20),
46 
47      Symbol initial (24),
48 
49 /* Text code, with legal alignments */
50 
51      Text initial (25),
52           Upper_left initial (1),
53           Upper_center initial (2),
54           Upper_right initial (3),
55           Left initial (4),
56           Center initial (5),
57           Right initial (6),
58           Lower_left initial (7),
59           Lower_center initial (8),
60           Lower_right initial (9),
61 
62 /* Datablock code */
63 
64      Datablock initial (26),
65 
66 /* Structural effector codes */
67 
68      List initial (32),
69      Array initial (33),
70 
71 /* Merge codes for gm_$get_struc and gm_$put_struc */
72 
73      On_dup_error initial (0),                    /* allow no name duplications */
74      On_dup_source initial (1),                   /* on name dup, force move (use source copy) */
75      On_dup_target_then_nulls initial (2),        /* on name dup, use target copy, for nondup symbols create null ones */
76      On_dup_target_then_source initial (3),       /* on name dup, use target copy, for nondup symbols, use source copy */
77 
78 /* Device codes for graphic input devices */
79 
80      Terminal_program initial (0),
81      Keyboard initial (1),
82      Mouse initial (2),
83      Joystick initial (3),
84      Tablet_and_pen initial (4),
85      Light_pen initial (5),
86      Trackball initial (6),
87      Any_device initial (63))                     /* 63 is equivalent to -1 in SPI */
88 
89      fixed bin internal static options (constant);
90 
91 /* ---------------- END include file graphic_etypes.incl.pl1 ---------------- */