home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pgraph2.zip / PGRAPH2.INC < prev    next >
Text File  |  1996-11-18  |  7KB  |  87 lines
  1.  
  2. {types used in the PHRAPH.DLL}
  3.  type POINTTYPE = record x,y:integer end;
  4.       S127 = string[127];
  5.  
  6. {constants for SetWriteMode procedure}
  7.  const
  8.  NORMALPUT=0;
  9.  COPYPUT=0;
  10.  XORPUT=1;
  11.  ORPUT=2;
  12.  ANDPUT=3;
  13.  NOTPUT=4;
  14.  NOTXORPUT=5;
  15.  NOTORPUT=6;
  16.  NOTANDPUT=7;
  17.  
  18. {declaration of external functions and procedures}
  19.  procedure SetColor(color:word); external                                   'PGRAPH2'  index  1;
  20.  procedure SetWriteMode(mode:integer); external                             'PGRAPH2'  index  2;
  21.  procedure PixelMode_on; external                                           'PGRAPH2'  index  3;
  22.  procedure PixelMode_Off; external                                          'PGRAPH2'  index  4;
  23.  procedure LineMode_On; external                                            'PGRAPH2'  index  5;
  24.  procedure LineMode_Off; external                                           'PGRAPH2'  index  6;
  25.  procedure Pixel(x,y:integer); external                                     'PGRAPH2'  index  7;
  26.  function  KeyPressed: Boolean; external                                    'PGRAPH2'  index  8;
  27.  function  ReadKey: Char; external                                          'PGRAPH2'  index  9;
  28.  procedure PlaySound(Freq,Duration: Longint); external                      'PGRAPH2'  index 10;
  29.  procedure Pip; external                                                    'PGRAPH2'  index 11;
  30.  procedure ClrText(x,y,d:byte); external                                    'PGRAPH2'  index 12;
  31.  function  Klic: char; external                                             'PGRAPH2'  index 13;
  32.  procedure Cursor; external                                                 'PGRAPH2'  index 14;
  33.  procedure ClrEolG; external                                                'PGRAPH2'  index 15;
  34.  procedure WriteG(s:s127); external                                         'PGRAPH2'  index 16;
  35.  procedure WriteGn(s:s127); external                                        'PGRAPH2'  index 17;
  36.  procedure GotoXYG(x,y:byte); external                                      'PGRAPH2'  index 18;
  37.  procedure Editg(x1,x2,y:byte; var st:string); external                     'PGRAPH2'  index 19;
  38.  procedure Num(x,y:byte; var n; t:char; k,l:integer); external              'PGRAPH2'  index 20;
  39.  procedure WriteNum(var n; t:char; k,l:integer); external                   'PGRAPH2'  index 21;
  40.  procedure RestoreCrtMode; external                                         'PGRAPH2'  index 22;
  41.  function  SetGraphMode:integer; external                                   'PGRAPH2'  index 23;
  42.  procedure ClearDevice; external                                            'PGRAPH2'  index 24;
  43.  procedure GrafFont(r:byte); external                                       'PGRAPH2'  index 25;
  44.  procedure LineFont(l:byte); external                                       'PGRAPH2'  index 26;
  45.  function  GraphInit(s:s127):integer; external                              'PGRAPH2'  index 27;
  46.  procedure Lock_On; external                                                'PGRAPH2'  index 28;
  47.  procedure Lock_Off; external                                               'PGRAPH2'  index 29;
  48.  procedure BackColor(color:word); external                                  'PGRAPH2'  index 30;
  49.  procedure FBC(fcolor,bcolor:word); external                                'PGRAPH2'  index 31;
  50.  function  GetColor:word; external                                          'PGRAPH2'  index 32;
  51.  procedure SetRGBPalette(color,red,green,blue:integer); external            'PGRAPH2'  index 33;
  52.  function  GetPixel(x,y:integer):word; external                             'PGRAPH2'  index 34;
  53.  procedure PutPixel(x,y:integer;color:word); external                       'PGRAPH2'  index 35;
  54.  procedure Vline(x1,y1,y2:integer); external                                'PGRAPH2'  index 36;
  55.  procedure Hline(x1,x2,y1:integer); external                                'PGRAPH2'  index 37;
  56.  procedure Line(x1,y1,x2,y2:integer); external                              'PGRAPH2'  index 38;
  57.  procedure MoveTo(x,y:integer); external                                    'PGRAPH2'  index 39;
  58.  procedure LineTo(x,y:integer); external                                    'PGRAPH2'  index 40;
  59.  procedure Sym0(x,y:integer); external                                      'PGRAPH2'  index 41;
  60.  procedure Rectangle(x1,y1,x2,y2:integer); external                         'PGRAPH2'  index 42;
  61.  procedure FillRectangle(x1,y1,x2,y2:integer); external                     'PGRAPH2'  index 43;
  62.  procedure Triangle(x1,y1,x2,y2,x3,y3:integer); external                    'PGRAPH2'  index 44;
  63.  procedure FillTriangle(p1,q1,p2,q2,p3,q3:integer); external                'PGRAPH2'  index 45;
  64.  procedure Ellipse(xc,yc:integer; xrad,yrad:integer); external              'PGRAPH2'  index 46;
  65.  procedure FillEllipse(xc,yc:integer; xrad,yrad:integer); external          'PGRAPH2'  index 47;
  66.  Procedure FillPolygon(n: integer; var p); external                         'PGRAPH2'  index 48;
  67.  function  AreaSize(x1,y1,x2,y2:integer):longint; external                  'PGRAPH2'  index 49;
  68.  procedure GetArea(x1,y1,x2,y2:integer; var b); external                    'PGRAPH2'  index 50;
  69.  procedure PutArea(x1,y1:integer; var b); external                          'PGRAPH2'  index 51;
  70.  procedure MoveCross(ch:char; fkl:boolean); external                        'PGRAPH2'  index 52;
  71.  procedure CesTextC(x,y:integer; s:s127; d:boolean); external               'PGRAPH2'  index 53;
  72.  procedure CesLText(x0,y0:integer; s:s127; zv:single; d:boolean); external  'PGRAPH2'  index 54;
  73.  procedure SetLIWI(LiWi:byte); external                                     'PGRAPH2'  index 55;
  74.  procedure SetDOT(Dot:boolean); external                                    'PGRAPH2'  index 56;
  75.  procedure SetPXM(PXM:boolean); external                                    'PGRAPH2'  index 57;
  76.  procedure SetRST(RST:word); external                                       'PGRAPH2'  index 58;
  77.  function  GetWHX:byte; external                                            'PGRAPH2'  index 59;
  78.  function  GetWHY:byte; external                                            'PGRAPH2'  index 60;
  79.  function  GetCRX:integer; external                                         'PGRAPH2'  index 61;
  80.  function  GetCRY:integer; external                                         'PGRAPH2'  index 62;
  81.  procedure SetCRS(CRS:byte); external                                       'PGRAPH2'  index 63;
  82.  function  GetTEXTROW:byte; external                                        'PGRAPH2'  index 64;
  83.  function  GetGFDir:s127; external                                          'PGRAPH2'  index 65;
  84.  function  GetFKL:boolean; external                                         'PGRAPH2'  index 66;
  85.  procedure SetINS(ins:byte); external                                       'PGRAPH2'  index 67;
  86.  function  GetSHI:byte; external                                            'PGRAPH2'  index 68;
  87.