Displaying 1 result from an estimated 1 matches for "rmpcol".
Did you mean:
mfcol
2005 Sep 05
1
tcltk, X11 protocol error: Bug?
...title="Choose a color"))
##cat(e.color)
if (nchar(e.color)>0){
tkconfigure(canvas.e,bg=e.color)
Rmp.Draw()
}
}
Rmp.Draw <-function(){
cr<<-colorRampPalette(c(b.color,e.color),space="Lab",interpolate="spline")
rmpcol <- cr(n.col)
#rmpcol<-rgb( rmpcol[,1],rmpcol[,2],rmpcol[,3])
inc <- 300/n.col
xl <- 0
for(i in 1:n.col){
##item <-
tkitemconfigure(canvas.r,barlst[[i]],fill=rmpcol[i],outline=rmpcol[i])
#xl <- xl+inc
}
}
save.ramp <- function(){
c...