%% syntaxe : A B da Arc
%% trace en B l'arc de cercle d'angle 2*da centre en A
/Arc {
5 dict begin
   /da exch def
   /B defpoint
   /A defpoint
   /alpha A B angle def
   /r A B distance def
   alpha da sub
   alpha da add
   A r Cercle
end
} def