Sorry your browser is not supported!

sync on : sync rate 50

`Constants
#constant sph 1
#constant cub 2

#constant s 2.5

`Types
type pos
    x# as float
    y# as float
    z# as float
endtype

`Make the object
make object sphere 1, 2*s
set object wireframe 1, 1
set object cull 1, 0

`Get number of verteces and store it in an array
global vd as integer
lock vertexdata for limb 1, 0
    vd = get vertexdata index count()
    dim vert(vd) as pos
    for v = 0 to vd
        vert(v).x# = get vertexdata position x(v)
        vert(v).y# = get vertexdata position y(v)
        vert(v).z# = get vertexdata position z(v)
    next v
unlock vertexdata

`Distance vector
r = make vector3(1)

`Global
global t as integer
t = sph
do

    `Toggle
    if upkey() = 1 and hold = 0
        hold = 1
        inc t
    endif
    if downkey() = 1 and hold = 0
        hold = 1
        dec t
    endif
    if downkey() + upkey() = 0 then hold = 0

    `Change type
    if t = sph
    
        `Edit to a sphere
        lock vertexdata for limb 1, 0
        
            `Run through all verteces
            for v = 0 to vd
            
                `Get vertex data
                vx# = get vertexdata position x(v)
                vy# = get vertexdata position y(v)
                vz# = get vertexdata position z(v)
                
                `Get target values
                tx# = vert(v).x#
                ty# = vert(v).y#
                tz# = vert(v).z#
            
                `Get distance to position
                set vector3 1, tx# - vx#, ty# - vy#, tz# - vz#
                d# = length vector3(1)
            
                `Change to new vertex data
                multiply vector3 1, 0.5
                set vertexdata position v, vx# + x vector3(1), vy# + y vector3(1), vz# + z vector3(1)
            
            next v
        unlock vertexdata
    endif
    if t = cub
    
        `Edit to a cube
        lock vertexdata for limb 1, 0
        
            `Run through all verteces
            for v = 0 to vd
            
                `Get vertex data
                vx# = get vertexdata position x(v)
                vy# = get vertexdata position y(v)
                vz# = get vertexdata position z(v)
            
                `Get origin data
                ox# = vert(v).x#
                oy# = vert(v).y#
                oz# = vert(v).z#
                
                `Based on the origin data from in the sphere, assign target position
                set vector3 1, ox#, oy#, oz#
                if ox# <> 0.0
                    multiply vector3 1, s / ab(ox#)
                    if ab(y vector3(1)) > s
                        set vector3 1, ox#, oy#, oz#
                        multiply vector3 1, s / ab(oy#)
                        if ab(z vector3(1)) > s
                            set vector3 1, ox#, oy#, oz#
                            multiply vector3 1, s / ab(oz#)
                        endif
                    else
                        if ab(z vector3(1)) > s
                            set vector3 1, ox#, oy#, oz#
                            multiply vector3 1, s / ab(oz#)
                        endif
                    endif
                else
                    multiply vector3 1, s / ab(oy#)
                    if ab(z vector3(1)) > s
                        set vector3 1, ox#, oy#, oz#
                        multiply vector3 1, s / ab(oz#)
                    endif
                endif
                tx# = x vector3(1)
                ty# = y vector3(1)
                tz# = z vector3(1)
                
                `scale vector
                set vector3 1, tx# - vx#, ty# - vy#, tz# - vz#
                multiply vector3 1, 0.5
                
                `position
                set vertexdata position v, vx# + x vector3(1), vy# + y vector3(1), vz# + z vector3(1)
            
            next v
        unlock vertexdata
    endif

    `Position camera
    angle# = wrapvalue(angle# + rightkey() - leftkey())
    position camera cos(angle#)*10, 10, sin(angle#) * 10
    point camera 0, 0, 0

    sync
loop

function ab(nr#)
    if nr# < 0 then exitfunction -nr#
endfunction nr#

circpower#=0.01
do
CLS
circpower#=circpower#*1.2
hypercircle(320,240,50,circpower#)
loop
function hyperdistance(X1 as double float, Y1 as double float, Z1 as double float, X2 as double float, Y2 as double float, Z2 as double float, power as double float)
distance as double float
distance = (ABS(X1-X2)^power+ABS(Y1-Y2)^power+ABS(Z1-Z2)^power)^(1/power)
endfunction distance
function hypercircle(X as double float, Y as double float, radius as double float, power as double float)
ox as integer
oy as integer
For ox = INT(X-radius) to INT(X+radius)
For oy = INT(Y-radius) to INT(Y+radius)
If HyperDistance(ox,oy,0,x,y,0,power)<radius then dot ox,oy
Next oy
Next ox
endfunction

`-----------------------------
`PROJECT:  Morph
`CREATED:  24/11/2007 20:36:12
`AUTHOR :  Bongadoo 
`-----------------------------

`-------
`GLOBALS
`-------

`Camera
global cam_trail# = 25.0
global cam_dist#  = 50.0

`Stages
global stage      = 1
global sub_stage  = 1

`----------
`INITIALISE
`----------

if check display mode(1024,768,32) = 1
  set display mode 1024,768,32
else
  exit prompt "Cannot support 1024x768 32-bit","Error"
  end
endif

`if get maximum antialias level() >= 4
`  set antialias level 4
`endif

`-----
`SETUP
`-----

sync on
sync rate 60
color backdrop rgb(0,0,0)

`Keep same value so images remain constant
randomize 1 

autocam off
position camera 15.0,15.0,15.0
point camera 7.5,0.0,0.0
position camera 25.0,50.0,50.0

`-----------
`LOAD STAGES
`-----------

load_stage1()
load_stage2()
load_stage3()
load_stage4()
load_stage5()

`----
`MAIN
`----

do

  select stage
    case 1 : run_stage1() : endcase
    case 2 : run_stage2() : endcase
    case 3 : run_stage3() : endcase
    case 4 : run_stage4() : endcase
    case 5 : run_stage5() : endcase
    case 6 : run_stage6() : endcase
  endselect

  `Debug
  tx=10
  ty=10
  ty_step=15
  
  TEXT tx,ty,"MORPH" : inc ty,ty_step*2

  sync

loop

`---------
`FUNCTIONS
`---------

`Gets a free object number
function free_obj()

  do
    inc x
    if object exist(x) = 0 then exit
  loop

endfunction x

`Creates a new plain
function new_plain(x,y)

  n = free_obj()
  make object plain n,x,y

endfunction n

`Creates a new cube
function new_cube(size)

  n = free_obj()
  make object cube n,size

endfunction n

`Creates a new box
function new_box(x,y,z)

  n = free_obj()
  make object box n,x,y,z

endfunction n

`Creates a new sphere
function new_sphere(size,rows,cols)

  n = free_obj()
  make object sphere n,size,rows,cols

endfunction n

`Loads stage1
function load_stage1()
  
  `Globals
  dim s1_plain_g(6)  
  dim s1_plain(12)
  dim s1_count(1)
  
  `Create first plains
  ` This creates two plains and glues their edges to a cube
  ` This means the cube can be rotated to give the effect
  ` of the plains 'flipping' along
  for i = 1 to 6
    s1_plain_g(i) = new_cube(1)
    s1_plain(i) = new_plain(5,5)
    s1_plain(i+6) = new_plain(5,5)
    position object s1_plain(i),2.5,0.06,0
    position object s1_plain(i+6),2.5,0,0
    xrotate object s1_plain(i),-90
    xrotate object s1_plain(i+6),-90
    zrotate object s1_plain(i+6),180
    fix object pivot s1_plain(i)
    fix object pivot s1_plain(i+6)
    glue object to limb s1_plain(i),s1_plain_g(i),0
    glue object to limb s1_plain(i+6),s1_plain_g(i),0
    hide object s1_plain_g(i)
    hide object s1_plain(i)
    hide object s1_plain(i+6)
  next i
  
  s1_count(1) = 0
  
endfunction

`Flips first plains across the floor
function run_stage1() 

  `Fade in
  if s1_count(1) <= 100
    fade object s1_plain(1),s1_count(1)
    fade object s1_plain(1+6),s1_count(1)
    inc s1_count(1)
  endif

  `Flip
  if object angle z(s1_plain_g(1)) < 180
    show object s1_plain(1)
    show object s1_plain(1+6)
    zrotate object s1_plain_g(1),object angle z(s1_plain_g(1)) + 2
  endif
  
  `Reposition
  ` Flip around and continue, unless at the last part of the box layout 
  if object angle z(s1_plain_g(1)) >= 180
    if object position x(s1_plain_g(1)) <> ( 8 * -5 )
      zrotate object s1_plain_g(1),0
      position object s1_plain_g(1),object position x(s1_plain_g(1)) - 5,0,0
    else
      stage = 2
    endif
  endif
  
  `Box layout part 1
  if object position x(s1_plain_g(1)) = ( 6 * -5 )
    position object s1_plain_g(2),6*-5,0,0
    show object s1_plain(2)
    show object s1_plain(2+6)
  endif
  
  `Box layout part 2
  if object position x(s1_plain_g(1)) = ( 7 * -5 )
    position object s1_plain_g(3),7*-5,0,0
    show object s1_plain(3)
    show object s1_plain(3+6)
  endif
  
  `Box layout part 3
  if object position x(s1_plain_g(1)) = ( 8 * -5 ) and object position z(s1_plain_g(4)) = 0
    position object s1_plain_g(4),(8*-5)+2.5,0,2.5
    yrotate object s1_plain_g(4),90
    fix object pivot s1_plain_g(4)
    position object s1_plain_g(5),(8*-5)+2.5,0,-2.5
    yrotate object s1_plain_g(5),-90
    fix object pivot s1_plain_g(5)
    position object s1_plain_g(6),(8*-5),0,0
    show object s1_plain(4)
    show object s1_plain(5)
    show object s1_plain(6)
    show object s1_plain(4+6)
    show object s1_plain(5+6)
    show object s1_plain(6+6)
  endif
  
  `Unfold final parts
  if object angle x(s1_plain_g(4)) < 180 and object position x(s1_plain_g(4)) < 0
    xrotate object s1_plain_g(4),object angle x(s1_plain_g(4)) + 2
    xrotate object s1_plain_g(5),object angle x(s1_plain_g(5)) - 2
  endif

  position camera camera position x() - (5.0/90.0),cam_dist#,cam_dist#

endfunction

`Loads stage2
function load_stage2()

endfunction

`Fold back up into cube
function run_stage2()

  `First fold
  if object angle z(s1_plain_g(2)) < 90
    zrotate object s1_plain_g(2),object angle z(s1_plain_g(2)) + 2
  endif
  
  `Reglue
  if sub_stage = 1 and object angle z(s1_plain_g(2)) = 90
    sx = object position x(s1_plain_g(3))
    position object s1_plain_g(2),5,0,0
    position object s1_plain_g(3),0,0,0
    glue object to limb s1_plain_g(2),s1_plain_g(3),0
    position object s1_plain_g(3),sx,0,0
    inc sub_stage
  endif
  
  `Second fold
  if sub_stage = 2 and object angle z(s1_plain_g(3)) < 90
    zrotate object s1_plain_g(3),object angle z(s1_plain_g(3)) + 2
    xrotate object s1_plain_g(4),object angle x(s1_plain_g(4)) - 2
    xrotate object s1_plain_g(5),object angle x(s1_plain_g(5)) + 2
  endif
  
  `Reglue
  if sub_stage = 2 and object angle z(s1_plain_g(3)) = 90
    sx = object position x(s1_plain_g(6))
    position object s1_plain_g(3),5,0,0
    position object s1_plain_g(4),2.5,0,2.5
    position object s1_plain_g(5),2.5,0,-2.5
    position object s1_plain_g(6),0,0,0
    glue object to limb s1_plain_g(3),s1_plain_g(6),0
    glue object to limb s1_plain_g(4),s1_plain_g(6),0
    glue object to limb s1_plain_g(5),s1_plain_g(6),0
    position object s1_plain_g(6),sx,0,0
    inc sub_stage
  endif
  
  `Final fold
  if sub_stage = 3 and object angle z(s1_plain_g(6)) < 90
    zrotate object s1_plain_g(6),object angle z(s1_plain_g(6)) + 2
  endif
  
  `Next stage
  if object angle z(s1_plain_g(6)) = 90
    sub_stage = 1
    inc stage
  endif
  
  position camera camera position x() - (5.0/90.0),cam_dist#,cam_dist#

endfunction

`Loads stage3
function load_stage3()

  `Globals
  dim s3_cube(29)
  dim s3_cube_g(29)

  `Create cubes for body
  for i = 1 to 29
    s3_cube(i) = new_cube(5)
    s3_cube_g(i) = new_cube(1)
    position object s3_cube(i),2.5,2.5,0
    glue object to limb s3_cube(i),s3_cube_g(i),0
    hide object s3_cube(i)
    hide object s3_cube_g(i)
  next i

endfunction

`Cube to man
function run_stage3()

  `Hide plains and show first cube
  if sub_stage = 1
    position object s3_cube_g(1),object position x(s1_plain_g(1)) - 5,0,0
    show object s3_cube(1)
    for i = 1 to 12
      hide object s1_plain(i)
    next i
    inc sub_stage
  endif
  
  `Flip cube
  if sub_stage >= 2 and sub_stage <= 12 and object angle z(s3_cube_g(1)) < 90
    zrotate object s3_cube_g(1),object angle z(s3_cube_g(1)) + 2
  endif
  
  `Reposition
  if sub_stage >= 2 and sub_stage <= 12 and object angle z(s3_cube_g(1)) = 90
    zrotate object s3_cube_g(1),0
    position object s3_cube_g(1),object position x(s3_cube_g(1))-5,0,0
    inc sub_stage
  endif
  
  `First 7 cubes (spine)
  for i = 6 to 12
    if sub_stage = i and object angle z(s3_cube_g(1)) = 0
      position object s3_cube_g(i-4),object position x(s3_cube_g(1)),0,0
      show object s3_cube(i-4)
    endif
  next i
  
  `Shoulders (pre)
  if sub_stage = 8 and object angle z(s3_cube_g(1)) = 0
      position object s3_cube_g(9),object position x(s3_cube_g(1))+2.5,0,-2.5
      position object s3_cube_g(10),object position x(s3_cube_g(1))+2.5,0,2.5
      yrotate object s3_cube_g(9),-90
      yrotate object s3_cube_g(10),90
      fix object pivot s3_cube_g(9)
      fix object pivot s3_cube_g(10)
      show object s3_cube(9)
      show object s3_cube(10)
  endif
  
  `Flip cube (shoulders)
  if sub_stage >= 8 and sub_stage <= 9 and object angle x(s3_cube_g(10)) < 90
    xrotate object s3_cube_g(9),object angle x(s3_cube_g(9)) - 2
    xrotate object s3_cube_g(10),object angle x(s3_cube_g(10)) + 2
  endif
  
  `Reposition (shoulders)
  if sub_stage >= 8 and sub_stage <= 9 and object angle x(s3_cube_g(10)) = 90
    xrotate object s3_cube_g(9),0
    xrotate object s3_cube_g(10),0
    position object s3_cube_g(9),object position x(s3_cube_g(9)),0,object position z(s3_cube_g(9))-5
    position object s3_cube_g(10),object position x(s3_cube_g(10)),0,object position z(s3_cube_g(10))+5
  endif
  
  `Shoulders (new cubes)
  for i = 8 to 9
    if sub_stage = i+1 and object angle z(s3_cube_g(1)) = 0
      yrotate object s3_cube_g(i+3),-90
      yrotate object s3_cube_g(i+5),90
      position object s3_cube_g(i+3),object position x(s3_cube_g(9)),0,object position z(s3_cube_g(9))
      position object s3_cube_g(i+5),object position x(s3_cube_g(10)),0,object position z(s3_cube_g(10))
      show object s3_cube(i+3)
      show object s3_cube(i+5)
    endif
  next i
  
  `Arms (pre)
  if sub_stage = 10 and object angle z(s3_cube_g(1)) = 0
      position object s3_cube_g(9),object position x(s3_cube_g(9))-2.5,0,object position z(s3_cube_g(9))+2.5
      position object s3_cube_g(10),object position x(s3_cube_g(10))-2.5,0,object position z(s3_cube_g(10))-2.5
      yrotate object s3_cube_g(9),90
      yrotate object s3_cube_g(10),-90
      fix object pivot s3_cube_g(9)
      fix object pivot s3_cube_g(10)
  endif
  
  `Flip cube (arms)
  if sub_stage >= 10 and sub_stage <= 12 and object angle z(s3_cube_g(10)) < 90
    zrotate object s3_cube_g(9),object angle z(s3_cube_g(9)) + 2
    zrotate object s3_cube_g(10),object angle z(s3_cube_g(10)) + 2
  endif
  
  `Reposition (arms)
  if sub_stage >= 10 and sub_stage <= 12 and object angle z(s3_cube_g(10)) = 90
    zrotate object s3_cube_g(9),0
    zrotate object s3_cube_g(10),0
    position object s3_cube_g(9),object position x(s3_cube_g(9))-5,0,object position z(s3_cube_g(9))
    position object s3_cube_g(10),object position x(s3_cube_g(10))-5,0,object position z(s3_cube_g(10))
  endif
  
  `Arms (new cubes)
  for i = 10 to 11
    if sub_stage = i and object angle z(s3_cube_g(10)) = 0
      position object s3_cube_g(i+5),object position x(s3_cube_g(9)),0,object position z(s3_cube_g(9))
      position object s3_cube_g(i+7),object position x(s3_cube_g(10)),0,object position z(s3_cube_g(10))
      show object s3_cube(i+5)
      show object s3_cube(i+7)
    endif
  next i
  
  `Hips (pre)
  if sub_stage = 13
      position object s3_cube_g(19),object position x(s3_cube_g(1))+2.5,0,-2.5
      position object s3_cube_g(20),object position x(s3_cube_g(1))+2.5,0,2.5
      yrotate object s3_cube_g(19),-90
      yrotate object s3_cube_g(20),90
      fix object pivot s3_cube_g(19)
      fix object pivot s3_cube_g(20)
      show object s3_cube(19)
      show object s3_cube(20)
      inc sub_stage
  endif
  
  `Flip cube (hips)
  if sub_stage = 14 and object angle x(s3_cube_g(20)) < 90
    xrotate object s3_cube_g(19),object angle x(s3_cube_g(19)) - 2
    xrotate object s3_cube_g(20),object angle x(s3_cube_g(20)) + 2
  endif
  
  `Reposition (hips)
  if sub_stage = 14 and object angle x(s3_cube_g(20)) = 90
    xrotate object s3_cube_g(19),0
    xrotate object s3_cube_g(20),0
    position object s3_cube_g(19),object position x(s3_cube_g(19)),0,object position z(s3_cube_g(19))-5
    position object s3_cube_g(20),object position x(s3_cube_g(20)),0,object position z(s3_cube_g(20))+5
    inc sub_stage
  endif
  
  `Legs (pre)
  if sub_stage = 15 
      position object s3_cube_g(21),object position x(s3_cube_g(19))-2.5,0,object position z(s3_cube_g(19))+2.5
      position object s3_cube_g(22),object position x(s3_cube_g(20))-2.5,0,object position z(s3_cube_g(20))-2.5
      show object s3_cube(21)
      show object s3_cube(22)
      inc sub_stage
  endif
  
  `Flip cube (legs)
  if sub_stage >= 16 and sub_stage <= 19 and object angle z(s3_cube_g(22)) < 90
    zrotate object s3_cube_g(21),object angle z(s3_cube_g(21)) + 2
    zrotate object s3_cube_g(22),object angle z(s3_cube_g(22)) + 2
  endif
  
  `Reposition (legs)
  if sub_stage >= 16 and sub_stage <= 19 and object angle z(s3_cube_g(22)) = 90
    zrotate object s3_cube_g(21),0
    zrotate object s3_cube_g(22),0
    position object s3_cube_g(21),object position x(s3_cube_g(21))-5,0,object position z(s3_cube_g(21))
    position object s3_cube_g(22),object position x(s3_cube_g(22))-5,0,object position z(s3_cube_g(22))
    inc sub_stage
  endif
  
  `Legs (new cubes)
  for i = 16 to 19
    if sub_stage = i and object angle z(s3_cube_g(22)) = 0
      position object s3_cube_g(i+7),object position x(s3_cube_g(21)),0,object position z(s3_cube_g(21))
      position object s3_cube_g(i+10),object position x(s3_cube_g(22)),0,object position z(s3_cube_g(22))
      show object s3_cube(i+7)
      show object s3_cube(i+10)
    endif
  next i
  
  if sub_stage < 10
    position camera camera position x() - (5.0/45.0),cam_dist#,cam_dist#
  endif
  
  `Final
  if sub_stage = 20
    sub_stage = 1
    inc stage
  endif

endfunction

`Load stage4
function load_stage4()

  `Globals
  ` Vis boxes
  dim s4_spine(1)
  dim s4_shoulder_l(1)
  dim s4_shoulder_r(1)
  dim s4_arm_top_l(1)
  dim s4_arm_top_r(1)
  dim s4_arm_bot_l(1)
  dim s4_arm_bot_r(1)
  dim s4_leg_top_l(1)
  dim s4_leg_top_r(1)
  dim s4_leg_bot_l(1)
  dim s4_leg_bot_r(1)
  ` Joints
  dim s4_shoulder_l_j(1)
  dim s4_shoulder_r_j(1)
  dim s4_arm_top_l_j(1)
  dim s4_arm_top_r_j(1)
  dim s4_arm_bot_l_j(1)
  dim s4_arm_bot_r_j(1)
  dim s4_leg_top_l_j(1)
  dim s4_leg_top_r_j(1)
  dim s4_leg_bot_l_j(1)
  dim s4_leg_bot_r_j(1)
  dim s4_rotator(1)
  ` Fake cloud
  dim s4_cloud(1)
  dim s4_cloud_count(1)
  
  `Make left arm
  s4_arm_top_l(1) = new_box(10,5,5)
  s4_arm_bot_l(1) = new_box(10,5,5)
  s4_arm_bot_l_j(1) = new_cube(1)
  position object s4_arm_bot_l_j(1),-5,0,0
  glue object to limb s4_arm_bot_l_j(1),s4_arm_top_l(1),0
  position object s4_arm_top_l(1),5,0,0
  position object s4_arm_bot_l(1),-5,0,0
  glue object to limb s4_arm_bot_l(1),s4_arm_bot_l_j(1),0
  
  `Make left shoulder, connect to arm
  s4_shoulder_l(1) = new_cube(5)
  s4_arm_top_l_j(1) = new_cube(1)
  position object s4_arm_top_l_j(1),0,0,-2.5
  glue object to limb s4_arm_top_l_j(1),s4_shoulder_l(1),0
  position object s4_shoulder_l(1),0,0,2.5
  position object s4_arm_top_l(1),-2.5,0,-2.5
  glue object to limb s4_arm_top_l(1),s4_arm_top_l_j(1),0
  
  `Make right arm and shoulder
  s4_arm_top_r(1) = new_box(10,5,5)
  s4_arm_bot_r(1) = new_box(10,5,5)
  s4_arm_bot_r_j(1) = new_cube(1)
  position object s4_arm_bot_r_j(1),-5,0,0
  glue object to limb s4_arm_bot_r_j(1),s4_arm_top_r(1),0
  position object s4_arm_top_r(1),5,0,0
  position object s4_arm_bot_r(1),-5,0,0
  glue object to limb s4_arm_bot_r(1),s4_arm_bot_r_j(1),0

  `Make right shoulder, connect to arm
  s4_shoulder_r(1) = new_cube(5)
  s4_arm_top_r_j(1) = new_cube(1)
  position object s4_arm_top_r_j(1),0,0,2.5
  glue object to limb s4_arm_top_r_j(1),s4_shoulder_r(1),0
  position object s4_shoulder_r(1),0,0,-2.5
  position object s4_arm_top_r(1),-2.5,0,2.5
  glue object to limb s4_arm_top_r(1),s4_arm_top_r_j(1),0
  
  `Make spine
  s4_spine(1) = new_box(40,5,5)
  s4_shoulder_l_j(1) = new_cube(1)
  s4_shoulder_r_j(1) = new_cube(1)
  s4_leg_top_l_j(1) = new_cube(1)
  s4_leg_top_r_j(1) = new_cube(1)
  position object s4_shoulder_l_j(1),7.5,0,-2.5
  position object s4_shoulder_r_j(1),7.5,0,2.5
  position object s4_leg_top_l_j(1),-17.5,0,-2.5
  position object s4_leg_top_r_j(1),-17.5,0,2.5
  glue object to limb s4_shoulder_l_j(1),s4_spine(1),0
  glue object to limb s4_shoulder_r_j(1),s4_spine(1),0
  glue object to limb s4_leg_top_l_j(1),s4_spine(1),0
  glue object to limb s4_leg_top_r_j(1),s4_spine(1),0
  
  `Make left leg
  s4_leg_top_l(1) = new_box(12,5,5)
  s4_leg_bot_l(1) = new_box(13,5,5)
  s4_leg_bot_l_j(1) = new_cube(1)
  position object s4_leg_bot_l_j(1),-6,0,0
  glue object to limb s4_leg_bot_l_j(1),s4_leg_top_l(1),0
  position object s4_leg_top_l(1),6,0,0
  position object s4_leg_bot_l(1),-6.5,0,0
  glue object to limb s4_leg_bot_l(1),s4_leg_bot_l_j(1),0
  
  `Make right leg
  s4_leg_top_r(1) = new_box(12,5,5)
  s4_leg_bot_r(1) = new_box(13,5,5)
  s4_leg_bot_r_j(1) = new_cube(1)
  position object s4_leg_bot_r_j(1),-6,0,0
  glue object to limb s4_leg_bot_r_j(1),s4_leg_top_r(1),0
  position object s4_leg_top_r(1),6,0,0
  position object s4_leg_bot_r(1),-6.5,0,0
  glue object to limb s4_leg_bot_r(1),s4_leg_bot_r_j(1),0

  `Glue arms to spine
  position object s4_spine(1),-7.5,0,2.5
  position object s4_shoulder_l(1),0,0,-2.5
  glue object to limb s4_shoulder_l(1),s4_shoulder_l_j(1),0
  position object s4_spine(1),-7.5,0,-2.5
  position object s4_shoulder_r(1),0,0,2.5
  glue object to limb s4_shoulder_r(1),s4_shoulder_r_j(1),0

  `Glue legs to spine
  position object s4_spine(1),17.5,0,2.5
  position object s4_leg_top_l(1),-3.5,0,-2.5
  glue object to limb s4_leg_top_l(1),s4_leg_top_l_j(1),0
  position object s4_spine(1),17.5,0,-2.5
  position object s4_leg_top_r(1),-3.5,0,2.5
  glue object to limb s4_leg_top_r(1),s4_leg_top_r_j(1),0
  
  `Make rotator
  s4_rotator(1) = new_cube(1)
  position object s4_spine(1),30,2.5,0
  glue object to limb s4_spine(1),s4_rotator(1),0
  
  `Cloud
  s4_cloud(1) = new_plain(10,10)
  color object s4_cloud(1),rgb(0,0,0)
  fade object s4_cloud(1),25
  hide object s4_cloud(1)

  `Hide limbs
  hide object s4_spine(1)
  hide object s4_shoulder_l(1)
  hide object s4_shoulder_r(1)
  hide object s4_arm_top_l(1)
  hide object s4_arm_top_r(1)
  hide object s4_arm_bot_l(1)
  hide object s4_arm_bot_r(1)
  hide object s4_leg_top_l(1)
  hide object s4_leg_top_r(1)
  hide object s4_leg_bot_l(1)
  hide object s4_leg_bot_r(1)

  `Hide joints
  hide object s4_shoulder_l_j(1)
  hide object s4_shoulder_r_j(1)
  hide object s4_arm_top_l_j(1)
  hide object s4_arm_top_r_j(1)
  hide object s4_arm_bot_l_j(1)
  hide object s4_arm_bot_r_j(1)
  hide object s4_leg_top_l_j(1)
  hide object s4_leg_top_r_j(1)
  hide object s4_leg_bot_l_j(1)
  hide object s4_leg_bot_r_j(1)
  hide object s4_rotator(1)

endfunction

`Walking man
function run_stage4()

  `Hide old objects, display new body
  if sub_stage = 1
    for i = 1 to 29
      position object s4_rotator(1),object position x(s3_cube_g(2))-45,0,0
      hide object s3_cube(i)
    next i
    show object s4_spine(1)
    show object s4_shoulder_l(1)
    show object s4_shoulder_r(1)
    show object s4_arm_top_l(1)
    show object s4_arm_top_r(1)
    show object s4_arm_bot_l(1)
    show object s4_arm_bot_r(1)
    show object s4_leg_top_l(1)
    show object s4_leg_top_r(1)
    show object s4_leg_bot_l(1)
    show object s4_leg_bot_r(1)
    inc sub_stage
  endif
  
  `Stand up
  if sub_stage = 2 and object angle z(s4_rotator(1)) < 90
    zrotate object s4_rotator(1),object angle z(s4_rotator(1)) + 1
    position camera camera position x() - (5.0/45.0),camera position y() + 0.25,camera position z() + 0.25
  endif
  
  `Increase sub_stage
  if sub_stage = 2 and object angle z(s4_rotator(1)) = 90
    inc sub_stage
  endif
  
  `Walk 1
  if sub_stage = 3 and object angle z(s4_leg_top_r_j(1)) > -20
    zrotate object s4_leg_top_r_j(1),object angle z(s4_leg_top_r_j(1)) - 0.5
    zrotate object s4_leg_top_l_j(1),object angle z(s4_leg_top_l_j(1)) + 0.5
    zrotate object s4_leg_bot_l_j(1),object angle z(s4_leg_bot_l_j(1)) + 0.7
    zrotate object s4_arm_top_l_j(1),object angle z(s4_arm_top_l_j(1)) - 0.5
    zrotate object s4_arm_bot_l_j(1),object angle z(s4_arm_bot_l_j(1)) - 0.7
    zrotate object s4_arm_top_r_j(1),object angle z(s4_arm_top_r_j(1)) + 0.5
  endif
  
  `Walk next stage
  if sub_stage = 3 and object angle z(s4_leg_top_r_j(1)) <= -20
    inc sub_stage
  endif
  
  `Walk 2
  if sub_stage = 4 and object angle z(s4_leg_top_l_j(1)) > -20
    zrotate object s4_leg_top_r_j(1),object angle z(s4_leg_top_r_j(1)) + 0.5
    zrotate object s4_leg_bot_r_j(1),object angle z(s4_leg_bot_r_j(1)) + 0.35
    zrotate object s4_leg_top_l_j(1),object angle z(s4_leg_top_l_j(1)) - 0.5
    zrotate object s4_leg_bot_l_j(1),object angle z(s4_leg_bot_l_j(1)) - 0.35
    zrotate object s4_arm_top_l_j(1),object angle z(s4_arm_top_l_j(1)) + 0.5
    zrotate object s4_arm_bot_l_j(1),object angle z(s4_arm_bot_l_j(1)) + 0.35
    zrotate object s4_arm_top_r_j(1),object angle z(s4_arm_top_r_j(1)) - 0.5
    zrotate object s4_arm_bot_r_j(1),object angle z(s4_arm_bot_r_j(1)) - 0.35
    xrotate object s4_rotator(1),object angle x(s4_rotator(1)) + 0.1
  endif
  
  `Walk next stage
  if sub_stage = 4 and object angle z(s4_leg_top_l_j(1)) <= -20
    inc sub_stage
  endif
  
  `Walk 3 (walk 2 and 3 make loop)
  if sub_stage = 5 and object angle z(s4_leg_top_r_j(1)) > -20
    zrotate object s4_leg_top_l_j(1),object angle z(s4_leg_top_l_j(1)) + 0.5
    zrotate object s4_leg_bot_l_j(1),object angle z(s4_leg_bot_l_j(1)) + 0.35
    zrotate object s4_leg_top_r_j(1),object angle z(s4_leg_top_r_j(1)) - 0.5
    zrotate object s4_leg_bot_r_j(1),object angle z(s4_leg_bot_r_j(1)) - 0.35
    zrotate object s4_arm_top_l_j(1),object angle z(s4_arm_top_l_j(1)) - 0.5
    zrotate object s4_arm_bot_l_j(1),object angle z(s4_arm_bot_l_j(1)) - 0.35
    zrotate object s4_arm_top_r_j(1),object angle z(s4_arm_top_r_j(1)) + 0.5
    zrotate object s4_arm_bot_r_j(1),object angle z(s4_arm_bot_r_j(1)) + 0.35
    xrotate object s4_rotator(1),object angle x(s4_rotator(1)) - 0.1
  endif
  
  `Loop back to walk 2
  if sub_stage = 5 and object angle z(s4_leg_top_r_j(1)) <= -20
    sub_stage = 4
  endif
  
  `Camera
  if sub_stage >= 3 and camera position y() < 600
    position camera camera position x() - (5.0/45.0),camera position y() + 0.5,camera position z() + 0.5
  endif
  
  `Cloud 1
  if sub_stage >= 3 and camera position y() >= 600 and s4_cloud_count(1) = 0
    position object s4_cloud(1),camera position x()-1,camera position y()-1,camera position z()-1
    point object s4_cloud(1),camera position x(),camera position y(),camera position z()
    set object transparency s4_cloud(1),1
    set alpha mapping on s4_cloud(1),100
    show object s4_cloud(1)
    s4_cloud_count(1) = 1
  endif
  
  `Cloud 2 - fade in (more bad code)
  if s4_cloud_count(1) >= 1 and s4_cloud_count(1) <= 100
    position camera camera position x() - (5.0/45.0),camera position y() + 0.25,camera position z() + 0.25
    position object s4_cloud(1),camera position x()-1,camera position y()-1,camera position z()-1
    point object s4_cloud(1),camera position x(),camera position y(),camera position z()
    set alpha mapping on s4_cloud(1),s4_cloud_count(1)
    inc s4_cloud_count(1)
  endif

  if s4_cloud_count(1) = 101
    s4_cloud_count(1) = 0
    hide object s4_spine(1)
    hide object s4_shoulder_l(1)
    hide object s4_shoulder_r(1)
    hide object s4_arm_top_l(1)
    hide object s4_arm_top_r(1)
    hide object s4_arm_bot_l(1)
    hide object s4_arm_bot_r(1)
    hide object s4_leg_top_l(1)
    hide object s4_leg_top_r(1)
    hide object s4_leg_bot_l(1)
    hide object s4_leg_bot_r(1)
    sub_stage = 1
    inc stage
  endif

endfunction

`Load stage5
function load_stage5()
  
  `Globals
  dim s5_planet(1)
  dim s5_cloud(1)
  dim s5_stars(1)
  
  `Planet
  s5_planet(1) = new_sphere(98,20,20)
  s5_cloud(1) = new_sphere(100,20,20)
  color object s5_planet(1),rgb(0,0,0)
  fade object s5_planet(1),10
  
  `Stars
  s5_stars(1) = new_plain(500,500)
  create bitmap 1,500,500
  ink rgb(255,255,255),0
  for i=1 to 200
    dot rnd(500),rnd(500)
  next i  
  get image 2,0,0,500,500,1
  delete bitmap 1
  set current bitmap 0
  ink rgb(255,255,255),0
  `set object texture s5_stars(1),0,1
  texture object s5_stars(1),2
  hide object s5_stars(1)
  
  `Texture
  size = 300
  create bitmap 1,size,size
  ink rgb(141,141,141),0
  make_cloud(0,0)
  make_cloud(50,20)
  make_cloud(130,10)
  make_cloud(220,40)
  make_cloud(10,60)
  make_cloud(40,150)
  make_cloud(160,140)
  make_cloud(220,220)
  make_cloud(200,210)
  make_cloud(10,0)
  make_cloud(20,20)
  make_cloud(250,100)
  make_cloud(250,200)
  make_cloud(150,220)
  make_cloud(100,100)
  blur bitmap 1,3
  get image 1,0,0,300,300
  delete bitmap 1
  set current bitmap 0
  ink rgb(255,255,255),0
  texture object s5_cloud(1),1
  set object transparency s5_cloud(1),1
  
  `Hide
  hide object s5_planet(1)
  hide object s5_cloud(1)
  
endfunction

`Cloud function
function make_cloud(x,y)

  box 20+x,10+y,30+x,50+y
  box 10+x,20+y,40+x,30+y
  box 30+x,30+y,50+x,40+y

endfunction

`Zoom to planet
function run_stage5()

  if sub_stage = 1
    hide object s4_cloud(1)
    `Show planet and clouds
    show object s5_planet(1)
    show object s5_cloud(1)
    yrotate object s5_cloud(1),15
    xrotate object s5_cloud(1),5
    position camera 37,0,37
    point camera 0,0,0
    `Show start
    show object s5_stars(1)
    inc sub_stage
  endif
  
  if sub_stage = 2
    `Keep stars distance
    position object s5_stars(1),camera position x()-200,0,camera position z()-200
    point object s5_stars(1),camera position x(),camera position y(),camera position z()
    `Rotate clouds
    xrotate object s5_cloud(1),object angle x(s5_cloud(1))+0.001
    yrotate object s5_cloud(1),object angle y(s5_cloud(1))+0.1
    position camera camera position x()+0.1,0,camera position z()+0.05
  endif
  
  if sub_stage = 2 and camera position x() > 190 and s4_cloud_count(1) = 0
    s4_cloud_count(1) = 100
  endif
  
  if s4_cloud_count(1) <= 100 and s4_cloud_count(1) > 1
    fade object s5_cloud(1),s4_cloud_count(1)
    fade object s5_planet(1),s4_cloud_count(1)/10
    fade object s5_stars(1),s4_cloud_count(1)
    dec s4_cloud_count(1)
  endif
  
  if s4_cloud_count(1) = 1
    sub_stage = 1
    inc stage
  endif

endfunction

function run_stage6()

  flush video memory
  delete objects 1,1000
  delete image 1
  delete image 2
  position camera 15.0,15.0,15.0
  point camera 7.5,0.0,0.0
  position camera 25.0,50.0,50.0

  s1_count(1) = 0
  s4_cloud_count(1) = 0
  
  load_stage1()
  load_stage2()
  load_stage3()
  load_stage4()
  load_stage5()
  
  stage = 1

endfunction

autocam off : sync on : sync rate 60
sync sleep 0 : sync mask 0x0000000F
color backdrop rgb(0,0,0) : hide mouse

for x=1 to 10
make object sphere x,1,x+2,x+2
next x

set ambient light 100

move camera 2
yrotate camera 180
stage =1 : up=1
do
   for x=1 to 10 : hide object x : next x
   show object stage
   if time<=0
      if up then inc stage
      if down then dec stage
      time=10
   endif
   if up and stage>=10 then up=0 : down=1
   if down and stage<=1 then up=1 : down=0
   dec time
   sync
loop

make object sphere 1, 2*s,24,24

make object sphere 1, 2*s,64,64

global vd as integer
lock vertexdata for limb 1, 0
    vd = get vertexdata index count()
    dim vert(vd) as pos
    for v = 0 to vd
        vert(v).x# = get vertexdata position x(v)
        vert(v).y# = get vertexdata position y(v)
        vert(v).z# = get vertexdata position z(v)
    next v
unlock vertexdata

REM Project: Spider
REM Created: 11/20/2007 4:56:10 AM
REM
REM ***** Main Source File *****
REM

Global camera_x# : Global camera_y#
Global shift$ = "In Progress..."
Global stage1$ = "In Progress..."
Global stage2$ = "In Progress..."
Global root_obj
Global _time
Global exec
Global exec2

_time = Timer() ` For Timing Stages

display_mode()
create_objects()

position camera 0,7,-20

do

   transform()
   rotate_camera()
   the_timer()
   Sync

loop

Function create_objects()

   Global _abdomen
   Global _fovea
   Global l_abdomen

   _fovea = free_object()
   make object sphere _fovea,1.5 : scale object _fovea,150,100,100
   Make Mesh From Object 1000,_fovea
   Delete Object _fovea
   Make Object _fovea,1000,0
   Delete Mesh 1000
   position object _fovea,3,0,0 : color object _fovea,rgb(255,255,0)

   _abdomen = free_object()
   make object sphere _abdomen,5,20,20
   scale object _abdomen,100,75,80
   Make Mesh From Object 1000,_abdomen
   Delete Object _abdomen
   root_obj = _fovea
   l_abdomen = free_limb(root_obj)
   Add Limb _fovea,l_abdomen,1000
   Delete Mesh 1000
   Color Limb _fovea,l_abdomen,rgb(255,225,0)
   Offset Limb _fovea,l_abdomen,-1.5,0,0

   Make Object Sphere 1000,0.35
   Make Mesh From Object 1000,1000
   Delete Object 1000

   Make Object Cylinder 1000,0.3
   Scale Object 1000,100,900,100
   Make Mesh from Object 1001,1000                 `Mesh 1000 will be our first segmented legs
   Delete Object 1000
   dim _joint(9)  ` Create first set of joints
   dim s1_leg(9)
   dim _joint2(9)
   dim s2_leg(9)
   for i = 1 to 8
      _joint(i) = free_limb(root_obj)
      Add Limb _fovea,_joint(i),1000 : color limb _fovea,_joint(i),RGB(255,225,0)
      offset limb _fovea,_joint(i),0,(i*0.5) + 2,0

      s1_leg(i) = free_limb(root_obj)
      Add Limb _fovea,s1_leg(i),1001
      Link Limb _fovea,_joint(i),s1_leg(i)
      offset limb _fovea,s1_leg(i),0,1.4,0
      color limb _fovea,s1_leg(i),RGB(255,225,0)

      _joint2(i) = free_limb(root_obj)
      Add Limb _fovea,_joint2(i),1000 : color limb _fovea,_joint2(i),RGB(255,225,0)
      Link limb _fovea,s1_leg(i),_joint2(i) : offset limb _fovea,_joint2(i),0,1.3,0

      s2_leg(i) = free_limb(root_obj)
      Add Limb _fovea,s2_leg(i),1001
      Link Limb _fovea,_joint2(i),s2_leg(i)
      scale limb _fovea,s2_leg(i),100,150,100
      offset limb _fovea,s2_leg(i),0,2.1,0
      color limb _fovea,s2_leg(i),RGB(255,225,0)

   next i

   Delete Mesh 1000

   offset limb _fovea,_joint(1),-0.50,0,-0.6       ` Right Side Joints
   offset limb _fovea,_joint(2),-0.25,0,-0.65
   offset limb _fovea,_joint(3),0,0,-0.7
   offset limb _fovea,_joint(4),0.25,0,-0.65

   offset limb _fovea,_joint(5),-0.50,0,0.6        ` Left Side Joints
   offset limb _fovea,_joint(6),-0.25,0,0.65
   offset limb _fovea,_joint(7),0,0,0.7
   offset limb _fovea,_joint(8),0.25,0,0.65

REM ------------------- LEGS DEFAULT -------------------------------
   Rotate Limb _fovea,_joint(1),-92,91,0         ` Legs Default
   Rotate Limb _fovea,_joint(2),-96,79,0
   Rotate Limb _fovea,_joint(3),49,-66,0
   Rotate Limb _fovea,_joint(4),-48.5,90.5,0
   Rotate Limb _fovea,_joint(5),-100,104,0
   Rotate Limb _fovea,_joint(6),-69,108,0
   Rotate Limb _fovea,_joint(7),51,-93,0
   Rotate Limb _fovea,_joint(8),62.5,-97,0
   Rotate Limb _fovea,_joint2(1),-172.5,67.5,0
   Rotate Limb _fovea,_joint2(2),-170.5,82,0
   Rotate Limb _fovea,_joint2(3),-79.5,154.5,0
   Rotate Limb _fovea,_joint2(4),-78,0,0
   Rotate Limb _fovea,_joint2(5),-180,19.5.5,0
   Rotate Limb _fovea,_joint2(6),171.5,52,0
   Rotate Limb _fovea,_joint2(7),87,0,0
   Rotate Limb _fovea,_joint2(8),74,9.5,0

   for i = 1 to 8
      Hide Limb _fovea,s2_leg(i) : Hide Limb _fovea,_joint2(i) : Hide Limb _fovea,s1_leg(i)
   next i
REM ----------------------------------------------------------------


REM ------------------- LEGS FLARED -------------------------------
RemStart
   Rotate Limb _fovea,_joint(1),-63.5,23.5,0         ` Legs Flared
   Rotate Limb _fovea,_joint(2),-66.5,-2.5,0
   Rotate Limb _fovea,_joint(3),-69,-34,0
   Rotate Limb _fovea,_joint(4),-83.5,-80.5,0
   Rotate Limb _fovea,_joint(5),63.5,-23.5,0
   Rotate Limb _fovea,_joint(6),66.5,2.5,0
   Rotate Limb _fovea,_joint(7),69,34,0
   Rotate Limb _fovea,_joint(8),83.5,80.5,0
   Rotate Limb _fovea,_joint2(1),-78.5,27.5,0
   Rotate Limb _fovea,_joint2(2),-66.5,-2.5,0
   Rotate Limb _fovea,_joint2(3),-69,-34,0
   Rotate Limb _fovea,_joint2(4),-36.5,-5,0
   Rotate Limb _fovea,_joint2(5),78.5,-27.5,0
   Rotate Limb _fovea,_joint2(6),66.5,2.5,0
   Rotate Limb _fovea,_joint2(7),69,34,0
   Rotate Limb _fovea,_joint2(8),36.5,5,0
RemEnd
REM ----------------------------------------------------------------

endfunction

Function free_image()

   repeat
      inc n
   until image exist(n) = 0

endfunction n

Function free_object()

   repeat
      inc n
   until object exist(n) = 0

endfunction n

Function free_limb(root_obj)

   repeat
      inc n
   until limb exist(root_obj,n) = 0

endfunction n

Function display_mode()

   Set Display Mode 1024,768,32
   Hide Mouse
   Autocam off
   Sync Rate 70
   Color Backdrop 0
   Sync On
   make light 1
   position light 1,30,10,-10
   set light range 1,100

endfunction

function rotate_camera()

  camradius#=20

  if 0
    global camangle#
  endif

  inc camangle#,0.1

  camx#=camradius#*cos(camangle#)
  camz#=camradius#*sin(camangle#)
  camy#=35
  position camera camx#,camy#,camz#
  point camera 0,0,0

endfunction

function transform()

   transform_elapsed = the_timer()
   if shift$ <> "Complete" And transform_elapsed >= 5 Then color_shift()
   if shift$ = "Complete" And stage1$ <> "Complete" then stage_one()
   if stage1$ = "Complete" then stage_two()

endfunction

function stage_one() ` Moves the abdomen to form the basic shape of the spider

   If 0 Then Global l_abdomen_x#
   if 0 Then Global l_abdomen_y#
   dec l_abdomen_x#,0.02
   if l_abdomen_y# <= 0.5 Then inc l_abdomen_y#,0.01
   Offset Limb _fovea,l_abdomen,l_abdomen_x#,l_abdomen_y#,0
   if l_abdomen_x# <= -2.8 Then stage1$ = "Complete"

endfunction

function stage_two()

   for i = 1 to 8
      Show Limb _fovea,s2_leg(i)
      Show Limb _fovea,_joint2(i)
      Show Limb _fovea,s1_leg(i)
   next i

   Dim _joint_x#(9)
   Dim _joint_y#(9)
   Dim _joint2_x#(9)
   Dim _joint2_y#(9)

   if exec2 = 0
      for i = 1 to 8
      _joint_x#(i) = Limb Angle X(_fovea,_joint(i))
      _joint_y#(i) = Limb Angle Y(_fovea,_joint(i))
      _joint2_x#(i) = Limb Angle X(_fovea,_joint2(i))
      _joint2_y#(i) = Limb Angle Y(_fovea,_joint2(i))
      next i
      exec2 = 1
   endif

      if Limb Angle X (_fovea,_joint(1)) <= -63.5 Then Inc _joint_x#(1),0.2
      if Limb Angle Y (_fovea,_joint(1)) >= 23.5 Then Dec _joint_y#(1),0.2
      if Limb Angle X (_fovea,_joint(2)) <= -66.5 Then Inc _joint_x#(2),0.2
      if Limb Angle Y (_fovea,_joint(2)) >= -2.5 Then Dec _joint_y#(2),0.2
      if Limb Angle X (_fovea,_joint(3)) >= -69 Then Dec _joint_x#(3),0.2
      if Limb Angle Y (_fovea,_joint(3)) <= -34 Then Inc _joint_y#(3),0.2
      if Limb Angle X (_fovea,_joint(4)) >= -83.5 Then Dec _joint_x#(4),0.2
      if Limb Angle Y (_fovea,_joint(4)) >= -80.5 Then Dec _joint_y#(4),0.2
      if Limb Angle X (_fovea,_joint(5)) <= 63.5 Then Inc _joint_x#(5),0.2
      if Limb Angle Y (_fovea,_joint(5)) >= -23.5 Then Dec _joint_y#(5),0.2
      if Limb Angle X (_fovea,_joint(6)) <= 66.5 Then Inc _joint_x#(6),0.2
      if Limb Angle Y (_fovea,_joint(6)) >= 2.5 Then Dec _joint_y#(6),0.2
      if Limb Angle X (_fovea,_joint(7)) <= 69 Then Inc _joint_x#(7),0.2
      if Limb Angle Y (_fovea,_joint(7)) <= 34 Then Inc _joint_y#(7),0.2
      if Limb Angle X (_fovea,_joint(8)) <= 83.5 Then Inc _joint_x#(8),0.2
      if Limb Angle Y (_fovea,_joint(8)) <= 80.5 Then Inc _joint_y#(8),0.2

      if Limb Angle X (_fovea,_joint2(1)) <= -78.5 Then Inc _joint2_x#(1),0.2
      if Limb Angle Y (_fovea,_joint2(1)) >= 27.5 Then Dec _joint2_y#(1),0.2
      if Limb Angle X (_fovea,_joint2(2)) <= -66.5 Then Inc _joint2_x#(2),0.2
      if Limb Angle Y (_fovea,_joint2(2)) >= -2.5 Then Dec _joint2_y#(2),0.2
      if Limb Angle X (_fovea,_joint2(3)) <= -69 Then Inc _joint2_x#(3),0.2
      if Limb Angle Y (_fovea,_joint2(3)) >= -34 Then Dec _joint2_y#(3),0.2
      if Limb Angle X (_fovea,_joint2(4)) <= -36.5 Then Inc _joint2_x#(4),0.2
      if Limb Angle Y (_fovea,_joint2(4)) >= -5 Then Dec _joint2_y#(4),0.2
      if Limb Angle X (_fovea,_joint2(5)) <= 78.5 Then Inc _joint2_x#(5),0.2
      if Limb Angle Y (_fovea,_joint2(5)) >= -27.5 Then Dec _joint2_y#(5),0.2
      if Limb Angle X (_fovea,_joint2(6)) >= 66.5 Then Dec _joint2_x#(6),0.2
      if Limb Angle Y (_fovea,_joint2(6)) >= 2.5 Then Dec _joint2_y#(6),0.2
      if Limb Angle X (_fovea,_joint2(7)) >= 69 Then Dec _joint2_x#(7),0.2
      if Limb Angle Y (_fovea,_joint2(7)) <= 34 Then Inc _joint2_y#(7),0.2
      if Limb Angle X (_fovea,_joint2(8)) >= 36.5 Then Dec _joint2_x#(8),0.2
      if Limb Angle Y (_fovea,_joint2(8)) >= 5 Then Dec _joint2_y#(8),0.2

   for i = 1 to 8
      rotate limb _fovea,_joint(i),_joint_x#(i),_joint_y#(i),0
      rotate limb _fovea,_joint2(i),_joint2_x#(i),_joint2_y#(i),0
   next i



endfunction

function color_shift()

   if 0
      Global rr#
      Global gg#
      Global bb#
      Global r2#
      Global g2#
      Global b2#
   endif

   if exec = 0
      rr# = 255 : gg# = 225 : bb# = 0
      r2# = 255 : g2# = 225 : b2# = 0
      exec = 1
   endif

   color object l_abdomen,rgb(rr#,gg#,bb#) : color object _fovea,rgb(r2#,g2#,b2#)
   if rr# >= 141 Then dec rr#,0.2
   if gg# >= 54 Then dec gg#,0.3
   if r2# >= 141 then dec r2#,0.2
   if g2# >= 54 then dec g2#,0.3
   if g2# <= 54 Then shift$ = "Complete"

endfunction shift$

function the_timer()

   if 0 Then Global _elapsed
   _elapsed = (Timer()-_time)/1000

endfunction _elapsed

set display mode 1024,768,32
sync on
sync rate 60
ink rgb(0,255,0),0

dim x(9,7)
dim y(9,7)
dim currentx1(8,7)
dim currenty1(8,7)
dim currentx2(8,7)
dim currenty2(8,7)

for digit=0 to 9
  read string$
  for coordinate=1 to 7
    x(digit,coordinate)=val(mid$(string$,(2*coordinate)-1))
    y(digit,coordinate)=val(mid$(string$,2*coordinate))
  next coordinate
next digit

x=250
y=100
stepvalue=5


do

time$=get time$()

cls
for numeral=1 to 8
  if numeral<>3 and numeral<>6
  digit=val(mid$(time$,numeral))
  for coordinate=1 to 6
    targetx1=x+(numeral*50)+5*x(digit,coordinate)
    targety1=y+5*y(digit,coordinate)
    targetx2=x+(numeral*50)+5*x(digit,coordinate+1)
    targety2=y+5*y(digit,coordinate+1)
    currentx1(numeral,coordinate)=smoothvalue(targetx1,currentx1(numeral,coordinate),stepvalue)
    currenty1(numeral,coordinate)=smoothvalue(targety1,currenty1(numeral,coordinate),stepvalue)
    currentx2(numeral,coordinate)=smoothvalue(targetx2,currentx2(numeral,coordinate),stepvalue)
    currenty2(numeral,coordinate)=smoothvalue(targety2,currenty2(numeral,coordinate),stepvalue)
    line currentx1(numeral,coordinate),currenty1(numeral,coordinate),currentx2(numeral,coordinate),currenty2(numeral,coordinate)
  next coordinate
  endif
next numeral

sync
loop

data "11315155351511"
data "31414243453555"
data "11515313153555"
data "11414313535515"
data "11133353515455"
data "51111353553515"
data "51111215555313"
data "11515333434445"
data "11515515111353"
data "53131151553515"

function smoothvalue(target,current,speed)
    stp = target-current
    if stp
        stp = (stp/abs(stp)) + stp/speed
        inc current,stp
    endif
endfunction current

sync on : sync rate 50

`Constants
#constant sph 1
#constant cub 2

#constant s 2.5

`Types
type pos
    x# as float
    y# as float
    z# as float
endtype

`Make the object
make object sphere 1, 2*s, 40, 40
set object wireframe 1, 1
set object cull 1, 0

`Get number of verteces and store it in an array
global vd as integer
lock vertexdata for limb 1, 0
    vd = get vertexdata vertex count()
    dim vert(vd) as pos
    for v = 0 to vd
        vert(v).x# = get vertexdata position x(v)
        vert(v).y# = get vertexdata position y(v)
        vert(v).z# = get vertexdata position z(v)
    next v
unlock vertexdata

`Distance vector
r = make vector3(1)

`Global
global t as integer
t = sph
do

    `Toggle
    if upkey() = 1 and hold = 0
        hold = 1
        inc t
    endif
    if downkey() = 1 and hold = 0
        hold = 1
        dec t
    endif
    if downkey() + upkey() = 0 then hold = 0

    `Change type
    if t = sph
    
        `Edit to a sphere
        lock vertexdata for limb 1, 0
        
            `Run through all verteces
            for v = 0 to vd
            
                `Get vertex data
                vx# = get vertexdata position x(v)
                vy# = get vertexdata position y(v)
                vz# = get vertexdata position z(v)
                
                `Get target values
                tx# = vert(v).x#
                ty# = vert(v).y#
                tz# = vert(v).z#
            
                `Get distance to position
                set vector3 1, tx# - vx#, ty# - vy#, tz# - vz#
                d# = length vector3(1)
            
                `Change to new vertex data
                multiply vector3 1, 0.5
                set vertexdata position v, vx# + x vector3(1), vy# + y vector3(1), vz# + z vector3(1)
            
            next v
        unlock vertexdata
    endif
    if t = cub
    
        `Edit to a cube
        lock vertexdata for limb 1, 0
        
            `Run through all verteces
            for v = 0 to vd
            
                `Get vertex data
                vx# = get vertexdata position x(v)
                vy# = get vertexdata position y(v)
                vz# = get vertexdata position z(v)
            
                `Get origin data
                ox# = vert(v).x#
                oy# = vert(v).y#
                oz# = vert(v).z#
                
                `Based on the origin data from in the sphere, assign target position
                set vector3 1, ox#, oy#, oz#
                if ox# <> 0.0
                    multiply vector3 1, s / ab(ox#)
                    if ab(y vector3(1)) > s
                        set vector3 1, ox#, oy#, oz#
                        multiply vector3 1, s / ab(oy#)
                        if ab(z vector3(1)) > s
                            set vector3 1, ox#, oy#, oz#
                            multiply vector3 1, s / ab(oz#)
                        endif
                    else
                        if ab(z vector3(1)) > s
                            set vector3 1, ox#, oy#, oz#
                            multiply vector3 1, s / ab(oz#)
                        endif
                    endif
                else
                    multiply vector3 1, s / ab(oy#)
                    if ab(z vector3(1)) > s
                        set vector3 1, ox#, oy#, oz#
                        multiply vector3 1, s / ab(oz#)
                    endif
                endif
                tx# = x vector3(1)
                ty# = y vector3(1)
                tz# = z vector3(1)
                
                `scale vector
                set vector3 1, tx# - vx#, ty# - vy#, tz# - vz#
                multiply vector3 1, 0.5
                
                `position
                set vertexdata position v, vx# + x vector3(1), vy# + y vector3(1), vz# + z vector3(1)
            
            next v
        unlock vertexdata
    endif

    `Position camera
    angle# = wrapvalue(angle# + rightkey() - leftkey())
    position camera cos(angle#)*10, 10, sin(angle#) * 10
    point camera 0, 0, 0

    sync
loop

function ab(nr#)
    if nr# < 0 then exitfunction -nr#
endfunction nr#

function smoothvalue(target,current,speed)
    stp = target-current
    if stp
        stp = (stp/abs(stp)) + stp/speed
        inc current,stp
    endif
endfunction current

Sven B sphere distortion. This reminds me of an artists impression of a binary star system, with a neutron star pulling matter off of the companion star. Very cool effect.

Bongadoo has a very entertaining morph, which works its way up to an animation. I watched this one quite a few times and enjoyed it every time.

set display mode 1024,768,32
sync on:sync rate 60
autocam off
color backdrop 0
hide light 0
set ambient light 0


global flameimage
global theta#
global phase2#
global phase3#
global camangle#



make_flame_image()
make_flame()
make_candle()
make_table()

do
  camera()
  flicker()
  sync
loop


function make_flame_image()

position camera 0,0,-2.1
make object sphere 1,1,50,50
ghost object on 1
color object 1,rgb(255,128,0)
make object sphere 2,0.7,50,50
ghost object on 2
disable object zdepth 2
make light 1
color light 1,rgb(255,255,100)
position light 1,0,0,-10
set light range 1,1200
x1=screen width()*0.35
x2=screen width()*0.65
y1=screen height()*0.3
y2=y1+(x2-x1)
flameimage=1
sync
get image flameimage,x1,y1,x2,y2,1
create bitmap 1,x2-x1,y2-y1
paste image flameimage,0,0,1
blur bitmap 1,3
get image flameimage,0,0,x2-x1,y2-y1,1
delete bitmap 1
alpha(flameimage)
delete object 1
delete object 2

endfunction

function make_flame()

dim height(100) as float

for flame=1 to 100
  make object plain flame,0.75,1
  texture object flame,flameimage
  height(flame)=(100-flame)*0.01
  set object transparency flame,2
  set object light flame,0
next flame

endfunction

function make_candle()

make object cylinder 1000,2
position object 1000,0,-2.5,0
scale object 1000,50,200,50
color object 1000,rgb(80,80,80)
make object cylinder 1001,0.2
position object 1001,0,-0.3,0
disable object zdepth 1001
scale object 1001,50,200,50
color object 1001,rgb(10,10,10)
ghost object on 1001,3

endfunction

function make_table()

make object plain 1002,10,10
pitch object down 1002,-90
position object 1002,0,-4,0
create bitmap 1,100,100
ink -1,0
box 0,0,100,100
ink 0,0
box 45,0,55,50
blur bitmap 1,3
get image 1002,0,0,100,100,1
delete bitmap 1
texture object 1002,1002

endfunction

function flicker()

for flame=1 to 100
  phase#=height(flame)*360
  if height(flame)>=1 then height(flame)=0
  radius#=height(flame)*0.05
  radius2#=radius#*1.5
  radius3#=radius#*1.2
  x#=radius#*sin(theta#+phase#)+radius2#*sin(phase2#)+radius3#*sin(phase3#)
  scale object flame,101-100*height(flame)/1.05,101-100*height(flame)/1.1,100
  position object flame,x#,height(flame),0
  alphavalue=50-height(flame)*50
  if alphavalue<0 then alphavalue=0
  set alpha mapping on flame,alphavalue
  increment#=rnd(5)/20.0+0.1
  inc theta#,increment#
  point object flame,camera position x(),0,camera position z()
  move object flame,-flame*0.01
next flame

inc phase2#,2
inc phase3#,5

endfunction

function camera()

inc camangle#,0.2
position camera 10*sin(camangle#+180),0,10*cos(camangle#+180)
point camera 0,0,0

endfunction

function alpha(image)

memblock=1


make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
depth=memblock dword(memblock,8)


bpp=depth/8 `bytes per pixel
for x=0 to sx-1
   for y=0 to sy-1
     pos=(x * bpp) + ((y * bpp) * sx) + 12

       b=memblock byte(memblock,pos)
       g=memblock byte(memblock,pos+1)
       r=memblock byte(memblock,pos+2)

      a=int((b+g+r)/3.0)

      if a>255 then a=255
      if a<0 then a=0

      write memblock byte memblock,pos+3,a

   next y
next x

make image from memblock image,memblock

delete memblock memblock

endfunction

z#=radius#*cos(theta#+phase#)+radius2#*cos(phase2#)+radius3#*cos(phase3#)

  radius#=height(flame)*0.03
  radius2#=radius#*1.05
  radius3#=radius#*1.02

set display mode 1024,768,32
sync on:sync rate 60
autocam off
color backdrop 0
hide light 0
set ambient light 0


global flameimage
global theta#
global phase2#
global phase3#
global camangle#

make_flame_image()
make_flame()
make_candle()
make_table()

do
  camera()
  flicker()
  sync
loop


function make_flame_image()

position camera 0,0,-2.1
make object sphere 1,1,50,50
ghost object on 1
color object 1,rgb(255,128,0)
make object sphere 2,0.7,50,50
ghost object on 2
disable object zdepth 2
make light 1
color light 1,rgb(255,255,100)
position light 1,0,0,-10
set light range 1,1200
x1=screen width()*0.35
x2=screen width()*0.65
y1=screen height()*0.3
y2=y1+(x2-x1)
flameimage=1
sync
get image flameimage,x1,y1,x2,y2,1
create bitmap 1,x2-x1,y2-y1
paste image flameimage,0,0,1
blur bitmap 1,3
get image flameimage,0,0,x2-x1,y2-y1,1
delete bitmap 1
alpha(flameimage)
delete object 1
delete object 2

endfunction

function make_flame()

dim height(100) as float

for flame=1 to 100
  make object plain flame,0.75,1
  texture object flame,flameimage
  height(flame)=(100-flame)*0.01
  set object transparency flame,2
  set object light flame,0
next flame

endfunction

function make_candle()

make object cylinder 1000,2
position object 1000,0,-2.5,0
scale object 1000,50,200,50
color object 1000,rgb(80,80,80)
make object cylinder 1001,0.2
position object 1001,0,-0.3,0
disable object zdepth 1001
scale object 1001,50,200,50
color object 1001,rgb(10,10,10)
ghost object on 1001,3

endfunction

function make_table()

make object plain 1002,10,10
pitch object down 1002,-90
position object 1002,0,-4,0
create bitmap 1,100,100
ink -1,0
box 0,0,100,100
ink 0,0
box 45,0,55,50
blur bitmap 1,3
get image 1002,0,0,100,100,1
delete bitmap 1
texture object 1002,1002

endfunction

function flicker()

for flame=1 to 100
  phase#=height(flame)*360
  if height(flame)>=1 then height(flame)=0
  radius#=height(flame)*0.05
  radius2#=radius#*1.1
  radius3#=radius#*1.2
  x#=radius#*sin(theta#+phase#+rnd(200))+radius2#*sin(phase2#+90)+radius3#*sin(phase3#+60)
  scale object flame,101-100*height(flame)/1.05,101-100*height(flame)/1.1,100
  position object flame,0,height(flame),0
  alphavalue=50-height(flame)*50
  if alphavalue<0 then alphavalue=0
  set alpha mapping on flame,alphavalue
  increment#=rnd(5)/20.0+0.1
  inc theta#,increment#
  point object flame,camera position x(),0,camera position z()
  move object flame,-flame*0.01
  move object left flame,x#
next flame

inc phase2#,2
inc phase3#,5

endfunction

function camera()

inc camangle#,0.2
position camera 10*sin(camangle#+180),0,10*cos(camangle#+180)
point camera 0,0,0

endfunction

function alpha(image)

memblock=1


make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
depth=memblock dword(memblock,8)


bpp=depth/8 `bytes per pixel
for x=0 to sx-1
   for y=0 to sy-1
     pos=(x * bpp) + ((y * bpp) * sx) + 12

       b=memblock byte(memblock,pos)
       g=memblock byte(memblock,pos+1)
       r=memblock byte(memblock,pos+2)

      a=int((b+g+r)/3.0)

      if a>255 then a=255
      if a<0 then a=0

      write memblock byte memblock,pos+3,a

   next y
next x

make image from memblock image,memblock

delete memblock memblock

endfunction

color object 1,rgb(0,0,250)
color object 2,RGB(255,175,0)

set display mode 1024,768,32
sync on:sync rate 60
autocam off
color backdrop 0
hide light 0
set ambient light 0
`set camera range 1,10000
fog on
fog color rgb(100,100,250)
fog distance 450

global flameimage
global blueflameimage
global whiteflameimage
global theta#
global phase2#
global phase3#
global camangle#

make_flame_image()
make_flame()
make_candle()
make_table()

numberofclouds=400
cloudseed=freeobject()
create_clouds(cloudseed,numberofclouds)

do
  camera()
  flicker()
  move_clouds(cloudseed,numberofclouds)
  sync
loop



function create_clouds(cloudseed,numberofclouds)

create bitmap 1,50,50
ink rgb(255,255,200),0
for x=1 to 1000
   ang=rnd(360)
   rad=rnd(20)
   box 25+sin(ang)*rad,25+cos(ang)*rad,rnd(3)+25+sin(ang)*rad,rnd(3)+25+cos(ang)*rad
next x
blur bitmap 1,4
cloudimage = freeimage()
get image cloudimage, 0, 0, 50, 50

delete bitmap 1


for cloudnumber=cloudseed to cloudseed+numberofclouds
make object plain cloudnumber,rnd(50)+100,rnd(50)+100
position object cloudnumber,rnd(1000)-500,rnd(100)+10,rnd(1000)-500
xrotate object cloudnumber,90
texture object cloudnumber,cloudimage
ghost object on cloudnumber,0
disable object zwrite cloudnumber
set object light cloudnumber,0
next n

endfunction

function move_clouds(cloudseed,numberofclouds)

for cloudnumber=cloudseed to cloudseed+numberofclouds
move object down cloudnumber,-.5
if object position z(cloudnumber)<-500 then position object cloudnumber,rnd(1000)-500,rnd(100)+10,500
next cloudnumber

endfunction


function freeobject()
   repeat
      inc n
   until object exist(n) = 0
endfunction n

function freeimage()
   repeat
      inc n
   until image exist(n) = 0
endfunction n

function make_flame_image()

position camera 0,0,-2.1
make object sphere 1,1,50,50
ghost object on 1
color object 1,rgb(255,128,0)
make object sphere 2,0.7,50,50
ghost object on 2
disable object zdepth 2
make light 1
color light 1,rgb(255,255,100)
position light 1,0,0,-10
set light range 1,1200
x1=screen width()*0.35
x2=screen width()*0.65
y1=screen height()*0.3
y2=y1+(x2-x1)
flameimage=1
blueflameimage=2
whiteflameimage=3
sync
get image flameimage,x1,y1,x2,y2,1
create bitmap 1,x2-x1,y2-y1
paste image flameimage,0,0,1
blur bitmap 1,3
get image flameimage,0,0,x2-x1,y2-y1,1
delete bitmap 1
alpha(flameimage)
blue(flameimage,blueflameimage)
white(flameimage,whiteflameimage)
delete object 1
delete object 2

endfunction

function make_flame()

dim height(100) as float

for flame=1 to 100
  make object plain flame,0.75,1
  texture object flame,flameimage
  if flame>60 and flame<75 then texture object flame,whiteflameimage
  if flame>90 then texture object flame,blueflameimage
  height(flame)=(100-flame)*0.01
  set object transparency flame,2
  set object light flame,0
next flame


endfunction

function make_candle()

make object cylinder 1000,2
position object 1000,0,-2.5,0
scale object 1000,50,200,50
color object 1000,rgb(80,80,80)
make object cylinder 1001,0.2
position object 1001,0,-0.3,0
disable object zdepth 1001
scale object 1001,50,200,50
color object 1001,rgb(10,10,10)
ghost object on 1001,3

endfunction

function make_table()

make object plain 1002,10,10
pitch object down 1002,-90
position object 1002,0,-4,0
create bitmap 1,100,100
ink rgb(150,150,150),0
box 0,0,100,100
for n=1 to 1000
  ink rgb(150+rnd(100),150+rnd(100),150+rnd(100)),0
  x=rnd(90)
  y=rnd(90)
  box x,y,x+rnd(10),y+rnd(10)
next n
ink 0,0
box 45,0,55,50
blur bitmap 1,3
get image 1002,0,0,100,100,1
delete bitmap 1
texture object 1002,1002

endfunction

function flicker()

for flame=1 to 100
  phase#=height(flame)*360
  if height(flame)>=1 then height(flame)=0
  radius#=height(flame)*0.05
  radius2#=radius#*1.1
  radius3#=radius#*1.2
  x#=radius#*sin(theta#+phase#+rnd(200))+radius2#*sin(phase2#+90)+radius3#*sin(phase3#+60)
  y#=radius#*sin(theta#+phase#+90)+radius2#*sin(phase2#+90)+radius3#*sin(phase3#+60)
  scale object flame,101-100*height(flame)/1.05,101-100*height(flame)/1.1,100
  position object flame,0,height(flame),0
  alphavalue=50-height(flame)*50
  if alphavalue<0 then alphavalue=0
  set alpha mapping on flame,alphavalue
  increment#=rnd(5)/20.0+0.1
  inc theta#,increment#
  point object flame,camera position x(),0,camera position z()
  move object flame,-flame*0.01
  if flame>60 and flame<75
    move object flame,0.4
    move object down flame,0.2
    scale object flame,85-75*height(flame),90,100
    set alpha mapping on flame,13
  endif
  move object left flame,x#
  move object down flame,y#
next flame

inc phase2#,2
inc phase3#,5

endfunction

function camera()

inc camangle#,0.2
position camera 10*sin(camangle#+180),0,10*cos(camangle#+180)
point camera 0,0,0

endfunction

function alpha(image)

memblock=1


make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
depth=memblock dword(memblock,8)


bpp=depth/8 `bytes per pixel
for x=0 to sx-1
   for y=0 to sy-1
     pos=(x * bpp) + ((y * bpp) * sx) + 12

       b=memblock byte(memblock,pos)
       g=memblock byte(memblock,pos+1)
       r=memblock byte(memblock,pos+2)

      a=int((b+g+r)/3.0)

      if a>255 then a=255
      if a<0 then a=0

      write memblock byte memblock,pos+3,a

   next y
next x

make image from memblock image,memblock

delete memblock memblock

endfunction

function blue(image,imageout)

memblock=1


make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
depth=memblock dword(memblock,8)


bpp=depth/8 `bytes per pixel
for x=0 to sx-1
   for y=0 to sy-1
     pos=(x * bpp) + ((y * bpp) * sx) + 12

       b=memblock byte(memblock,pos)
       g=memblock byte(memblock,pos+1)
       r=memblock byte(memblock,pos+2)

      r=int((g+r)/2.0)
      g=int((g+r)/2.0)
      b=int((b+g+r)/3.0)+50
      if b>255 then b=255

      write memblock byte memblock,pos,b
      write memblock byte memblock,pos+1,g
      write memblock byte memblock,pos+2,r

   next y
next x

make image from memblock imageout,memblock

delete memblock memblock

endfunction

function white(image,imageout)

memblock=1


make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
depth=memblock dword(memblock,8)


bpp=depth/8 `bytes per pixel
for x=0 to sx-1
   for y=0 to sy-1
     pos=(x * bpp) + ((y * bpp) * sx) + 12

       b=memblock byte(memblock,pos)
       g=memblock byte(memblock,pos+1)
       r=memblock byte(memblock,pos+2)

      r=r+100
      g=g+100
      b=b+100
      if r>255 then r=255
      if g>255 then g=255
      if b>255 then b=255

      write memblock byte memblock,pos,b
      write memblock byte memblock,pos+1,g
      write memblock byte memblock,pos+2,r

   next y
next x

make image from memblock imageout,memblock

delete memblock memblock

endfunction