-2 3 setyrange
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
[A C] ligne
[B D] ligne
A C milieu /O defpoint

/x .32 def

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

d droite
d' droite

setTimesItalic
   (A) A ultext
   (B) B urtext
   (C) C drtext
   (D) D dltext
   (d) ymin d ydpoint ultext
   (d') ymin d' ydpoint ultext
   (O) O dctext
   (M) M brtext
   (N) N brtext