Added upstream version.
[vlp.git] / int / nonstand.h
1 /* Standard class IIUWGRAPH graphics primitives
2
3 GRON:procedure(mode:integer) 
4 GROFF:procedure 
5 CLS:procedure 
6 POINT:procedure(x, y:integer) 
7 MOVE:procedure(x, y:integer) 
8 DRAW:procedure(x, y:integer) 
9 HFILL:procedure(x:integer) 
10 VFILL:procedure(y:integer) 
11 COLOR:procedure(color:integer) 
12 STYLE:procedure(style:integer) 
13 PATERN:procedure(p1, p2, p3, p4:integer) 
14 INTENS:procedure(intens:integer) 
15 PALLET:procedure(p:integer) 
16 BORDER:procedure(b:integer) 
17 VIDEO:procedure(buffer:arrayof integer) 
18 HPAGE:procedure(p, q, r:integer) 
19 NOCARD:function:integer 
20 PUSHXY:procedure 
21 POPXY:procedure 
22 INXPOS:function:integer 
23 INYPOS:function:integer 
24 INPIX:function(x, y:integer):integer 
25 GETMAP:function(x, y:integer):arrayof integer 
26 PUTMAP:procedure(arrayof integer) 
27 ORMAP:procedure(arrayof integer) 
28 XORMAP:procedure(arrayof integer) 
29 TRACK:procedure(x, y:integer) 
30 INKEY:function:integer 
31 HASCII:procedure(ch:integer) 
32 HFONT:procedure(off, seg:integer) 
33 HFONT8:procedure(output off, seg:integer) 
34 OUTSTRING:procedure(s:string) 
35 CIRB:procedure(x, y, r:integer, alpha, beta:real, b, i, p, q:integer)
36
37 */
38
39 #define GRON            100
40 #define GROFF           101
41 #define CLS             102
42 #define POINT           103
43 #define MOVE            104
44 #define DRAW            105
45 #define HFILL           106
46 #define VFILL           107
47 #define COLOR           108
48 #define STYLE           109
49 #define PATERN          110
50 #define INTENS          111
51 #define PALLET          112
52 #define BORDER          113
53 #define VIDEO           114
54 #define HPAGE           115
55 #define NOCARD          116
56 #define PUSHXY          117
57 #define POPHXY          118
58 #define INXPOS          119
59 #define INYPOS          120
60 #define INPIX           121
61 #define GETMAP          122
62 #define PUTMAP          123
63 #define ORMAP           124
64 #define XORMAP          125
65 #define TRACK           126
66 #define INKEY           127
67 #define HASCII          128
68 #define HFONT           129
69 #define HFONT8          130
70 #define OUTSTRING       131
71 #define CIRB            132
72
73
74 /* Standard class MOUSE mouse support
75
76 INIT:function(output butttons:integer):boolean 
77 SHOWCURSOR:procedure 
78 HIDECURSOR:procedure 
79 STATUS:procedure(output x,y:integer, l,r,c:boolean) 
80 SETPOSITION:procedure(x, y:integer) 
81 GETPRESS:procedure(b:integer; output x,y,p:integer, l, r, c:boolean)
82 GETRELEASE:procedure(b:integer; output x,y,p:integer, l, r, c:boolean)
83 SETWINDOW:procedure(l, r, t, b:integer) 
84 DEFCURSOR:procedure(select, p, q:integer) 
85 GETMOVEMENT:procedure(output x, y:integer) 
86 SETSPEED:procedure(x, y:integer) 
87 SETMARGINS:procedure(l, r, t, b:integer) 
88 SETTHRESHOLD:procedure(t:integer) 
89
90 */
91
92
93 #define INIT            200
94 #define SHOWCURSOR      201
95 #define HIDECURSOR      202
96 #define STATUS          203
97 #define SETPOSITION     204
98 #define GETPRESS        205
99 #define GETRELEASE      206
100 #define SETWINDOW       207
101 #define DEFCURSOR       210
102 #define GETMOVEMENT     211
103 #define SETSPEED        215
104 #define SETMARGINS      216
105 #define SETTHRESHOLD    219