rotate rotação de um conjunto de pontos

## Seqüência de Chamamento

    xy1=rotate(xy,[theta,orig])

## Parâmetros

xy

  matriz de tamanho (2,.).

xy1

  matriz de tamanho (2,.).

theta

  real, ângulo em radianos; o valor padrão é 0.

orig

  centro de rotação; o valor padrão é [0;0].

## Descrição

`rotate` executa a rotação com o ângulo `theta`:

`xy1(:,i) = M(theta) *xy (:,i) + orig`

onde `M` é a matriz de rotação correspondente.

## Exemplos

    xsetech([0,0,1,1],[-1,-1,1,1])
    xy=[(0:0.1:10);sin(0:0.1:10)]/10;
    for i=2*%pi*(0:10)/10,
      [xy1]=rotate(xy,i);
      xpoly(xy1(1,:),xy1(2,:),"lines")
    end