LOGO-L> Re: Carpet

["Olga Tuzova" <olgatu@ort.spb.ru>]

> Date:          Fri, 29 Aug 1997 01:41:08 +0300
> From:          Yehuda Katz <yehuka@beitberl.beitberl.ac.il>
> To:            Logo-L <Logo-L@gsn.org>
> Cc:            olgatu@ort.spb.ru
> Subject:       Carpet

> Hello,
> 
> Some time ago I showed the attached pattern, which I found in our hotel
> in Las Vegas recently.
> 
> I created it recursively with UCBLogo, but it should run on most Logos,
> maybe with very slight changes.
> 
> Here's one possible way to do it:
> 
> ==============================
> to main
> cs ht
> do 12 7
> end
> 
> to do :size :times
> repeat 6[pattern :times rt 60]
> end
> 
> to pattern :times
> repeat 3[draw :times rt 120]
> end
> 
> to draw :times
> if :times<1[stop]
> fd :size lt 60
> fd :size rt 60
> fd :size pattern :times-1
> end
> ==============================
> 
> Let it to run for a while: recursive graphics take sometimes a long
> time!
> 
> Enjoy,
> 
> [[Yehuda]]
> 
>
Yehuda,

it's GREAT!

I think there are long pauses in drawing just because the computer
can't beleave it's eyes ( I too) -- how such beautiful pictures can 
be made with such "simple" code.

Thank you.
Olga.
 
---------------------------------------------------------------
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.