21 lines
435 B
Text
21 lines
435 B
Text
_maxPoints = 190
|
|
|
|
void local fn DoIt
|
|
window 1, @"Archimedean Spiral", (0,0,500,500)
|
|
WindowSetBackgroundColor( 1, fn ColorBlack )
|
|
pen 3, fn ColorRed
|
|
|
|
float x, y, angle
|
|
long i, a = 10, b = 10, x1 = 250, y1 = 250
|
|
for i = 0 to _maxPoints - 1
|
|
angle = 0.1 * i
|
|
x = (a + b * angle) * cos(angle) + 250
|
|
y = (a + b * angle) * sin(angle) + 250
|
|
line x1,y1 to x,y
|
|
x1 = x : y1 = y
|
|
next
|
|
end fn
|
|
|
|
fn DoIt
|
|
|
|
HandleEvents
|