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

Description Usage Arguments Author(s) See Also Examples

Description

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

Usage

1
2
spinControl(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.

Author(s)

Ming Chen and Duncan Murdoch

See Also

spin3d

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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)
}


Search within the tkrgl package
Search all R packages, documentation and source code

Questions? Problems? Suggestions? or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.