search for: oh3d

...Actually, my final aim is to save each of the rotating graphs for creating a "clip". I commented below what I would use later on, but is there any way to do it better? Thanks a lot for your help, Carlo Giovanni Camarda library(rgl) # simplified version from help(rgl.viewpoint) shade3d(oh3d()) coo <- 1:360 for(i in 1:length(coo)) { rgl.viewpoint(coo[i]) #filename <- paste("pic", formatC(i,digits=1,flag="00"), ".png", sep="") #rgl.snapshot(filename) } # simple persp3d adaption f <- function(x,y) { r <- sqrt(x^2+y^2); 10 *...

Hola a todos: Estoy intentando visualizar unos resultados de un programa en R de forma dinámica. Dichos resultados se pueden representar, básicamente, con un plano que gira sobre uno de sus ejes: para dar sensación de movimiento he utilizado la función rgl.clear(), ya que no encuentro los equivalentes en rgl de los parámetros add o new. El problema es que al limpiar la pantalla con rgl.clear la

...uot;/home/user/pic.png", fmt="png", top=TRUE ) And the pic.png looks right. But if I try to rerun rgl.snapshot anytime again in this session, the file pic.png still outputs but is nothing but colored lines, like in a TV test pattern. I also tried the built-in example: shade3d(oh3d(), color="red") rgl.bringtotop() rgl.viewpoint(0,20) setwd(path) for (i in 1:45) { rgl.viewpoint(i,20) filename <- paste("pic",formatC(i,digits=1,flag="0"),".png",sep="") rgl.snapshot(filename) } and...