Re: LOGO-L> Seirpinski's Carpet

["Dale R. Reed" <dale-reed@worldnet.att.net>]

>fractals using Hans Laurewerier's book: Fractals. By the way, does
>anyone know the proper pronunciation of his last name?

Don't know how to pronounce it but it is spelled:  Hans Lauwerier.
Lots of used books in cyberspace.

And the code below works in MSWLogo.  Looks great!    Dale

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 [setfc [250 0 0]]
if :level = 3 [setfc [0 250 0]]
if :level = 4 [setfc [0 0 250]]
if :level = 5 [setfc [250 250 0]]
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

to sq_seirp :side  :level
;window
setpc 0
cs pu setxy -50 -150 pd
;print [input the side length and recursion level]
;make "side readword
;make "level readword
;fs
carpet :side :level
carpetfill :side :level
end
---
$ dale-reed@worldnet.att.net  Seattle, Washington U.S.A. $



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