Re: LOGO-L> Arcs once again

[George Mills <mills@softronix.com>]

(Next post is the same with attachment)

Sorry Olga, I could not resist. Here is a a true Hilbert "Curve".

Note, that all I did was take someones Hilbert Curve

http://www.xylem.demon.co.uk/hilbert.htm

and replace FD with FDA (Forward Arc).

to fda :dist
lt 90
arc2 180 :dist/2
lt 90
end

to go
cs
pu
setxy 250 -250
pd
hilbert 20 5 45
end

to hilbert :size :level :parity
if :level > 0 ~
  [
  lt :parity*90 hilbert :size :level-1 :parity*-1
  fda :size
  rt :parity*90 hilbert :size :level-1 :parity
  fda :size
  hilbert :size :level-1 :parity rt :parity*90
  fda :size
  hilbert :size :level-1 :parity*-1 lt :parity*90
  ]
end

-- 
===============================================================
George Mills
email: mills@softronix.com
http://www.softronix.com
The www page contains some very powerful educational software.
Our single most important investment is our kids.
---------------------------------------------------------------
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.