-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
%% exemple 2 p 17 du Metafont Book
[A4 {0 curl} .. A2 {A4 A3 vecteur} .. {0 curl} A3] 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
|