home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / graphics / gels.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  2.9 KB  |  146 lines
  1. {$if not def GRAPHICS_GELS_H} CONST GRAPHICS_GELS_H=0;
  2.  
  3. { *****************************************************************
  4.   ** KickPascal-Include-Datei "graphics/gels.h" zu Kickstart 3.0 **
  5.   ***************************************************************** }
  6.  
  7. {$if not def VUserStuff}
  8. TYPE VUserStuff = Integer;
  9. {$endif}
  10. {$if not def BUserStuff}
  11. TYPE BUserStuff = Integer;
  12. {$endif}
  13. {$if not def AUserStuff}
  14. TYPE AUserStuff = Integer;
  15. {$endif}
  16.  
  17.  
  18. TYPE p_Bob = ^Bob;
  19. TYPE p_AnimComp = ^AnimComp;
  20. TYPE p_DBufPacket = ^DBufPacket;
  21. TYPE p_AnimOb = ^AnimOb;
  22. TYPE p_VSprite = ^VSprite;
  23. TYPE p_collTable = ^collTable;
  24.  
  25.  
  26.  
  27. CONST
  28.  SUSERFLAGS   = $00FF;
  29.  _VSPRITE     = $0001; { "_" ergänzt }
  30.  SAVEBACK     = $0002;
  31.  OVERLAY      = $0004;
  32.  MUSTDRAW     = $0008;
  33.  BACKSAVED    = $0100;
  34.  BOBUPDATE    = $0200;
  35.  GELGONE      = $0400;
  36.  VSOVERFLOW   = $0800;
  37.  
  38.  BUSERFLAGS   = $00FF;
  39.  SAVEBOB      = $0001;
  40.  BOBISCOMP    = $0002;
  41.  
  42.  BWAITING     = $0100;
  43.  BDRAWN       = $0200;
  44.  BOBSAWAY     = $0400;
  45.  BOBNIX       = $0800;
  46.  SAVEPRESERVE = $1000;
  47.  OUTSTEP      = $2000;
  48.  
  49. CONST
  50.  ANFRACSIZE  = 6;
  51.  ANIMHALF    = $0020;
  52.  RINGTRIGGER = $0001;
  53.  
  54.  
  55. TYPE VSprite = RECORD
  56.  NextVSprite : p_VSprite;
  57.  PrevVSprite : p_VSprite;
  58.  DrawPath    : p_VSprite;
  59.  ClearPath   : p_VSprite;
  60.  OldY        : Integer;
  61.  OldX        : Integer;
  62.  Flags       : Integer;
  63.  Y           : Integer; 
  64.  X           : Integer;
  65.  Height      : Integer;
  66.  Width       : Integer;
  67.  Depth       : Integer;
  68.  MeMask      : Integer;
  69.  HitMask     : Integer;
  70.  ImageData   : Ptr;
  71.  BorderLine  : Ptr;
  72.  CollMask    : Ptr;
  73.  SprColors   : Ptr;
  74.  VSBob       : p_Bob;
  75.  PlanePick   : Short;
  76.  PlaneOnOff  : Short;
  77.  VUserExt    : VUserStuff;
  78. END;
  79.  
  80.  
  81. TYPE Bob = RECORD
  82.  Flags       : Integer;
  83.  SaveBuffer  : Ptr;
  84.  ImageShadow : Ptr;
  85.  Before      : p_Bob;
  86.  After       : p_Bob;
  87.  BobVSprite  : p_VSprite;
  88.  BobComp     : p_AnimComp;
  89.  DBuffer     : p_DBufPacket;
  90.  BUserExt    : BUserStuff;
  91. END;
  92.  
  93.  
  94. TYPE AnimComp = RECORD
  95.  Flags        : Integer;
  96.  Timer        : Integer;
  97.  TimeSet      : Integer;
  98.  NextComp     : p_AnimComp;
  99.  PrevComp     : p_AnimComp;
  100.  NextSeq      : p_AnimComp;
  101.  PrevSeq      : p_AnimComp;
  102.  AnimCRoutine : Ptr;
  103.  YTrans       : Integer;
  104.  XTrans       : Integer;
  105.  HeadOb       : p_AnimOb;
  106.  AnimBob      : p_Bob;
  107. END;
  108.  
  109. TYPE AnimOb = RECORD
  110.  NextOb       : p_AnimOb;
  111.  PrevOb       : p_AnimOb;
  112.  Clock        : LongInt;
  113.  AnOldY       : Integer;
  114.  AnOldX       : Integer;
  115.  AnY          : Integer;
  116.  AnX          : Integer;
  117.  YVel         : Integer;
  118.  XVel         : Integer;
  119.  YAccel       : Integer;
  120.  XAccel       : Integer;
  121.  RingYTrans   : Integer;
  122.  RingXTrans   : Integer;
  123.  AnimORoutine : Ptr;
  124.  HeadComp     : p_AnimComp;
  125.  AUserExt     : AUserStuff;
  126. END;
  127.  
  128. TYPE DBufPacket = RECORD
  129.  BufY      : Integer;
  130.  BufX      : Integer;
  131.  BufPath   : p_VSprite;
  132.  BufBuffer : ^Integer;
  133. END;
  134.  
  135.  
  136. CONST
  137.  B2NORM   = 0;
  138.  B2SWAP   = 1;
  139.  B2BOBBER = 2;
  140.  
  141. TYPE collTable = RECORD 
  142.  collPtrs : ARRAY[0..15] OF Ptr;
  143. END;
  144.  
  145. {$endif}
  146.