sync on
autocam off
color backdrop 0
position camera 0,0,-50
make object cylinder 1,1
`big bone mesh
scale object 1,300,1000,300
make mesh from object 1,1
`medium bone mesh
scale object 1,100,1000,100
make mesh from object 2,1
`small bone mesh
scale object 1,70,200,70
make mesh from object 3,1
delete object 1
 
`shoulder joint
make object sphere 1,4,20,20
position object 1,0,10,0
`upper arm
add limb 1,1,1
offset limb 1,1,0,-5,0
`elbow joint
make object sphere 2,4,20,20
glue object to limb 2,1,1
position object 2,0,-5,0
`lower arm
add limb 2,1,2
add limb 2,2,2
offset limb 2,1,-1,-5,0
offset limb 2,2,1,-5,0
`wrist joint
make object sphere 3,2,20,20
glue object to limb 3,2,2
position object 3,-1,-5,0
make object sphere 4,2,20,20
glue object to limb 4,3,0
position object 4,-1,-1,0
make object sphere 5,2,20,20
glue object to limb 5,3,0
position object 5,1,-1,0
`upper fingers
add limb 3,1,3
offset limb 3,1,-1.5,-2.5,0
add limb 3,2,3
offset limb 3,2,-0.5,-2.5,0
add limb 3,3,3
offset limb 3,3,0.5,-2.5,0
add limb 3,4,3
offset limb 3,4,1.5,-2.5,0
`knuckle joints
make object sphere 6,1
glue object to limb 6,3,1
position object 6,0,-1,0
make object sphere 7,1
glue object to limb 7,3,2
position object 7,0,-1,0
make object sphere 8,1
glue object to limb 8,3,3
position object 8,0,-1,0
make object sphere 9,1
glue object to limb 9,3,4
position object 9,0,-1,0
`lower fingers
add limb 6,1,3
offset limb 6,1,0,-1,0
add limb 7,1,3
offset limb 7,1,0,-1,0
add limb 8,1,3
offset limb 8,1,0,-1,0
add limb 9,1,3
offset limb 9,1,0,-1,0
 
selected=1
 
do
my#=mousemovey()
mx#=mousemovex()
for object=1 to 9
if object=selected then color object object,rgb(255,0,0) else color object object,rgb(255,255,255)
next object
if mousez()>mz
  inc selected
  if selected=4 then selected=6
  if selected=10 then selected=1
endif
if mousez()<mz
  dec selected
  if selected=5 then selected=3
  if selected=0 then selected=9
endif
mz=mousez()
 
if mouseclick()=1
xrotate object selected,object angle x(selected)+my#
yrotate object selected,object angle y(selected)+mx#
endif
 
sync
loop