search for: play3d

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 d...

Two questions related to creating animated movies with rgl: 1. I've created an rgl scene with 5 different views I want to display in a movie, but I'd like to insert pauses (say, 5 seconds) at each view. How can I do this? I first created 5 userMatrix's, then play3d( par3dinterp( userMatrix=list(M1, M2, M3, M4, M5)), ,duration=2*60/5) ) then tried simply repeating each twice, play3d( par3dinterp( userMatrix=list(M1, M1, M2, M2, M3, M3, M4, M4, M5, M5)), ,duration=2*60/5) ) but that didn't give the desired effect. I see that play3d() has a times= a...

...place two 3D plots side-by-side in a rgl-setting. It would nice to have something like "par(mfrow=c(1,2))" for basic plots, or an array framework for wireframe(lattice) (see example below). I only managed to overlap two persp3d plots. My final idea would be to animate both surfaces using play3d(rgl). Thanks in advance for any help. Best, Carlo Giovanni Camarda # simple datasets x <- seq(-10, 10, length= 30) y <- x f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r } z1 <- outer(x, y, f) z1[is.na(z1)] <- 1 z2 <- matrix(outer(1:30, 1:30)/200, 30, 30) # simple p...

...xample M <- par3d() lista[[k]]=M; k=k+1; } #zooming v=seq(from=1,to=0.12,by=-0.02) for (i in 1:length(v)){ par3d(zoom=v[i]) M <- par3d() lista[[k]]=M; k=k+1; } #-------------- Ending view rgl.viewpoint(326,40) par3d(zoom=1) M <- par3d() lista[[k]]=M; k=k+1; p = par3dinterp(lista) play3d(p) # or movie3d (p,12) ---------------------------------------------------------------------- Light: after 2 weeks fighting with the function + a bag of coffee, I found this function really helpful and I WANTED TO SHARE since I didn't find anything like that in the web. Step 1: set the zooming...

I am trying to figure out how to use rgl package for animation. It appears that this is done using the play3d() function. Below I have some sample code that plots a 3D path and puts a sphere at the point farthest from the origin (which in this case also appears to be at the end of the path). What I would like to do is animate the movement of another sphere along the length of the path while simultane...

I've just posted a demo made with the rgl package to Youtube, visible here: http://www.youtube.com/watch?v=prdZWQD7L5c For future reference, here are the steps I used: 1. Design a shape to be displayed, and then play with the animation functions to make it change over time. Use play3d to do it live in R, movie3d to write the individual frames of the movie to .png files. 2. Use the ffmpeg package (not an R package, a separate project at http://ffmpeg.org) to convert the .png files to an .mp4 file. The individual frames totalled about 1 GB; the compressed movie is about 45...

...-10,10),ylim=c(-10,10),zlim=c(-10,10),col="red",cex=2) Sys.sleep(0.0001) } ,where x,y,out[,"z"] are the position of the object in different time. I would like to show the orbit evoluting with time. However, I can just get animation with flash windows. I don't know how to use play3d to realise this dynamical orbit, are there anyone could help me for this? Thanks a lot! Fabo [[alternative HTML version deleted]]

Hello, I did some nice grafics using plot 3d and scatter3d. Is there a, hopefully not too complicated way, to transform these dynamic, three-dimensional and interactive grafics in a kind of executable file? I want to show and send them via e-mail to projekt partners who don`t use GNU R and who are not used to do programming. So the result should be quite comfortable to execute for them in

...alled a binary version for Windows OS of ImageMagick (ImageMagick6.5.6-10-q16-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 mov...

Hola Alguien me podría decir como hacer una grafica del tipo persp() de la densidad de una distribucion normal bivariante estandarzada con correlacion 0.5?? gracias [[alternative HTML version deleted]]