home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Graphics / GFXBase.i < prev    next >
Text File  |  1990-08-28  |  2KB  |  71 lines
  1. {
  2.     GfxBase.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Lists.i"}
  6. {$I "Include:Exec/Libraries.i"}
  7. {$I "Include:Exec/Interrupts.i"}
  8.  
  9. type
  10.  
  11.     GfxBaseRec = record
  12.     LibNode        : Library;
  13.     ActiView     : Address;    { ViewPtr }
  14.     copinit        : Address; { (copinitptr) ptr to copper start up list }
  15.     cia        : Address;    { for 8520 resource use }
  16.     blitter        : Address;    { for future blitter resource use }
  17.     LOFlist        : Address;
  18.     SHFlist        : Address;
  19.     blthd,
  20.     blttl        : Address;
  21.     bsblthd,
  22.     bsblttl        : Address;    { Previous four are (bltnodeptr) }
  23.     vbsrv,
  24.     timsrv,
  25.     bltsrv        : Interrupt;
  26.     TextFonts    : List;
  27.     DefaultFont    : Address;    { TextFontPtr }
  28.     Modes        : Short;    { copy of current first bplcon0 }
  29.     VBlank        : Byte;
  30.     Debug        : Byte;
  31.     BeamSync    : Short;
  32.     system_bplcon0    : Short; { it is ored into each bplcon0 for display }
  33.     SpriteReserved    : Byte;
  34.     bytereserved    : Byte;
  35.     Flags        : Short;
  36.     BlitLock    : Short;
  37.     BlitNest    : Short;
  38.  
  39.     BlitWaitQ    : List;
  40.     BlitOwner    : Address;    { TaskPtr }
  41.     TOF_WaitQ    : List;
  42.     DisplayFlags    : Short;    { NTSC PAL GENLOC etc}
  43.  
  44.         { Display flags are determined at power on }
  45.  
  46.     SimpleSprites    : Address;    { SimpleSpritePtr ptr }
  47.     MaxDisplayRow    : Short;    { hardware stuff, do not use }
  48.     MaxDisplayColumn : Short;    { hardware stuff, do not use }    
  49.     NormalDisplayRows : Short;
  50.     NormalDisplayColumns : Short;
  51.  
  52.     { the following are for standard non interlace, 1/2 wb width }
  53.  
  54.     NormalDPMX    : Short;    { Dots per meter on display }
  55.     NormalDPMY    : Short;    { Dots per meter on display }
  56.     LastChanceMemory : Address;    { SignalSemaphorePtr }
  57.     LCMptr        : Address;
  58.     MicrosPerLine    : Short;    { 256 time usec/line }
  59.     MinDisplayColumn : Short;
  60.     reserved    : Array [0..22] of Integer; { for future use }
  61.     end;
  62.     GfxBasePtr = ^GfxBaseRec;
  63.  
  64. const
  65.  
  66.     NTSC    = 1;
  67.     GENLOC    = 2;
  68.     PAL        = 4;
  69.  
  70.     BLITMSG_FAULT = 4;
  71.