Autocrop(mesh, max.len, max.itr)
gpc.poly
.AutocropPolygon
, tri.mesh
data(tritest)
mesh <- tri.mesh(tritest$x, tritest$y)
plot(mesh)
ply <- Autocrop(mesh, max.len = 0.5, max.itr = 100)
plot(ply, add = TRUE, poly.args = list(col = 2))
Run the code above in your browser using DataLab