.PS picwid = 5i boxwid = 1.5i boxht = 1i ellipsewid = boxwid/2-0.1i ellipseht = boxht/2-0.1i Home: box Me: ellipse at Home + (boxwid/4,boxht/4) "me" Away: box at Home + (picwid-boxwid,0) Serv: ellipse at Away + (-boxwid/4,boxht/4) "server" Them: ellipse at Away + (-boxwid/4,-boxht/4) "them" line from Me.e to (Home.e,Me.e) line from Serv.w to (Away.w,Serv.w) line from Them.w to (Away.w,Them.w) [ spline -> right picwid/2-boxwid then down boxht/2 then right picwid/2-boxwid ] with .nw at (Home.e,Me.e) "I am me" at last [].n above "My password is foo" at last [].s below Home: box with .n at Home.s - (0,0.5) Me: ellipse at Home + (boxwid/4,boxht/4) "me" Them: ellipse at Home + (boxwid/4,-boxht/4) "them" Away: box at Home + (picwid-boxwid,0) Serv: ellipse at Away + (-boxwid/4,boxht/4) "server" line from Me.e to (Home.e,Me.e) line from Them.e to (Home.e,Them.e) line from Serv.w to (Away.w,Serv.w) [ spline -> right picwid/2-boxwid then up boxht/2 then right picwid/2-boxwid ] with .sw at (Home.e,Them.e) "I am me" at last [].n above "My password is foo" at last [].s below .PE