Displaying 1 result from an estimated 1 matches for "btn3d".
Did you mean:
bt36
2008 Mar 01
1
How to chain user mouse handlers in rgl
...uot;after having done your work, forward
to standard trackball once only"? The example below shows the idea, but it
works only once, then reverts to standard trackball handling.
Dieter
#----------------------
library(rgl)
r3dDefaults
open3d()
shade3d(cube3d(color=rep(rainbow(6),rep(4,6))))
btn3d <- function() {
begin <- function(x, y) {
# Add checking for key down later
cat(x,y,"\n")
# Forward to trackball (no easier way?)
newhandler <- par3d("mouseMode")
newhandler[1] <- "trackball"
par3d(mouseMode = newhandler)
}...