retistruct (version 0.8.0)

TriangulatedOutline: Class containing functions and data relating to Triangulation

Description

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.

Author

David Sterratt

Super classes

retistruct::OutlineCommon -> retistruct::Outline -> retistruct::PathOutline -> retistruct::AnnotatedOutline -> TriangulatedOutline

Public fields

Tr

3 column matrix in which each row contains IDs of points of each triangle

A

Area of each triangle in the mesh - has same number of elements as there are rows of T

A.tot

Total area of the mesh

Cu

2 column matrix in which each row contains IDs of

L

Length of each edge in the mesh - has same number of elements as there are rows of Cu

Methods

Public methods

• TriangulatedOutline$triangulate()

• TriangulatedOutline$mapTriangulatedFragment()

• TriangulatedOutline$clone()

Inherited methods

• retistruct::OutlineCommon$clearFeatureSets()
• retistruct::OutlineCommon$getFeatureSet()
• retistruct::OutlineCommon$getFeatureSetTypes()
• retistruct::OutlineCommon$getFeatureSets()
• retistruct::OutlineCommon$getIDs()
• retistruct::Outline$addFeatureSet()
• retistruct::Outline$getDepth()
• retistruct::Outline$getFragment()
• retistruct::Outline$getFragmentIDs()
• retistruct::Outline$getFragmentIDsFromPointIDs()
• retistruct::Outline$getFragmentPointIDs()
• retistruct::Outline$getFragmentPoints()
• retistruct::Outline$getImage()
• retistruct::Outline$getOutlineLengths()
• retistruct::Outline$getOutlineSet()
• retistruct::Outline$getPoints()
• retistruct::Outline$getPointsScaled()
• retistruct::Outline$getPointsXY()
• retistruct::Outline$mapFragment()
• retistruct::Outline$mapPids()
• retistruct::Outline$replaceImage()
• retistruct::PathOutline$insertPoint()
• retistruct::PathOutline$nextPoint()
• retistruct::PathOutline$stitchSubpaths()
• retistruct::AnnotatedOutline$addFullCut()
• retistruct::AnnotatedOutline$addPoints()
• retistruct::AnnotatedOutline$addTear()
• retistruct::AnnotatedOutline$checkTears()
• retistruct::AnnotatedOutline$computeFullCutRelationships()
• retistruct::AnnotatedOutline$computeTearRelationships()
• retistruct::AnnotatedOutline$ensureFixedPointInRim()
• retistruct::AnnotatedOutline$getBoundarySets()
• retistruct::AnnotatedOutline$getFixedPoint()
• retistruct::AnnotatedOutline$getFullCut()
• retistruct::AnnotatedOutline$getFullCuts()
• retistruct::AnnotatedOutline$getRimLengths()
• retistruct::AnnotatedOutline$getRimSet()
• retistruct::AnnotatedOutline$getTear()
• retistruct::AnnotatedOutline$getTears()
• retistruct::AnnotatedOutline$initialize()
• retistruct::AnnotatedOutline$labelFullCutPoints()
• retistruct::AnnotatedOutline$labelTearPoints()
• retistruct::AnnotatedOutline$removeFullCut()
• retistruct::AnnotatedOutline$removeTear()
• retistruct::AnnotatedOutline$setFixedPoint()
• retistruct::AnnotatedOutline$whichFullCut()
• retistruct::AnnotatedOutline$whichTear()

---

Method triangulate()

Triangulate (mesh) outline

Usage

TriangulatedOutline$triangulate(n = 200, suppress.external.steiner = FALSE)

Arguments

n

Desired number of points in mesh

suppress.external.steiner

Boolean variable describing whether to insert external Steiner points - see TriangulatedFragment

---

Method mapTriangulatedFragment()

Map the point IDs of a TriangulatedFragment on the point IDs of this Outline

Usage

TriangulatedOutline$mapTriangulatedFragment(fragment, pids)

Arguments

fragment

TriangulatedFragment to map

pids

Point IDs in TriangulatedOutline of points in TriangulatedFragment

---

Method clone()

The objects of this class are cloneable with this method.

Usage

TriangulatedOutline$clone(deep = FALSE)

Arguments

deep

Whether to make a deep clone.

Examples

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)

P <- list(rbind(c(1,1), c(2,1), c(2.5,2), c(3,1), c(4,1), c(1,4)),
              rbind(c(-1,1), c(-1,4), c(-2,3), c(-2,2), c(-3,2), c(-4,1)),
              rbind(c(-4,-1), c(-1,-1), c(-1,-4)),
              rbind(c(1,-1), c(2,-1), c(2.5,-2), c(3,-1), c(4,-1), c(1,-4)))
o <- TriangulatedOutline$new(P)
##' o$addTear(c(2, 3, 4))
o$addTear(c(17, 18, 19))
o$addTear(c(9, 10, 11))
o$addFullCut(c(1, 5, 16, 20))
flatplot(o)