Interpolacion RGB

[JF Sebastian]

Desearia realizar un espectro de colores desde el rojo al azul.
Sabeis como variar los parametros RGB para recorrer el espectro de colores?

Saludos

[[coso]]

Hola,
TColor es un entero entre 0 y $02FFFFFF, si haces

Código Delphi [-]
color := r*$01 + g*$0100 + b*$010000;

tendras un color a medida.

[JF Sebastian]

lo que quiero es calcular que valores de r,g,b debo poner a un color para que quede entre el espectro de colores (llamalo arco iris...) siendo 1 el color rojo puro y 0 el azul puro siendo el color un numero entre 0 y 1

[[coso]]

lo que quiero es calcular que valores de r,g,b debo poner a un color para que quede entre el espectro de colores (llamalo arco iris...)

un color siempre estara dentro del espectro de colores... ¿Que es realmente lo que buscas hacer? me da que lo que quieres hacer es un gradiente. Lo que tienes que hacer entonces es, desde unos r,g,b iniciales ir sumando unos incrementos (que dependeran del numero de pasos) hasta llegar a los r,g,b del color final. Busca la palabra gradiente o degradado en el foro (o en los trucos). Hay algunos ejemplos bastante elaborados. Saludos.

[JF Sebastian]

Gracias,
He encontrado este post http://www.clubdelphi.com/foros/showthread.php?t=29167
pero me gustaria implementar manualmente la funcion de la dll.
Basicamente quiero calcular el color intermedio que esta entre el rojo y el azul-violeta de modo que si asigno el numero 1 al rojo y el 0 al azul-violeta la funcion me devuelva la tonalidad correspondiente a un numero intermedio entre 0..1. El gradiente de colores ha de estar de acuerdo con el espectro estandar de colores. No necesito que me pinte el gradiente pues necesito como maximo 20 colores fijos intermedios.
No parece dificil, pero se me resite el problema...

[[Delphius]]

Hola JF Sebastian,
La verdad es que no termino de comprender lo que buscas.
Por empezar el espacio formado entre rojo (255,0,0) y azul (0,0,255) es amplio. Por lo que existen muchos colores posibles.
Si entedemos a esto en el espacio, tendremos tres ejes: R, G, B. Los ejes van desde el 0 al 255. Si sólo debemos desplazarnos desde el eje R al B, quiere decir que en ningún momento intervendrá el eje G. Claramente se ve que se trata de un giro de 90º. Por tanto sólo obtendremos combinaciones de distintas tonalidades de rojo y azul.

Con esto en mente a mi se me ocurre rotar el vector (x,0,z) "a" grados uniformemente distribuídos. Es decir que cuando a es cero, tendremos:

x (rojo) = 255 * cos(0) = 255
z (azul) = 255 * sen(0) = 0
Por tanto el color que se obtiene es: (x,0,z) = (255,0,0)

Cuando a = 90, tenemos:

x (rojo) = 255 * cos(90) = 0
z (azul) = 255 * sen(90) = 255

Es decir el color (0,0,255)

¿Se entiende la idea?
Bueno ahora la cuestión es como obtener ese "a"... bueno si consideramos que 90º es el 100% o 1, y que 0º es 0% o 0... entonces el grado de desplazamiento estará dado por 90/cantidad, siendo "cantidad" la cantidad de colores que deseas obtener... por ejemplo tus 20. En este caso, los 20 colores estarán espaciados 90/20º (4,5º) uno de otro.

Bueno esa es mi idea... no se si es eso lo que buscas. Si no se me entiende y/o no es lo que buscas te agradecería que lo hicieras saber.

¿Cúal es el problema de éste método? que sólo obtendrás los colores ubicados sobre el contorno que describe el vector por lo que no comprende todo el especto posible con dos colores. Por ejemplo el color (255,0,255) no estará cubierto.

Si nos pudieras explicar con mejores detalles lo que buscas te podríamos ser de ayuda.

Saludos,

[[coso]]

pero me gustaria implementar manualmente la funcion de la dll.

¿que dll?

El gradiente de colores ha de estar de acuerdo con el espectro estandar de colores.

¿?

Lo que tienes que hacer es conseguir los r,g,b del color final, restar de ellos los r,g,b del color inicial. Estos valores, llamemosles dr,dg,db, los divides en un numero de pasos, pon 100, por ejemplo. Para encontrar el color medio en la posicion n tansolo tendrias que hacer Color nuevo = r + dr*n,g + dg*n, b + db*n. El color medio entre el final y el inicial seria con n = 50. Mirate bien los ejemplos que hay por el foro, pues hacen mas o menos esto mismo. saludos.

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); // matriz o paleta de colores
var Offset, Value, Index: Cardinal;
begin
 Offset := 0;
 Value := 255;
 for Index := 0 to 255 * 3 do
  begin
   Canvas.Pen.Color := Value;
   Canvas.MoveTo(Index, 0);
   Canvas.LineTo(Index + 16, 32);
   Dec(PByte(Cardinal(@Value) + (Offset mod 3))^);
   Inc(PByte(Cardinal(@Value) + ((Offset + 1) mod 3))^);
   if ((Index + 1) mod 255) = 0 then
    Inc(Offset);
  end;
end;

[[Lepe]]

