CostaMesh function

Costa surface

Computes a mesh of the Costa surface.

CostaMesh(nu = 50L, nv = 50L)

Arguments

• nu, nv: numbers of subdivisions

Returns

A triangle rgl mesh (object of class mesh3d).

Examples

library(jacobi)
library(rgl)

mesh <- CostaMesh(nu = 250, nv = 250)
open3d(windowRect = c(50, 50, 562, 562), zoom = 0.9)
bg3d("#15191E")
shade3d(mesh, color = "darkred", back = "cull")
shade3d(mesh, color = "orange", front = "cull")