-1 7 setxrange
-1 7 setyrange
20 setxunit
10 setfontsize
autocrop

/cross {
   gsave
   newpath
      .75 setlinewidth
      smoveto
      2.5 2.5 rmoveto
      -5 -5 rlineto
      0 5 rmoveto
      5 -5 rlineto
      stroke
   grestore
} def


/l1 2 def
/L1 6 def
/l2 2 def
/L2 4 def

/A {0 L1} def
/B {l1 L1} def
/C {l1 l2} def
/D {l1 L2 add l2} def
/E {l1 L2 add 0} def
/F {l1 0} def

/G1 {
   A F milieu
} def

/G2 {
   C E milieu
} def

[A B F O] polygone
[C D E F] polygone
G1 cross
G2 cross
O point

setTimesItalic
   (O) O dltext
   (G) G1 urtext
setTimes
   (1) indice
setTimesItalic
   (G) G2 urtext
setTimes
   (2) indice
   (6) 0 3 cltext 
   (2) 1 6 uctext 
   (2) 6 1 crtext 
   (4) 4 2 uctext