LOGO-L> octastar fractal

[MHELHEFNY@FRCU.EUN.EG]

to a
;Hello Every body
;Here is a code for an octastar fractal.
;Best Regards
;Mhelhefny
;-------------
end

to go 
ht for [j 2 4][for [i 1 5][cs pu sety -135 pd hefny 110 :j :i wait 40]wait 40]
end

to hefny :l :order :n
if :order = 0 [stop]
pu fd :l pd
repeat 8 [fd :l lt 45 fd :l rt 45 hefny :l/4 :order-1 :n rt 135]
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.