plotEdges: Plot some edges

In cgalMeshes: R6 Based Utilities for 3D Meshes using 'CGAL'

Plot some edges

Description

Plot the given edges with rgl.

Usage

plotEdges(
  vertices,
  edges,
  color = "black",
  lwd = 2,
  edgesAsTubes = TRUE,
  tubesRadius = 0.03,
  verticesAsSpheres = TRUE,
  spheresRadius = 0.05,
  spheresColor = color
)

Arguments

vertices	a three-columns matrix giving the coordinates of the vertices
edges	a two-columns integer matrix giving the edges by pairs of vertex indices
color	a color for the edges
lwd	line width, a positive number, ignored if edgesAsTubes=TRUE
edgesAsTubes	Boolean, whether to draw the edges as tubes
tubesRadius	the radius of the tubes when edgesAsTubes=TRUE
verticesAsSpheres	Boolean, whether to draw the vertices as spheres
spheresRadius	the radius of the spheres when verticesAsSpheres=TRUE
spheresColor	the color of the spheres when verticesAsSpheres=TRUE

Value

No value, just produces a 3D graphic.

Examples

library(cgalMeshes)
library(rgl)

mesh <- cgalMesh$new(pentagrammicPrism, clean = FALSE)
vertices <- mesh$getVertices()
edges <- mesh$getEdges()
extEdges <- exteriorEdges(edges)
tmesh <- mesh$triangulate()$getMesh()

open3d(windowRect = 50 + c(0, 0, 512, 512), zoom = 0.9)
shade3d(tmesh, color = "navy")
# we plot the exterior edges only
plotEdges(
  vertices, extEdges, color = "gold",
  tubesRadius = 0.02, spheresRadius = 0.02
)

# or only plot the edges whose corresponding dihedral angle is acute:
sharpEdges <- as.matrix(subset(edges, angle <= 91, select = c("i1", "i2")))
open3d(windowRect = 50 + c(0, 0, 512, 512), zoom = 0.9)
shade3d(tmesh, color = "maroon")
plotEdges(
  vertices, sharpEdges, color = "darkred", 
  tubesRadius = 0.02, spheresRadius = 0.02
)

cgalMeshes documentation built on July 9, 2023, 7:45 p.m.