PD: Odp: LOGO-L> Sierpinski Curves]

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

----------
> Od: Andrzej Baczynski <abkomet@lodz.pdi.net>
> Do: caggiano@atlantic.net
> Temat: Odp: Odp: LOGO-L> Sierpinski Curves]
> Data: 31 grudnia 1997 19:17
> 
> Frank
> 
> I have reconstructed a figure found in Mathematical Snapshots by H.
> Steinhaus. It is in the attachement.
> The code which produce this picture is based on my previous algorithm:
> 
> to angle :b
>  frame :b
>  fd :b lt 45 fd :b rt 90 fd :b rt 90 fd :b lt 45 fd :b
> end
> 
> 
> to bottom :b
>  frame :b
>  fd :b lt 45 fd :b lt 45 fd :b
> end
> 
> 
> to frame :b
>  lt 90 fd :b/2*(2+sqrt 2) repeat 3 [rt 90 fd :b*(2+sqrt 2)] rt 90  fd
> :b/2*(2+sqrt 2) rt 90
> end
> 
> to hiper.angle :level :b
>  if :level=0 [angle :b stop]
>  hiper.bottom :level-1 :b/2
>  repeat 3 [hiper.angle :level-1 :b/2]
>  hiper.bottom :level-1 :b/2
> end
> 
> to hiper.bottom :level :b
>  if :level=0 [bottom :b stop]
>  hiper.bottom :level-1 :b/2
>  hiper.angle :level-1 :b/2
>  hiper.bottom :level-1 :b/2
> end
> 
> 
> to S.curve :level :b
>  pu lt 90 fd :b/2/(power 2 :level) *(2+sqrt 2) rt 90 pd
>  repeat 4 [hiper.angle :level :b]
>  pu rt 90 fd :b/2/(power 2 :level) *(2+sqrt 2) lt 90 pd
> end
> 
> Regards
> Andrzej B.
> 

Happy New Year to all Logo folks !!!

Ks.gif (Obraz GIF)