Polyspiral: Difference between revisions
Content added Content deleted
Recombinant (talk | contribs) (Add Zig solution) |
(Easylang) |
||
Line 595: | Line 595: | ||
</pre> |
</pre> |
||
=={{header|EasyLang}}== |
|||
[https://easylang.dev/show/#cod=bU/LCsMgELz7FXtMKwTzKvSQjxFjU8GskIQ2/n13jekDenLGmR1mTPBhhmvbCu/QPt2w3kGVjQgIGt2kVysAwHirZwYOzQw9FOmV5FTdCaYwQHNRrG8VqV2C8QO9xZFye6iYaRy9JcIZzKfwsHwYk3qjOo6tsAao9nsOrumPTBJMWHLEOQdnS2RLZMvi8L+FN3JUrI9YLrkdLFV+a7m1zLW/mhc7kGnCz/5SlOIF Run it] |
|||
<syntaxhighlight lang="easylang"> |
|||
color 944 |
|||
linewidth 0.3 |
|||
on animate |
|||
clear |
|||
incr = (incr + 0.05) mod 360 |
|||
x1 = 50 |
|||
y1 = 50 |
|||
length = 1 |
|||
angle = incr |
|||
move x1 y1 |
|||
for i = 1 to 150 |
|||
x2 = x1 + cos angle * length |
|||
y2 = y1 + sin angle * length |
|||
line x2 y2 |
|||
x1 = x2 |
|||
y1 = y2 |
|||
length += 1 |
|||
angle = (angle + incr) mod 360 |
|||
. |
|||
. |
|||
</syntaxhighlight> |
|||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |
||
Line 628: | Line 655: | ||
Cls |
Cls |
||
Loop Until Multikey(SC_ESCAPE)</syntaxhighlight> |
Loop Until Multikey(SC_ESCAPE)</syntaxhighlight> |
||
=={{header|FutureBasic}}== |
=={{header|FutureBasic}}== |