Re: LOGO-L> davi's star

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

George Mills wrote:

> Running Erich cstar as follows helps appreciate it bit more.
>
> to demo
> make "redefp "true
> erase "fd
> define "fd [[a] [forward :a] [wait 60]]
> repeat 3 [cstar 50]
> end
>
> Yehuka wrote:
> >
> > neuwirth wrote:
> >
> > > repeat 3 [cstar 50]
> > >
> > > to cstar :size
> > > fd :size
> > > lt 120
> > > fd 2 * :size
> > > lt 60
> > > fd 2 * :size
> > > lt 120
> > > fd :size
> > > rt 60
> > > end

When I saw Erich's code, I put, first of all, a WAIT 60 after each of
his 3 FD's, to make sure that no segment is traced more than once...

Your demo does it programmatically. One has to remember though, after
running procedure demo, to restore to the original FD.

Regards...

[[Yehuda]]

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