BB <- grow.rectangle(Frame(letterR), 0.2)
H <- tess(tiles=list(IN=letterR, OUT=complement.owin(letterR, BB)))
opa <- par(mfrow=c(1,2))
plot(H, do.col=TRUE)
plot(connected(H), do.col=TRUE, col=2:4)
par(opa)
Run the code above in your browser using DataLab