Displaying 4 results from an estimated 4 matches for "par3dinterp".
2008 Oct 24
1
movie3d function in the rgl package
...t;ImageMagik" is working
properly, R packages are working, basic examples available in the
manual also working fine.
Problem Solved: when I tried to create more complex movies, i.e.
combining different views and zooming, the R-console crashed or
returned error playing the function returned by par3dinterp, using
heterogeneous parameters. When not crashing, "Error:
length(userMatrix) == 16 * length(times) is not TRUE."
Counterexample:
#rotating
v=seq(from=1,to=61,by=2.5)
for (i in 1:length(v)){
rgl.viewpoint(270+v[i],80-(v[i]/1)) #This is a counterexample
M <- par3d()
lista[[k]...
2011 Jun 07
1
rgl: insert pauses in animation sequence / movie formats other than gif?
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= argument, but...
2009 Oct 15
1
ImageMagick not seen by movie3d function from rgl package
...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 movie3d(spin3d()...
2011 Jun 03
1
movie3d in rgl object 'movie' not found
...,package="rgl"),
specular="black", axes=FALSE, box=FALSE, xlab="", ylab="", zlab="",
normal_x=x, normal_y=y, normal_z=z)
#I run the above, note the device ID and then enter the following with
rgl.cur(1) if my device ID is 1.
movie3d(par3dinterp(par3dsave(params = c("userMatrix", "scale", "zoom",
"FOV"), times = FALSE, dev = rgl.cur(1))), duration = 5, fps = 10, movie =
"movie", frames = movie, dir=tempdir(), type = "gif")
#The par3d window pops up, I move the globe around a bit...