tkspinControl

0th

Percentile

Create a spin control in a TCL/TK window

This function may be used to embed a spin control in a TCL/TK window.

Usage
tkspinControl(base, dev = rgl.cur(), 
	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 tkframe

See Also

spin3d

Aliases
  • tkspinControl
Examples
# NOT RUN {
if (interactive()) { 
    library(tcltk)
    open3d()
    win1 <- rgl.cur()
    plot3d(rexp(100), rexp(100), rexp(100), size=3, col='green')
    
    open3d()
    win2 <- rgl.cur()
    plot3d(rt(100,2), rt(100,2), rt(100, 2), size=3, col='yellow')
    
    open3d()
    win3 <- rgl.cur()
    plot3d(rexp(100), rexp(100), rexp(100), size=3, col='red')
        
    open3d()
    win4 <- rgl.cur()
    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)
}
# }
Documentation reproduced from package rgl, version 0.100.50, License: GPL

Community examples

Looks like there are no examples yet.