%%/pcline {line} def
/pcline {
6 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/va {A B vecteur normalize nodesep dup ptojpoint pop mulv} def
A va addv /A' defpoint
/vb {va -1 mulv} def
B vb addv /B' defpoint
A' B'
currentdict /option known {
option
} if
line
end
} def
|