> For the complete documentation index, see [llms.txt](https://trizen.gitbook.io/perl6-rosettacode/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://trizen.gitbook.io/perl6-rosettacode/programming_tasks/p/pentagram.md).

# Pentagram

Generate an SVG file to STDOUT. Redirect to a file to capture and display it.

```perl
use SVG;

constant $dim = 200;
constant $sides = 5;

my @vertices = map { 0.9 * $dim * cis($_ * τ / $sides) }, ^$sides;

my @points   = map |*.reals.fmt("%0.3f"),
  flat @vertices[0, 2 ... *], @vertices[1, 3 ... *], @vertices[0];

say SVG.serialize(
    svg => [
        :width($dim*2), :height($dim*2),
        :rect[:width<100%>, :height<100%>, :style<fill:bisque;>],
        :polyline[ :points(@points.join: ','),
          :style("stroke:blue; stroke-width:3; fill:seashell;"),
          :transform("translate($dim,$dim) rotate(-90)")
        ],
    ],
);
```

See [Pentagram](https://github.com/thundergnat/rc/blob/master/img/pentagram-perl6.svg) (offsite svg image)

Ever wondered what a regular 7 sided star looks like? Change $sides to 7 and re-run. See [Heptagram](https://github.com/thundergnat/rc/blob/master/img/heptagram-perl6.svg)