Sorry your browser is not supported!

Rem Project: speedo
Rem Created: 27/05/2006 20:26:43

Rem ***** Main Source File *****
sync on
sync rate 0
color backdrop 0

autocam off
position camera 0,0,0,-150


make object sphere 1,10
make object cylinder 2,10
make object cone 3,10
make mesh from object 1,1
make mesh from object 2,2
make mesh from object 3,3
delete object 2
delete object 3
add limb 1,1,2
add limb 1,2,3
offset limb 1,1,0,5,0
offset limb 1,2,0,15,0
scale object 1,50,200,50
make object sphere 2,10
add limb 2,1,2
add limb 2,2,1
offset limb 2,1,0,5,0
offset limb 2,2,0,10,0
scale object 2,50,50,50
 for i = 1 to 27
      clone object i+2,2
            position object 2+i,((-sin(i*-10-220))*49),((cos(i*-10-220))*49),0
      zrotate object 2+i,i*-10-220

   next i
delete object 2
roll object right 1,220
fix object pivot 1
do
roll object right 1,wrapvalue(360)+.1
sync
loop

Rem Project: speedo
Rem Created: 27/05/2006 20:26:43

Rem ***** Main Source File *****
sync on
sync rate 0
color backdrop 0

autocam off
position camera 0,0,0,-150


make object sphere 1,10
make object cylinder 2,10
make object cone 3,10
make mesh from object 1,1
make mesh from object 2,2
make mesh from object 3,3
delete object 2
delete object 3
rem turn the above objects into one
rem make pointer
add limb 1,1,2
add limb 1,2,3
offset limb 1,1,0,5,0
offset limb 1,2,0,15,0
scale object 1,50,200,50
rem make bumps
make object sphere 2,10
add limb 2,1,2
add limb 2,2,1
offset limb 2,1,0,5,0
offset limb 2,2,0,10,0
scale object 2,50,50,50

rem make numbers
cls
for k=0 to 13
make object plain 30+k,20,20
rem put 0 on first image
if k=0
   text 0,0,"0"
   get image 1+k,0,0,50,50
   texture object 30+k,k+1
   cls
else
   text 0,0,str$(k*10)
   get image 1+k,0,0,50,50
   texture object 30+k,k+1
endif
cls
next k
 cls
rem put bumps and numbers in a curve
for i = 1 to 14
   clone object i+3,2
rem position bumps
   position object 3+i,((-sin(i*-20-220))*49),((cos(i*-20-220))*49),0
rem position number
   position object 29+i,((-sin(i*-20-225))*55),((cos(i*-20-225))*55),0
rem turn bumps
   zrotate object 3+i,i*-20-220
rem turn number
   zrotate object 29+i,i*-20-225
next i
rem fix pointer to start at 10
 roll object right 1,220
 fix object pivot 1
 delete object 2

do
roll object right 1,wrapvalue(360)+.1
sync
loop