-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 1 p 15 du Metafont Book, 
[z4 .. z1 .. z2 .. z6] 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