Wolfram Language :: create regular pentagram

IN: Entity ["Lamina", "FilledPentagram"][EntityProperty["Lamina", "Diagram"]]

OUT:
\!\(\*
GraphicsBox[{
{EdgeForm[GrayLevel[0]],
     PolygonBox[
      NCache[{{
        Rational[1, 2],
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        Rational[1, 2] (-2 + 5^Rational[1, 2]),
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        0, Root[1 - 5 #^2 + 5 #^4& , 3, 0]}, {
        1 + Rational[-1, 2] 5^Rational[1, 2],
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        Rational[-1, 2],
         Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2]}, {
        Rational[
          1, 4] (-3 + 5^Rational[1, 2]), -(
           130 + 58 5^Rational[1, 2])^Rational[-1, 2]}, {
        Rational[1, 4] (1 - 5^Rational[1, 2]), Root[
         1 - 20 #^2 + 80 #^4& , 1, 0]}, {
        0, Root[1 - 25 #^2 + 5 #^4& , 2, 0]}, {
        Rational[1, 4] (-1 + 5^Rational[1, 2]), Root[
         1 - 20 #^2 + 80 #^4& , 1, 0]}, {
        Rational[1, 4] (
          3 - 5^Rational[1, 2]), -(
           130 + 58 5^Rational[1, 2])^Rational[-1, 2]}}, {{0.5,
        0.16245984811645317`}, {0.1180339887498949,
        0.16245984811645317`}, {
        0, 0.5257311121191336}, {-0.1180339887498949,
        0.16245984811645317`}, {-0.5,
        0.16245984811645317`}, {-0.19098300562505255`, \
-0.062054140173339524`}, {-0.30901699437494745`, -0.42532540417602}, {
        0, -0.2008114158862273}, {
        0.30901699437494745`, -0.42532540417602}, {
        0.19098300562505255`, -0.062054140173339524`}}]]}, {
{Opacity[0], LineBox[{{0.359017, -0.415325}, {0.05, 0.535731}}]},
{StrokeForm[{GrayLevel[
Rational[28, 51]], Opacity[1]}], EdgeForm[GrayLevel[0]], EdgeForm[
      None],
StyleBox[{
{Arrowheads[{{Automatic, 1,
GraphicsBox[{
PolygonBox[
NCache[{{-1,
Rational[1, 4]}, {0, 0}, {-1,
Rational[-1, 4]}, {-0.9, 0}}, {{-1, 0.25}, {0,
                 0}, {-1, -0.25}, {-0.9, 0}}]],
LineBox[{{0, 1}, {0, -1}}]}]}}],
         ArrowBox[{
          Offset[{2.966564651503357, -9.13014206726548}, {
            0.20450849999999998`, 0.06020299999999995}], {
           0.359017, -0.415325}}]},
        InsetBox["\<\"a\"\>", \
{0.20450849999999998`, 0.06020299999999995}],
{Arrowheads[{{Automatic, 1,
GraphicsBox[{
PolygonBox[
NCache[{{-1,
Rational[1, 4]}, {0, 0}, {-1,
Rational[-1, 4]}, {-0.9, 0}}, {{-1, 0.25}, {0,
                 0}, {-1, -0.25}, {-0.9, 0}}]],
LineBox[{{0, -1}, {0, 1}}]}]}}],
         ArrowBox[{
          Offset[{-2.966564651503357, 9.13014206726548}, {
            0.20450849999999998`, 0.06020299999999995}], {0.05,
           0.535731}}]}},
FontColor->GrayLevel[0]]}}},
Axes->True,
AxesLabel->{
FormBox["\"x\"", TraditionalForm],
FormBox["\"y\"", TraditionalForm]},
BaseStyle->{
    AutoItalicWords -> {
      "a", "A", "b", "c", "d", "h", "l", "r", "R", "s", "t", "w", "x",
        "y"}, PointSize -> Absolute[5], GraphicsColor -> GrayLevel[0],
      EdgeColor -> RGBColor[
Rational[206, 255],
Rational[163, 255],
Rational[8, 85], 1], FrontFaceColor -> RGBColor[1,
Rational[254, 255],
Rational[209, 255]], LineColor -> GrayLevel[0.6],
     FontFamily -> "Times", FontSize -> 12},
Frame->False,
Ticks->None]\)