punto que dibujar un espiral

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

[pattyka]

sorry... peroya se que es lo siguiente... es dibujar la espiral en el paintbox con los eventos del mouse (mouseup y mousedown)... me podrian explicar como hacer eso???

[[seoane]]

Aquí te dejo un ejemplo, pulsa y arrastra para crear una espiral y cuando te guste como queda suelta el botón y se coloreara.

[pattyka]

mira si mas o menos :S:S le entiendo pero no se me marca un error talvez este equivoca ... procedure Tform1.Seleccionar(R: TRect); el error k me dice es: Undeclared identifier: 'Seleccionar'... y no se k onda:S:s