spinControl {tkrgl} | R Documentation |
This function may be used to embed a spin control in a TCL/TK window.
spinControl(base, dev = rgl.cur(), continue=FALSE, speed=30, scale=100 )
base |
The TCL/TK frame in which to insert this control. |
dev |
A vector of one or more rgl device numbers to control. |
continue |
Initial setting for continuous rotation checkbox. |
speed |
Initial setting for speed slider. |
scale |
Initial setting for scale slider. |
Ming Chen and Duncan Murdoch
if (interactive()) { library(rgl) library(tcltk) open3d() win1 <- rgl.cur() rgl.bringtotop(TRUE) plot3d(rexp(100), rexp(100), rexp(100), size=3, col='green') open3d() win2 <- rgl.cur() rgl.bringtotop(TRUE) plot3d(rt(100,2), rt(100,2), rt(100, 2), size=3, col='yellow') open3d() win3 <- rgl.cur() rgl.bringtotop(TRUE) plot3d(rexp(100), rexp(100), rexp(100), size=3, col='red') open3d() win4 <- rgl.cur() rgl.bringtotop(TRUE) plot3d(rbinom(100,10,0.5), rbinom(100,10,0.5), rbinom(100,10,0.5), size=3, col='cyan') base <- tktoplevel() tkwm.title(base, "Spinners") con1 <- spinControl(base, dev=c(win1,win2)) con2 <- spinControl(base, dev=c(win3,win4)) tkpack(con1, con2) }