Interpolacion RGB

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

[[coso]]

Hola de nuevo, y ya considerando el hilo resuelto : dejo aqui este codigo para ilustrar la idea de delphius de usar el 'cubo' RGB e ir rotando un vector de color en el.

Código Delphi [-]
procedure TForm1.FormPaint(Sender: TObject);
var
     phi,rho : double;
     m : integer;
     r,g,b : integer;
     x,y : integer;
begin
     m := TrackBar1.Position;
     phi := 0;
     while phi < PI/2 do
     begin
          rho := 0;
          while rho < PI/2 do
          begin
               r := Round(m*sin(phi));         // proyeccion del vector en r
               g := Round(m*cos(phi)*cos(rho));// proyeccion en g
               b := Round(m*cos(phi)*sin(rho));// proyeccion en b

               canvas.Pixels[20+Round(rho*100),20+Round(phi*100)] := r*$01 + g*$0100 + b*$010000;
               rho := rho + 0.01;
          end;
          phi := phi + 0.01;
     end;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
     Paint;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     doublebuffered := true;
     TrackBar1.Max := 255;
     TrackBar1.Min := 0;
end;

PD: tremendo el codigo, cHackAll

[JF Sebastian]

Muy buenas aportaciones, companeros.

[JF Sebastian]

Muy buenas aportaciones, companeros.

Os dejo otra solucion que encontre por ahi y que permite interpolar facilmente y obtener el color deseado...



implementation
{$R *.dfm}
uses math;

Código Delphi [-]
 
procedure TForm1.FormClick(Sender: TObject);
var i: integer; R,G,B: byte; cl:TColor;
begin
  for i := 400 to 750 do
  begin
    WavelengthToRGB(1.0*i,R,G,B);
    cl := rgb(r,g,b);
    Canvas.Pen.Color := cl;
    Canvas.Moveto(i-300,0);
    Canvas.LineTo(i-300,100);
  end;
end;
 
procedure TForm1.WavelengthToRGB(const Wavelength:  double; var R,G,B: byte);
const
  Gamma        =   0.80;
  IntensityMax = 255;
var
  Blue   :  double;
  factor :  double;
  Green  :  double;
  Red    :  double;
  function Adjust(const Color, Factor: double):integer;
  begin
    if   Color = 0.0
    then result := 0
    else result := round(IntensityMax * Power(Color * Factor, Gamma))
  end;
begin
  case trunc(Wavelength) OF
    380..439: begin
        Red   := -(Wavelength - 440) / (440 - 380);
        Green := 0.0;
        Blue  := 1.0
    end;
    440..489: begin
        Red   := 0.0;
        Green := (Wavelength - 440) / (490 - 440);
        Blue  := 1.0
    end;
    490..509: begin
        Red   := 0.0;
        Green := 1.0;
        Blue  := -(Wavelength - 510) / (510 - 490)
    end;
    510..579: begin
        Red   := (Wavelength - 510) / (580 - 510);
        Green := 1.0;
        Blue  := 0.0
    end;
    580..644: begin
        Red   := 1.0;
        Green := -(Wavelength - 645) / (645 - 580);
        Blue  := 0.0
    end;
    645..780: begin
        Red   := 1.0;
        Green := 0.0;
        Blue  := 0.0
    end;
    else
      Red   := 0.0;
      Green := 0.0;
      Blue  := 0.0
  end;
  case trunc(Wavelength) of
    380..419:  factor := 0.3 + 0.7*(Wavelength - 380) / (420 - 380);
    420..700:  factor := 1.0;
    701..780:  factor := 0.3 + 0.7*(780 - Wavelength) / (780 - 700)
    else       factor := 0.0
  end;
  R := Adjust(Red,   Factor);
  G := Adjust(Green, Factor);
  B := Adjust(Blue,  Factor)
end;

[JF Sebastian]

Que inutil soy