/pcangle {
6 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/va {angleA dir nodesep dup ptojpoint pop mulv} def
A va addv /A' defpoint
A' angleA dir 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
B" A A" orthoproj /C defpoint
[A' C B" B']
currentdict /option known {
option
} if
ligne
end
} def
|