Fix the Boundary Points of a PolySet
fixBound (polys, tol)
polys |
PolySet to fix. |
tol |
vector (length 1 or 2) specifying a percentage of
the ranges to use in defining near to a boundary. If
|
When moving vertices to a boundary, the function moves them strictly horizontally or vertically, as appropriate.
PolySet identical to the input, except for possible changes in
the X and Y columns.
Nicholas M. Boers, Associate Professor – Computer Science
MacEwan University, Edmonton AB
Last modified Rd: 2013-04-10
local(envir=.PBSmapEnv,expr={
oldpar = par(no.readonly=TRUE)
#--- set up a long horizontal and long vertical line to extend the plot's
#--- limits, and then try fixing the bounds of a line in the top-left
#--- corner and a line in the bottom-right corner
polys <- data.frame(PID=c(1, 1, 2, 2, 3, 3, 4, 4),
POS=c(1, 2, 1, 2, 1, 2, 1, 2),
X = c(0, 10, 5, 5, 0.1, 4.9, 5.1, 9.9),
Y = c(5, 5, 0, 10, 5.1, 9.9, 0.1, 4.9))
polys <- fixBound(polys, tol=0.0100001)
plotLines(polys)
par(oldpar)
})Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.