我想在TCL TK窗口中显示交互式3D绘图。我想知道这是否可能。
这是一个弹出一个新窗口(设备)的代码。
library(rgl)
attach(mtcars)
plot3d(wt, disp, mpg, col="red", size=5)
问题是我不能将按钮添加到该窗口。
我想将上面窗口的交互区域放在我创建的TCL TK中,如下所示:
tt <- tktoplevel()
有人知道怎么做吗?
发布于 2013-08-20 02:44:00
这是从?tkrgl::spinControl
中的示例拼凑而成的。我不确定它是否完全符合您的描述,但它确实说明了如何使用tk控制窗口来控制rgl设备:
install.packages("tkrgl") # also by Duncan Murdoch
library("tkrgl")
plot3d(wt, disp, mpg, col="red", size=5)
win1 <- rgl.cur()
rgl.bringtotop(TRUE)
#Warning message:
#In rgl.bringtotop(TRUE) : stay not implemented
base <- tktoplevel()
tkwm.title(base, "Spinners")
# <Tcl>
con1 <- spinControl(base, dev=c(win1))
tkpack(con1)
#<Tcl>
base <- tktoplevel()
tkwm.title(base, "Spinners")
con1 <- spinControl(base, dev=c(win1))
tkpack(con1)
https://stackoverflow.com/questions/18320137
复制相似问题