home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / Blitter.i < prev    next >
Text File  |  1990-11-25  |  2KB  |  99 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.