sources/int/nonstand.h

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