home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Graphics / pens.i < prev    next >
Encoding:
Text File  |  1994-10-12  |  3.0 KB  |  111 lines
  1. {
  2.         Pens.i of PCQ Pascal
  3.  
  4.         This is not a standard Amiga include file, but since the
  5.         various drawing routines don't seem to fit in any other
  6.         include file, this one was created to declare them.
  7. }
  8.  
  9. {$I "Include:Graphics/Rastport.i" }
  10. {$I "Include:Graphics/View.i"}
  11.  
  12. Procedure Draw(rp : Address; x, y : Short);
  13.     External;
  14.  
  15. Procedure DrawCircle(rp : Address; cx, cy, radius : Short);
  16.     External;
  17.  
  18. Procedure DrawEllipse(rp : Address; cx, cy, a, b : Short);
  19.     External;
  20.  
  21. Procedure Flood(rp : Address; mode : Integer; x, y : Short);
  22.     External;
  23.  
  24. Procedure Move(rp : Address; x, y : Short);
  25.     External;
  26.  
  27. Procedure PolyDraw(rp : Address; count : Short; ary : Address);
  28.     External;
  29.  
  30. Function ReadPixel(rp : Address; x, y : Short) : Integer;
  31.     External;
  32.  
  33. Procedure RectFill(rp : Address; xmin, ymin, xmax, ymax : Short);
  34.     External;
  35.  
  36. Procedure SetAPen(rp : Address; pen : Byte);
  37.     External;
  38.  
  39. Procedure SetBPen(rp : Address; pen : Byte);
  40.     External;
  41.  
  42. Procedure SetDrMd(rp : Address; mode : Byte);
  43.     External;
  44.  
  45. FUNCTION WritePixel(rp : Address; x, y : Short) : Integer;
  46.     External;
  47.  
  48. FUNCTION ReadPixelArray8(RP : RastPortPtr; xstart, ystart, xstop, ystop : Short; 
  49.                          PixelArray : Address; tempRP : RastPortPtr) : Integer;
  50.     External;
  51.  
  52. FUNCTION ReadPixelLine8(RP : RastPortPtr; xstart, ystart, Width : Short;
  53.                          LineArray : Address; tempRP : RastPortPtr) : Integer;
  54.     External;
  55.  
  56. FUNCTION WritePixelArray8(RP : RastPortPtr; xstart, ystart, xstop, ystop : Short;
  57.                          PixelArray : Address; tempRP : RastPortPtr) : Integer;
  58.     External;
  59.  
  60. FUNCTION WritePixelLine8(RP : RastPortPtr; xstart, ystart, Width : Short;
  61.                          LineArray : Address; tempRP : RastPortPtr) : Integer;
  62.     External;
  63.  
  64. { --- functions in V39 or higher (Release 3) --- }
  65. FUNCTION ObtainBestPenA(cm : ColorMapPtr; vp : ViewPortPtr) : Integer;
  66.     External;
  67.  
  68. FUNCTION GetAPen(RP : RastPortPtr) : Integer;
  69.     External;
  70.  
  71. FUNCTION GetBPen(RP : RastPortPtr) : Integer;
  72.     External;
  73.  
  74. FUNCTION GetDrMd(RP : RastPortPtr) : Integer;
  75.     External;
  76.  
  77. FUNCTION GetOutlinePen(RP : RastPortPtr) : Integer;
  78.     External;
  79.  
  80. PROCEDURE SetABPenDrMd(RP : RastPortPtr; APen, BPen, DrawMode : Integer);
  81.     External;
  82.  
  83. PROCEDURE ReleasePen(CM : ColorMapPtr; n : Integer);
  84.     External;
  85.  
  86. FUNCTION ObtainPen(CM : ColorMapPtr; n, r, g, b, f : Integer) : Integer;
  87.     External;
  88.  
  89. FUNCTION SetOutlinePen(RP : RastPortPtr; Pen : Integer) : Integer;
  90.     External;
  91.  
  92. FUNCTION SetWriteMask(RP : RastPortPtr; msk : Integer) : Integer;
  93.     External;
  94.  
  95. PROCEDURE SetMaxPen(RP : RastPortPtr; maxpen : Integer);
  96.     External;
  97.  
  98. PROCEDURE SetRPAttrsA(RP : RastPortPtr; TagList : Address);
  99.     External;
  100.  
  101. PROCEDURE GetRPAttrsA(RP : RastPortPtr; TagList : Address);
  102.     External;
  103.  
  104. { --- functions in V40 or higher (Release 3.1) --- }
  105. PROCEDURE WriteChunkyPixels(RP : RastPortPtr; xstart, ystart,
  106.                             xstop, ystop : Integer; WCParray : Address;
  107.                             bytesperrow : Integer);
  108.     External;
  109.  
  110.  
  111.