Displaying 2 results from an estimated 2 matches for "newy3".
Did you mean:
newy
2006 Jul 29
1
fancier plotting
...ty > tmpplt[3] & ty < tmpplt[4] ){
newx <- (tx-tmpplt[1])/(tmpplt[2]-tmpplt[1])*(tmpusr[2]-tmpusr[1])+tmpusr[1]
curx <<- round(newx)
tkrreplot(img)
newy <- I0[curx]
newy <- floor(newy) + (newy-floor(newy))*32/100
# newy2 <- I1[curx]
newy3 <- I2[curx]
tclvalue(cury) <- paste('x =',curx,' I0=',round(newy,2)
,' I2=',round(newy3,4))
}
}
tkbind(img, '<Motion>', mm)
l1 <- tklabel(tt, textvariable=cury)
s1 <- tkscale(tt, command=f2, from=1, to=length...
2006 Apr 17
0
autoscall the y-axis
...[3] & ty < tmpplt[4] ){
newx <- (tx-tmpplt[1])/(tmpplt[2]-tmpplt[1])*(tmpusr[2]-tmpusr[1])+tmpusr[1]
curx <<- round(newx)
tkrreplot(img)
newy <- myData[curx]
newy <- floor(newy) + (newy-floor(newy))*32/100
# newy2 <- myData2[curx]
newy3 <- myData3[curx]
tclvalue(cury) <- paste('x =',curx,' myData=',round(newy,2)
,' myData3=',round(newy3,4))
}
}
tkbind(img, '<Motion>', mm)
l1 <- tklabel(tt, textvariable=cury)
s1 <- tkscale(tt, comm...