%% auteur : Gilles Mora

-3 3 setxrange
-3 3 setyrange
90 setxunit
%tracerepere
/O{0 0} def
/cerc{O 2} def
/C{-80 cerc cpoint} def
/A{85 cerc cpoint} def
/B{-140 cerc cpoint} def
/D{40 cerc cpoint} def

/dotscale {2 dup} def

[A O B  C D ] {times} plot


cerc cercle
A D C .4 tripointarc
B O C .4 tripointarc
D C A 0.7 tripointarc
[A B] ligne
[O B] ligne
[O C] ligne
[A C] ligne
[B D] ligne
[C D] ligne
[A D] ligne
setTimesItalic
(A) A [2 2] utext
(B) B [2 2] dltext
(O) O [2 2] ultext

(C) C [2 2] drtext
(D) D [2 2] urtext
setTimes
   (60°) -100 O 0.5 cpoint [1.5 1.5] cctext
(20°) 80 C 0.9 cpoint [1.5 1.5] cctext
(100°) 200 D 0.6 cpoint [1.5 1.5] cctext