PD: LOGO-L> Sierpinski Curves

["Andrzej Baczynski" <abkomet@lodz.pdi.net>]

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