Todavía me estoy preguntando cómo has puesto el código sin ninguna palabra, al menos el foro te obliga a escribir 10 letras.... Pero a lo que iba, tu código suele impresionar por su calidad, pero en este caso, es superado por la belleza del resultado.

Salud.

[[Delphius]]

Viendo las nuevas aportaciones, me parece que lo que he dicho yo no es muy viable que digamos.
Por empezar yo mismo he aclarado que mi idea es rotar el vector desde el eje R hacia el B, un total de 90º. Por tanto todos los puntos que pertenezcan a dicho plano tendrán sólo dos componentes: rojo y azul.
Y es así como lo entendí puesto que por la forma en como describía el problema se trataba de una rotación del rojo al azul, pero no daba evidencia alguna del verde.

Por si no fuera poco, la segunda limitante a mi "diseño", no se cubre todo el espectro de la combinación de hasta dos colores. Sólo se obtienen aquellos cuyo valor de módulo sea 255.

Tal vez dos "trucos" sean posibles:
1. Dado un valor "y" (verde) llevar a cabo la rotación desde el rojo al azul. O tal vez, dado un rango de verde y_min, y_max obtener para cada valor perteneciente a dicho rango, su rotación. Por ejemplo y = [0,255]:

(255,0,0) -> ... -> (0,0,255)
...
(255,255,0) -> ... -> (0,255,255)

2. Alterar el valor del módulo para forzar el uso de los valores, y no necesariamente del valor correspondiente al módulo. Con esta "técnica" se podría llegar a valores "inaccesibles", como (255,y,255). Se puede aumentar o disminuir el módulo.

Si es necesario cubrir el especto visible pues lo veo un tanto difícil... pero no se como diablos hizo Javier para demostrarlo tan sencillo (1)

(1) Sencillo por las pocas líneas... yo la verdad que me pierdo en interpretarlo

Saludos,

[[Lepe]]

Empezado por Delphius

(1) Sencillo por las pocas líneas... yo la verdad que me pierdo en interpretarlo

Pero eso es normal con c-Hack-All

Saludos

[[egostar]]

Empezado por Lepe

Todavía me estoy preguntando cómo has puesto el código sin ninguna palabra, al menos el foro te obliga a escribir 10 letras.... Pero a lo que iba, tu código suele impresionar por su calidad, pero en este caso, es superado por la belleza del resultado.

Salud.

Empezado por Lepe

Pero eso es normal con c-Hack-All

Saludos

La respuesta a tu pregunta la has dado tu mismo

Salud OS

[[Caral]]

Hola
No dejo de aprender con el código de cHackAll, no dejas de impresionarme amigo.
Haciendo un poco de chapuzas quise que el color estuviese en el form completo, que cuando se amplie o reduzca el color haga lo mismo y que con un trackbar se pudiera cambiar, ademas de hacerlo que siga la linea del form, sin la inclinacion (bueno, metiendome en camisa de once varas)
Logre que se ampliara hacia abajo, que siguiera la linea del form y que cambiara el color con el trackbar (hace un efecto simpatico).
Lo que no me aclaro es como hacer que crezca completo cuando el form se amplia?.
Aqui tu codigo con estos detalles:

Código Delphi [-]
procedure TForm1.TrackBar1Change(Sender: TObject);
var Offset, Value, Index: Cardinal;
begin
 Offset := TrackBar1.Position;
 Value := 255;
 for Index := 0 to 255 * 3 do
  begin
   Canvas.Pen.Color := Value;
   Canvas.MoveTo(Index, 0);
   Canvas.LineTo(Index + 0, Form1.ClientHeight);
   Dec(PByte(Cardinal(@Value) + (Offset mod 3))^);
   Inc(PByte(Cardinal(@Value) + ((Offset + 1) mod 3))^);
   if ((Index + 1) mod 255) = 0 then
    Inc(Offset);
  end;
end;

Bueno, la pregunta es obvia: Como lo hago amigo?.
Saludos

[[cHackAll]]

Código Delphi [-]
var Bitmap: TBitmap;
 
procedure TForm1.FormCreate(Sender: TObject);
var Offset, Value, Index: Cardinal;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := 255 * 3;
 Bitmap.Height := 1;
 Offset := 0;
 Value := 255; // change this
 for Index := 0 to 255 * 3 - 1 do
  begin
   Bitmap.Canvas.Pixels[Index, 0] := Value;
   Dec(PByte(Cardinal(@Value) + (Offset mod 3))^);
   Inc(PByte(Cardinal(@Value) + ((Offset + 1) mod 3))^);
   if ((Index + 1) mod 255) = 0 then
    Inc(Offset);
  end;
end;
 
procedure TForm1.FormPaint(Sender: TObject); // OnPaint, OnResize
begin
 SetStretchBltMode(Canvas.Handle, COLORONCOLOR);
 StretchBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, Bitmap.Canvas.Handle, 0, 0, 255 * 3, 1, SRCCOPY);
end;

[[Caral]]

Hola
Muy bueno amigo.
Tengo otra duda, cuando el form se redimensiona, se queda marcado el form anterior, osea pintado encima, supongo que se tendria que borrar?.
Saludos

[[coso]]

Hola Caral, con

Código Delphi [-]
procedure TForm1.OnResize(sender : TObject);
begin
     Paint;
end;

lo solucionas. Saludos.