Liberty BASIC Community Wiki - fractel Phytagoras

Older Version Newer Version

bluatigro Apr 4, 2010

WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
global w2 , qx
w2 = sqr( 2 ) / 2
qx = 5
nomainwin
open "Pytagoras" for graphics as #m
#m "trapclose [quit]"
timer 1000 , [tmr]
wait
[tmr]
#m "cls"
#m "goto " ; 400 + qx / 2 ; " 500"
#m "north"
#m "down"
#m "size 5"
call tree qx
#m "up"
#m "flush"
qx = qx + 1
wait
sub tree q
if q < 30 then
#m "go " ; q
#m "turn 90"
#m "go " ; q
#m "turn 90"
#m "go " ; q
else
#m "go " ; q
#m "turn -45"
call tree q * w2
#m "turn -90"
call tree q * w2
#m "turn -45"
#m "go " ; q
end if
end sub
[quit]
close #m
end