program hatch1
   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 newpath
   call circ(0.3,0.4,0.2)
   call stroke
   call circ(0.3,0.4,0.1)
   call stroke
   call newpath
   call rect(0.6,0.2,0.9,0.3)
   call stroke
   call hatch(0.6,0.2,0.9,0.3,0.02)
   call newpath
   call rect(0.6,0.5,0.9,0.6)
   call stroke
   call hatch(0.6,0.5,0.9,0.6,0.02)
   call newpath
   call plot(0.6,0.3,3)
   call plot(0.6,0.5,2)
   call stroke
   call newpath
   call plot(0.9,0.3,3)
   call plot(0.9,0.5,2)
   call stroke
   call newpath
   call linety(9)
   call linewidth(0.55)
   call plot(0.025,0.4,3)
   call plot(0.975,0.4,2)
   call stroke
   call newpath
   call linety(9)
   call linewidth(0.55)
   call plot(0.3,0.125,3)
   call plot(0.3,0.675,2)
   call stroke
   call fin
   stop
   end