Nothing
parametric3d <- function(fx, fy, fz, u, v, umin, umax, vmin, vmax, n=100,
color = "white", color2 = NA, alpha = 1,
fill = TRUE, col.mesh = if (fill) NA else color,
smooth = 0, material = "default",
add = FALSE, draw = TRUE, engine = "rgl", ...){
##**** handle other args
##**** quads would be better
if (missing(u)) u <- seq(umin, umax, len=n)
if (missing(v)) v <- seq(vmin, vmax, len=n)
tg <- expandTriangleGrid(u, v)
f <- function(uv)
cbind(fx(uv[,1], uv[,2]), fy(uv[,1], uv[,2]), fz(uv[,1], uv[,2]))
v1 <- f(tg$v1)
v2 <- f(tg$v2)
v3 <- f(tg$v3)
na1 <- is.na(v1[,1]) | is.na(v1[,2]) | is.na(v1[,3])
na2 <- is.na(v2[,1]) | is.na(v2[,2]) | is.na(v2[,3])
na3 <- is.na(v3[,1]) | is.na(v3[,2]) | is.na(v3[,3])
nna <- ! (na1 | na2 | na3)
tris <- makeTriangles(v1[nna,], v2[nna,], v3[nna,], color = color,
color2 = color2, smooth = smooth,
material = material, alpha = alpha,
fill = fill, col.mesh = col.mesh)
if (! draw || engine == "none")
tris
else {
tris <- colorScene(tris)
if (engine == "rgl")
drawScene.rgl(tris, add = add, ...)
else if (engine %in% c("standard", "grid"))
drawScene(tris, add = add, engine = engine, ...)
else stop(paste("unknown rendering engine:", engine))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.