LOGO-L> hexastar fractal

[MHELHEFNY@FRCU.EUN.EG]

;Hello
;Here is a simple code for a hexastar recursive shape.
;Best Regards
;Mhelhefny
;-------------
to go 
type (se "input "order "2-4 char 9) make "z rw ht
for [i 1 5][cs pu setxy 80 -280 pd hefny 180 :z :i pr "more make "y rc]
type se "again char 9 make "y rw if :y="y [go]
end

to hefny :l :order :n
if :order = 0 [stop]
pu fd :l pd
repeat 6 [fd :l lt 120 fd :l rt 120 hefny :l/4 :order-1 :n rt 60]
pu bk :l* :n pd 
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.