home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / common / bgi.int < prev    next >
Encoding:
Text File  |  1994-05-23  |  2.0 KB  |  101 lines

  1. unit BGI;
  2.  
  3. { unit BGI, Version 1.01.004, (c) 1993 by Matthias Köppe.
  4.  
  5.   bgi.inf bgi.txt bgi.doc
  6.  
  7.   Verknüpft die Routinen der Unit Graph mit den Konventionen der
  8.   Graphikverwaltung Gr und dem Metafile-Konzept.
  9. }
  10.  
  11.  
  12. interface
  13.  
  14. { Empfohlene modifizierte BGI-Routinen mit Koordinaten
  15. }
  16. procedure PutPixel(x, y: Integer; Pixel: Word);
  17. procedure Line(x1, y1, x2, y2: Integer);
  18. procedure MoveTo(x, y: Integer);
  19. procedure MoveRel(dx, dy: Integer);
  20. procedure LineTo(x, y: Integer);
  21. procedure LineRel(dx, dy: Integer);
  22. procedure Bar(x1, y1, x2, y2: Integer);
  23. procedure Rectangle(x1, y1, x2, y2: Integer);
  24. procedure Circle(x, y: Integer; Radius: Word);
  25. procedure FillCircle(x, y: Integer; Radius: Word);
  26. procedure FillEllipse(x, y: Integer; XRadius, YRadius: Word);
  27. procedure GetImage(x1, y1, x2, y2: Integer; var BitMap);
  28. procedure PutImage(x, y: Integer; var BitMap; BitBlt: Word);
  29.  
  30. { Gr-Clipping für nicht empfohlene BGI-Routinen
  31. }
  32. var
  33.   BgiX: Integer;
  34.   BgiY: Integer;
  35.  
  36. procedure GrClipBgi;
  37.  
  38. { Bgi Clipping Mode
  39. }
  40. const
  41.   bcmUpdAlways = 0;
  42.   bcmUpdNever  = 1;
  43.   bcmUpdStop   = 2;
  44.   bcmUpdOnReq  = 3;
  45.  
  46.   bcsNoUpd     = 0;
  47.   bcsUpdOrigin = 1;
  48.   bcsUpdAll    = 2;
  49.   bcsMeta      = $100;
  50.  
  51. const
  52.   BgiClipMode: Word = bcmUpdAlways;
  53.   BgiClipState: Word = bcsNoUpd;
  54.  
  55. { Exported line routine                        User01
  56. }
  57. const
  58.   qLine = 50;
  59.  
  60. { Bgi Clipping Notification                    User02
  61. }
  62. const
  63.   qNotifyClip = 50;
  64.  
  65. procedure NotifyClip(Msg: Word);
  66.  
  67. { Bgi Init Graphics                        User03
  68. }
  69. const
  70.   qInitBgiGraph = 50;
  71.  
  72. function InitBgiGraph: Boolean;
  73.  
  74. { Bgi Close Graphics                        User04
  75. }
  76. const
  77.   qCloseBgiGraph = 50;
  78.  
  79. procedure CloseBgiGraph;
  80.  
  81. { Bgi Set Active Page                        User05
  82. }
  83. const
  84.   qSetBgiPage = 50;
  85.  
  86. procedure SetBgiPage;
  87.  
  88. { Bgi Change Params                        User06
  89. }
  90. const
  91.   qChBgiParams = 50;
  92.  
  93. function ChBgiParams(Cmd: Word; var Buf): Word;
  94.  
  95. { Path to Bgi Driver
  96. }
  97. const
  98.   PathToDriver: string[79] = 'C:\TP\BGI';
  99.  
  100. implementation  {***********************************************************}
  101.