/pcdiag {
10 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/ua {angleA dir armA dup ptojpoint pop mulv} def
/va {angleA dir nodesep dup ptojpoint pop mulv} def
A va addv /A' defpoint
A' ua addv /A" defpoint
/ub {angleB dir armB dup ptojpoint pop mulv} def
/vb {angleB dir nodesep dup ptojpoint pop mulv} def
B vb addv /B' defpoint
B' ub addv /B" defpoint
[A' A" B" B']
currentdict /option known {
option
} if
ligne
end
} def
|