%% exemple inspire de la page 7 du User's Manual for MetaPost
-.5 2.5 setxrange
-3.5 1 setyrange
/z0 {0 0} def
/z1 {.5 .5} def
/z2 {1.5 .5} def
/z3 {2 0} def
%.8 setgray
.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
/.. {1 1} def %% retour a la situation par defaut
[z0 3 2 z1 .. z2 1.5 1.5 z3] draw %% modif manuelle
la_legende
grestore
|