autocam off
set display mode 1024,768,32
color backdrop 0
position camera 0,2,-15
point camera 0,0,0
get image 1,0,0,1,1,1
ink rgb(255,255,0),0
box 0,0,600,300
get image 2,0,0,600,600,1
cls
make object sphere 1,1,20,20
texture object 1,2
set object transparency 1,5
yrotate object 1,90
fix object pivot 1
make object sphere 2,1,20,20
texture object 2,2
set object transparency 2,5
xrotate object 2,180
fix object pivot 2
position object 2,0,0.0,0.0
glue object to limb 2,1,0
make object sphere 3,.1
texture object 3,1
position object 3,.2,.4,.4
glue object to limb 3,1,0
make object sphere 4,.1
texture object 4,1
position object 4,-.2,.4,.4
glue object to limb 4,1,0
do
xrotate object 1,-30*sin(angle#)
xrotate object 2,abs(45*sin(angle#*2))
yrotate object 1,angle#
position object 1,5*sin(angle#),0,5*cos(angle#)
angle#=wrapvalue(angle#)+1
loop