/pcbar {
13 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/u {angleA dir armA dup ptojpoint pop mulv} def
/v {angleA dir nodesep dup ptojpoint pop mulv} def
A v addv /A' defpoint
A' u addv /A" defpoint
B v addv /B' defpoint
B' u addv /B" defpoint
A" /ya exch def /xa exch def
B" /yb exch def /xb exch def
A" B B" orthoproj
/C defpoint
B" C vecteur B' B" vecteur scalprod 0 lt {
B" A A" orthoproj /C defpoint
} if
[A' A" C B" B']
currentdict /option known {
option
} if
ligne
end
} def
|