punto que dibujar un espiral

[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?? ...

[[seoane]]

Esto ya parece el "mas difícil todavía". Pero nada, si quieres un dibujar una espiral de colores, vamos a ver que se puede hacer.

Código Delphi [-]
procedure Espiral(Canvas: TCanvas; X,Y,V,Ancho: Integer);
var
  i,j,k: integer;
  z: Real;
begin
  Randomize;
  Ancho:= Ancho * 16;
  z:= (2*V*pi)/Ancho;
  Canvas.MoveTo(x,y);
  k:= 0;
  for i:= 1 to V do
  begin
    // Usamos un color aleatorio
    Canvas.Pen.Color:= RGB(Random($FF),Random($FF),Random($FF));
    for j:= 1 to Ancho div V do
    begin
      Canvas.LineTo(x + (Round(k*cos(z*k))) shr 4,y + (Round(k*sin(z*k)) shr 4));
      inc(k);
    end;
  end;
end;

Un ejemplo de como usarla, fíjate que los parámetros son diferentes a las funciones anteriores:

Código Delphi [-]
  // Esto dibuja una espiral de 200 de radio, donde cada vuelta es de un color diferente
  Espiral(Canvas,200,200,10,200);

Si quieres cambiar de color mas de una vez por vuelta entonces modificariamos un poco mas el codigo de la funcion:

Código Delphi [-]
procedure Espiral(Canvas: TCanvas; X,Y,V,Ancho: Integer);
var
  i,j,k: integer;
  z: Real;
begin
  Randomize;
  Ancho:= Ancho * 16;
  z:= (2*V*pi)/Ancho;
  // Con esta modificacion, cambiamos de color 4 veces por vuelta
  V:= V * 4;
  Canvas.MoveTo(x,y);
  k:= 0;
  for i:= 1 to V do
  begin
    Canvas.Pen.Color:= RGB(Random($FF),Random($FF),Random($FF));
    for j:= 1 to Ancho div V do
    begin
      Canvas.LineTo(x + (Round(k*cos(z*k))) shr 4,y + (Round(k*sin(z*k)) shr 4));
      inc(k);
    end;
  end;
end;

¿que sera lo siguiente?

[pattyka]

Mil gracias ... parece que por lo pronto es todo jeje