I looked at Yuri's graphic things, it was pretty hastily written so I tried to clean it up and make the colours better but after all my work I found the thread was auto-locked. This board has gotten so inactive that threads on the first page are over year old!
so here it is, I was going to explain subroutines but seeing as this is a year old, Yuri has hopefully learned about them by now.
set display mode 640,480,32
hide mouse
sync on
sync rate 100
randomize timer()
gosub curve
gosub lines
gosub blendwave
gosub circleblend
gosub circles
gosub circlewipe
gosub square
gosub prism
gosub waterfall
gosub triangle
gosub funky
gosub curtain
wait 2000
end
rem === SUBROUTINES ===
curtain:
for a= 0 to 479
for b = 0 to 639
g=abs(sin(b*(639/360.0)) + cos(a*(479/360.0)))*255
ink rgb(g,0,0),0
dot b,a
next b
sync
next a
return
`//
funky:
for a=1 to 120
ink a*10000,0
for b=1 to a+1
line sin(a*1000),b*10,a+300,b+300
next b
sync
next a
return
`//
triangle:
for a=1 to 320
g=a*(255/320.0)
ink rgb(g,255,g),0
for b=1 to a+1
dot a*2,b*1.5
next b
sync
next a
return
`//
circlewipe:
for a=1 to 640
g=a*(255/60.0)
ink rgb(g,0,0),0
circle 320,240,a
circle 321,240,a
sync
next a
return
`//
square:
for a=1 to 200
g=a*(255/200.0)
ink rgb(255,255-g,255-g),0
for b=1 to a+1
dot tan(a*(200/180.0))+320,tan(b*(201/180.0))+240
next b
sync:wait 10
next a
return
`//
prism:
for a=1 to 200
g=a*(255/200.0)
ink rgb(g,255-g,255),0
for b=1 to a+1
c=tan(a*100)
d=tan(b*100)
e=c*b
dot e+320,a+240
dot b+320,e+240
next b
sync
next a
return
`//
waterfall:
for a=1 to 60
g=a*(255/60.0)
ink rgb(0,255-g,255),0
for b=a-20 to a+20
dot atanfull(a+rnd(10),b)+120,atanfull(b+rnd(10),a)+180
next b
sync:wait 10
next a
return
`//
circleblend:
for a=0 to 640
g=a*(255/640.0)
ink rgb(255-g,g,g),0
circle a,240,40
sync
next a
return
`//
circles:
for a=20 to 50
for b=1 to a+1
g=b*(255/(a+1.0))
ink rgb(g,0,255-g),0
circle a+320,b+240,tan(sqrt(a*b*(rnd(100)+1)))
next b
sync
next a
return
`//
curve:
for a=1 to 640
g=a*(255/640.0)
ink rgb(255,g,g),0
line a,0,480,a
sync
next a
return
`//
lines:
for a=1 to 30
g=a*(255/30.0)
ink rgb(255,g,0),0
for b=1 to a+1
line a+b*a-b,a*b+a/b,a+b/a-b,a*b-a/b
sync
next b
next a
return
`//
blendwave:
for a=1 to 60
g=a*(255/60.0)
ink rgb(255,g,255),0
for b=1 to a+1
line a+b,a-b,a*b,a/b
next b
sync
next a
return
`//
