[
next
] [
prev
] [
prev-tail
] [
tail
] [
up
]
E.1.2
pour dessiner une courbe de Koch
koch: long pen: pen
self = 0
ifTrue: [pen go: long]
ifFalse: [self - 1 koch: long / 3 pen: pen.
pen turn: -60.
self - 1 koch: long / 3 pen: pen.
pen turn: 120.
self - 1 koch: long / 3 pen: pen.
pen turn: -60.
self - 1 koch: long / 3 pen: pen]
[
next
] [
prev
] [
prev-tail
] [
front
] [
up
]