MeshFunctions -> {"ArcLength"}partly work.
poly = RandomPolygon[10];
ListLinePlot[Append[#, First@#] &@poly[[1]],
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {Subdivide@10},
MeshStyle -> Red, Epilog -> {Opacity[.2], poly}, Axes -> False]
cvgmt
- 84.1k
- 6
- 97
- 179