%% 23-06-06 %% %% syntaxe : A B C r (<->) tripointarc
%% 23-06-06 %% /tripointarc {
%% 23-06-06 %% dup isstring not
%% 23-06-06 %% {(-)}
%% 23-06-06 %% if
%% 23-06-06 %% tripointarcarrow
%% 23-06-06 %% } def
%% 23-06-06 %%
%% 23-06-06 %% %% syntaxe : A B C r (<->) tripointarcarrow
%% 23-06-06 %% /tripointarcarrow {
%% 23-06-06 %% 11 dict begin
%% 23-06-06 %% /forme exch def
%% 23-06-06 %% /r exch def
%% 23-06-06 %% /yC exch def
%% 23-06-06 %% /xC exch def
%% 23-06-06 %% /yB exch def
%% 23-06-06 %% /xB exch def
%% 23-06-06 %% /yA exch def
%% 23-06-06 %% /xA exch def
%% 23-06-06 %% /A {xA yA} def
%% 23-06-06 %% /B {xB yB} def
%% 23-06-06 %% /C {xC yC} def
%% 23-06-06 %% B
%% 23-06-06 %% r
%% 23-06-06 %% B A angle
%% 23-06-06 %% B C angle
%% 23-06-06 %% forme
%% 23-06-06 %% arcarrow
%% 23-06-06 %% end
%% 23-06-06 %% } def
/tripointarcarrow {tripointarc} def
%% syntaxe : A B C r (<->) tripointarc
/tripointarc {
5 dict begin
dup isstring {
/option exch def
} if
/r exch def
/C defpoint
/B defpoint
/A defpoint
/alpha B A pangle def
/beta B C pangle def
B r alpha beta
currentdict /option known {
option
} if
sarc
end
} def
|