Anonymous user
Pentagram: Difference between revisions
Added Maple implementation.
m (→{{header|zkl}}: tweak) |
(Added Maple implementation.) |
||
Line 113:
}
}</lang>
=={{header|Maple}}==
<lang maple>with(geometry):
RegularStarPolygon(middle, 5/2, point(c, 0, 0), 1):
v := [seq(coordinates(i), i in DefinedAs(middle))]:
pentagram := plottools[rotate](plottools[polygon](v), Pi/2):
plots[display](pentagram, colour = yellow, axes = none);</lang>
{{out}}
Note: Plot shown below is generated using interface(plotdevice = char);
<pre>
C
C C
C C
C C
C C
CC CC
C C
C C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCC C C CCCC
CCCCC C C CCCCC
CCCC C C CCCC
CCCCC C C CCCCC
CCCC CCCC
C CCCCC CCCCC C
C CCCC CCCC C
CC CCCCC CC
C CCCCC CCCCC C
C CCCC CCCC C
C CCCCC CCCCC C
C CCCC CCCC C
CCC CCC
</pre>
=={{header|ooRexx}}==
|