sources/int/graf/doc/graph.h

   1 (* --------------------------------------------------------- *)
   2 (*       HERCULES GRAPHICS FOR MICROSOFT PASCAL              *)
   3 (*                                                           *)
   4 (*            External subprograms header                    *)
   5 (*$list-,$symtab-                                            *)
   6 type ads_of_byte = ads of byte;
   7
   8 procedure GRON(consts imode: integer); external;
   9 procedure GROFF; external;
  10 procedure CLS; external;
  11 procedure POINT(consts ix,iy: integer); external;
  12 procedure MOVE(consts ix,iy: integer); external;
  13 procedure DRAW(consts ix,iy: integer); external;
  14 procedure HFILL(consts maxx: integer); external;
  15 procedure VFILL(consts maxy: integer); external;
  16 procedure COLOR(consts c: integer); external;
  17 procedure STYLE(consts s: integer); external;
  18 procedure PATERN(consts p1, p2, p3, p4: integer); external;
  19 procedure INTENS(consts i: integer); external;
  20 procedure PALLET(consts p: integer); external;
  21 procedure BORDER(consts b: integer); external;
  22 procedure VIDEO(ads_of_buffer: ads_of_byte); external;
  23 procedure HPAGE(consts page, mode, clear: integer); external;
  24 function  NOCARD(consts idummy: integer): integer; external;
  25 procedure PUSHXY; external;
  26 procedure POPXY; external;
  27 function  INXPOS(consts idummy: integer): integer; external;
  28 function  INYPOS(consts idummy: integer): integer; external;
  29 function  INPIX(consts x,y: integer): integer; external;
  30 procedure GETMAP(consts x,y: integer; ads_of_array: ads_of_byte); external;
  31 procedure PUTMAP(ads_of_array: ads_of_byte); external;
  32 procedure ORMAP(ads_of_array: ads_of_byte); external;
  33 procedure XORMAP(ads_of_array: ads_of_byte); external;
  34 procedure TRACK(consts x,y: integer); external;
  35 function  INKEY(consts idummy: integer): integer; external;
  36 procedure HASCII(consts ic: integer); external;
  37 procedure HFONT(consts seg, offs: integer); external;
  38 procedure HFONT8(vars seg, offs: integer); external;
  39 procedure OUTHLI(consts n:integer; ads_of_buffer: ads_of_byte); external;
  40 procedure INHLIN(vars n:integer;ads_of_buffer: ads_of_byte); external;
  41 procedure MKWNDW(consts x,y,icols,ilines: integer; ads_of_window: ads_of_byte;
  42                  consts iwndwsize,iborder: integer); external;
  43 procedure BURY(ads_of_window: ads_of_byte); external;
  44 procedure EXPOSE(ads_of_window: ads_of_byte; consts x,y: integer); external;
  45 procedure OUTWLI(ads_of_window: ads_of_byte; consts n: integer;
  46                    ads_of_buffer: ads_of_byte); external;
  47 procedure INWLIN(ads_of_window: ads_of_byte; vars n: integer;
  48                   ads_of_buffer: ads_of_byte); external;
  49 procedure SWINDO(rw, iw: ads_of_byte; consts scale: integer); external;
  50 procedure RWINDO(rw: ads_of_byte; consts scale: integer); external;
  51 procedure RMOVE(consts rx,ry: real); external;
  52 procedure RDRAW(consts rx,ry: real); external;
  53 procedure CIRB(consts ix,iy,ir: integer; consts alfa, beta: real;
  54                consts cbord, bcint: integer;
  55                consts p, q: integer); external;
  56 procedure RCIRB(consts ix,iy,ir: real; consts alfa, beta: real;
  57                consts cbord, bcint: integer;
  58                consts p, q: integer); external;
  59 (*$list+                                                     *)
  60 (* --------------------------------------------------------- *)
  61
  62 \1a