autocrop
-1 3 setxrange
-1 2 setyrange

/A1 {0 1} def   /A4 {0 0} def
/A2 {1 1} def	/A5 {1 0} def
/A3 {2 1} def	/A6 {2 0} def

withcontrolpoints

.8 setgray
5 setlinewidth

%% astuce temporaire pour corriger 
%% un bug dans l'implementation du 
%% calcul des directions aux points 
%% cles : on rend la fonction arg 
%% continue
/arg {argc} def

%% exemple 2 p 15 du Metafont Book, 
[A5 .. A4 .. A1 .. A3 .. A6 .. A5] draw 

noir
[A1 A2 A3 A4 A5 A6 ] {times2} plot
bleu
setCourier
   (1) A1 rtext   (4) A4 rtext
   (2) A2 rtext	  (5) A5 rtext
   (3) A3 rtext	  (6) A6 rtext