data-raw/PentagrammicPrism.R

In stla/RCGAL: An Incomplete Wrapper of the 'CGAL' C++ Library

vs1 <- t(sapply(c(0, 2, 4, 1, 3), function(i) c(cos(2*i*pi/5), sin(2*i*pi/5), 0.3)))
vs2 <- t(sapply(c(0, 2, 4, 1, 3), function(i) c(cos(2*i*pi/5), sin(2*i*pi/5), -0.3)))
vertices <- rbind(vs1, vs2)

pentagramms <- rbind(1L:5L, 6L:10L)

rectangles <- rbind(
  c(1L, 2L, 7L, 6L),
  c(2L, 3L, 8L, 7L),
  c(3L, 4L, 9L, 8L),
  c(4L, 5L, 10L, 9L),
  c(5L, 1L, 6L, 10L)
)

faces <- list(
  pentagramms[1L, ],
  pentagramms[2L, ],
  rectangles[1L, ],
  rectangles[2L, ],
  rectangles[3L, ],
  rectangles[4L, ],
  rectangles[5L, ]
)

pentagrammicPrism <- list(vertices = vertices, faces = faces)