-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 4 p 17 du Metafont Book [A4 {A4 A2 vecteur} .. {down} A6] 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