LOGO-L> Re: Davi's star

[Yehuka <yehuka@beitberl.ac.il>]

Francois Zuidberg-Weiler wrote:

In this case this should fulfill Your demand (one repeat, no additional
movements):

to star :l
cs
pd
lt 90
repeat 12 [ifelse repcount < 7 [fd :l/3 rt 120 fd :l/3 lt 60] [rt 60 fd :l/3]]
end

Hello Francois,

Here's a possible solution, which I learened from Prof. Shafee Give'on:

=========================
to main :size ; David's Star
cs ht rt 30
repeat 3[sigma]
end

to sigma
fd 2*:size rt 120
fd   :size lt 60
fd   :size rt 120
fd 2*:size rt 60
end
========================

Very elegant, isn't it?

Regards...

[[Yehuda]]