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 xp yp
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
line x y
draw_line x y
f[] &= x
f[] &= x
f[] &= y
f[] &= y
Line 307: Line 307:
angle -= 144
angle -= 144
.
.
color 900
set_color 900
polygon f[]</lang>
draw_polygon f[]</lang>


=={{header|Go}}==
=={{header|Go}}==