program transrelrot1
   implicit none
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(-1.0,-1.0,1.0,1.0)
   call translaterel(0.6,0.6)
   call rotate(15.0)
   call newpath
   call rect(-0.15,-0.25,0.15,0.25)
   call stroke
   call rotate(-15.0)
   call translaterel(-0.6,-0.6)
   call fin
   stop
   end