What Links Here? (2 articles…)
Sierpinski Curve
to half_sierpinski :size :level
ifelse :level = 0
[
forward :size
]
[
half_sierpinski :size :level - 1
left 45
forward :size * sqrt 2
left 45
half_sierpinski :size :level - 1
right 90
forward :size
right 90
half_sierpinski :size :level - 1
left 45
forward :size * sqrt 2
left 45
half_sierpinski :size :level - 1
]
end
to sierpinski :size :level
half_sierpinski :size :level
right 90
forward :size
right 90
half_sierpinski :size :level
right 90
forward :size
right 90
end
sierpinski 10 0
setxy 90 200
sierpinski 10 1
setxy 190 200
sierpinski 10 2
setxy 350 200
sierpinski 10 3
setxy 690 200
sierpinski 3 5
Logo + Turtle graphics via Papert (via archive.org)
FCa