tkspinControl: Create a spin control in a TCL/TK window
In rgl: 3D Visualization Using OpenGL

Description Usage Arguments Author(s) See Also Examples

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

1 2	tkspinControl(base, dev = cur3d(), 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.
`...`	Additional parameters to pass to `tkframe`

Ming Chen and Duncan Murdoch

spin3d

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