![]() |
![]() |
![]() |
![]() |
Spiral 1 | Spiral 2 | Spiral 3 | Spiral 4 |
![]() |
![]() |
![]() |
![]() |
Spiral 5 | Spiral 6 | Spiral 7 | Spiral 8 |
to spiral :size :size.incr :angle :angle.incr
; Since the procedure is a recursive one,
; some sort of a Stop Rule should be included here,
; that is, you should carefully define the condition when
; the procedure stops.
; Otherwise you'll have to use some sort of a fire extinguisher,
; Halt button, for example, which is not the best way
; to control the situation
fd :size rt :angle
spiral :size+:size.incr :size.incr :angle+:angle.incr :angle.incr
end
If you have got interested in our recipes, just click on the word under the spiral.