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.


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:


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:

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:

Espiral(Canvas,200,200,200,10,8);

[pattyka]

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

[seoane]

:D 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.


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:

// 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:

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;


:p ¿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

[seoane]

El error que tu mencionas es debido a que estas utilizando el codigo en un proyecto diferente al que yo te pase, tu llamaste al formulario form1 y sin embargo no cambiaste el nombre del procedimiento TfrmMain.Seleccionar(R: TRect); a Tform1.Seleccionar(R: TRect);

[pattyka]

mira ya modifique eso ...procedure Tform1Main.Seleccionar(R: TRect); y me marca error dice: ';' expected but '.' found :S:S es ahi donde marca el error:S:s ahora ...:S:S:s

[seoane]

Perdona, antes me equivoque al escribir la respuesta, ahora ya lo corregí, pero no debiste de haberlo visto, lo correcto seria:

Tform1.Seleccionar(R: TRect);

[pattyka]

es asi como lo tenia :S:s ... y me da el error: undeclared identifier: 'seleccion' ... es el error que comente anteriormente creoi:= Max(abs(Seleccion.Right-Seleccion.Left),abs(Seleccion.Bottom-Seleccion.Top)); .... me pone el cursor en el punto despues de seleccion

[pattyka]

no... perdon no me pone el cursor ahi me da el error k escribi.. y me deje el cursor despues de la palabra seleccionar

[seoane]

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

Antes dijiste que el error era seleccionar no seleccion :p De todas formas Seleccion es una variable que yo la declaro dentro de la seccion private del formulario:

private
{ Private declarations }
Seleccion: TRect;
procedure Seleccionar(R: TRect);
public


De todas formas el problema es que o no estas copiando todo, o no lo estas haciendo bien. Por que no procuras entender lo que hago en el ejemplo que te mando, que si funciona, antes de incluirlo en otro proyecto.