conflines=function(x,y,z)
{
n=length(x)
for(i in 1:n){
points(x,y,pch='+')
points(x,z,pch='+')
}
segments(x,y,x,z)
}