%% syntaxe : I A B arcp_ --> ajoute le chemin correspondant a l'arc de
%% cercle de centre I entre les points A et B. le rayon du cercle est
%% IA. Le trace est fait en tournant dans le sens trigonometrique
/arcp_ {
3 dict begin
   /B defpoint
   /A defpoint
   /I defpoint
   I A angle
   I B angle
   2 copy
   ge {360 add} if
   I 
   I A distance
   Cercle_
end
} def

%% syntaxe : I A B arcp --> trace l'arc de cercle de centre I entre
%% les points A et B. le rayon du cercle est IA. Le trace est fait en
%% tournant dans le sens trigonometrique
/arcp {
3 dict begin
   /B defpoint
   /A defpoint
   /I defpoint
   gsave
   newpath
      A
      smoveto
      I A B arcp_
   stroke
   grestore
end
} def

%% syntaxe : I A B arcnp_ --> ajoute le chemin correspondant a l'arc
%% de cercle de centre I entre les points A et B. le rayon du cercle est
%% IA. Le trace est fait en tournant dans le sens inverse du sens
%% trigonometrique 
/arcnp_ {
3 dict begin
   /B defpoint
   /A defpoint
   /I defpoint
   I A angle
   I B angle
   2 copy
   le {360 sub} if
   I 
   I A distance
   Cercle_
end
} def

%% syntaxe : I A B arcnp --> trace l'arc de cercle de centre I entre
%% les points A et B. le rayon du cercle est IA. Le trace est fait en
%% tournant dans le sens inverse du sens trigonometrique
/arcnp {
3 dict begin
   /B defpoint
   /A defpoint
   /I defpoint
   gsave
   newpath
      A smoveto
      I A B arcnp_
   stroke
   grestore
end
} def