Pythagorasbaum in Logo

Hallo,

ich brauche einen Pythagorasbaum in Logo. Kann mir da jemand helfen?

MfG

Babba

to Pythagoras :stufe :laenge
test :stufe=0
iftrue [quadrat :laenge]
iffalse [
quadrat :laenge
repeat :stufe [
right 53.13
make 'laenge :laenge*4/5
quadrat :laenge
make 'laenge :laenge*3/4
quadrat :laenge
left 90
forward :laenge
left 90 ]
]
end

to Quadrat :laenge
repeat 4 [ forward :laenge right 90 ]
right 90
forward :laenge
end

Das habe ich, aber irgendwie geht das immer in die falsche Richtung und ich kann auch nicht auf beide neuen Quadrate nochmal Quadrate draufzeichnen.

Wenn ich den Winkel in die andere Reichtung mache, wird es an einer anderen Stelle wieder falsch...