home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / modulessrc / graphics / gels.e < prev    next >
Text File  |  1995-07-05  |  2KB  |  119 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. OPT PREPROCESS
  5.  
  6. CONST SUSERFLAGS=$FF,
  7.       VSF_VSPRITE=1,
  8.       VSF_SAVEBACK=2,
  9.       VSF_OVERLAY=4,
  10.       VSF_MUSTDRAW=8,
  11.       VSF_BACKSAVED=$100,
  12.       VSF_BOBUPDATE=$200,
  13.       VSF_GELGONE=$400,
  14.       VSF_VSOVERFLOW=$800,
  15.       BUSERFLAGS=$FF,
  16.       BF_SAVEBOB=1,
  17.       BF_BOBISCOMP=2,
  18.       BF_BWAITING=$100,
  19.       BF_BDRAWN=$200,
  20.       BF_BOBSAWAY=$400,
  21.       BF_BOBNIX=$800,
  22.       BF_SAVEPRESERVE=$1000,
  23.       BF_OUTSTEP=$2000,
  24.       ANFRACSIZE=6,
  25.       ANIMHALF=$20,
  26.       RINGTRIGGER=1
  27.  
  28. OBJECT vs
  29.   nextvsprite:PTR TO vs
  30.   prevvsprite:PTR TO vs
  31.   drawpath:PTR TO vs
  32.   clearpath:PTR TO vs
  33.   oldy:INT
  34.   oldx:INT
  35.   vsflags:INT
  36.   y:INT
  37.   x:INT
  38.   height:INT
  39.   width:INT
  40.   depth:INT
  41.   memask:INT
  42.   hitmask:INT
  43.   imagedata:PTR TO INT
  44.   borderline:PTR TO INT
  45.   collmask:PTR TO INT
  46.   sprcolors:PTR TO INT
  47.   vsbob:PTR TO bob
  48.   planepick:CHAR  -> This is signed
  49.   planeonoff:CHAR  -> This is signed
  50. -> Um, what about 'vuserext:INT'?
  51. ENDOBJECT     /* SIZEOF=58 */
  52.  
  53. OBJECT bob
  54.   bobflags:INT
  55.   savebuffer:PTR TO INT
  56.   imageshadow:PTR TO INT
  57.   before:PTR TO bob
  58.   after:PTR TO bob
  59.   bobvsprite:PTR TO vs
  60.   bobcomp:PTR TO ac
  61.   dbuffer:PTR TO dbp
  62. -> Um, what about 'buserext:INT'?
  63. ENDOBJECT     /* SIZEOF=30 */
  64.  
  65. OBJECT ac
  66.   compflags:INT
  67.   timer:INT
  68.   timeset:INT
  69.   nextcomp:PTR TO ac
  70.   prevcomp:PTR TO ac
  71.   nextseq:PTR TO ac
  72.   prevseq:PTR TO ac
  73.   animcroutine:LONG
  74.   ytrans:INT
  75.   xtrans:INT
  76.   headob:PTR TO ao
  77.   animbob:PTR TO bob
  78. ENDOBJECT     /* SIZEOF=38 */
  79.  
  80. OBJECT ao
  81.   nextob:PTR TO ao
  82.   prevob:PTR TO ao
  83.   clock:LONG
  84.   anoldy:INT
  85.   anoldx:INT
  86.   any:INT
  87.   anx:INT
  88.   yvel:INT
  89.   xvel:INT
  90.   xaccel:INT
  91.   yaccel:INT
  92.   ringytrans:INT
  93.   ringxtrans:INT
  94.   animoroutine:LONG
  95.   headcomp:PTR TO ac
  96. -> Um, what about 'auserext:INT'?
  97. ENDOBJECT     /* SIZEOF=40 */
  98.  
  99. OBJECT dbp
  100.   bufy:INT
  101.   bufx:INT
  102.   bufpath:PTR TO vs
  103.   bufbuffer:PTR TO INT
  104. -> Um, 'bufplanes' not in .h file
  105.   bufplanes:PTR TO LONG
  106. ENDOBJECT     /* SIZEOF=16 */
  107.  
  108. #define InitAnimate(animKey) PutLong(animKey,NIL)
  109. #define RemBob(b)            PutInt(Int(b) OR BF_BOBSAWAY)
  110.  
  111. CONST B2NORM=0,
  112.       B2SWAP=1,
  113.       B2BOBBER=2
  114.  
  115. -> Um, this was in 'graphics/view'
  116. OBJECT colltable
  117.   collptrs[16]:ARRAY OF LONG
  118. ENDOBJECT
  119.