%% auteur : 

autocrop
-2 20 setxrange
-2 5 setyrange
12 setxunit
10 setfontsize
/a 4 def

/A {0 0} def
/B {0 a} def
/C {a a} def
/D {a 0} def
/E {2 a mul a} def
/F {2 a mul 0} def
/G {3 a mul 0} def
/H {3 a mul a} def

A C milieu /I defpoint
A H C D interdroite /J defpoint

1 setlinewidth
[A B H G] polygone
[C D] ligne
[E F] ligne

.6 setlinewidth
[A C] ligne
[H A] ligne
pointilles
[I F] ligne

.4 setlinewidth
continu
[B C E H G F D A B] {1 marked} 2 4 Apply
C D 1 marked
E F 1 marked

setTimesItalic
   (A) A dltext
   (B) B ultext
   (C) C uctext
   (D) D dctext
   (E) E uctext
   (F) F dctext
   (G) G drtext
   (H) H urtext
   (I) I ultext
   (J) J dltext