Source
%% auteur : 

%% auteur : 

-4 4 setxrange
-4 4 setyrange
50 setxunit
50 setyunit
/D {-3 0} def
/B {3 0} def
/O{0 0} def
%% le cercle de diametre [AB]
/cerc {D B diamcercle} def

%% le point du cercle d'angle donne
/C {120 cerc cpoint} def
/A {-120 cerc cpoint} def
/I{B C milieu} def
I point


[A I] ligne
[B C] ligne
[A B] ligne
[A C] ligne
pointilles
[O C] ligne
[O A] ligne
[O B] ligne

continu
A I B angledroit


cerc cercle
setTimesItalic
   (A) A [2 2] dltext
   (B) B [2 2] drtext
   (C) C [2 2] utext
   (O) O [2 2] drtext
(I) I [2 2] urtext
(6 cm) A C milieu [ 2 2]cltext