;Chaos Punkte und Linien
;mit Enter zwischen Punkte und Linien wechseln

zells=100		;anzahl der Chaos Punkte

Graphics 640,480,16,1
Dim x(10001)
Dim y(10001)
Dim x2(10001)
Dim y2(10001)
Dim r(10001)
Dim g(10001)
Dim b(10001)


SeedRnd MilliSecs()
For i= 0 To zells
x(i)=Rand(640)
y(i)=Rand(480)
x2(i)=Rand(640)
y2(i)=Rand(480)

r(i)=Rand(255)
g(i)=Rand(255)
b(i)=Rand(255)

Next

SetBuffer BackBuffer()


Repeat
Cls

For i=0 To zells
If x(i) > x2(i) Then x(i)=x(i)-1
If y(i) > y2(i) Then y(i)=y(i)-1
If x(i) < x2(i) Then x(i)=x(i)+1
If y(i) < y2(i) Then y(i)=y(i)+1
If x(i)= x2(i) Then 
		x2(i)=Rand(640)
		r(i)=Rand(255)
		g(i)=Rand(255)
		b(i)=Rand(255)
		End If

If y(i)= y2(i) Then 
		y2(i)=Rand(480)
		r(i)=Rand(255)
		g(i)=Rand(255)
		b(i)=Rand(255)
		End If
Plot x(i),y(i)
x(zells+1)=x(0)
y(zells+1)=y(0)
Color r(i),g(i),b(i)
If l=1 Line x(i),y(i),x(i+1),y(i+1)
Next

If KeyHit(28) If l=0 Then l=1 Else l=0

Flip 
Until KeyDown(1)

End