Présentation de part_002.jps

-4 5 setxrange
-6 5 setyrange


%% les 3 points de base qui servent a parametrer le dessin

/C {-2 .5} def
/A {3 -1} def
/B {2 3} def

%%%% tout ce qui suit ne depend que des points A B et C


%% les milieux

/A' {B C milieu} def
/B' {A C milieu} def
/C' {B A milieu} def

%% les mediatrices

/d {B C C perp} def
/d' {A B B perp} def
/d'' {A C A perp} def

%% le centre du cercle circonscrit

/Q {d d' interdroite} def
/P {d'' d' interdroite} def
/R {d d'' interdroite} def



[C A B] polygone
[P Q R] polygone

rouge
C A R angledroit
P B A angledroit
Q C B angledroit

jpegmode

noir
setTimes
   (A) A rtext
   (B) B ltext
   (C) C dltext
   (P) P urtext
   (Q) Q dltext
   (R) R rtext