-4 4 setxrange
-6 2 setyrange

/A {-3 -3} def
/B {3 -3} def
/I {A B milieu} def

%% le cercle de diametre [AB]
/cerc {A B diamcercle} def

%% le point du cercle d'angle donne
/C {60 cerc cpoint} def

A C B angledroit

1.7 setcurvelinewidth
[A B C] polygone

.7 setcurvelinewidth
[C I] ligne

A I 1 marked
I B 1 marked
I C 1 marked

orange
-20 200 cerc Cercle

bleu
setTimesItalic
   (A) A dltext
   (B) B drtext
   (C) C urtext
   (I) I drtext