Archimedean spiral: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Automated syntax highlighting fixup (second round - minor fixes)) |
No edit summary |
||
| Line 1,009: | Line 1,009: | ||
Output is [http://funwithsoftware.org/images/2016-SpiralFrege.png here] due to [[User talk:Short Circuit#Is file uploading blocked forever?|Is file uploading blocked forever?]] |
Output is [http://funwithsoftware.org/images/2016-SpiralFrege.png here] due to [[User talk:Short Circuit#Is file uploading blocked forever?|Is file uploading blocked forever?]] |
||
=={{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> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||