r3js

instruction.r

install.packages("devtools", dep = TRUE)
library(devtools)
dev_mode()
install_github("r3js", "kohske")
library(r3js)
example(r3js_gen)

twintail_r3js.r

obj <- r3js_new()
col <- "#888800"

x <- seq(-6, -2, 0.01); y <- (12/abs(x) - 4)*2; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

x <- seq( 2,  6, 0.01); y <- (12/abs(x) - 4)*2; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

x <- seq(-6, -2, 0.01); y <- (-2+log(x+7)*4/(log(5)))*2; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

x <- seq( 2,  6, 0.01); y <- (-2+log(7-x)*4/(log(5)))*2; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

x <- seq(-2,  2, 0.01); y <- 4 + cos(exp(-x)*pi*2) * 0.2; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

x <- seq(-2,  2, 0.01); y <- 8 - (exp(abs(x))^2)/15; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

x <- seq(-2,  2, 0.01); y <- 0 + (exp(abs(x))^2)/20; z <- rep(0, length(x)); y <- y * 0.75
obj <- r3js_add(obj, r3js_line(x, y, z, lwd = 5, alpha = 1, col = col))

obj$camera <- list(radius = 10)
obj$options <- list(axisbox = FALSE, axisline = FALSE)
r3js_gen(obj, name = "twintail", browse = TRUE)