Présentation de arc_intercepte.jps

%% taille de la fenetre
-3 3 setxrange
-3 3 setyrange

%% les parametres du dessin
/r 2.2 def                      %% rayon du cercle
/cerc {O r} def                 %% on nomme le cercle
/A {-45 cerc cpoint} def        %% A = point du cercle d'angle -45
/B {50 cerc cpoint} def         %% B = point du cercle d'angle 50
/M {160 cerc cpoint} def        %% M = point du cercle d'angle 160
/N {210 cerc cpoint} def



cerc cercle
[B N A] ligne
[B M A] ligne

A N B .5 (=) tripointarc
A M B .5 (=) tripointarc

4 setlinewidth
-45 50 O r Cercle

setTimesItalic
   (A) A drtext
   (B) B urtext
   (M) M cltext
   (N) N cltext