autocrop
-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