/pcdiagg {
9 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
/vb {B A" angle dir nodesep dup ptojpoint pop mulv} def
B vb addv /B' defpoint
[A' A" B']
currentdict /option known {
option
} if
ligne
end
} def
|