program squares1
   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 linety(1)
   call linewidth(2.0)
   call newpath
   call square(0.2,0.1,0.2)
   call stroke
   call newpath
   call squarerot(0.6,0.1,0.2,20.0)
   call stroke
   call newpath
   call setrgb(1.0,0.0,0.0)
   call squarerot(0.9,0.1,0.2,40.0)
   call fill
   call stroke
   call newpath
   call setrgb(0.0,0.0,1.0)
   call squarerot(1.0,0.1,0.2,60.0)
   call fill
   call stroke
   call fin
   stop
   end