punto que dibujar un espiral

[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!!!

[julia mundo]

Hola el Algoritmo funciona bien ... pero esoy buscando una forma de que cada semicirculo lo pinte de dirferente color ... estaba tratanco con

algo asi .. pero no se como implementarlo ...


form1.PaintBox1.Canvas.Pixels[round(x),round(y)]:=clfuchsia;


pero no se como aplicarlo en este casi ya que para lo que lo hacia utilizado es para lineas o hasta para el circulo pero para una espiral no para cambiarle de coloorr

[[seoane]]

Vamos por partes, porque no entiendo muy bien lo que necesitas. Si lo que quieres es pintar partes de la espiral de diferentes colores puede que este algoritmo te sirva de ayuda, como el primero que puse solo se trata de un ejemplo y seguro que se puede optimizar.

La forma de usarlo es sencilla, a la función anterior le añadí un nuevo parámetro Z que determina cuantos cambios de color hay por cada vuelta de la espiral. Es decir, un valor de Z=0 nos dará una espiral de un solo color, con Z=1 se vera una espiral en que cada vuelta es de un color diferente, Z=2 cada vuelta tendrá 2 colores, etc ...

Aquí te la dejo y ya me dirás si es lo que buscabas:

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

Un ejemplo:

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

[pattyka]

y si me interesa cada seicirculo de un color diferente como le hago?? ...