%% auteur : Christian Vassard
-5 12 setxrange
-5 12 setyrange
30 setxunit
30 setyunit
15 setfontsize

%% definition des points
/A {-4 -3} def
/B {2 -1} def
/C {0 3} def
/D {6 5} def
/E {3 4} def
/F {10 11} def

%% repere et quadrillage
quadrillage
traceaxes
unites

%% les points
[A B C D E F] points

[A D F C] polygone
pointilles
.7 setcurvelinewidth
[A F] ligne
[C D] ligne
[B F] ligne

%% un point tout seul (le point O est predefini)
O point
%% la legende
setTimesItalic
   (A) A ltext
   (B) B rtext
   (C) C ltext
   (D) D dtext
   (E) E dltext
   (F) F rtext