Archimedean spiral: Difference between revisions
m
Re-insert FutureBasic solution
m (Removed FutureBasic solution) |
m (Re-insert FutureBasic solution) |
||
Line 1,242:
[[File:ArchimedeanSpiralFrink.svg|400 px]]
==={{header|FutureBasic}}===
<syntaxhighlight lang="futurebasic">
_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
</syntaxhighlight>
{{output}}
[[File:ArchimedeanSpiralFB.png]]
=={{header|Go}}==
| |||