%% 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


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

continu



cerc cercle
setTimesItalic
   (A) A [2 2] dltext
   (B) B [2 2] drtext
   (C) C [2 2] urtext
   (O) O [2 2] drtext


B O C .5 tripointarc
setTimes
   (120°) 40 O 1  cpoint [2 2] cctext