1 /* ***********************************************************
 2    *                                                         *
 3    *                                                         *
 4    * Copyright, (C) Honeywell Information Systems Inc., 1981 *
 5    *                                                         *
 6    *                                                         *
 7    *********************************************************** */
 8 
 9 /* ******************************************************
10    *                                                    *
11    *                                                    *
12    * Copyright (c) 1972 by Massachusetts Institute of   *
13    * Technology and Honeywell Information Systems, Inc. *
14    *                                                    *
15    *                                                    *
16    ****************************************************** */
17 
18 /* A table for the RG512 graphic card for the ADM3A graphic terminal */
19 /* Created from tek_4012.gdt by C. Hornig, October 1980 */
20 /* Last modified 10/16/80 by C. D. Tavares */
21 
22 Name:               rg512;
23 
24 Type:               static;
25 Procedure:          tektronix_40XX_;
26 
27 Character_size:     20, 15, 3.38;
28 Points_per_inch:    160;
29 Message_size:       1024;
30 
31 /* Effector         Action */
32 
33 setposition:        call position;
34 setpoint:           call position;
35 vector:             call position;
36 shift:              call position;
37 point:              call position;
38 
39 scaling:            error;
40 rotation:           error;
41 clipping:           error;
42 
43 intensity:          ignore;
44 line_type:          call line_type;
45 blinking:           ignore;
46 sensitivity:        ignore;
47 color:              ignore;
48 
49 symbol:             ignore;
50 text:               call text;
51 data:               ignore;
52 
53 pause:              flush, call pause;
54 reference:          error;
55 increment:          error;
56 alter:              error;
57 node_begin:         expand, call node_in; /* That should expand everything */
58 node_end:           ignore;
59 control:            error;
60 display:            ignore;
61 query:              call query;
62 erase:              call erase;
63 synchronize:        flush;
64 delete:             ignore;
65 
66 input:              call input;
67 
68 text_mode:          call mode_switch;
69 graphic_mode:       call mode_switch;
70 expansion:          ignore;
71 
72 open:               call open_rg512;
73 close:              call close;
74 modes:              call changemode;
75 
76 end;