home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / graphics / rastport.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.3 KB  |  100 lines
  1. {$if not def GRAPHICS_RASTPORT_H} CONST GRAPHICS_RASTPORT_H=0;
  2.  
  3. { *********************************************************************
  4.   ** KickPascal-Include-Datei "graphics/rastport.h" zu Kickstart 3.0 **
  5.   ********************************************************************* }
  6.  
  7. TYPE p_AreaInfo = ^AreaInfo;
  8. TYPE p_TmpRas = ^TmpRas;
  9. TYPE p_GelsInfo = ^GelsInfo;
  10. TYPE p_RastPort = ^RastPort;
  11.  
  12. {$if not def GRAPHICS_GFX_H;incl "graphics/gfx.h";endif}
  13. {$if not def GRAPHICS_TEXT_H;incl "graphics/text.h";endif}
  14. {$if not def GRAPHICS_LAYERS_H;incl "graphics/layers.h";endif}
  15. {$if not def GRAPHICS_GELS_H;incl "graphics/gels.h";endif}
  16.  
  17. TYPE AreaInfo = RECORD
  18.  VctrTbl  : Ptr;
  19.  VctrPtr  : Ptr;
  20.  FlagTbl  : Ptr;
  21.  FlagPtr  : Ptr;
  22.  Count    : Integer;
  23.  MaxCount : Integer;
  24.  FirstX   : Integer;
  25.  FirstY   : Integer;
  26. END;
  27.  
  28. TYPE TmpRas = RECORD
  29.  RasPtr : Ptr;
  30.  Size   : LongInt;
  31. END;
  32.  
  33. TYPE GelsInfo = RECORD
  34.  sprRsrvd      : Short;
  35.  Flags         : Byte;
  36.  gelHead       : p_VSprite;
  37.  gelTail       : p_VSprite;
  38.  nextLine      : Ptr;
  39.  lastColor     : Ptr;
  40.  collHandler   : p_collTable;
  41.  leftmost      : Integer;
  42.  rightmost     : Integer;
  43.  topmost       : Integer;
  44.  bottommost    : Integer;
  45.  firstBlissObj : Ptr;
  46.  lastBlissObj  : Ptr;
  47. END;
  48.  
  49. TYPE RastPort = RECORD
  50.  Layer        : p_Layer;
  51.  BitMap       : p_BitMap;
  52.  AreaPtrn     : Ptr;
  53.  TmpRas       : p_TmpRas;
  54.  AreaInfo     : p_AreaInfo;
  55.  GelsInfo     : p_GelsInfo;
  56.  Mask         :  Byte;
  57.  FgPen        : Short;
  58.  BgPen        : Short;
  59.  AOlPen       : Short;
  60.  DrawMode     : Short;
  61.  AreaPtSz     : Short;
  62.  linpatcnt    : Short;
  63.  dummy        : Short;
  64.  Flags        : Word;
  65.  LinePtrn     : Word;
  66.  cp_x         : Integer;
  67.  cp_y         : Integer;
  68.  minterms     : ARRAY[0..7] OF Byte;
  69.  PenWidth     : Integer;
  70.  PenHeight    : Integer;
  71.  Font         : p_TextFont;
  72.  AlgoStyle    : Byte;
  73.  TxFlags      : Byte;
  74.  TxHeight     : Word;
  75.  TxWidth      : Word;
  76.  TxBaseline   : Word;
  77.  TxSpacing    : Integer;
  78.  RP_User      : Ptr;
  79.  longreserved : ARRAY[0..1] OF LongInt;
  80. {$if not def GFX_RASTPORT_1_2}
  81.  wordreserved : ARRAY[0..6] OF Word;
  82.  reserved     : ARRAY[0..7] OF Byte;
  83. {$endif}
  84. END;
  85.  
  86. CONST
  87.  JAM1       = 0;
  88.  JAM2       = 1;
  89.  COMPLEMENT = 2;
  90.  INVERSVID  = 4;
  91.  
  92. CONST
  93.  FRST_DOT    = $01;
  94.  ONE_DOT     = $02;
  95.  DBUFFER     = $04;
  96.  AREAOUTLINE = $08;
  97.  NOCROSSFILL = $20;
  98.  
  99. {$endif}
  100.