TriangulatedOutline: Class containing functions and data relating to Triangulation

In retistruct: Retinal Reconstruction Program

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.

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.

Author(s)

David Sterratt

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)

retistruct documentation built on June 8, 2025, 10:31 a.m.