LOGO-L> Fractals

[MHELHEFNY@FRCU.EUN.EG]

HELLO YEHUDA KATZ

HERE IS ANOTHER VARIANT OF THE STAR WRITTEN IN YOUR STYLE
I HOPE YOU WILL LIKE IT.

TO MAIN
CS PU SETXY 60 -160 PD
PR [WHICH ORDER 3 -8]
MAKE "B RW
STAR 120 :B
PRINT [MORE]
MAKE "K RW
MAKE "K FIRST :K
IF :K = "Y [MAIN]
END

TO STAR :lENGTH :ORDER
IF :lENGTH>12[
REPEAT :ORDER[fd :LENGTH RT 360/ :ORDER STAR :lENGTH/3 :ORDER FD :lENGTH LT (720/ :ORDER)]]
END

BEST REGARDS
M.H.ELHEFNI
---------------------------------------------------------------
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.