LOGO-L> snow flake hexagon

[MHELHEFNY@FRCU.EUN.EG]

;Hello turtlers
;Here is the code to draw a snow flake hexagon
;Best Regards.
;Mhelhefny
;--------------------- 
to flake :lev :l
if :lev = 0 [fd :l*3 stop]
flake :lev- 1 :l/3
arc2 80 :l/3
flake :lev- 1 :l/3
arc2 -160 :l/3
flake :lev- 1 :l/3
arc2 80 :l/3
flake :lev- 1 :l/3
setpc :lev+2
end

to go
cs ht pu setxy 120 150 pd main 4 120
end

to main :lev :l
cs ht pu setxy 60 70 pd repeat 6[lt 60 flake :lev :l] 
pu setxy 0 35 pd repeat 6[lt 60 flake :lev :l/2]
end
;----------------------
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.