Re: LOGO-L> Seirpinski's Carpet

[Mishtu Banerjee <mishtu_banerjee@bc.sympatico.ca>]

Thank you for that algorithm. 

And thank you to the list members one and all who have been submitting
algorithms here. I have been using them to teach myself MSW logo, and in
that context have mainly been lurking.

But I was wondering, is anyone compiling any of this wonderful material,
I think there is in here a great primer of examples. I particularly
enjoyed the "middle number" series, where various alternative algorithms
were offered. We see, the several solutions different minds will take,
and that in itself is a great lesson, there are many approaches to any
problem. 

There is a great sense of exploration and discovery on this list, an
almost child-like sense of wonder in the adults that participate
here,shown both in the pleasure of their own algorithmic creations, and
the desire to share it with anyone else who may similarly apprecieate
.....and all this reflects well on the spirit of LOGO. 

It also, seems to  me to spell out the difference between software
development as a form of applied engineering, and software development
as a personal creative act, or art. 

-- Mishtu Banerjee



John Hayes wrote:
> 
> V Jones (19/8/98) has produced a beautiful fractal in his Seirpinski's
> Carpet program. I have taken the liberty of modifying and expanding the
> sq_seirp procedure in order to make the program into a microworld
> user-friendly for children 9 years and older. They aim is that they have
> access to the beauty of the fractals produced, and that induction of the
> pattern of the fractals as the levels deepen is facilitated.
> 
> The enhancements I have added are the placing of the fractals produced
> side-by-side so that they can be compared, and the printing to the graphics
> screen of a label for each fractal stating its level of recursion. I
> envisage the teacher challenging the students to be systematic as they
> enter numbers so that a pattern they can study will emerge.
> 
> TO S
>      WINDOW CS SETPC BLACK
>      SETFONT 'System' 10 1
>      PU SETXY [-300 -75] PD CT
>      PPR 'Input the side length (about 70) and press Enter,'
>      PPR 'then input the recursion level (a number less than 7 works
> best).'
>      MAKE "SIDE READ
>      MAKE "LEVEL READ
>      IF :LEVEL > 2 THEN HT
>      CARPET :SIDE :LEVEL
>      CARPETFILL :SIDE :LEVEL
>      PU SETY -85 PD SETPC BLACK TT (SE 'level' :LEVEL) PU SETY -75 PD
>      CT SS PR 'Would you like to try a different recursion level? Y or N.'
>      MAKE "CHOICE READ
>      IF :CHOICE = "Y THEN RUN.IT.AGAIN ELSE CT PR 'Goodbye for now.'
> TOPLEVEL
> END
> 
> TO RUN.IT.AGAIN
>      CT ST SETPC BLACK PPR 'Enter a new recursion level.'
>      MAKE "LEVEL READ
>      IF :LEVEL > 2 THEN HT
>      PU RT 90 FD :SIDE + 20 PD LT 90
>      CARPET :SIDE :LEVEL
>      CARPETFILL :SIDE :LEVEL
>      PU SETY -85 PD SETPC BLACK TT (SE 'level' :LEVEL) PU SETY -75 PD
>      CT SS PR 'Would you like to try a different recursion level? Y or N.'
>      MAKE "CHOICE READ
>      IF :CHOICE = "Y THEN RUN.IT.AGAIN ELSE CT PR 'Goodbye for now.'
> TOPLEVEL
> END
> 
> TO CARPET :SIDE :LEVEL
>      IF :LEVEL < 1 [STOP]
>      REPEAT 4 [CARPET :SIDE / 3 :LEVEL - 1 FD :SIDE / 3 CARPET :SIDE / 3
> :LEVEL - 1 FD 2 * :SIDE / 3 RT 90]
> END
> 
> TO CARPETFILL :SIDE :LEVEL
>      IF :LEVEL < 2 [STOP]
>      IF :LEVEL = 2 [SETPC 9]
>      IF :LEVEL = 3 [SETPC 12]
>      IF :LEVEL = 4 [SETPC 10]
>      IF :LEVEL = 5 [SETPC 14]
>      PU RT 45 FD 2 * (:SIDE / 3) PD FILL PU BK 2 * (:SIDE / 3) LT 45
>      FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3 RT 90 FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3 RT 90 FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3 RT 90 FD :SIDE / 3
>      CARPETFILL :SIDE / 3 :LEVEL - 1
>      FD :SIDE / 3
>      FD :SIDE / 3 RT 90
>      CARPETFILL :SIDE / 3 :LEVEL - 1
> END
> 
> John Hayes
> Te Puke Primary School
> NEW ZEALAND
> 
> ---------------------------------------------------------------
> 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.
---------------------------------------------------------------
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.