selfcut.psp(A, ..., eps)
"psp"
).
"psp"
)
in the same window as A
with the same kind of marks as A
.
A
,
and cuts the line segments into pieces at these intersection points. A crossing point occurs whenever one of the line segments in A
intersects another line segment in A
, at a nonzero
angle of intersection.
selfcrossing.psp
X <- psp(runif(10), runif(10), runif(10), runif(10), window=owin())
Y <- selfcut.psp(X)
n <- nsegments(Y)
plot(Y %mark% factor(sample(seq_len(n), n, replace=TRUE)))
Run the code above in your browser using DataLab