1 respuesta en este tema

[sir.dev.a.lot]

 [Truco Delphi] Intensidad de un Color por Porcentaje ?

 

Descripcion:

Bloque de codigo que contiene 2 funciones para dar o quitar intensidad por un porcentaje a un Color especificado.

delphi

//Color mas Oscuro
function Dark(Col: TColor; Percent: Byte): TColor;
var R, G, B: Byte;
begin
  R := GetRValue(Col);
  G := GetGValue(Col);
  B := GetBValue(Col);
  R := Round(R*Percent/100);
  G := Round(G*Percent/100);
  B := Round(B*Percent/100);
  Result := RGB(R, G, B);
end;
 
//Color mas Claro
function Light(Col: TColor; Percent: Byte): TColor;
var R, G, B: Byte;
begin
  R := GetRValue(Col);
  G := GetGValue(Col);
  B := GetBValue(Col);
  R := Round(R*Percent/100) + Round(255 - Percent/100*255);
  G := Round(G*Percent/100) + Round(255 - Percent/100*255);
  B := Round(B*Percent/100) + Round(255 - Percent/100*255);
  Result := RGB(R, G, B);
end;

[Delphius]

Yo también he usado este algoritmo, con alguna pequeña variación... pero en escencia es similar y análogo.

Y estuve pensando en la forma de encararlo por el lado del brillo y no la intensidad. La cosa es que es un tanto más complicado hacerlo por esa vía ya que primero se debe corregir el valor gamma, y luego recién aplicar esta fórmula:

 

Y = 0.2126 * R  + 0.7152 * G + 0.0722 * B

 

Y esto es sólo el primer paso, que es para obtener el brillo o luminicencia relativa. Lo que sigue es mi pregunta... bueno, tenemos un valor Y pero si ahora quisiera aplicarle un porcentaje ¿cómo hago los pasos inversos?

 

Al final descarté esa funcionalidad en mi mini framework, tratando de encontrar una forma relativamente más directa que haga esto.

 

No he vuelto a tocar el tema, pero creo que no hay forma más directa de encararlo que pasar del RGB a HSL y ahí probar cambiar el porcentaje de L, y volver de nuevo a RGB. No he probado esta alternativa, o si es el método correcto (no descarto que debiera aplicarse alguna ligera compensación entre H y S si se alterara significativemnte el L en forma porcentual).

 

Tengo un poco oxidada la teoría sobre el espacio de color como para volver al ruedo.

 

EDITO:

Pues una pequeña prueba en Paint bastó para sacarme la duda y efectivamente no hace falta tocar el H o S. Basta con modificar L.

 

Saludos,