-1 5 setxrange
-1 3 setyrange

%% exemple du Metafont Book p 18

/A {0 0} def
/B {4 0} def

/d 0 def

13 {
   [A {60 dir} .. {d neg dir} B] draw
   /d d 10 add store
} repeat