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]\)
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]\)