SCREEN 640,480


Repeat
Lock()
Randomize 9
rot# = Sin(Timer() / 8.0) * 1
ang# = Timer() / 32.0
dist# = -50
phase# = Timer()
rekur(320 - Cos(ang)*dist, 320-Sin(ang)*dist, 9, 180+ang, 13 + Sin(Timer() / 15.0)*10, 0 )

Unlock()

DrawScreen
Forever

Function rekur(xx#,yy#,r,a#,l#, aukee#)
If r>0 Then
	t# = 12.0
	scale# = 1.2
	branch# = 35.0 + aukee
	hiljennys# = 0
	aa# = a + Rnd(-t, t)
	x# = xx + Cos(a) *l
	y# = yy + Sin(a) *l

	pos = Abs( 9-(Int((Timer() / 100.0)) Mod 10))

	close# = Abs(r- pos)

	c = close*20
	Color c, c, c


	Line xx,yy,x,y

	rekur(x,y,r-1,aa-branch,l*scale,aukee#)
	rekur(x,y,r-1,aa+branch,l*scale, aukee#)

EndIf

EndFunction