segm <- fm_segm(rbind(c(-4, -4), c(4, -4), c(0, 4)),
is.bnd = TRUE
)
str(m <- fm_mesh_intersection(fmexample$mesh, segm))
plot(fmexample$mesh)
lines(segm, col = 4)
plot(m, edge.color = 2, add = TRUE)
Run the code above in your browser using DataLab