Cómo realizar la rotación de polígonos usando VB

No tengo tiempo para escribir un algoritmo, pero puedo darte una idea. No importa cuán complejo sea el polígono, su número de vértices es limitado. Puede definir un tipo de coordenadas polares (R, theta) y luego agregar estos vértices a una matriz de tipo de coordenadas polares. Cuando sea necesario rotar el ángulo deta, puede cambiar los ángulos polares de todos los puntos de acuerdo con la dirección de rotación. Suponga que el ángulo final es theta' y luego vuelva a dibujar los vértices mediante x=R*Cos(theta'), y. =R*Sin(theta')

¡Finalmente, conecta todos los vértices y el polígono se rota con éxito!

¡De hecho, este es un principio que utiliza vectores! Si desea lograr una escala de polígono, puede cambiar los radios vectoriales de todos los vértices por igual.

Dicho tanto, ¿lo entiendes?