Avanzar a una posicion con onda senoidal

[cesarsoftware]

Bueno, si a alguien le interesa, que espero que si, me respondo a mi mismo

Antes usaba esta funcion para obtener cada posicion de seno y un tiempo determinado me daba mas o menos puntos de seno.

Código Delphi [-]
Result := amplitud * Sin(velocidad / (2 * PI) * frecuencia);

Ahora lo que he echo es

Código Delphi [-]
factor := (2 * PI) / numeroMovimientos;
n := 0;
For s := 1 To numeroMovimientos do // puntos de seno = milisegundos de duracion
begin
posicion := amplitud * (Cos((n + 1) * factor) - 1); // n es ordinal de los milisegundos a avanzar
Inc(n);
 ......

(http://fotos.miarroba.es/cesarleo/207-cosenosimple/)

E incluso con varios ciclos

(http://fotos.miarroba.es/cesarleo/208-cosenotriple/)

El truco, aparte de la frecuencia, es que el seno comienza en 0 (cero) y el coseno en la posicón máxima de amplitud

De nada,
Un saludo.

[cesarsoftware]

Perdon, algun admin puede poner las fotos, no se poque no me salen bien.

Gracias.