Displaying 1 result from an estimated 1 matches for "turtle045".
Did you mean:
turtle000
2003 Oct 15
0
tkcanvas/bitmap for Turtle World
...amon Wischik for their
replies to my previous post).
Gabriel
Here is my function:
setTurtle<-function(turtle,x,y,angle) {
if(angle!=turtle$angle) {
path<-"@c:/Docume~1/Owner/MyDocu~1/MyWork~1/MILAN/UNIHSR/R/turtle_bitmap/"
# select bitmap file (turtle000.xbm, turtle045.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<-tkcrea...