search for: rotate3d

...s del cuadrado original if(cont == 1) { v <- matrix(NA,4,3) v[,1] <- c(0,0,1,1) v[,2] <- c(0,0,0,0) v[,3] <- c(0,1,1,0) # Cuadrado Original quads3d(v[,1],v[,2],v[,3],col="green") } # Rotacion v[1,] <- rotate3d(v[1,], ang, 0, 1, 0) v[2,] <- rotate3d(v[2,], ang, 0, 1, 0) v[3,] <- rotate3d(v[3,], ang, 0, 1, 0) v[4,] <- rotate3d(v[4,], ang, 0, 1, 0) # Pausa Sys.sleep(0.3) # Limpiar if(rgl.cur() !=0) rgl.clear() # Nuevo cuadrado quads3d(v[,1],v[,2],v[,3],col=&qu...

...rt), # start c(0,0,1)), # end radius = 0.2, e1=cbind(0, 0, 1), e2=cbind(1, 0, 0), sides=10 ) # ... rotate cylinder horizontally and scale it len=sqrt(sum(abs(end)*abs(end))) c=scale3d(c,0.1,0.1,len) c=rotate3d(c,-(pi/2),0,1,0) # ... rotation angles theta = atan2(end[2],end[1]) # angle in yx-plane for Z-achses rotation phi = atan2(end[3],sqrt(end[1]^2+end[1]^2)) # angle in zx for Y-achses rotation # ... rotation c=rotate3d(c,phi,0,1,0) # Y-achses rotation c=rotate3d(c, -theta,0,0,1) # Z-achses rotatio...

...windows-dll.exe), I have installed the rgl package and i've tried running the following example from ?movie3d() library(rgl) open3d() plot3d( cube3d(col="green") ) M <- par3d("userMatrix") play3d( par3dinterp( userMatrix=list(M, rotate3d(M, pi/2, 1, 0, 0), rotate3d(M, pi/2, 0, 1, 0) ) ), duration=4 ) movie3d( spin3d(), duration=5 ) and then I get the following message: Writing movie050.png Error in movie3d(spin3d(), duration = 5) : ImageMagick not found which if I am correct mean...

Hi All, I would like to be able to use play3d() to translate the view along a surface, and zoom in and out. All the examples in play3d() function description are of rotations. I would also like to know if there is a method of creating a legend of for the 3d surface using rgl package. Thanks in advance. Chibisi [[alternative HTML version deleted]]

Is there a way to change the viewpoint using view3d (or rgl.viewpoint) with respect to the image that currently appears rather than the perspective that rgl thinks is the default? For example, if I create an image and then perform what should be a no-op: rgl.viewpoint(userMatrix=rotationMatrix(0,1,0,0)) the image is rotated. Then I can perform rotations on the result without surprises. But I

...norm <- sqrt(sphere$vb[1, ]^2 + sphere$vb[2, ]^2 + sphere$vb[3, ]^2) for (i in 1:3) sphere$vb[i, ] <- sphere$vb[i, ]/norm sphere$vb[4, ] <- 1 sphere$normals <- sphere$vb result <- scale3d(sphere, a,b,c) rotM <- euler(phi,theta,psi) result <- rotate3d(result,matrix=rotM) result <- translate3d(result, x,y,z) invisible(result) } ## loop over the specification of a cluster rgl.ellipsoids <- function(positions, sizes, angles,...){ N <- NROW(positions) ll <- lapply(seq(1,N), function(ii) rgl.ellipsoid(positio...

Hi, I am looking for a package which allows me to draw arrows (cylinders with cones on them, basically) in 3d images produced with rgl. Is such a thing available? I did notice the 'compositions' package, which contains 'arrow3D'. However, it relies on 'tensorA', which fails to install on my machine with the error message copied below. If anyone can help me fix this

For a paper dealing with generalized ellipsoids, I want to illustrate in 3D an ellipsoid that is unbounded in one dimension, having the shape of an infinite cylinder along, say, z, but whose cross-section in (x,y) is an ellipse, say, given by the 2x2 matrix cov(x,y). I've looked at rgl:::cylinder3d, but don't see any way to make it accomplish this. Does anyone have any ideas? thx,

Hi all, I am considering writing a 3D visualisation package for R. Purposes: - Visualise 3 dimension data - Manipulate the data or series or any other object with the mouse as in any 3D software (3D Studio Max, Lightwave...) - Eventually display more than just 3D objects. Justification: - It's always interesting to plot data before performing any analysis - Manipulating (rotating,