SUBROUTINE DRAWSR(X,Y)
      CALL REL2AB(X,Y,RX,RY)
      CALL DRAWSA(RX,RY)
      RETURN
      END