LOGO-L> Symmetry

[fajoy@uio.satnet.net]

I've been planning on sharing a picture with you-all for some 
time but I hadn't found a context for it so...

I was reading a bit about symmetry and about straight-line-land 
and plane-land and I think this are good plane-landers to teach 
symmetry with.

I originally designed them (when I has 12 years old or so) to make
a cryptic language, the problem was that I couldn't come up with 
nothing else than a one-to-one mapping between the symbols and our
arabic letters. (I only used 32 of them).


to ini
   make "h 8
   make "n 0
   make "i -490
   cs
   pu
   setpos list :i 300
   pd
   t 
end

to f :sn
   seth 270
   repeat 4 [l sum pop "sn remainder 5 - repcount 4 rt 90]
end

to l :n
   pu
   repeat :n [fd :h rt 90]
   pd
   fd :h rt 90 fd :h rt 90
   pu
   repeat remainder 6-:n 4 [fd :h rt 90]
   pd
end

to t 
for [a 0 3 1] [
for [b 0 3 1] [
for [c 0 3 1] [
for [d 0 3 1] [
   if :n>30 [
      pu
      setpos list :i ycor-(:h*3)
      pd
      show list xcor ycor
      make "n 0
   ]
   f (list :a :b :c :d)
   pu bk :h*3 pd
   make "n :n+1
]]]]
end


My name is Daniel. I'm a 22 years old "Systems Engineering" student 
in Ecuador (the country). But I think I like teaching.

About the world cup (soccer world-wide-famous-least-in-USA world cup)

I've been thinking on drawing a 3D soccer football in MSW Logo, but
it doesn't have to be me, though.
---------------------------------------------------------------
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.