[R] How to chain user mouse handlers in rgl

From: Dieter Menne <dieter.menne_at_menne-biomed.de>
Date: Sat, 01 Mar 2008 11:41:48 +0100


Dear Rglers,

With rgl, I would like to set marker when a button is pressed, but leave the standard trackball handling otherwise. Thanks to Duncan and Oleg for helping me handling key down.

How do I say in a custom mouse handler "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)
   }
   rgl.setMouseCallbacks(1, begin)
 }

btn3d()



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. Received on Sat 01 Mar 2008 - 10:45:44 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Sat 01 Mar 2008 - 18:30:17 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive