%% OBSOLETE 
%% TO DESTROY 
%% /arcsep 1 def
%% 
%% %% syntaxe : x0 y0 r ang1 ang2 echelle larcarrow --> trace un arc de cercle avec fleche
%% /larcarrow {
%% 4 dict begin
%%    /echelle exch def
%%    /ang2 exch def
%%    /ang1 exch def
%%    /r exch def
%%    gsave
%% 	 r ang2 cos mul
%% 	 r ang2 sin mul
%% 	 addv
%% 	 stranslate
%% 	 90 ang2 add rotate
%% 	 echelle dup scale
%% 	 arrow
%%    grestore
%% end
%% } def
%% 
%% /rarcarrow {
%% 4 dict begin
%%    /echelle exch def
%%    /ang2 exch def
%%    /ang1 exch def
%%    /r exch def
%%    gsave
%% 	 r ang1 cos mul
%% 	 r ang1 sin mul
%% 	 addv
%% 	 stranslate
%% 	 -90 ang1 add rotate
%% 	 echelle dup scale
%% 	 arrow
%%    grestore
%% end
%% } def
%% 
%% %% syntaxe : x0 y0 r ang1 ang2 (<-) arcarrow  --> trace un arc de cercle avec fleche
%% /arcarrow {
%% 6 dict begin
%%    /option exch def
%%    /ang2 exch def
%%    /ang1 exch def
%%    /r exch def
%%    /y0 exch def
%%    /x0 exch def
%%    option (-) eq
%% 	 {
%% 	    x0 y0 r ang1 ang2 tracearc
%% 	 }
%%    if
%%    option (<-) eq
%% 	 {
%% 	    x0 y0 r ang1 ang2 tracearc
%% 	    x0 y0 r ang1 ang2 .4 larcarrow
%% 	 }
%%    if
%%    option (->) eq
%% 	 {
%% 	    x0 y0 r ang1 ang2 tracearc
%% 	    x0 y0 r ang1 ang2 .4 rarcarrow
%% 	 }
%%    if
%%    option (<->) eq
%% 	 {
%% 	    x0 y0 r ang1 ang2 tracearc
%% 	    x0 y0 r ang1 ang2 .4 rarcarrow
%% 	    x0 y0 r ang1 ang2 .4 larcarrow
%% 	 }
%%    if
%%    option (=) eq
%% 	 {
%% 	    1 dict begin
%% 	       /dr arcsep dup ptojpoint pop def
%% 	       x0 y0 r dr add ang1 ang2 tracearc
%% 	       x0 y0 r dr sub ang1 ang2 tracearc
%% 	    end
%% 	 }
%%    if
%%    option (<=>) eq
%% 	 {
%% 	    2 dict begin
%% 	       /dr arcsep dup ptojpoint pop def
%% 	       /dt 4 def
%% 	       x0 y0 r dr add ang1 dt add ang2 dt sub tracearc
%% 	       x0 y0 r dr 2 div sub ang1 dt add ang2 dt sub tracearc
%% 	       x0 y0 r ang1 ang2 .6 larcarrow
%% 	       x0 y0 r ang1 ang2 .6 rarcarrow
%% 	    end
%% 	 }
%%    if
%%    option (<=) eq
%% 	 {
%% 	    2 dict begin
%% 	       /dr arcsep dup ptojpoint pop def
%% 	       /dt 4 def
%% 	       x0 y0 r dr add ang1 ang2 dt sub tracearc
%% 	       x0 y0 r dr 2 div sub ang1 ang2 dt sub tracearc
%% 	       x0 y0 r ang1 ang2 .6 larcarrow
%% 	    end
%% 	 }
%%    if
%%    option (=>) eq
%% 	 {
%% 	    2 dict begin
%% 	       /dr arcsep dup ptojpoint pop def
%% 	       /dt 4 def
%% 	       x0 y0 r dr add ang1 dt add ang2 tracearc
%% 	       x0 y0 r dr 2 div sub ang1 dt add ang2 tracearc
%% 	       x0 y0 r ang1 ang2 .6 rarcarrow
%% 	    end
%% 	 }
%%    if
%% end
%% } def