/xdashpoint { 2 copy % x, y, x, y point 2 copy % x, y, x, y gsave newpath pointilles smoveto % x, y pop Oy slineto stroke grestore } def