/dashpoint {
2 copy % x, y, x, y
dot
2 copy % x, y, x, y
gsave
newpath
pointilles
smoveto % x, y
dup Ox exch % x, y, 0, y
slineto % x, y
2 copy % x, y, x, y
smoveto % x, y
pop Oy slineto
stroke
grestore
} def
/dashpoints {
aload length 2 idiv
{dashpoint} repeat
} def
|