home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / LINEOUT / DELTA.ZIP / DELTASRC.ZIP / DELTA.SRC / BETA_P.S < prev    next >
Text File  |  2003-01-04  |  3KB  |  138 lines
  1. v;===========================================================================
  2. ; example part for inclusion in demo.s
  3. ;
  4. ; earx/lineout  2002
  5. ;
  6. ;---------------------------------------------------------------------------
  7.  
  8. ; This table must be first in the part!
  9.     DC.L    Beta.init
  10.     DC.L    Beta.start
  11.     DC.L    Beta.stop
  12.  
  13.  
  14. Beta.screenTable:
  15.     DC.L    0                ; dummy (required)
  16.     DC.L    Volumetric.table        ; 01
  17.     DC.L    EnvBall.table            ; 02
  18.     DC.L    Squares.table            ; 03
  19.     DC.L    Interpol.table            ; 04 m
  20.     DC.L    Blender.table            ; 05
  21.     DC.L    Spiral.table            ; 06
  22.     DC.L    Rings.table            ; 07
  23.     DC.L    HhhmCube.table            ; 08 u
  24.     DC.L    SxT4Cubes.table            ; 09
  25.     DC.L    Voxel.table            ; 0A m
  26.     DC.L    Pretzel.table            ; 0B
  27.     DC.L    Tribal.table            ; 0C 
  28.     DC.L    Hemi.table            ; 0D u
  29.  
  30. ;    DC.L    Kaleido.table            ; 0E !hangs 1 out of 20 times!
  31.     DC.L    Dummy.table            ; !!
  32.  
  33.     DC.L    Transparant.table        ; 0F 
  34.     DC.L    Balloid.table            ; 10 
  35.     DC.L    InCube.table            ; 11
  36.     DC.L    0                ; terminator (required)
  37.  
  38.  
  39. ; Initializes this part and returns references and statistics.
  40. ; OUTPUT:
  41. ; d0.l: =0: success, <0: error
  42. ; a0: screentable
  43. ; a1: sub fx count table (filled)
  44. Beta.init:
  45.     lea    Beta.screenTable,a0
  46.     bsr.l    initScreens
  47.     tst.l    d0
  48.     bmi.s    .error
  49.     move.w    d0,Beta.screenCount
  50.  
  51.     lea    Beta.screenTable,a0
  52.     lea    Beta.countTable,a1
  53.     bsr.l    countSubFx
  54.  
  55.     lea    Beta.screenTable,a0
  56.     lea    Beta.countTable,a1
  57.  
  58.     clr.l    d0
  59. .error:    rts
  60.  
  61. ; Initializes this part for action. Starts the music, if any.
  62. ; OUTPUT:
  63. ; d0.l: >=0: #screens, <0: error
  64. Beta.start:
  65.     lea    Beta.modName,a0
  66.     bsr.l    playMod
  67.     tst.w    d0
  68.     bmi.s    .end
  69.  
  70. ; test shit, todo: remove
  71. ;    move.w    #$34,EarxPlay.position            ; tribal
  72. ;    move.w    #$52,EarxPlay.position            ; balloid
  73. ;    move.w    #$57,EarxPlay.position            ; (dither)
  74. ;    move.w    #$6B,EarxPlay.position            ; (end)
  75.  
  76.     move.w    Beta.screenCount,d0
  77.  
  78. .end:    rts
  79.  
  80. ; Stops all music or other part specific background processes.
  81. Beta.stop:
  82.     bsr.l    EarxPlay.stop
  83.     rts
  84.  
  85. ; screens..
  86.     INCLUDE    VLMETRIC.SO
  87.     TEXT
  88.     INCLUDE    ENVLITE.SO
  89.     TEXT
  90.     INCLUDE    INTERPO2.SO
  91.     TEXT
  92.     INCLUDE    BLENDTNL.SO
  93.     TEXT
  94.     INCLUDE    SQUARES2.SO
  95.     TEXT
  96.     INCLUDE    RINGS.SO
  97.     TEXT
  98.     INCLUDE    HMMMCUBE.SO
  99.     TEXT
  100.     INCLUDE    CUBES.SO
  101.     TEXT
  102.     INCLUDE    VOXEL2.SO
  103.     TEXT
  104.     INCLUDE    DSPSNIL2.SO
  105.     TEXT
  106.     INCLUDE    TRIBAL.SO
  107.     TEXT
  108.     INCLUDE    HEMI.SO
  109.     TEXT
  110.     INCLUDE    TRANSPAR.SO
  111.     TEXT
  112.     INCLUDE    BALLOID.SO
  113.     TEXT
  114.     INCLUDE    INCUBE.SO
  115.     TEXT
  116.     INCLUDE    SPIRAL2.SO
  117.     TEXT
  118.  
  119. Dummy.table:
  120.     DC.L    rts
  121.     DC.L    rts
  122.     DC.L    rts
  123.     DC.L    0
  124.  
  125.  
  126.     DATA
  127.  
  128. Beta.modName:
  129.     DC.B    "B.MOD",0
  130.     EVEN
  131.  
  132.     BSS
  133.  
  134. Beta.screenCount:
  135.     DS.W    1                    ; #screens in part
  136. Beta.countTable:
  137.     DS.B    128                    ; #events per screen
  138.