%% auteur : 

-1.15 1.15 setxrange
-1.15 1.15 setyrange
90 setxunit
90 setyunit
/K{-1 0} def
/L{0 -1} def
[O K] ligne
[O L] ligne
/cerc{O 1} def
cerc cercle
/I{1 0} def
[O I] (->) ligne
/J{0 1} def

[O J] (->) ligne
/A{30 cerc cpoint} def
A dashpoint
/B{120 cerc cpoint} def
B point
[O B] ligne
[O A] (-) ligne
/D{-30 cerc cpoint} def
D point
[O D] ligne
/A'{0 0.5} def
/B'{-0.5 0} def
pointilles
B dashpoint
D dashpoint
K  B' 2 marked
B' O 2 marked
A' O 2 marked
A' J 2 marked
/N{-1 -1} def
/C{-135 cerc cpoint} def
[C N] ligne
[K N] ligne
/L{0 -1} def
[L N] ligne
C point
C dashpoint
continu
[O C] ligne
/P{0 -0.5} def
P O 2 marked
P L 2 marked

setTimes
(I) I rtext
(O) O dltext
(A) A urtext
(J) J utext
(B) B ultext
(K) K ltext
(C) C dtext
(L) L dtext
(D) D drtext
(N) N dtext