sync on
sync rate 60
ink rgb(232,232,232)
box 0,0,8,8
get image 1,0,0,7,7,1
ink rgb(52,52,52)
box 0,0,8,8
get image 2,0,0,7,7,1
dim scal(360)
for f=0 to 360
a#=80+56*sin(f)
scal(f)=a#+(f*0.001)
next f
make object cube 1,3
rotate object 1,0,0,0
fix object pivot 1
scale object 1,270,100,200
hide limb 1,0
clone object 2,1
make mesh from object 1,1
p=1:a=1:obj=1
gosub maker
p=-1:a=1:obj=2
gosub maker
delete mesh 1
color backdrop rgb(0,60,90)
set text size 20
a=3
t=1
position object 1,0,0,1:yrotate object 1,0
position object 2,0,0,1:yrotate object 2,3
for f=6 to 357 step 3
clone object a,t
inc t:if t>2 then t=1
position object a,0,0,1
yrotate object a,f
inc a
gog:
next f
x=0:z=-500
set camera fov 100
set ambient light 154
d#=200.0
``````````````````````````
do
x#=220*sin(delay#)
y#=220*cos(delay#)
z#=d#*cos(delay#)
if delay#>100.0 then inc d#,0.05:inc y#,0.001
position camera x#*0.5,z#,y#*0.33
point camera 0,0,0
inc delay#,0.25
text 0,0,str$(c)+" "+str$(screen fps())
`
sync
Loop
`````````````````````````````
maker:
for f=3 to 360 step 3
x#=120+100*sin(f)
y#=100*cos(f)
add limb obj,a,1
offset limb obj,a,x#,y#,5
show limb obj,a
b=scal(f)
scale limb obj,a,b*1.1,b*1.5,b*1.1
p=-p
if p>0
texture limb obj,a,1
else
texture limb obj,a,2
endif
inc a
next f
return
