PC Logo 分叉树

to shu :s :a
if :s<10 then stop
lt :a/2 fd :s ye3
shu :s/2 :a
bk :s
rt :a fd :s ye3
shu :s/2 :a
bk :s
lt :a/2
end
to ye3
lt 90
repeat 2[repeat 2[repeat 90[fd 10*0.0174 rt 1]rt 90]rt 45]
repeat 2[repeat 90[fd 10*0.0174 rt 1]rt 90]
end
to shugc :s :a
draw
shu :s :a
bk :s/2
ht
end

执行：shugc 60 60

TO AA :A
IF :A<10 THEN STOP
LT 45 FD :A
AA :A/2
BK :A RT 90 FD :A
AA :A/2
BK :A LT 45
END

执行:AA 100