%% 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
|