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