home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Graphics / Blitter.i < prev    next >
Encoding:
Text File  |  1994-10-12  |  2.7 KB  |  112 lines
  1. {
  2.         Blitter.i for PCQ Pascal
  3.  
  4.         Defines the routines, constants, types, etc. for accessing
  5.         the Blitter.
  6. }
  7.  
  8.  
  9. {$I   "Include:Graphics/GFX.i"}
  10. {$I   "Include:Graphics/RastPort.i"}
  11.  
  12. Const
  13.     CleanUp     = $40;
  14.     CleanMe     = CleanUp;
  15.  
  16. Type
  17.     BltNode = record
  18.         N       : ^BltNode;
  19.         Func    : Address;
  20.         Stat    : Byte;
  21.         BlitSize: Short;
  22.         BeamSync: Short;
  23.         CleanUp : Address;
  24.     end;
  25.     BltNodePtr = ^BltNode;
  26.  
  27.  
  28. Const
  29.     BltClearWait        = 1;    { Waits for blit to finish }
  30.     BltClearXY          = 2;    { Use Row/Bytes per row method }
  31.  
  32.         { Useful minterms }
  33.  
  34.     StraightCopy        = $C0;  { Vanilla copy }
  35.     InvertAndCopy       = $30;  { Invert the source before copy }
  36.     InvertDest          = $50;  { Forget source, invert dest }
  37.  
  38.  
  39. Function BltBitMap(SrcBitMap : BitMapPtr; SrcX, SrcY : Short;
  40.                    DstBitMap : BitMapPtr; DstX, DstY : Short;
  41.                    SizeX, SizeY : Short; Minterm : Byte;
  42.                    Mask : Byte; TempA : Address) : Integer;
  43.     External;
  44.  
  45.  
  46. Procedure BltBitMapRastPort(SrcBM : BitMapPtr; SrcX, SrcY : Short;
  47.                            DestRP: RastPortPtr; DestX, DestY : Short;
  48.                            SizeX, SizeY : Short; MinTerm : Byte);
  49.     External;
  50.  
  51.  
  52. Procedure BltClear(memBlock : Address; ByteCount : Integer; Flags : Integer);
  53.     External;
  54.  
  55.  
  56. Procedure BltMaskBitMapRastPort(SrcBM : BitMapPtr; SrcX, SrcY : Short;
  57.                                 DestRP : RastPortPtr; DestX, DestY : Short;
  58.                                 SizeX, SizeY : Short;
  59.                                 MinTerm : Byte; BltMask : PlanePtr);
  60.     External;
  61.  
  62.  
  63. Procedure BltPattern(RP : RastPortPtr; Mask : Address; xl, yl : Short;
  64.                         MaxX, MaxY : Short; ByteCnt : Short);
  65.     External;
  66.  
  67.  
  68. Procedure BltTemplate(SrcTemplate : PlanePtr; SrcX, SrcMOD : Short;
  69.                         RP : RastPortPtr; DstX, DstY, SizeX, SizeY : Short);
  70.     External;
  71.  
  72.  
  73. Procedure ClipBlit(Src : RastPortPtr; SrcX, SrcY : Short;
  74.                    Dest: RastPortPtr; DestX, DestY : Short;
  75.                    XSize, YSize : Short;
  76.                    Minterm : Byte);
  77.     External;
  78.  
  79.  
  80. Procedure DisownBlitter;
  81.     External;
  82.  
  83.  
  84. Procedure OwnBlitter;
  85.     External;
  86.  
  87.  
  88. Procedure QBlit(bp : BltNodePtr);
  89.     External;
  90.  
  91.  
  92. Procedure QBSBlit(bsp : BltNodePtr);
  93.     External;
  94.  
  95.  
  96. Procedure WaitBlit;
  97.     External;
  98.  
  99. { --- functions in V39 or higher (Release 3) --- }
  100.  
  101. FUNCTION AllocBitMap(SizeX, SizeY, Depth, flags : Integer; friend_bitmap : BitMapPtr) : BitMapPtr;
  102.     External;
  103.  
  104. PROCEDURE FreeBitMap(BM : BitMapPtr);
  105.     External;
  106.  
  107. PROCEDURE ChangeVPBitMap(VP : ViewPortPtr; BM : BitMapPtr; db : DBufInfoPtr);
  108.     External;
  109.  
  110. FUNCTION GetBitMapAttr(BM : BitMapPtr; attrnum : Integer) : Integer;
  111.     External;
  112.