%% exemple inspire de la page 7 du 
%% User's Manual for MetaPost

-.5 2.5 setxrange
-3.5 1 setyrange

/z0 {0 0} def    /z2 {1.5 .5} def
/z1 {.5 .5} def	 /z3 {2 0} def   
.5 setlinewidth

/la_legende {
   noir
   [z0 z1 z2 z3] points
   bleu
   setCourier
      (0) z0 ltext
      (1) z1 ltext
      (2) z2 rtext
      (3) z3 rtext
} def


%% les valeurs par defaut
gsave
   [z0 .. z1 .. z2 .. z3] draw 
   la_legende
grestore

%% tensions plus fortes
gsave
   0 -1 stranslate
   /.. {1.5 1.5} def 
   [z0 .. z1 .. z2 .. z3] draw 
   la_legende
grestore

%% tensions desequilibrees
gsave
   0 -2 stranslate
   /.. {1.5 .8} def 
   [z0 .. z1 .. z2 .. z3] draw 
   la_legende
grestore

%% mise au point "manuelle"
gsave
   0 -3 stranslate
   %% retour a la situation par defaut  
   /.. {1 1} def                       
   %% modif manuelle                    
   [z0 3 2 z1 .. z2 1.5 1.5 z3] draw   
   la_legende
grestore