Sorry your browser is not supported!

lala:
sync on
sync rate 120
a#=0
b#=0
c#=0
d#=0

object#= rnd(2)
turn#= rnd (2)

if object exist (1)
delete object 1
endif
if object#=0
make object box 1,5,5,5
endif
if object#=1
make object cone 1,5
endif
if object#=2
make object sphere 1,5
endif
picker#= rnd (5)
color backdrop rgb(0,0,0)

do
color object 1,rgb(a#,b#,c#)
if picker#=0
if b#=0
inc a#,0.1
endif
if c#=0
if a#=>255
inc b#,0.1
endif
endif
if b#=>255
inc c#,0.1
endif
if c#=>255
gosub lala
endif
endif
if picker#=1
if c#=0
inc b#,0.1
endif
if a#=0
if b#=>255
inc c#,0.1
endif
endif
if c#=>255
inc a#,0.1
endif
if a#=>255
gosub lala
endif
endif
if picker#=2
if a#=0
inc c#,0.1
endif
if b#=0
if c#=>255
inc a#,0.1
endif
endif
if a#=>255
inc b#,0.1
endif
if b#=>255
gosub lala
endif
endif
if picker#=3
if b#=0
inc c#,0.1
endif
if a#=0
if c#=>255
inc b#,0.1
endif
endif
if b#=>255
inc a#,0.1
endif
if a#=>255
gosub lala
endif
endif
if picker#=4
if c#=0
inc a#,0.1
endif
if b#=0
if a#=>255
inc c#,0.1
endif
endif
if c#=>255
inc b#,0.1
endif
if b#=>255
gosub lala
endif
endif
if picker#=5
if a#=0
inc b#,0.1
endif
if c#=0
if b#=>255
inc a#,0.1
endif
endif
if a#=>255
inc c#,0.1
endif
if c#=>255
gosub lala
endif
endif
set cursor 0,0
print "red   ";int(a#)
print "green ";int(b#)
print "blue  ";int(c#)

if turn#=1
turn object left 1,1
endif

if turn#=2
turn object left 1,-1
endif

if turn#=0
zrotate object 1,d#
inc d#
endif


sync
loop