global DIM seedx#(32768)  ` Seed X
global DIM seedy#(32768)  ` Seed Y
global DIM seedz#(32768)  ` Seed Z
global DIM seeda#(32768)  ` Seed Angle
global DIM seedd#(32768)  ` Seed Depth
global DIM seedb#(32768)  ` Seed Breed
global DIM seedl#(32768)  ` Seed Life
global seednum AS INTEGER = 1

global grow_distance# = 0.75
global cx AS INTEGER = 0
global obj AS INTEGER = 1
global count AS INTEGER = 24
global ticks AS INTEGER = 0

seedx#(0) = 0     ` Initial Seed X
seedy#(0) = -50   ` Initial Seed Y
seedz#(0) = 0     ` Initial Seed Z
seeda#(0) = 90    ` Initial Seed Angle
seedd#(0) = 0     ` Initial Seed Depth
seedb#(0) = 8     ` Initial Seed Breed
seedl#(0) = 80    ` Initial Seed Life

make camera 1
position camera 0,0,-100
backdrop ON
color backdrop 1,rgb(0,0,0)
make light 1
position light 1,-40,0,0
color light 1,rgb(128,0,255)

DO

` process each seed
loopseednum = seednum-1
FOR n = 0 TO loopseednum
   seedl#(n) = seedl#(n) - 1
   IF seedl#(n) > 0
      ` Grow up
      seedx#(n) = seedx#(n) + COS(seeda#(n)) * grow_distance#
      seedy#(n) = seedy#(n) + SIN(seeda#(n)) * grow_distance#
      seedz#(n) = seedz#(n) + seedd#(n) * grow_distance#
      grow_at(seedx#(n), seedy#(n), seedz#(n), seedl#(n))

      ` Breed new child
      IF seedb#(n) <= 0
         ` Angle AND depth TO spread
         angle# = 15 + RND(15)
         IF RND(1) = 1 THEN angle# = -angle#
         depth# = ( -10 + RND(20) ) / 10.0

         seedx#(seednum) = seedx#(n)
         seedy#(seednum) = seedy#(n)
         seedz#(seednum) = seedz#(n)
         seeda#(seednum) = seeda#(n) - angle#
         seeda#(n) = seeda#(n) + angle#
         seedd#(seednum) = depth#
         seedd#(n) = depth#
         seedb#(seednum) = 8 + RND(8)
         seedl#(seednum) = seedl#(n) + RND(10)

         ` We have a new seed!
         seednum = seednum + 1

         ` RESET breed
         seedb#(n) = 8 + RND(8)
      ELSE
         seedb#(n) = seedb#(n) - 1
      endif
   endif
NEXT

FOR n = 1 TO obj-1
   ` Rotate animation
   rotate object n, SIN(ticks)*360,SIN(0-ticks)*360,COS(ticks)*360
NEXT n

SLEEP 60

set cursor 0, 0
PRINT "Childs: ", seednum
PRINT "Objects: ", obj
sync

position camera 1,SIN(ticks)*20,-60+COS(ticks)*20,-50
POINT camera 1,0,-40,0

ticks = ticks + 1

LOOP

FUNCTION grow_at( x#, y#, z#, life# )
   siz# = 2.0 - obj / 1800.0
   IF siz# > 0
      make object cube obj, siz#
      position object obj, x#, y#, 80 + z#
      REM IF obj > 255 THEN delete object obj-254
      cx=cx+1:IF cx=360 THEN  cx=0
      color object obj, rgb(SIN(cx)*255,SIN(0-cx)*100,COS(cx)*255)
      obj = obj + 1
   endif
endfunction