Displaying 1 result from an estimated 1 matches for "barlst".
Did you mean:
barest
2005 Sep 05
1
tcltk, X11 protocol error: Bug?
...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(){
cr<<-colorRampPalette(c(b.color,e.color),space="Lab",interpolate="spline")
tkdestroy(tt)
##invisible(cr)
}
tt <- tktoplevel()
tkwm.title(tt,"Co...