Re: PD: LOGO-L> Sierpinski Curves

[George Mills <mills@softronix.com>]

But who learned more and had more fun discovering it :-)

Andrzej Baczynski wrote:
> 
> ----------
> > Od: Andrzej Baczynski <abkomet@lodz.pdi.net>
> > Do: Frank Caggiano <caggiano@atlantic.net>
> > Temat: Odp: LOGO-L> Sierpinski Curves
> > Data: 30 grudnia 1997 00:56
> >
> > <snip>
> >
> > > I saw discussion on the list some time back concerning Sierpinski
> > > triangles and gaskets but I don't believe I saw any discussion of the
> > > Sierpinski Curve.
> > >
> > > The following MSWlogo code produces the curve.  The attached gif was
> > > created with a :len of 100 and a :level of 4.
> > >
> > > I have also created a MSWLogo project of this and installed it on my
> web
> > > page.
> >
> >
> > I have found in Demo1_.lgo something like that. It's substantialy shorter
> > then Your program and I'm afraid it does the same.
> >
> > to fract.sierp.curve.bok :st :b
> >  if :st=0 [lt 90  stop]
> >  fract.sierp.curve.bok :st-1 :b
> >  rt 90 fd :b rt 90
> >  fract.sierp.curve.bok :st-1 :b
> >  lt 45 fd :b lt 45
> >  fract.sierp.curve.bok :st-1 :b
> >  rt 90 fd :b rt 90
> >  fract.sierp.curve.bok :st-1 :b
> > end
> >
> > to fract.sierp.curve.main :st :b
> > ; Fractal - "Sierpinsky Curve"
> > ; :st - level, :b - size
> > ; Try --> 4 5 or 6 3 ...
> >  cs pu setxy -100 100 pd
> >  rt 45
> >  repeat 4 [fd :b rt 90 fract.sierp.curve.bok :st :b rt 90]
> > end
> >
> > BTW "bok" means "egde" in Polish.
> >
> > Regards
> >
> > Andrzej B.
> ---------------------------------------------------------------
> 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.

-- 
===============================================================
George Mills (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.