Sunday, February 19, 2012

KTurtle - Sierpinski Triangle

Commands for Sierpinski Triangle-

learn sierp $l {
if $l > 2 {
repeat 3 {
sierp $l/2
fw $l
tl 120
}}}
reset
canvassize 600, 533
go 50, 483
tr 90
sierp 500
Posted by at

No comments:

Post a Comment

Click here to add comments. Please use appropriate words. Thanks.

Subscribe to: Post Comments (Atom)