-1 5 setxrange
-1.5 1.5 setyrange

%% exemple du Metafont Book p 18

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

/d 0 def

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