library(SurfaceReconstruction)
library(rgl)
# Solid Möbius strip
Psr_mesh <- PoissonReconstruction(SolidMobiusStrip)
shade3d(Psr_mesh, color= "yellow")
wire3d(Psr_mesh, color = "black")
# Hopf torus
Psr_mesh <- PoissonReconstruction(HopfTorus, spacing = 0.2)
shade3d(Psr_mesh, color= "darkorange")
wire3d(Psr_mesh, color = "black")
Run the code above in your browser using DataLab