Réhausse (simple) des blanc d'un bitmap
Contenu du snippet
type
pByteQuad = ^ByteQuad;
ByteQuad = array[0..3] of byte;
procedure SuperLight(src, dest : TBitmap);
var X : integer;
pPix : pByteQuad;
COEF : array[0..255] of byte;
const
CDS = 128/103;
begin
if Src.PixelFormat <> pf32bit then
begin
Src.PixelFormat := pf32Bit;
Dest.PixelFormat := pf32Bit;
end;
Dest.Assign(Src);
{ PreCalculs }
for X := 0 to 255 do
case X of
0..127 : COEF[X] := X;
128..230 : COEF[X] := byte(round((X-25)*CDS));
231..255 : COEF[X] := $FF;
end;
pPix := Dest.ScanLine[Dest.Height-1];
for X := 0 to (Dest.Width*Dest.Height)-1 do
begin
pPix^[0] := COEF[pPix^[0]];
pPix^[1] := COEF[pPix^[1]];
pPix^[2] := COEF[pPix^[2]];
inc(pPix);
end;
end;
Compatibilité : Delphi 5
A voir également
- Réhausse (simple) des blanc d'un bitmap
- Noir et blanc photoshop - Forum Graphisme/design
- Inverser noir et blanc photoshop - Forum Visual Basic
- Inverser les couleurs d'une image 16x16 ✓ - Forum Visual Basic 6
- Remplacer une couleur avec Photoshop ✓ - Forum Graphisme/design
- Inversion de couleur ✓ - Forum Visual Basic 6
Du même auteur (f0xi)
-
Fractions, addition, soustraction, multiplication, division et simplification
-
Csv, csvlist, tstringlist
-
Commands manager - besoin de commandes dans vos programmes tchat, réseau, etc ?
-
Dynamic library loader class: gagnez du temps pour charger les fonctions de vos librairies.
-
Base64/base64url encode/decode
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.