Pentagram: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
|||
Line 291: | Line 291: | ||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |
||
[https://easylang.online/apps/_pentagram.html Run it] |
|||
[https://easylang.online/ide/?run=xp%3D10%0Ayp%3D40%0Alinewidth%202%0Amove%20xp%20yp%0Awhile%20angle%20%3E%20-720%0Ax%3Dxp%2Bcos%20angle%2A80%0Ay%3Dyp%2Bsin%20-angle%2A80%0Aline%20x%20y%0Af%5B%5D%26%3Dx%0Af%5B%5D%26%3Dy%0Axp%3Dx%0Ayp%3Dy%0Aangle-%3D144%0A.%0Acolor%20900%0Apolygon%20f%5B%5D Run it] |
|||
<lang>xp = 10 |
<lang>xp = 10 |
||
yp = 40 |
yp = 40 |
||
set_linewidth 2 |
|||
linewidth 2 |
|||
move_pen xp yp |
|||
while angle > -720 |
while angle > -720 |
||
x = xp + cos angle * 80 |
x = xp + cos angle * 80 |
||
y = yp + sin -angle * 80 |
y = yp + sin -angle * 80 |
||
draw_line x y |
|||
f[] &= x |
f[] &= x |
||
f[] &= y |
f[] &= y |
||
Line 307: | Line 307: | ||
angle -= 144 |
angle -= 144 |
||
. |
. |
||
set_color 900 |
|||
draw_polygon f[]</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |