R help - Jun 2011 - movie3d in rgl object 'movie' not found

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.

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


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.

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