RosettaCodeData/Task/OpenGL/R/opengl.r
2023-07-01 13:44:08 -04:00

7 lines
137 B
R

library(rgl)
x <- c(-1, -1, 1)
y <- c(0, -1, -1)
z <- c(0, 0, 0)
M <- cbind(x,y,z)
rgl.bg(color="gray15")
triangles3d(M, col=rainbow(8))