program polygons1
   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 polygon(0.3,0.3,0.1,3)
   call stroke
   call linety(3)
   call newpath
   call polygon(0.7,0.3,0.1,4)
   call stroke
   call setrgb(1.0,0.0,0.0)
   call newpath
   call polygon(0.7,0.7,0.1,5)
   call fill
   call setrgb(0.0,0.0,1.0)
   call newpath
   call polygon(0.3,0.7,0.1,6)
   call fill
   call fin
   stop
   end