Global Amiga Experience/globalamigaexperience.iso/compressed/development/heliosdemodisk3.dms/heliosdemodisk3.adf/Source/Demo6_SimpleAnim.src

Text File | 1995-01-24 | 28KB | 964 lines

  \ ***********************************************************
  \
  \                    SIMPLE ANIMATION DEMO
  \
  \ ***********************************************************
  \
  \ This code demonstrates how to create a simple animation
  \ in HeliOS.
  \
  \ This builds upon the following Demos:
  \
  \ Demo1_SinglePF.src
  \ Demo2_SinglePFCopper.src
  \ Demo3_SimpleSprite.src
  \ Demo4_MultiSprites.src
  \ Demo5_MultiSptCollide.src
  \
  \ This code is then expanded in the following Demos:
  \
  \ Demo7_MultiAnim.src
  \
  \ ***********************************************************



  \ ***********************************************************
  \ Re-initialise HeliOS dictionary to standard CORE vocabulary
  \ ***********************************************************

  \ This should always be used at the start of any program which
  \ is to be repeatedly recompiled.

  FORGET **CORE**

  \ *************************
  \ Load include symbol files
  \ *************************
  \
  \ These "include files" are pre-compiled (for speed) versions of the
  \ Amiga includes and the Helios system includes.
  \
  \ Uncomment the lines below for standalone compilation, but otherwise
  \ it is better to set these include files from the Helios Forth menus

  AMIGAINCLUDE Helios:Amiga_Include
  USERINCLUDE  Helios:Helios_Include

  \ ****************************************
  \ Create display imagery file name strings
  \ ****************************************

  \ These files are ordinary IFF's (and may be "PowerPacked" if required)
  \
  \ The pictures here will be loaded into each of the display BitMaps.
  \

  $CONSTANTL Slice1Pic $Helios:Source/Data/Pic1$

  \ **************************************
  \ Create display configuration constants
  \ **************************************
  \
  \ Collect all "display-specific" parameters here and generate "named"
  \ constants which make references easier than using numeric values.
  \
  \ Collecting these together here makes it easier to adjust things at any
  \ time without having to search source code to replace values individually.
  \


  256                      CONSTANT DisplayHeight      \ Full PAL display
  320                      CONSTANT DisplayWidth       \ Lores display
  44                       CONSTANT DisplayTopLine     \ Display start

  DisplayWidth             CONSTANT Slice1Width        \ Lores width
  DisplayWidth 32 +        CONSTANT Slice1RasterWidth  \ Raster=SWidth+32
  DisplayHeight            CONSTANT Slice1Height       \ Slice height
  DisplayHeight 32 +       CONSTANT Slice1RasterHeight \ Slice Raster=DHgt+32
  0                        CONSTANT Slice1Mode         \ Lores
  3                        CONSTANT Slice1Planes       \ Slice bitplanes

  \ The calculation below takes the number of bitplanes and calculates
  \ how many colours this represents.
  \
  \ One bitplane gives two colours.
  \
  \ Each additional bitplane multiplies the number of colours by two.
  \
  \ Performing a single LSL operation on any number multipies by 2, so we
  \ have a quick method of multiplying by two for our colour calculation.
  \
  \ In this case, we need "2 to the power 3", which is 2*2*2=8.
  \
  \ e.g.                              2*2*2
  \                                   ^ ^ ^
  \                                   Total number of planes = 3
  \
  \
  \ So, we take the first value two
  \
  \ e.g.                              2*2*2
  \                                   ^
  \                                  Initial start value of 2
  \
  \ and we now need to multiply it by two "the_number_of_planes minus_one"
  \ more times.
  \
  \ e.g.                              2*2*2
  \                                     ^ ^
  \                                     Total planes minus one
  \
  \
  \ So, Number of colours = 2 operated on by LSL NumberOfPlanes-1 times.
  \

  2 Slice1Planes 1- LSL    CONSTANT Slice1Colours      \ A-slice colours

  \ ***********************
  \ Error handling routines
  \ ***********************

  \ This error handler allows all errors to be routed via a comprehensive
  \ sequential closedown routine, which is associated with the HeliOS
  \ system error handler word ERROR".
  \
  \ When ERROR" senses an error, it prints an associated error message
  \ delimited by '"' characters, and then closes everything down using the
  \ routine CLOSEDOWN below which you have supplied.
  \
  \ This simplifies errors checks to the use of a single word, ERROR", which
  \ displays a text message and closes eveything down.
  \

  0 VARIABLE (CLOSEDOWN)

  : ?CLOSEDOWNERROR

  IF
    CR
    CR
    TYPE
    CR
    CR
    ." Press <Space> to quit!"
    CR
    CR
    WAITSPACE
    (CLOSEDOWN) @EXECUTE
    QUIT
  ELSE
    DDROP
  THEN
  ;

  LATESTCFA VARIABLE ERROR1

  \ ****************************************
  \ Create display pointer storage variables
  \ ****************************************

  \ Here we create a set of "pointers", initially set to a "null" value.
  \
  \ These "pointers" are set up as "long addresses" when various components
  \ of the display system are allocated and initialised.
  \
  \ Note that initially these are all set to zero, and we clear them back
  \ to zero when we de-allocate the associated resource.
  \
  \ These DPOINTERs are all initially set to "null" by using 'D0'.
  \
  \ When we allocate memory or Amiga system resources in the program at
  \ run-time, these pointers are updated to contain the 32-bit address
  \ of the newly allocated resource.
  \
  \ Subsequently the symbolic DPOINTER name can be used in your code to
  \ represent the associated address.

  D0 DPOINTER Display1             \ Main Display structure pointer
  D0 DPOINTER Slice1               \ Slice 1 Slice structure pointer

  D0 DPOINTER Slice1_ColorMap      \ Slice 1 ColourMap structure pointer

  D0 DPOINTER Slice1_RasInfo       \ Slice 1 RasInfo structure pointer

  D0 DPOINTER Slice1_BMap          \ Slice 1 BitMap structure pointer

  D0 DPOINTER Slice1_SliceControl  \ Slice 1 SliceControl structure pointer

  \ *************
  \ Colour tables
  \ *************

  \ Each colour entry requies 2 bytes of storage space

  CREATEL Slice1_ColorTable        \ Create longword pointer to table
  Slice1Colours 2* 0 ALLOTFILL     \ Allocate Slice1 colours * 2 bytes


  \ *************************************
  \ Copper strip for graduated background
  \ *************************************

  D0 DVARIABLE Copper              \ 32-bit CopperList pointer store
  D0 DVARIABLE CopperLength        \ 32-bit CopperList length store

  : AddCopper                      \ Add custom copper list to display

  Display1                         \ We are adding CopperList to Display1
  Copper D@
  ADDCOPPERSTRIP
  SORTSTRIPTABLE
  LINKSTRIPS
  DDROP
  ;

  : RemCopper                      \ Remove custom copper list from display

  Display1                         \ We are removing CopperList from Display1
  Copper D@
  REMCOPPERSTRIP
  LINKSTRIPS
  DDROP
  ;

  : Create_Copper

  COPPERSTART
  Copper D!
  0 [ DECIMAL ]  45 [ HEX ] FFFE COPPERWAIT  DROP   0100 18E COPPERMOVE  DROP
  0 [ DECIMAL ]  60 [ HEX ] FFFE COPPERWAIT  DROP   0200 18E COPPERMOVE  DROP
  0 [ DECIMAL ]  75 [ HEX ] FFFE COPPERWAIT  DROP   0300 18E COPPERMOVE  DROP
  0 [ DECIMAL ]  90 [ HEX ] FFFE COPPERWAIT  DROP   0400 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 105 [ HEX ] FFFE COPPERWAIT  DROP   0500 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 120 [ HEX ] FFFE COPPERWAIT  DROP   0600 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 135 [ HEX ] FFFE COPPERWAIT  DROP   0700 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 150 [ HEX ] FFFE COPPERWAIT  DROP   0800 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 165 [ HEX ] FFFE COPPERWAIT  DROP   0900 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 180 [ HEX ] FFFE COPPERWAIT  DROP   0A00 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 195 [ HEX ] FFFE COPPERWAIT  DROP   0B00 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 210 [ HEX ] FFFE COPPERWAIT  DROP   0C00 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 225 [ HEX ] FFFE COPPERWAIT  DROP   0D00 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 240 [ HEX ] FFFE COPPERWAIT  DROP   0E00 18E COPPERMOVE  DROP
  0 [ DECIMAL ] 255 [ HEX ] FFFE COPPERWAIT  DROP   0F00 18E COPPERMOVE  DROP
  [ DECIMAL ]
  COPPEREND
  CopperLength D!   Copper D!
  ADDCOPPER
  ;

  : Free_Copper                  \ Closes down and frees copperlist memory

  RemCopper
  Copper D@ FREEMEMORY
  ;

  \ ***********************************
  \ Create Display and Slice structures
  \ ***********************************

  \ This routine simply makes blank structures, which then need to be
  \ initialised later (in the CREATE_DISPLAY routine).

  : CREATE_DSLICES

  DS_SIZEOF MAKESTRUCTURE Display1 MAKEPOINTER  \ Main "Display" structure

  SL_SIZEOF MAKESTRUCTURE Slice1   MAKEPOINTER  \ Display "Slice" structure
  ;

  : FREE_DSLICES

  Slice1    DDUP FREEMEMORY   CLEARPOINTER
  Display1  DDUP FREEMEMORY   CLEARPOINTER
  ;

  \ ******************************
  \ Create RasInfo structures etc.
  \ ******************************

  : CREATE_RASINFO

  \ First allocate and initialise complete RasInfo structures.
  \
  \ This routine automatically allocates all BitMaps etc.
  \

  Slice1RasterWidth Slice1RasterHeight Slice1Planes  OPENRASINFO
  DFLAG0= ERROR" Fail: RasInfo1"
  Slice1_RasInfo MAKEPOINTER

  \ Set invisible area "sprite margins" for slice RasInfo

  16              Slice1_RasInfo         ri_RxOffset    INDEX!L
  16              Slice1_RasInfo         ri_RyOffset    INDEX!L

  \ Store BitMap pointer - often useful for later reference

  Slice1_RasInfo  ri_BitMap INDEXD@L Slice1_BMap MAKEPOINTER
  ;

  : FREE_RASINFO

  Slice1_RasInfo   DDUP CLOSERASINFO   CLEARPOINTER
  ;

  \ ********************************
  \ Create Display/Slice Copperlists
  \ ********************************

  \ This function builds the main display copperlist by:
  \
  \ 1. Initialising the Slice data structure
  \ 2. Calling MAKECOPSTRIP for the slice, to build a copperlist
  \ 3. Calling MAKEDISPLAY to build the master Display copperlist
  \

  : CREATE_DISPLAY

  \ First initialise main display structures

  Slice1                           Display1  DS_Slice     INDEXD!L

  Slice1Width                      Slice1    SL_DWidth    INDEX!L
  Slice1Height                     Slice1    SL_DHeight   INDEX!L
  DisplayTopLine                   Slice1    SL_DyOffset  INDEX!L
  Slice1_RasInfo                   Slice1    SL_RasInfo   INDEXD!L
  Slice1_ColorMap                  Slice1    SL_ColorMap  INDEXD!L
  Slice1Mode                       Slice1    SL_Modes     INDEX!L

  \ Generate copper list information for each of the display slices

  Slice1 MAKECOPSTRIP
  D0= ERROR" Fail: Slice1CopStrip"

  \ Make display

  Display1 MAKEDISPLAY
  D0= ERROR" Fail: Display1"
  ;

  : FREE_DISPLAY

  Display1                 FREEDISPLAY
  Slice1                   FREECOPSTRIP
  ;

  \ ********************************************************
  \ Create SliceControl structures for double buffered slice
  \ ********************************************************

  \ SliceControl structures are used to control any slices which perform
  \ mapping or scrolling functions, or which require double or triple
  \ playfield buffering.
  \
  \ In this case we have one slice which does not scroll, is not mapped,
  \ but IS double buffered.
  \

  : CREATE_SLICECONTROL

  \ Make SliceControl for double buffered bitmap display

  Slice1  0 0 MAKESLICECONTROL
  DFLAG0= ERROR" Fail: SliceControl1"
  Slice1_SliceControl MAKEPOINTER

  \ Install slice controls into HeliOS display control system

  Slice1_SliceControl  INSTALLSLICECONTROL
  ;

  : FREE_SLICECONTROL

  CLEARSLICECONTROLS
  Slice1_SliceControl  CLOSESLICECONTROL
  ;

  \ These routines load an IFF picture into supplied BitMap, and correctly
  \ initialises the supplied ColorTable.
  \
  \ The ColorTable is then used to create an initialised ColorMap structure.
  \

  : CREATE_IMAGERY

  Slice1_BMap
  Slice1_ColorTable
  Slice1Pic
  10 2 DOSLIB                        \ Call to internal HeliOS library
  10 <> ERROR" Fail: Slice1Pic"

  Slice1_ColorTable  Slice1Colours MAKECOLORMAP  \ Allocate ColourMap
  DFLAG0= ERROR" Fail: Slice1ColorMap"
  Slice1_ColorMap MAKEPOINTER
  ;

  : FREE_IMAGERY

  Slice1_ColorMap  DDUP FREECOLORMAP  CLEARPOINTER
  ;

  \ **************
  \ Animation Demo
  \ **************

  \ ************************
  \ Animation Demo constants
  \ ************************

  \ Set up a number of constants which determine various aspects of the
  \ demo, e.g. How many Bullets required
  \
  \ Change these values as required
  \

  25 CONSTANT Bullet#           \ Number of Bullets available
  8  CONSTANT BulletSpeed       \ Speed of Bullet
  6  CONSTANT FiringRate        \ Speed of gun reload
  4  CONSTANT GunSpeed          \ Speed of Gun movement
  8  CONSTANT AlienMaxXSpeed    \ Maximum speed of Alien movement
  4  CONSTANT AlienMaxYSpeed    \ Maximum speed of Alien movement

  \ ****************************************************
  \ Create animation demo pointers and storage variables
  \ ****************************************************

  D0 DPOINTER GunSpriteSet         \ Gun sprite image
  D0 DPOINTER BulletSpriteSet      \ Bullet sprite image
  D0 DPOINTER AlienSpriteSet       \ Alien sprite images
  D0 DPOINTER AlienAnim            \ Alien animation

  CREATE BulletTable               \ Bullet sprite pointer storage table.
  Bullet# 4* 0 ALLOTFILL           \ Space allocated = Number_of_Bullets*4
                                   \ This table has to hold a number of
                                   \ 32-bit (4-byte) numbers, because
                                   \ each Bullet sprite is a 32-bit pointer

  CREATE  BulletCollHandlerTable   \ Bullet collision handler table
  Bullet# 4* 0 ALLOTFILL

  D0  DVARIABLE  AlienCollHandler  \ Alien collision handler pointer
  0 VARIABLE     FireTimer         \ Gun reload rate store

 \ **************************************************
 \ This routine is called to delay the Alien's return
 \ **************************************************

  : AlienDelay

  DDROP                                            \ Drop Alien pointer
  50  SpriteAnim_CountDown   AlienAnim INDEX!L     \ Wait 50 VBlanks
  0   SpriteAnim_CDForth     AlienAnim INDEX!L     \ Remove CD action word
  -3  SpriteAnim_CDFlags     AlienAnim INDEX!L     \ -3 = Remove
  ;

  \ *************************
  \ Sprite collision routines
  \ *************************

  \ This routine is called when a Bullet collides.

  : BulletHit

  2 DDROPS                        \ Drop collisionmask and hit-object pointer

  DDUP SpriteCtrl_CollFlag D+ 0!L \ Disable further collisions
  REMOVESPRITE                    \ Remove Bullet
  ;

  \ This routine is called when the Alien collides.

  : AlienHit

  3 DDROPS     \ Drop collisionmask, "hitting" object, and object pointers

  0   SpriteAnim_CollFlag    AlienAnim INDEX!L  \ Disable further collisions
  0   SpriteAnim_UserData1   AlienAnim INDEX!L  \ Stop X-movement (inc = 0)
  0   SpriteAnim_UserData2   AlienAnim INDEX!L  \ Stop Y-movement (inc = 0)
  2   SpriteAnim_Speed       AlienAnim INDEX!L  \ Set explosion anim speed
  9   SpriteAnim_Frames      AlienAnim INDEX!L  \ Number of frames
  0   SpriteAnim_Current     AlienAnim INDEX!L  \ Start at frame 0
  20  SpriteAnim_CountDown   AlienAnim INDEX!L  \ Run for 20 VBlanks
  -2  SpriteAnim_CDFlags     AlienAnim INDEX!L  \ Flags set after CountDown
                                                \ -2 = Go invisible

  ' AlienDelay  CFA                             \ Get pointer to delay code
      SpriteAnim_CDForth     AlienAnim INDEX!L  \ Countdown code
  ;

  \ ***************************
  \ Create HitMasks and MeMasks
  \ ***************************

  \ Collisions can only occur between objects which have coincident bits
  \ set in HitMask-MeMask or MeMask-HitMask pairs
  \
  \ Each bit of the HitMask/MeMask pair have a corresponding position in
  \ a collision table which stores an array of collision routines.
  \
  \ In the event of a collision, the routine in an object's Collision Table
  \ corresponding to the HitMask-MeMask bit coincidence will be called
  \ with 3 parameters: the two colliding objects and the collision HitMask
  \
  \ The stack on a collision call looks like this:
  \
  \ CollisionHitMask(l) = Top 32-bit value on stack
  \ CollidingObject(l)  = 2nd 32-bit value on stack
  \ This Object(l)      = 3rd 32-bit value on stack
  \
  \ Here are two examples:
  \
  \   00000000000000000000000000000010.  = Object A HitMask
  \   00000000000000000000000000000000.  = Object B HitMask
  \   00000000000000000000000000000001.  = Object C HitMask
  \
  \   00000000000000000000000000000000.  = Object A MeMask
  \   00000000000000000000000000000011.  = Object B MeMask
  \   00000000000000000000000000000000.  = Object C MeMask
  \
  \ Would allow A and B to collide, B and C to collide, but not A and C.
  \
  \ B and C would run the routine at position 1 in the collision table
  \ A and B would run the routine at position 2 in the collision table
  \
  \ -----------------------------------------------------------
  \
  \   00000000000000000000000000000011.  = Object A HitMask
  \   00000000000000000000000000000001.  = Object B HitMask
  \   00000000000000000000000000000001.  = Object C HitMask
  \
  \   00000000000000000000000000000000.  = Object A MeMask
  \   00000000000000000000000000000000.  = Object B MeMask
  \   00000000000000000000000000000010.  = Object C MeMask
  \
  \ Would allow just A and C to collide
  \
  \ A and C would run the routine at position 2 in the collision table
  \

  BIN

  00000000000000000000000000000001.  DCONSTANT  BulletHitMask
  00000000000000000000000000000000.  DCONSTANT  AlienHitMask

  00000000000000000000000000000000.  DCONSTANT  BulletMeMask
  00000000000000000000000000000001.  DCONSTANT  AlienMeMask

  DECIMAL


  CREATEL BulletCollTable
  -1 ,                        \ -1 = The "1" means there is 1 entry in table
                              \      The "-" signifies that it is a HeliOS
                              \      word rather than machine code

  FIND BulletHit ,            \ Find BulletHit and store HeliOS word CFA

  CREATEL AlienCollTable
  -1 ,                        \ -1 = The "1" means there is 1 entry in table
                              \      The "-" signifies that it is a HeliOS
                              \      word rather than machine code

  FIND AlienHit ,             \ Find AlienHit and store HeliOS word CFA


  \ *************************
  \ Set up collision handlers
  \ *************************

  : CREATE_COLLISIONS

  Bullet# 0
  DO
    GETCOLLHANDLER
    DFLAG0= ERROR" Fail: Bullet CollHandler"
    DDUP BulletCollHandlerTable I 4* + D!
    BulletTable I 4* + D@  SpriteCtrl_CollHandler  INDEXD!L
  LOOP

  GETCOLLHANDLER
  DFLAG0= ERROR" Fail: Alien CollHandler"
  DDUP AlienCollHandler D!
  AlienAnim SpriteAnim_CollHandler  INDEXD!L
  ;

  : FREE_COLLISIONS

  AlienCollHandler D@ FREECOLLHANDLER
  Bullet# 0
  DO
    Bullet# 1- I - 4*
    BulletCollHandlerTable +
    D@ FREECOLLHANDLER
  LOOP
  ;

  \ *****************
  \ Boundary routines
  \ *****************

  \ Alien boundary sense routine

  : AlienBoundary

  SpriteCtrl_VisiHit INDEX@L                 \ Get boundary hit mask word
  0 BTST                                     \ Did it hit left boundary
  IF
    AlienAnim SpriteAnim_UserData1 INDEX@L   \ Reverse X-motion
    NEGATE
    AlienAnim SpriteAnim_UserData1 INDEX!L
  ELSE
    1 BTST                                   \ Did it hit right boundary
    IF
      AlienAnim SpriteAnim_UserData1 INDEX@L \ Reverse X-motion
      NEGATE
      AlienAnim SpriteAnim_UserData1 INDEX!L
    THEN
  THEN

  2 BTST                                     \ Did it hit upper boundary
  IF
    DROP
    AlienAnim SpriteAnim_UserData2 INDEX@L   \ Reverse Y-motion
    NEGATE
    AlienAnim SpriteAnim_UserData2 INDEX!L
  ELSE
    3 BTST                                   \ Did it hit lower boundary
    IF
      DROP
      AlienAnim SpriteAnim_UserData2 INDEX@L \ Reverse Y-motion
      NEGATE
      AlienAnim SpriteAnim_UserData2 INDEX!L
    ELSE
      DROP
    THEN
  THEN
  ;

  \ Remove Bullet - called when bullet hits boundary at edge of display

  : BulletRemove

  RemoveSprite
  ;

  \ ****************************
  \ User input response routines
  \ ****************************

  : Fire

  RAWKEY @ 64 =
  JOY1FIRE OR
  IF
    FireTimer @ 0<
    IF
      FiringRate FireTimer !
      Bullet# 0
      DO
        BulletTable I 4* + D@ SETSTRUCTURE1
        SpriteCtrl_Running STRUCTURE1 @L 0=
        IF
          1 SpriteCtrl_Running STRUCTURE1 !L
          GunSpriteSet 8. D+ D@L SETSTRUCTURE2

          SpriteCtrl_XPos STRUCTURE2 @L 5 +
          SpriteCtrl_XPos STRUCTURE1 !L

          SpriteCtrl_YPos STRUCTURE2 @L 2 -
          SpriteCtrl_YPos STRUCTURE1 !L

          SpriteCtrl_UserData1 STRUCTURE1
          SpriteCtrl_YAdd STRUCTURE1 D!L

          BulletSpeed NEGATE SpriteCtrl_UserData1 STRUCTURE1 !L

          1 SpriteCtrl_CollFlag STRUCTURE1 !L
          1 SpriteCtrl_Flags STRUCTURE1 !L

          D0 STRUCTURE1 INSTALLSPRITE
          LEAVE
        THEN
      LOOP
    ELSE
      FireTimer DEC
    THEN
  THEN
  ;

  : MoveGun

  RAWKEY @ 78 =
  JOY1LEFTRIGHT 0>
  OR
  IF
     GunSpeed
     19 320
     GunSpriteSet 8. D+ D@L SpriteCtrl_XPos D+
     LIMIT+!L
  ELSE
    RAWKEY @ 79 =
    JOY1LEFTRIGHT 0<
    OR
    IF
     GunSpeed NEGATE
     19 320
     GunSpriteSet 8. D+ D@L SpriteCtrl_XPos D+
     LIMIT+!L
    THEN
  THEN
  ;

  \ ***********************************
  \ Create sprite and animation objects
  \ ***********************************

  : CREATE_SPRITES

  \ ----------
  \ Gun sprite
  \ ----------

  Slice1_BMap
  154 272
  13 15
  1
  MAKESPRITESET
  DFLAG0= ERROR" Fail: Gun SpriteSet"
  GunSpriteSet MAKEPOINTER

  GunSpriteSet 8. D+ D@L
  DDUP  SpriteCtrl_XPos D+       170 -ROT !L
        SpriteCtrl_YPos D+       239 -ROT !L

  Slice1_SliceControl   GunSpriteSet    INITSPRITESET

  \ -------------
  \ Bullet sprite
  \ -------------

  Slice1_BMap
  159 279
  3 7
  1
  MAKESPRITESET
  DFLAG0= ERROR" Fail: Bullet SpriteSet"
  BulletSpriteSet MAKEPOINTER

  Slice1_SliceControl   BulletSpriteSet    INITSPRITESET

  Bullet# 0
  DO
    BulletSpriteSet 8. D+ D@L CLONESPRITE
    DFLAG0= ERROR" Fail: Bullet Sprite"
    DDUP BulletTable I 4* + D!
    SETSTRUCTURE1

    BulletCollTable        SpriteCtrl_CollTable      STRUCTURE1 D!L
    BulletHitMask          SpriteCtrl_HitMask        STRUCTURE1 D!L
    BulletMeMask           SpriteCtrl_MeMask         STRUCTURE1 D!L
    -2                     SpriteCtrl_VisiZone       STRUCTURE1 !L
    4                      SpriteCtrl_LeftZone       STRUCTURE1 !L
    4                      SpriteCtrl_RightZone      STRUCTURE1 !L
    4                      SpriteCtrl_UpZone         STRUCTURE1 !L
    10                     SpriteCtrl_DownZone       STRUCTURE1 !L
    ' BulletRemove CFA     SpriteCtrl_VisiForth      STRUCTURE1 !L
  LOOP

  \ -------------
  \ Alien sprites
  \ -------------

  Slice1_BMap
  24 276
  14 9
  9
  MAKESPRITESET
  DFLAG0= ERROR" Fail: Alien SpriteSet"
  AlienSpriteSet MAKEPOINTER

  Slice1_SliceControl   AlienSpriteSet    INITSPRITESET

  \ ---------------
  \ Alien animation
  \ ---------------

  SpriteAnim_SIZEOF MAKESTRUCTURE
  DFLAG0= ERROR" Fail: AlienAnim"
  AlienAnim MAKEPOINTER

  AlienSpriteSet 8. D+  SpriteAnim_Image          AlienAnim    INDEXD!L
  AlienCollTable        SpriteAnim_CollTable      AlienAnim    INDEXD!L
  AlienHitMask          SpriteAnim_HitMask        AlienAnim    INDEXD!L
  AlienMeMask           SpriteAnim_MeMask         AlienAnim    INDEXD!L
  6                     SpriteAnim_AnimControl    AlienAnim    INDEX!L
  1                     SpriteAnim_Skip           AlienAnim    INDEX!L
  1                     SpriteAnim_VisiZone       AlienAnim    INDEX!L
  4                     SpriteAnim_LeftZone       AlienAnim    INDEX!L
  4                     SpriteAnim_RightZone      AlienAnim    INDEX!L
  4                     SpriteAnim_UpZone         AlienAnim    INDEX!L
  25                    SpriteAnim_DownZone       AlienAnim    INDEX!L
  ' AlienBoundary CFA   SpriteAnim_VisiForth      AlienAnim    INDEX!L
  SpriteAnim_UserData1 AlienAnim D+ SpriteAnim_XAdd  AlienAnim INDEXD!L
  SpriteAnim_UserData2 AlienAnim D+ SpriteAnim_YAdd  AlienAnim INDEXD!L
  ;

  : FREE_SPRITES

  AlienAnim       DDUP FREEMEMORY    CLEARPOINTER
  AlienSpriteSet  DDUP FREESPRITESET CLEARPOINTER

  Bullet# 0
  DO
    Bullet# 1- I - 4* BulletTable + D@
    DDUP FREESPRITE  CLEARPOINTER
  LOOP

  BulletSpriteSet DDUP FREESPRITESET CLEARPOINTER
  GunSpriteSet    DDUP FREESPRITESET CLEARPOINTER
  ;

  \ ****************
  \ Re-Install Alien
  \ ****************

  : ?Install_Alien

  SpriteAnim_Running AlienAnim INDEX@L 0=
  IF
    0                           SpriteAnim_CDForth     AlienAnim INDEX!L
    0                           SpriteAnim_CountDown   AlienAnim INDEX!L
    1                           SpriteAnim_Running     AlienAnim INDEX!L
    1                           SpriteAnim_Flags       AlienAnim INDEX!L
    1                           SpriteAnim_CollFlag    AlienAnim INDEX!L
    280 RND 26 +                SpriteAnim_XPos        AlienAnim INDEX!L
    36                          SpriteAnim_YPos        AlienAnim INDEX!L
    0                           SpriteAnim_Current     AlienAnim INDEX!L
    2                           SpriteAnim_Speed       AlienAnim INDEX!L
    4                           SpriteAnim_Frames      AlienAnim INDEX!L
    AlienMaxXSpeed RND 2 MAX 1 RND IF NEGATE THEN
                                SpriteAnim_UserData1   AlienAnim INDEX!L
    AlienMaxYSpeed RND 1 MAX 1 RND IF NEGATE THEN
                                SpriteAnim_UserData2   AlienAnim INDEX!L
    AlienAnim INSTALLSPRITEANIM
  THEN
  ;

  \ *********************
  \ Close down everything
  \ *********************

  : CLOSEDOWN

  FREE_COLLISIONS
  FREE_SPRITES
  FREE_COPPER
  FREE_SLICECONTROL
  FREE_DISPLAY
  FREE_IMAGERY
  FREE_RASINFO
  FREE_DSLICES
  RESETERROR"
  ;

  LATESTCFA (CLOSEDOWN) !

  : TestDisplay          \ Start of program

  SCRCLR
  CR

  ."        ********************************************************* "
  CR 6 FPENSET
  ."                         SIMPLE ANIMATION DEMO"
  CR 1 FPENSET
  ."        ********************************************************* "
  CR
  ."        This code demonstrates how to create a simple animation   "
  CR
  ."        in HeliOS."
  CR
  CR
  ."        This builds upon the following Demos:"
  CR
  CR
  ."        Demo1_SinglePF.src"
  CR
  ."        Demo2_SinglePFCopper.src"
  CR
  ."        Demo3_SimpleSprite.src"
  CR
  ."        Demo4_MultiSprites.src"
  CR
  ."        Demo5_MultiSptCollide.src"
  CR
  CR
  ."        This code is then expanded in the following Demos:"
  CR
  CR
  ."        Demo7_MultiAnim.src"
  CR
  ."        **********************************************************"
  CR 6 FPENSET
  ."                  Press <Space> or <L-Mouse> to see Demo"
  CR 3 FPENSET
  ."          Use a Joystick to move the gun turret and fire bullets"
  CR
  ."        **********************************************************"
  CR

  WAITSPACE

  SCRCLR

  ERROR1 SETERROR"       \ Redirect system errors to our routine ERROR1

  CREATE_DSLICES
  CREATE_RASINFO
  CREATE_IMAGERY
  CREATE_DISPLAY
  CREATE_SLICECONTROL
  CREATE_COPPER
  CREATE_SPRITES
  CREATE_COLLISIONS

  HeliOS_On

  GunSpriteSet 8. D+ D@L INSTALLSPRITE

  1 FrameRate !L

  Display1 SHOWDISPLAY

  BEGIN
    WAITFRAME

    ?Install_Alien

    Fire

    MoveGun

    ?TERMINAL 27 =
  UNTIL

  -3 AlienAnim SpriteAnim_Flags INDEX!L

  -3 GunSpriteSet 8. D+ D@L SpriteCtrl_Flags INDEX!L

  Bullet# 0
  DO
    -3 BulletTable I 4* + D@ SpriteCtrl_Flags INDEX!L
  LOOP

  5 DELAY

  HeliOS_Off

  CLOSEDOWN
  ;

  TestDisplay