MeshFunctions -> {"ArcLength"} partly work.poly = RandomPolygon[10];
plot=ListLinePlot[Append[#, First@#] &@poly[[1]],
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {Subdivide@10},
MeshStyle -> Red, Epilog -> {Opacity[.2], poly}, Axes -> False]
pts ==Cases[plot Cases[plot// Normal, Point[p_] :> p, -1] // Rest // DeleteDuplicates
MeshFunctions -> {"ArcLength"} partly work.poly = RandomPolygon[10];
plot=ListLinePlot[Append[#, First@#] &@poly[[1]],
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {Subdivide@10},
MeshStyle -> Red, Epilog -> {Opacity[.2], poly}, Axes -> False]
pts = Cases[plot, Point[p_] :> p, -1] // Rest // DeleteDuplicates
MeshFunctions -> {"ArcLength"} partly work.poly = RandomPolygon[10];
plot=ListLinePlot[Append[#, First@#] &@poly[[1]],
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {Subdivide@10},
MeshStyle -> Red, Epilog -> {Opacity[.2], poly}, Axes -> False]
pts =Cases[plot // Normal, Point[p_] :> p, -1] // DeleteDuplicates
MeshFunctions -> {"ArcLength"} partly work.poly = RandomPolygon[10];
ListLinePlot[Append[#plot=ListLinePlot[Append[#, First@#] &@poly[[1]],
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {Subdivide@10},
MeshStyle -> Red, Epilog -> {Opacity[.2], poly}, Axes -> False]
pts = Cases[plot, Point[p_] :> p, -1] // Rest // DeleteDuplicates
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]
MeshFunctions -> {"ArcLength"} partly work.poly = RandomPolygon[10];
plot=ListLinePlot[Append[#, First@#] &@poly[[1]],
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {Subdivide@10},
MeshStyle -> Red, Epilog -> {Opacity[.2], poly}, Axes -> False]
pts = Cases[plot, Point[p_] :> p, -1] // Rest // DeleteDuplicates
MeshFunctions -> {"ArcLength"} partly work but missing one point.poly = RandomPolygon[10];
arclength = ArcLength[RegionBoundary@poly]
Show[Graphics[poly],
ListPlot[Append[#ListLinePlot[Append[#, First@#] &@poly[[1]], Joined -> True,
MeshFunctions -> {0 &, "ArcLength"}, Mesh -> 10{Subdivide@10},
MeshStyle -> {Red, AbsolutePointSize[10]},
MethodEpilog -> {"BoundaryOffset"Opacity[.2], poly}, Axes -> False}]]False]
MeshFunctions -> {"ArcLength"} partly work but missing one point.poly = RandomPolygon[10];
arclength = ArcLength[RegionBoundary@poly]
Show[Graphics[poly],
ListPlot[Append[#, First@#] &@poly[[1]], Joined -> True,
MeshFunctions -> {"ArcLength"}, Mesh -> 10,
MeshStyle -> {Red, AbsolutePointSize[10]},
Method -> {"BoundaryOffset" -> False}]]
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]