%% auteur : Christian Vassard
-5 5 setxrange
-7 5 setyrange

%% definition des points
/A {2 4} def
/B {2 -6} def
/C {-4 -1} def
/I {0 -4.3333} def
/K {2 0} def
/L {0.5 2.75} def


%% repere et quadrillage
quadrillage
traceaxes
unites

%% les points
[A B C I K L] points

%% un point tout seul (le point O est predefini)
O point

%% 2 traces de droites
A I droite
C K droite

%% on peut directement definir une droite par 2 de ses points
/D {I A} def
/D' {K C} def

/G {D D' interdroite} def
G point


%% la legende
setTimesItalic
   (A) A ltext
   (B) B rtext
   (C) C dtext
   (I) I dltext
   (K) K dtext
   (G) G dltext
   (L) L utext
   (O) O ultext

   




/G {D D' interdroite} def
G point


%% la legende
setTimesItalic
   (A) A ltext
   (B) B rtext
   (C) C dtext
   (I) I dltext
   (K) K dtext
   (G) G dltext
   (L) L utext
   (O) O ultext