purple line ia added
delete extra string a<-...
added more txt to visualiser; scale of intersection is minimum of two
no frame. Color scale on right
Position scale on the picture