home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / RastPort.i < prev    next >
Text File  |  1990-08-28  |  4KB  |  132 lines
  1. {
  2.     RastPort.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Graphics/GFX.i"}
  6.  
  7. type
  8.  
  9.     AreaInfo = record
  10.     VctrTbl    : Address;    { ptr to start of vector table }
  11.     VctrPtr    : Address;    { ptr to current vertex }
  12.     FlagTbl    : Address;    { ptr to start of vector flag table }
  13.     FlagPtr    : Address;    { ptrs to areafill flags }
  14.     Count    : Short;    { number of vertices in list }
  15.     MaxCount : Short;    { AreaMove/Draw will not allow Count>MaxCount}
  16.     FirstX,
  17.     FirstY    : Short;    { first point for this polygon }
  18.     end;
  19.     AreaInfoPtr = ^AreaInfo;
  20.  
  21.     TmpRas = record
  22.     RasPtr    : Address;
  23.     Size    : Integer;
  24.     end;
  25.     TmpRasPtr = ^TmpRas;
  26.  
  27. { unoptimized for 32bit alignment of pointers }
  28.     GelsInfo = record
  29.     sprRsrvd    : Byte;    { flag of which sprites to reserve from
  30.                   vsprite system }
  31.     Flags    : Byte;          { system use }
  32.     gelHead,
  33.     gelTail    : Address; { (VSpritePtr) dummy vSprites for list management}
  34.  
  35.     { pointer to array of 8 WORDS for sprite available lines }
  36.  
  37.     nextLine : Address;
  38.  
  39.     { pointer to array of 8 pointers for color-last-assigned to vSprites }
  40.  
  41.     lastColor : Address;
  42.     collHandler : Address;    { (collTablePtr) addresses of collision routines }
  43.     leftmost,
  44.     rightmost,
  45.     topmost,
  46.     bottommost    : Short;
  47.     firstBlissObj,
  48.     lastBlissObj    : Address;    { system use only }
  49.     end;
  50.     GelsInfoPtr = ^GelsInfo;
  51.  
  52.     RastPort = record
  53.     Layer        : Address;    { LayerPtr }
  54.     BitMap        : Address;    { BitMapPtr }
  55.     AreaPtrn     : Address;    { ptr to areafill pattern }
  56.     TmpRas        : TmpRasPtr;
  57.     AreaInfo     : AreaInfoPtr;
  58.     GelsInfo     : GelsInfoPtr;
  59.     Mask        : Byte;        { write mask for this raster }
  60.     FgPen        : Byte;        { foreground pen for this raster }
  61.     BgPen        : Byte;        { background pen     }
  62.     AOlPen        : Byte;        { areafill outline pen }
  63.     DrawMode    : Byte; { drawing mode for fill, lines, and text }
  64.     AreaPtSz     : Byte;        { 2^n words for areafill pattern }
  65.     linpatcnt     : Byte;    { current line drawing pattern preshift }
  66.     dummy        : Byte;
  67.     Flags        : Short;    { miscellaneous control bits }
  68.     LinePtrn     : Short;    { 16 bits for textured lines }
  69.     cp_x,
  70.     cp_y        : Short;    { current pen position }
  71.     minterms    : Array [0..7] of Byte;
  72.     PenWidth    : Short;
  73.     PenHeight    : Short;
  74.     Font        : Address;    { (TextFontPtr) current font address }
  75.     AlgoStyle    : Byte;        { the algorithmically generated style }
  76.     TxFlags        : Byte;        { text specific flags }
  77.     TxHeight    : Short;    { text height }
  78.     TxWidth        : Short;    { text nominal width }
  79.     TxBaseline    : Short;    { text baseline }
  80.     TxSpacing     : Short;    { text spacing (per character) }
  81.     RP_User        : Address;
  82.     longreserved    : Array [0..1] of Integer;
  83.     wordreserved    : Array [0..6] of Short;    { used to be a node }
  84.     reserved    : Array [0..7] of Byte;        { for future use }
  85.     end;
  86.     RastPortPtr = ^RastPort;
  87.  
  88. const
  89.  
  90. { drawing modes }
  91.  
  92.     JAM1    = 0;    { jam 1 color into raster }
  93.     JAM2    = 1;    { jam 2 colors into raster }
  94.     COMPLEMENT    = 2;    { XOR bits into raster }
  95.     INVERSVID    = 4;    { inverse video for drawing modes }
  96.  
  97. { these are the flag bits for RastPort flags }
  98.  
  99.     FRST_DOT    = $01;    { draw the first dot of this line ? }
  100.     ONE_DOT    = $02;    { use one dot mode for drawing lines }
  101.     DBUFFER    = $04;    { flag set when RastPorts are double-buffered }
  102.  
  103.          { only used for bobs }
  104.  
  105.     AREAOUTLINE    = $08;    { used by areafiller }
  106.     NOCROSSFILL    = $20;    { areafills have no crossovers }
  107.  
  108. { there is only one style of clipping: raster clipping }
  109. { this preserves the continuity of jaggies regardless of clip window }
  110. { When drawing into a RastPort, if the ptr to ClipRect is nil then there }
  111. { is no clipping done, this is dangerous but useful for speed }
  112.  
  113. Function AllocRaster(width,height : Short) : PLANEPTR;
  114.     External;
  115.  
  116. Procedure FreeRaster(p : PLANEPTR; width, height : Short);
  117.     External;
  118.  
  119. Procedure InitRastPort(rp : RastPortPtr);
  120.     External;
  121.  
  122. Procedure InitTmpRas(tmpras : TmpRasPtr; buffer : Address; size : Integer);
  123.     External;
  124.  
  125. Procedure ScrollRaster(rp : RastPortPtr; dx, dy,
  126.             xmin, ymin, xmax, ymax : Short);
  127.     External;
  128.  
  129. Procedure SetRast(rp : RastPortPtr; pen : Byte);
  130.     External;
  131.  
  132.