#Librerías necesarias
install.packages("rgl")
install.packages("magick")
#Codigo
library("rgl")
library("magick")
open3d()
shade3d(cube3d(color = rep(rainbow(6), rep(4, 6))))
save <- par3d(userMatrix = rotationMatrix(90*pi/180, 1, 0, 0))
highlevel()
par3d("userMatrix")
par3d(save)
highlevel()
par3d("userMatrix")
#Giro Automatico
play3d( spin3d( axis = c(0, 0, 1), rpm = 7), duration = 100 )
# O Generar Gif
movie3d( spin3d( axis = c(0, 0, 1), rpm = 7),
duration = 10, dir = getwd(),
type = "gif", clean = TRUE )
###################################################
install.packages("rgl")
install.packages("magick")
library("rgl")
library("magick")
open3d()
shade3d(cube3d(color = rep(rainbow(6), rep(4, 6))))
save <- par3d(userMatrix = rotationMatrix(90*pi/180, 1, 0, 0))
highlevel()
par3d("userMatrix")
par3d(save)
highlevel()
par3d("userMatrix")
###################################################