if (FALSE) {
calcCoordsBorders(1:10, 10:1)
x <- c(-100:0, 0:100, 100:0, 0:-100)/10
y <- c(0:100, 100:0, -(0:100), -(100:0))/10
xy1 <- calcCoordsBorders(x, y)
xy2 <- calcCoordsBorders(x, y, xm=1.2, ym=1.2)
plot(xy2[,1], xy2[,2], type="n")
segments(xy1[,1],xy1[,2],xy2[,1], xy2[,2])
}
Run the code above in your browser using DataLab