
to xebsjx18 :s :n  ;主程序 xebsjx18 230 4
if :n=0 then [cfx :s stop]
pu fd :s*0.618/2 pd
xebsjx18 :s/2 :n-1
pu rt 90 fd :s/2 lt 90 fd :s*0.618*0.167 pd
xebsjx18 :s/2 :n-1
pu bk :s*0.618*0.667 lt 90 fd :s*0.25 rt 90 pd
xebsjx18 :s/2 :n-1
pu lt 90 fd :s/4 rt 90 pd
end
to cfx :s
repeat 2[fd :s*0.618 rt 90 fd :s rt 90]
end
