tkspinControl: Create a spin control in a TCL/TK window

In rgl: 3D Visualization Using OpenGL

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 tkframe

Author(s)

Ming Chen and Duncan Murdoch

See Also

spin3d

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)
}

rgl documentation built on Oct. 28, 2024, 5:07 p.m.