tkrgl (version 0.6.2)

spinControl: 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

spinControl(base, dev = rgl.cur() )

Arguments

base

The TCL/TK frame in which to insert this control.

dev

A vector of one or more rgl device numbers to control.

See Also

spin3d

Examples

if (interactive()) { 
    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)
}