A TriangulatedOutline contains a function to create a
triangulated mesh over an outline, and fields to hold the mesh
information. Note that areas and lengths are all scaled using
the value of the scale field.
retistruct::OutlineCommon -> retistruct::Outline -> retistruct::PathOutline -> retistruct::AnnotatedOutline -> TriangulatedOutline
T3 column matrix in which each row contains IDs of points of each triangle
AArea of each triangle in the mesh - has same number of
elements as there are rows of T
A.totTotal area of the mesh
Cu2 column matrix in which each row contains IDs of
LLength of each edge in the mesh - has same number of
elements as there are rows of Cu
triangulate()Triangulate (mesh) outline
TriangulatedOutline$triangulate(n = 200, suppress.external.steiner = FALSE)
nDesired number of points in mesh
suppress.external.steinerBoolean variable describing whether to insert external Steiner points - see TriangulatedFragment
mapTriangulatedFragment()Map the point IDs of a TriangulatedFragment on the point IDs of this Outline
TriangulatedOutline$mapTriangulatedFragment(fragment, pids)
fragmentTriangulatedFragment to map
pidsPoint IDs in TriangulatedOutline of points in TriangulatedFragment
clone()The objects of this class are cloneable with this method.
TriangulatedOutline$clone(deep = FALSE)
deepWhether to make a deep clone.
# NOT RUN {
P <- rbind(c(1,1), c(2,1), c(2,-1),
c(1,-1), c(1,-2), c(-1,-2),
c(-1,-1), c(-2,-1),c(-2,1),
c(-1,1), c(-1,2), c(1,2))
o <- TriangulatedOutline$new(P)
o$addTear(c(3, 4, 5))
o$addTear(c(6, 7, 8))
o$addTear(c(9, 10, 11))
o$addTear(c(12, 1, 2))
flatplot(o)
# }
Run the code above in your browser using DataLab