program arcs1
   implicit none
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call linewidth(2.0)
   call linety(3)
   call newpath
   call arc(0.5,0.5,0.2,45.0,135.0)
   call stroke
   call linety(1)
   call newpath
   call arc(0.5,0.5,0.4,0.0,135.0)
   call stroke
   call fin
   stop
   end