WMA link
RegularPolygon
Graphics[RegularPolygon[5]]
Graphics[{Yellow, Rectangle[], Orange, RegularPolygon[{1, 1}, {0.25, 0}, 3]}]