Code Snippets->Simple effect using lines
D
Dgamer Joined: 30th Sep 2002
Location:
Posted: 12th Aug 2003 7:11
Here ya go

+ Code Snippet
sync on
sync rate 40
randomize timer()

do
randomize timer()
a=rnd(255)
b=rnd(255)
c=rnd(255)

for x=1 to 360
  inc i
randomize timer()

ink rgb(0,0,0),0
  line 320,240,320+sin(i)*400,240+cos(i)*400
ink rgb(rnd(20)+(a),rnd(20)+(b),rnd(20)+(c)),0

  line 320,240,320+sin(i)*400,240+cos(i)*400

  sync
next x

loop
S
stora Joined: 4th Aug 2003
Location: United Kingdom
Posted: 13th Aug 2003 22:43
Its called a moire pattern.

This was also one of my first programs, back in the Sinclair Spectrum days.