SCREEN 640,480


Repeat
Lock()
Randomize 9
rot# = Sin(Timer() / 8.0) * 1
ang# = Timer() / 32.0
dist# = 200
phase# = Timer()
rekur(320 - Cos(ang)*dist, 320-Sin(ang)*dist, 9, 270.0 + ang#, 13 + Sin(Timer()/19.0)*2.0, 0, phase)

Unlock()

DrawScreen
Forever

Function rekur(xx#,yy#,r,a#,l#, trot#, ph#)
If r>0 Then
	t# = 12.0

	branch# = 30.0
	hiljennys# = 0
	aa# = a + Rnd(-t, t) + trot
	x# = xx + Cos(a) *l
	y# = yy + Sin(a) *l

	c# = int(Abs(r - phase)) Mod 9
	c=c*10
	Color c, c, c

	Line xx,yy,x,y
	If Rand(1) Then
		rr = Rand(1)
		Select rr
		Case 0
			rekur(x,y,r-1,aa-branch,l*scale, trot * hiljennys, ph#)
		Case 1
		rekur(x,y,r-1,aa+branch,l*scale,  trot * hiljennys, ph#)
		EndSelect
	Else
		rekur(x,y,r-1,aa-branch,l*scale, trot * hiljennys, ph#)
	rekur(x,y,r-1,aa+branch,l*scale, trot * hiljennys, ph#)
	EndIf
EndIf

EndFunction