-2 2 setxrange
-1 2.5 setyrange
-5 5 setxrange
-5 5 setyrange
50 setxunit
10 setfontsize
60 setangle_repere
quadrillage

gsave
   60 rotate
   quadrillage
grestore

/A {-1 2} def
/B {-1 1} def
/C {0 1} def
/D {0 0} def
/E {-1 0} def
/F {1 0} def

.8 setlinewidth
[A E F] polygone
[B C D] polygone


setTimesItalic
   (A) A uctext
   (B) B cltext
   (C) C crtext
   (D) D dctext
   (E) E dltext
   (F) F drtext

90 setangle_repere
1 setlinewidth
135 165 0 3 sqrt 3 div 1.7 (->) Cercle
setTimesItalic
   (T) .5 3 sqrt 6 div (-1 0) cctext
setTimes
   (4) indice
setTimesItalic
   (T) 0 3 sqrt 3 div (-1 0) cctext
setTimes
   (2) indice
setTimesItalic
   (T) 0 3 sqrt 6 div 1 add (-1 0) cctext
setTimes
   (1) indice

gsave
-1 0 stranslate
setTimesItalic
   (T) .5 3 sqrt 6 div (-1 0) cctext
setTimes
   (3) indice
grestore