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