require("XLConnect")
require("rgl")
require(tcltk)
fname<-file.choose()
wb <- loadWorkbook(fname, create = FALSE)
df3 <- readWorksheet(wb,sheet=1,header=FALSE)
df5<-array(dim=c(nrow(df3),ncol(df3)))
for(i in 1:nrow(df5))
{
for(j in 1:ncol(df5))
{
df5[i,j]<-df3[i,j]
}
}
df5
df6<-5*df5
x<-10*(1:nrow(df6))
y<-10*(1:ncol(df6))
tt <- tktoplevel()
c1<-"blue"
ChangeColor <- function()
{
  c1 <- tclvalue(.Tcl(paste("tk_chooseColor",.Tcl.args(initialcolor=c1,title="Choose a color"))))
  if (nchar(c1)>0)
    surface3d(x,y,df6,col=c1)
}
ChangeColor.button <- tkbutton(tt,text="Change Color",command=ChangeColor)
tkgrid(ChangeColor.button)