Pentagram: Difference between revisions

Content added Content deleted
(→‎{{header|zkl}}: The background and foreground colors are the same)
Line 606: Line 606:
<lang>xp = 10
<lang>xp = 10
yp = 40
yp = 40
linewidth 2
set_linewidth 2
move_pen xp yp
move 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
line x y
f[] &= x
f[] &= x
f[] &= y
f[] &= y
Line 618: Line 618:
angle -= 144
angle -= 144
.
.
set_color 900
color 900
draw_polygon f[]</lang>
polygon f[]</lang>


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