Type Node
 Field x,y,w,l
 Field sx,sy
End Type

Function CreateNode(x,y,w,l, sx,sy) ; sx und sy = Ursprung
 If Nodes < MaxNodes Then
 
  n.node = New node
  n\x = x
  n\y = y
  n\w = w
  n\l = l
  n\sx = sx
  n\sy = sy
 
  Nodes = Nodes + 1

  CreateNode((n\sx + Cos(n\w-10) * n\l), (n\sy + Sin(n\w-10) * n\l), n\w-10, n\l/2,  n\x, n\y)
 
 EndIf
End Function

Graphics 800,600,32,2
SetBuffer(BackBuffer())

Type open
   Field x#,y#
   Field length#
   Field parent.open
   Field grad#
   Field r,g,b
   Field close
End Type

a.open = New open
a\grad = -90
a\x = 400
a\y = 500
a\length = 300

timer = CreateTimer(25)
While Not KeyHit(1)
   WaitTimer(timer)
   Cls
   
   For a.open = Each open
      doKnot(a.open)
      If a\parent <> Null
         Color(a\r,a\g,a\b)
         Line(a\x,a\y,a\parent\x,a\parent\y)
      End If
      count = count + 1
   Next
   Text 10,10,count
   count = 0
   Flip()
Wend

Function doKnot(a.open)
   If a\close > 4 Then Return
   If a\length < 10 Then Return
   
   a\close = a\close + 1
   
   an.open = New open
   an\length = a\length / 2
   an\grad = a\grad + Rand(-40,40)
   an\x = a\x + an\length * (Cos(an\grad))
   an\y = a\y + an\length * (Sin(an\grad))
   an\parent = a
   
   an\r = Rand(50,255)
   an\g = Rand(50,255)
   an\b = Rand(50,255)
End Function

Type Node
 Field x,y,w,l
 Field sx,sy
 Field parent.Node
End Type


Function CreateNode(x,y,w,l, Ursprung.node) ; sx und sy = Ursprung
 If Nodes < MaxNodes Then
 
  n.node = New node
  parent = Ursprung
  n\x = x
  n\y = y
  n\w = w
  n\l = l
  n\sx = Ursprung\x;sx
  n\sy = Ursprung\y;sy
 
  Nodes = Nodes + 1

  CreateNode((n\sx + Cos(n\w-10) * n\l), (n\sy + Sin(n\w-10) * n\l), n\w-10, n\l/2,  n.node)
 
 EndIf
End Function

Line(a\x, a\y, a\parent\x, a\parent\y)