program linesrot1
   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 plotrot(0.4,0.1,30.0,3)
   call plotrot(0.8,0.1,30.0,2)
   call plotrot(0.8,0.5,30.0,2)
   call plotrot(0.4,0.5,30.0,2)
   call closepath
   call stroke
   call fin
   stop
   end