No Subject

[neuwirth <neuwirth@smc.univie.ac.at>]

this is an alternattive to fajoy's
sierpinski cousin

changing the definitions of

connector
turn
and level1

will allow you to do more experiments with the basic structure

; try
; whole 4 5 1 "level1 "turn "connector
; whole 5 5 1 "level1sierp "turnsierp "connectorsierp

to connector :size :par
lt 45 * :par
fd :size
rt 90 * :par
fd :size
lt 45 * :par
end

to connectorsierp :size :par
fd :size
end

to half :size :level :par :level1 :turn :connector
if :level = 1 [ ~
	run (list :level1 :size :par)
	stop]
half :size :level - 1 :par :level1 :turn :connector
run (list :turn :size / sqrt 2 :par) 
half :size :level - 1 :par :level1 :turn :connector
rt 90
run (list :connector :size -1 * :par)
rt 90
half :size :level - 1 :par :level1 :turn :connector
run (list :turn :size / sqrt 2 :par) 
half :size :level - 1 :par :level1 :turn :connector
end

to level1 :size :par
connector :size :par
connector :size :par
end

to level1sierp :size :par
fd :size
end

to turn :size :par
lt 45 * :par
fd :size * sqrt 2
lt 45 * :par
end

to turnsierp :size :par
lt 45 * :par
fd :size
lt 45 * :par
end

to whole :size :level :par :level1 :turn :connector
half :size :level :par :level1 :turn :connector
rt 90 
run (list :connector :size -1 * :par)
rt 90 
half :size :level :par :level1 :turn :connector
rt 90 
run (list :connector :size -1 * :par)
rt 90 
end





--
Erich Neuwirth <neuwirth@smc.univie.ac.at>
Computer Supported Didactics Working Group, Univ. Vienna
Visit our SunSITE at http://sunsite.univie.ac.at



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