Re: LOGO-L> Fractals

[Yehuda Katz <yehuka@beitberl.beitberl.ac.il>]

MHELHEFNY@FRCU.EUN.EG wrote:
> 
> 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
 

Hello M.H.ELHEFNI

*My style* calls for avoiding MAKE's - when possible.

So here's YOUR program MY style:

======================================
to main
cs ct ht
pu setxy 80 -105 pd
pr[How many sides? [3-8]]
star 80 rc 3
pr[Any key to run again, Esc to quit]
if not rc=char 27[main]
end

to star :size :sides :level
if :level=0[stop]
repeat :sides[draw lt 360/:sides]
end

to draw
fd :size rt 360/:sides
star :size/3 :sides :level-1
fd :size lt 360/:sides
end
======================================

Regards,

[[Yehuda]]


---------------------------------------------------------------
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.