search for: tkcreat

...return $hull } I have successfully translated the code until the line $base.fm.cv create window 0 0 -anchor nw -window $hull -width 10 -height 500 -tag window which i don't fully understand because i started with tcltk just this week. I tried to translate this line using the R function tkcreate, but i didn't get very far. Thanks for your help. Greetings, Thomas Stabla

Dear all; I would like to draw a graph with vertices and edges, and I guess tcl/tk would be appropriate. I don't know tcl/tk but have googled for a 10-page (or so) introduction to 'getting started with tcl/tk in R' but without any luck. - Does anyone know of the existence of such a document or any other web-based material on the subject? - Does anyone have an (informative) piece of

...(note: it's necessary to make new item because turtle's heading can change) x <- c(-10,10) y <- c(-10,10) aux<- cos(turtle$.a)*x+sin(turtle$.a)*y + turtle$.x y <- -sin(turtle$.a)*x+cos(turtle$.a)*y + turtle$.y x <- aux turtle$.turtle <- tkcreate(turtle$.canvas, "line", x[1],-y[1],x[2],-y[2],width=1) }) setMethodS3("forward","TurtleBasic",function(turtle,length){ aux <- turtle$.x + length*cos(turtle$.a) turtle$.y <- turtle$.y + length*sin(turtle$.a) turtle$.x <- aux plot(turtle) })...

...,space="Lab",interpolate="spline") ##rmpcol <- hex(mixcolor(alpha,bc,ec,where="LUV")) rmpcol <- cr(n.col) inc <- 300/n.col xl <- 0 #barlst <- vector(length=n.col,mode="list") barlst <- tclArray() for(i in 1:n.col){ item<-tkcreate(canvas.r,"rect",xl,0,xl+inc,50, fill=rmpcol[i],outline=rmpcol[i]) ##tkaddtag(canvas.r, "point", "withtag", item) barlst[[i]]<-item xl <- xl+inc } tkgrab.set(tt) tkwait.window(tt) ##tkdestroy(tt) invisible(cr) }

Hi, I think that R-tcltk doesn't have the capacity to display an image stored in memory on a tkcanvas object, am I right? I have digged around everything I can find from Peter Dalgaard and tcltk references and drew my conclusion. Can you, Peter, or some other gurus on the list, give us a pointer or two on how to proceed to solve this problem? I am afraid that it may involve writing C

...tle045.xbm, ...) heading<-(45*(angle*180/pi+22.5)%/%45)%%360 file<-paste("turtle",paste(rep(0,3-nchar(heading)),collapse=""),heading,".xbm",sep="") # redraw tkdelete(turtle$canvas,turtle$turtle) turtle$turtle<-tkcreate(turtle$canvas,"bitmap",x,y,anchor="center",bitmap=paste(path,file,sep="")) turtle$angle <- angle } if(x!=turtle$x || y!=turtle$y) { tkmove(turtle$canvas,turtle$turtle,x-turtle$x,y-turtle$y) turtle$x <- x turtle$y <- y...

...(widget, ...) tcl(widget, "cget", ...) tkcompare <- function(widget, ...) tcl(widget, "compare", ...) tkconfigure <- function(widget, ...) tcl(widget, "configure", ...) tkcoords <- function(widget, ...) tcl(widget, "coords", ...) tkcreate <- function(widget, ...) tcl(widget, "create", ...) -tkcget <- function(widget, ...) tcl(widget, "cget", ...) -tkcoords <- function(widget, ...) tcl(widget, "coords", ...) tkcurselection <- function(widget, ...) tcl(widget, "c...

Full_Name: Sundar Dorai-Raj Version: 2.8.0 OS: Windows Submission from: (NULL) (76.220.41.126) The following code crashes R: library(tcltk) tt <- tktoplevel() tc <- tkcanvas(tt, yscrollcommand = function(...) tkset(ts, ...)) > sessionInfo() R version 2.8.0 (2008-10-20) i386-pc-mingw32 locale: LC_COLLATE=English_United States.1252;LC_CTYPE=English_United