On Fri, 3 Jun 2011, someone ashamed of his/her real name wrote:
> Hello,
>
> I am trying to save a .gif movie using movie3d from the package {rgl}. I
am
> using the following code combined with the globe example on the ?movie3d
> page. I've installed ImageMagick and the directory seems to be working
> properly, i.e. when I do Sys.getenv("PATH"), C:\\Program Files
> (x86)\\ImageMagick-6.7.0-Q16 shows up.
>
> ####
>
> library(rgl)
> open3d()
>
> lat <- matrix(seq(90,-90, len=50)*pi/180, 50, 50, byrow=TRUE)
> long <- matrix(seq(-180, 180, len=50)*pi/180, 50, 50)
>
> r <- 6378.1 # radius of Earth in km
> x <- r*cos(lat)*cos(long)
> y <- r*cos(lat)*sin(long)
> z <- r*sin(lat)
> persp3d(x, y, z, col="white",
>
texture=system.file("textures/world.png",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.
But rgl.cur() is the current device, and it does not take an argument
in the version of rgl I have.
> 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")
I think you meant to set dev= in movie3d, not par3dsave (which appears
to be part of package tkrgl which you failed to even mention).
> #The par3d window pops up, I move the globe around a bit and press
"record"
> a few times. Then when I press "quit", I get the following
error:
>
> Error in sprintf("%s%03d.png", frames, i) : object
'movie' not found
>
> ####
>
> Sorry if I've made a silly mistake; I'm kind of a newb. I
haven't found any
> record of this same issue on the web.
Don't give the values of arguments that you want to take default
values. Specifying 'frames = movie' is not the same thing as using
the default value (the scoping rules differ). None of
fps = 10, movie = "movie", frames = movie, dir=tempdir(), type =
"gif")
is needed (nor would dev = rgl.cur() be).
>
>
> Many Thanks!
> Michelle
>
>
>
> --
> View this message in context:
http://r.789695.n4.nabble.com/movie3d-in-rgl-object-movie-not-found-tp3572316p3572316.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
--
Brian D. Ripley, ripley at stats.ox.ac.uk
Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/
University of Oxford, Tel: +44 1865 272861 (self)
1 South Parks Road, +44 1865 272866 (PA)
Oxford OX1 3TG, UK Fax: +44 1865 272595