tkspinControl {rgl} | R Documentation |
Create a spin control in a TCL/TK window
Description
This function may be used to embed a spin control in a TCL/TK window.
Usage
tkspinControl(base, dev = cur3d(),
continue=FALSE, speed=30, scale=100, ... )
Arguments
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. |
... |
Additional parameters to pass to |
Author(s)
Ming Chen and Duncan Murdoch
See Also
Examples
if (interactive() && !in_pkgdown_example()) {
library(tcltk)
open3d()
win1 <- cur3d()
plot3d(rexp(100), rexp(100), rexp(100), size=3, col='green')
open3d()
win2 <- cur3d()
plot3d(rt(100,2), rt(100,2), rt(100, 2), size=3, col='yellow')
open3d()
win3 <- cur3d()
plot3d(rexp(100), rexp(100), rexp(100), size=3, col='red')
open3d()
win4 <- cur3d()
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 <- tkspinControl(base, dev=c(win1,win2))
con2 <- tkspinControl(base, dev=c(win3,win4))
tkpack(con1, con2)
}
[Package rgl version 1.3.1 Index]