-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