kturtle-script-v1.0 # Tree @(reset) @(canvassize) 800@(,) 600 @(go) 400@(,) 500 @(learn) tree $stufe@(,) $laenge { @(if) $stufe > 0 { @(forward) $laenge @(turnleft) 60 tree $stufe-1@(,) 0.7*$laenge @(turnright) 120 tree $stufe-1@(,) 0.7*$laenge @(turnright) 120 @(forward) $laenge @(turnleft) 180 } } tree 15@(,) 150