%% auteur : 

%% auteur : 
-4.9 7 setxrange
-4.9 4.9 setyrange
15 setxunit
15 setyunit
/cerc{O 4} def

gsave
1.25 setlinewidth
rouge
cerc cercle
grestore

/I{1 0} def
/J{0 1} def
/K{-4 0} def
/L{4 0} def
/M{0 -4} def
/N{0 4} def

/A{60 cerc cpoint} def

/B {120 cerc cpoint} def

/C{180 cerc cpoint} def

/D{240 cerc cpoint} def

/E{300 cerc cpoint} def

1.25 setlinewidth
[A B C D E L] polygone

O point

gsave
setTimesItalic
(B) A [1.5 1.5] urtext
(C) B [1.5 1.5] ultext
(O) O [1.5 1.5] dltext
(D) C [1.5 1.5] dltext
(E) D [1.5 1.5] dtext
(F) E [1.5 1.5] drtext
(A) L [1.5 1.5] rtext
grestore

bleu
C B A 1 (-) tripointarc
B A L 1 (-) tripointarc
A L E 1 (-) tripointarc
L E D 1 (-) tripointarc
E D C 1 (-) tripointarc
D C B 1 (-) tripointarc