I made a cheap screen saver out of boredom, which is a
really difficult material to work with.
It just uses 9 boxes and a semi-random color change formula.
(I know, I know... all your dreams are finally fulfilled.)
set display mode desktop width(),desktop height(),32
maximize window:set window layout 0,0,0:hide mouse:sync on:sync rate 30
r1=rnd(255):g1=rnd(255):b1=rnd(255)
r2=rnd(255):g2=rnd(255):b2=rnd(255)
rr1=1:gg1=1:bb1=1
rr2=1:gg2=1:bb2=1
randomize timer()
do
`TOP THREE
box 0,0,screen width()*.33,screen height()*.33,color1,color1,color2,color1
box screen width()*.33,0,screen width()*.66,screen height()*.33,color2,color1,color2,color1
box screen width()*.66,0,screen width(),screen height()*.33,color2,color1,color1,color1
`MID THREE
box 0,screen height()*.33,screen width()*.33,screen height()*.66,color1,color1,color2,color2
box screen width()*.33,screen height()*.33,screen width()*.66,screen height()*.66,color2,color2,color2,color2
box screen width()*.66,screen height()*.33,screen width(),screen height()*.66,color2,color2,color1,color1
`BOTTOM THREE
box 0,screen height()*.66,screen width()*.33,screen height(),color1,color1,color1,color2
box screen width()*.33,screen height()*.66,screen width()*.66,screen height(),color1,color2,color1,color2
box screen width()*.66,screen height()*.66,screen width(),screen height(),color1,color2,color1,color1
inc r1,rnd(3)*rr1
inc g1,rnd(3)*gg1
inc b1,rnd(3)*bb1
inc r2,rnd(3)*rr2
inc g2,rnd(3)*gg2
inc b2,rnd(3)*bb2
if r1<0 then r1=0:rr1=-rr1
if r1>255 then r1=255:rr1=-rr1
if g1<0 then g1=0 :gg1=-gg1
if g1>255 then g1=255:gg1=-gg1
if b1<0 then b1=0 :bb1=-bb1
if b1>255 then b1=255:bb1=-bb1
if r2<0 then r2=0 :rr2=-rr2
if r2>255 then r2=255:rr2=-rr2
if g2<0 then g2=0 :gg2=-gg2
if g2>255 then g2=255:gg2=-gg2
if b2<0 then b2=0 :bb2=-bb2
if b2>255 then b2=255:bb2=-bb2
color1=rgb(r1,g1,b1)
color2=rgb(r2,g2,b2)
sync
LOOP
This could have been done in way less lines probably, but a program this small generally isn't going to run into performance issues.
666GO†O666
