LOGO-L> Carpet

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

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