punto que dibujar un espiral

[Joakin]

Qué tal están amigos!
Estoy tratando de conseguir que a partir de determinado punto de la forma se dibuje un espiral, pero no me es posible. Podrían ayudarme por favor?
Desde ya muy agradecido.

[Neftali [Germán.Estévez]]

Puedes especificar un poco más, por favor.
¿Exactamente cual es tu problema?

¿Lo has probado? ¿Te da error? ¿Cual?
¿No sabes cómo dibujar? ¿Saber dibujar, pero no sabes la fórmula para los puntos en espiral?....

Deberías dar más detalles de lo que necesitas.

[Joakin]

Amigo Neftali, lo que pasa es que no sé como hacerlo. Se como hacer un rectángulo en el canvas, lo mismo una ellipse o círculo pero no sé hacer un espiral, no conozco la fórmula o el código para hacerlo.
¿Me lo podría facilitar por favor? Desde ya muy agradecido.

[[seoane]]

No es tan facil dibujar una espiral como dibujar un circulo o un rectangulo. En el caso de la espiral no queda mas remedio que dibujarla nosotros linea a linea. Aqui te dejo un ejejmplo de como podria ser, seguro que se puede mejorar mucho el algoritmo, pero solo es para darte una idea.

Código Delphi [-]
procedure Espiral(Canvas: TCanvas; X,Y,Ancho: Integer; V: Real);
var
  i: integer;
begin
  Ancho:= Ancho * 16;
  V:= (2*V*pi)/Ancho;
  Canvas.MoveTo(x,y);
  for i:= 1 to Ancho do
  begin
    Canvas.LineTo(x + (Round(i*cos(V*i))) shr 4,y + (Round(i*sin(V*i)) shr 4));
  end;
end;

Donde Canvas es donde la quieres dibujar, X e Y son las coordenadas del punto central, ancho es la distancia desde el centro a uno de sus extremos y V es el numero de vueltas que da la espiral. Por ejemplo:

Código Delphi [-]
Espiral(Canvas,200,200,200,32);

[dec]

Hola,

Estupendo código de ejemplo seoane.

[Joakin]

Funciona de maravilla muchas gracias amigo!!!