Spiral
- optical illusion
A series of concentric circles appear as a spiral with the added black and white markers.
To
New
# set default screen, pen and turtle values
ResetAll SetScreenSize [400 400] HideTurtle
SetSC Black SetPC Green SetPS 1 PenUp
End
To
Go
New
SetSC LightGray
For [
X
5 175 15] [
Make "
NewRadius
10+90*(1+Cos
:
X
)
SetPC White SetPW 1 Circle
:
NewRadius
FillZone
SetPC Black Right 6*PenWidth SetPW (
:
NewRadius
/7)-2
Repeat 18 [
PenDown Forward
:
NewRadius
-(PenWidth/2)
PenUp Back
:
NewRadius
-(PenWidth/2) Left 20]
SetPC Gray SetPW 1 Circle
:
NewRadius
]
End
Main Command:
Go
- Animation
- Art
- Cellular Auto
- Coding
- Demo
- Dot Plot
- Fractal
- Grid
- Illusion
- L-System
- Multi Turtle
- One Line
- Perspective
- Plane Filling
- Polar
- Puzzle
- Recursion
- Sound
- Spiral
- Spirograph
- Trees
- Walks
