/arcangleA 10 def
/arcangleB 10 def
/nodesep 3 def
/ncarc {
7 dict begin
dup isstring
{
/option exch def
}
if
/B defpoint
/A defpoint
/alpha A B angle def
/k nodesep dup ptojpoint pop def %% coeff de decalage
/u {alpha arcangleA add dir} def %% vecteur de decalage en A
/v {alpha arcangleB sub dir} def %% vecteur de decalage en B
[A u k mulv addv {u} .. {v} B v k mulv subv]
currentdict /option known {
option
} if draw
end
} def
|