-2 3 setyrange
-3 5 setxrange
%autocrop
20 setxunit
/A {-1 2} def
/B {3 2} def
/D {0 0} def
D A B parallelopoint /C defpoint

[A B C D] polygone
[B D] ligne
A C milieu /O defpoint

/x .32 def

/d {x A B ABpoint D} def
d B paral /d' defdroite
A C /d" defdroite
d A C interdroite /M defpoint
d' A C interdroite /N defpoint

d droite
d' droite
d" droite

setTimesItalic
   (A) A uctext
   (B) B urtext
   (C) C dctext
   (D) D dltext
   (d) ymin d ydpoint ultext
   (d') ymin d' ydpoint ultext
   (d") -2 d" xdpoint dltext
   (O) O dctext
   (M) M brtext
   (N) N brtext