
to sjx2 :b :n ;sjx2 500 5
draw
pu setxy[-160 -160] pd
xb2 :b :n
end
to xb2 :b :n
if :n=0 then [rt 30 repeat 3[fd :b rt 120] pu rt 45 fd :b/2 pd setpc  12 fill pu setpc 0 bk :b/2 lt 45 pd  lt 30 stop]
xb2 :b/2 :n-1
pu rt 30 fd :b/2 lt 30 pd
xb2 :b/2 :n-1
pu rt 30 fd :b/2 rt 120 fd :b
rt 120 fd :b/2 rt 90 pd
xb2 :b/2 :n-1
pu lt 90 fd :b/2 rt 90 pd
end

