%this creates a regular fractal tree, the angles are controlled by mouse's y position
setscreen ("graphics:max,max")
var cnt := 0
proc frac (x, y, ang, leng, n, ang2 : real)
    if n > 0 then
        Draw.ThickLine (round (x), round (y), round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), n div 3, 255)

        frac (round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), ang + ang2, leng - 10, n - 1, ang2)
        frac (round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), ang - ang2, leng - 10, n - 1, ang2)
    end if
end frac

var mx, my, mb : int
setscreen ("offscreenonly")
loop
    mousewhere (mx, my, mb)
    frac (maxx div 2, 0, 90, 100, 7, (maxy - my) div 20)
    View.Update
    cls
end loop

setscreen ("graphics:max,max")
var cnt := 0
proc frac (x, y, ang, leng, n : real)
    if n > 8 then
        Draw.ThickLine (round (x), round (y), round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), n div 2, RGB.AddColor (.3, .3, 0))
    else
        Draw.ThickLine (round (x), round (y), round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), n div 2, RGB.AddColor (0, Rand.Real, 0))
    end if
    if n > 0 then
        frac (round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), ang + Rand.Int (5, 15), leng - Rand.Int (1, 5), n - 1)
        frac (round (((cosd (ang)) * leng) + x), round (((sind (ang)) * leng) + y), ang - Rand.Int (5, 15), leng - Rand.Int (1, 5), n - 1)
    end if
end frac
frac (maxx div 2, 0, 90, 50, 16)