autocrop
%quadrillage
%tracerepere
%marks
10 setfontsize
15 setxunit

/A {-3 2} def
/B {2 3} def
/C {3 1} def
A B C parallelopoint /D defpoint
/M {A A D vecteur 3 mulv addv}  def
/N {B A B vecteur .5 mulv addv} def

M N 1.1 trait
gsave
   pointilles
   [D M] ligne
   [B N] ligne
grestore

1 setlinewidth
[A B C D] polygone
[M N] {times2} plot

setTimesItalic
   (A) A ultext
   (B) B ultext
   (C) C drtext
   (D) D dltext
   (M) M drtext
   (N) N drtext