A <- square(1)
B <- square(c(-0.5,0.5))
W <- square(c(-1, 1.5))
V <- venn.tess(A=A, B=B, window=W)
V
plot(V, do.labels=TRUE)
Vlab <- venn.tess(A=A, B=B, window=W, labels=TRUE)
marks(Vlab)
Run the code above in your browser using DataLab