Displaying 2 results from an estimated 2 matches for "seg3".
Did you mean:
seg
2010 Jul 19
5
par("uin") ?
...in((0:10) * pi/20))
qcircr <- cbind(cos((10:0) * pi/20), sin((10:0) * pi/20))
rot <- function(theta) t(cbind(c(cos(theta), sin(theta)),
c(-sin(theta), cos(theta))))
seg1 <- t(t(rad * qcirc %*% rot(-pi/2)) + c(0, rad))
seg4 <- t(t(rad * qcirc) + c(0, 1 - rad))
seg3 <- t(t((rad * qcircr) %*% rot(pi)) + c(2 * rad, 0.5 +
rad))
seg2 <- t(t((rad * qcircr) %*% rot(pi/2)) + c(2 * rad, 0.5 -
rad))
bra <- rbind(seg1, seg2, seg3, seg4)
if (!right)
bra <- bra %*% diag(c(-1, 1))
bra <- scale * bra %*% rot(-alpha)...
2008 Jun 21
2
clicking on plot and recording XY coords
...tion
between three segmentes. On each click, I would like to
record the position clicked in a vector.
Any help are welcome.
Miltinho
-----
number.clicks<-4
for (i in 1:number.clicks)
{
plot(0,0, type="n")
seg1<-arrows(-0.5,-1,0.5,0, col=1)
seg2<-arrows(0,-1,-0.3,0.3, col=2)
seg3<-arrows(0.2,-0.7,-0.5,0, col=4)
# here I would like click on PLOT
# and record de XY position
# before go to next aquisition
}
[[alternative HTML version deleted]]