Try it out:
hide mouse
sync on
print "Mode 1: Standard Rotate"
print "Mode 2: Complex Rotate"
print "Mode 3: Random Rotate"
print "Mode 4: User Rotate"
input "Enter mode>",mode
if mode = 4
input "Enter side 1 x rotation>",e
input "Enter side 2 x rotation>",f
input "Enter side 3 x rotation>",g
input "Enter side 4 x rotation>",h
input "Enter side 1 y rotation>",a
input "Enter side 2 y rotation>",b
input "Enter side 3 y rotation>",c
input "Enter side 4 y rotation>",d
input "Enter side 1 z rotation>",i
input "Enter side 2 z rotation>",j
input "Enter side 3 z rotation>",k
input "Enter side 4 z rotation>",l
endif
make object triangle 1,0,0,0,5,0,0,2.5,5,2.5
color object 1,rgb(rnd(255),rnd(255),rnd(255))
make object triangle 2,5,0,0,5,0,5,2.5,5,2.5
color object 2,rgb(rnd(255),rnd(255),rnd(255))
make object triangle 3,5,0,5,0,0,5,2.5,5,2.5
color object 3,rgb(rnd(255),rnd(255),rnd(255))
make object triangle 4,0,0,5,0,0,0,2.5,5,2.5
color object 4,rgb(rnd(255),rnd(255),rnd(255))
do
ax1# = object angle x(1)
ax2# = object angle x(2)
ax3# = object angle x(3)
ax4# = object angle x(4)
ay1# = object angle y(1)
ay2# = object angle y(2)
ay3# = object angle y(3)
ay4# = object angle y(4)
az1# = object angle z(1)
az2# = object angle z(2)
az3# = object angle z(3)
az4# = object angle z(4)
if mode = 1
yrotate object 1,wrapvalue(ay1#+5)
yrotate object 2,wrapvalue(ay2#+5)
yrotate object 3,wrapvalue(ay3#+5)
yrotate object 4,wrapvalue(ay4#+5)
xrotate object 1,wrapvalue(ax1#+5)
xrotate object 2,wrapvalue(ax2#+5)
xrotate object 3,wrapvalue(ax3#+5)
xrotate object 4,wrapvalue(ax4#+5)
zrotate object 1,wrapvalue(az1#+5)
zrotate object 2,wrapvalue(az2#+5)
zrotate object 3,wrapvalue(az3#+5)
zrotate object 4,wrapvalue(az4#+5)
endif
if mode = 2
yrotate object 1,wrapvalue(ay1#+5)
yrotate object 2,wrapvalue(ay2#+4)
yrotate object 3,wrapvalue(ay3#+3)
yrotate object 4,wrapvalue(ay4#+2)
xrotate object 1,wrapvalue(ax1#+1)
xrotate object 2,wrapvalue(ax2#+0)
xrotate object 3,wrapvalue(ax3#-1)
xrotate object 4,wrapvalue(ax4#-2)
zrotate object 1,wrapvalue(az1#-3)
zrotate object 2,wrapvalue(az2#-4)
zrotate object 3,wrapvalue(az3#-5)
zrotate object 4,wrapvalue(az4#-6)
endif
if mode = 3
yrotate object 1,wrapvalue(ay1#+(rnd(5)-rnd(10)))
yrotate object 2,wrapvalue(ay2#+(rnd(5)-rnd(10)))
yrotate object 3,wrapvalue(ay3#+(rnd(5)-rnd(10)))
yrotate object 4,wrapvalue(ay4#+(rnd(5)-rnd(10)))
xrotate object 1,wrapvalue(ax1#+(rnd(5)-rnd(10)))
xrotate object 2,wrapvalue(ax2#+(rnd(5)-rnd(10)))
xrotate object 3,wrapvalue(ax3#+(rnd(5)-rnd(10)))
xrotate object 4,wrapvalue(ax4#+(rnd(5)-rnd(10)))
zrotate object 1,wrapvalue(az1#+(rnd(5)-rnd(10)))
zrotate object 2,wrapvalue(az2#+(rnd(5)-rnd(10)))
zrotate object 3,wrapvalue(az3#+(rnd(5)-rnd(10)))
zrotate object 4,wrapvalue(az4#+(rnd(5)-rnd(10)))
endif
if mode = 4
yrotate object 1,wrapvalue(ay1#+a)
yrotate object 2,wrapvalue(ay2#+b)
yrotate object 3,wrapvalue(ay3#+c)
yrotate object 4,wrapvalue(ay4#+d)
xrotate object 1,wrapvalue(ax1#+e)
xrotate object 2,wrapvalue(ax2#+f)
xrotate object 3,wrapvalue(ax3#+g)
xrotate object 4,wrapvalue(ax4#+h)
zrotate object 1,wrapvalue(az1#+i)
zrotate object 2,wrapvalue(az2#+j)
zrotate object 3,wrapvalue(az3#+k)
zrotate object 4,wrapvalue(az4#+l)
endif
sync
loop
"Computers in the future may weigh no more then
1.5 tons.
- Popular Mechanics, 1949