Returns a function which interpolates par3d parameter values,
suitable for use in animations.
par3dinterp(times = NULL, userMatrix, scale, zoom, FOV,
method = c("spline", "linear"),
extrapolate = c("oscillate", "cycle", "constant", "natural"),
dev = cur3d(), subscene = par3d("listeners", dev = dev))A function is returned. The function takes one argument, and returns a list of
par3d settings interpolated to that time.
Times at which values are recorded or a list; see below
Values of par3d("userMatrix")
Values of par3d("scale")
Values of par3d("zoom")
Values of par3d("FOV")
Method of interpolation
How to extrapolate outside the time range
Which RGL device to use
Which subscene to use
Duncan Murdoch
This function is intended to be used in constructing animations. It produces
a function that returns a list suitable to pass to par3d, to set
the viewpoint at a given point in time.
All of the parameters are optional. Only those par3d parameters that are
specified will be returned.
The input values other than times may each be specified as
lists, giving the parameter value settings at a fixed time, or as
matrices or arrays. If not lists, the following formats should be
used: userMatrix can be a 4 x 4 x n array, or a 4
x 4n matrix; scale should be an n x 3 matrix;
zoom and FOV should be length n vectors.
An alternative form of input is to put all of the above arguments into
a list (i.e. a list of lists, or a list of arrays/matrices/vectors),
and pass it as the first argument. This is the most convenient way to
use this function with the function
tkpar3dsave.
Interpolation is by cubic spline or linear interpolation in an appropriate coordinate-wise fashion. Extrapolation may oscillate (repeat the sequence forward, backward, forward, etc.), cycle (repeat it forward), be constant (no repetition outside the specified time range), or be natural (linear on an appropriate scale). In the case of cycling, the first and last specified values should be equal, or the last one will be dropped. Natural extrapolation is only supported with spline interpolation.
play3d to play the animation.
f <- par3dinterp( zoom = c(1, 2, 3, 1) )
f(0)
f(1)
f(0.5)
if (FALSE) {
play3d(f)
}
Run the code above in your browser using DataLab