-1 3 setxrange
-1 2 setyrange
/z1 {0 1} def /z4 {0 0} def
/z2 {1 1} def /z5 {1 0} def
/z3 {2 1} def /z6 {2 0} def
withcontrolpoints
.8 setgray
5 setlinewidth
%% exemple extrapole de la page 17 du Metafont Book
[z4 .. z2 {z4 z3 vecteur} .. z3] draw
noir
[z1 z2 z3 z4 z5 z6 ] {times2} plot
bleu
setCourier
(1) z1 rtext (4) z4 rtext
(2) z2 rtext (5) z5 rtext
(3) z3 rtext (6) z6 rtext
|