To make an equilateral hexagon, here is my code in mathematica:
Graphics[{Thick, Black, Line[{
{0, 2/Sqrt[5]},
{1/Sqrt[5], 4/Sqrt[5]},
{1 + 1/Sqrt[5], 4/Sqrt[5]},
{1 + 2/Sqrt[5], 2/Sqrt[5]},
{1 + 1/Sqrt[5], 0}, {1/Sqrt[5], 0},
{0, 2/Sqrt[5]}}], Black, Inset[Text[Style["1", Large]], {0, 2/Sqrt[5]}, Scaled[{.9, .5}]], Black, Inset[Text[Style["2", Large]], {1/Sqrt[5],4/Sqrt[5]},Scaled[{.5, .1}]], Black, Inset[Text[Style["3", Large]], {1 + 1/Sqrt[5], 4/Sqrt[5]}, Scaled[{.5, .1}]], Black, Inset[Text[Style["4", Large]], {1 + 2/Sqrt[5], 2/Sqrt[5]}, Scaled[{-0.2, .5}]], Black, Inset[Text[Style["5", Large]], {1 + 1/Sqrt[5], 0}, Scaled[{.5, .9}]], Black, Inset[Text[Style["6", Large]], {1/Sqrt[5], 0}, Scaled[{.5, .9}]]}]
I want to make legends for numbers 1 to 6. How can I do that? Thanks.