LOGO-L> Seirpinski's Carpet for MW Mac

[Cameron.Cross@VALLEY.NET (Cameron Cross)]

Here's what I got to work....without the user interface 

(Which I would like to learn how to do....)

Works great on a G3!

Cam Cross
Tech Coordinator
Ray School
Hanover, NH


to startup
presentationmode
cg ht pd run.it 350 6
end

TO RUN.IT :side :level
    pu setpos [-290 -175] pd

     CARPET :SIDE :LEVEL
     CARPETFILL :SIDE :LEVEL
     
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 [SETC 9]
     IF :LEVEL = 3 [SETC 12]
     IF :LEVEL = 4 [SETC 10]
     IF :LEVEL = 5 [SETC 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
---------------------------------------------------------------
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.