/ydashpoint { 2 copy % x, y, x, y point 2 copy % x, y, x, y gsave newpath pointilles smoveto % x, y dup Ox exch % x, y, 0, y slineto % x, y pop pop stroke grestore } def