[LogoForum] About the happiness of the new year

The message below is being cross-posted from LogoForum.

Hi Logo fans!!!!!!!

Here is a heart (very simple, of course):

to heart :x :y :size
pu setpos (list :x :y) seth 0 bk :size*1.3333333333
make "ang 1
seth 318
pd fd :size
repeat 56 [fd :size*0.05 rt :ang
make "ang :ang+0.1]
pu setpos (list :x :y) seth 0 bk :size*1.3333333333
make "ang 1
seth 42
pd fd :size
repeat 56 [fd :size*0.05 lt :ang
make "ang :ang+0.1]
pu setpos (list :x :y) seth 0
end

Try this:

1) window repeat 20 [heart 0 0 repcount*10]

2) perspective repeat 36 [heart 0 0 100 rr 10]

or try to make a procedure with random :x :y and sizes, change the
pencolor and fill the screen with coloured hearts

HAPPY NEW YEAR FOR ALL OF YOU!!!!!!!

GOD BLESS YOU ALL!!!!!!!


Juan J. Paredes G.
> From Curicó, Chile, with love





LogoForum messages are archived at:
http://groups.yahoo.com/group/LogoForum