search for: seg4

...cale qcirc <- cbind(cos((0:10) * pi/20), sin((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,...