Comment réduire le nombre de couleurs ?

Version imprimable

02/12/2019, 20h58
der§en

Comment réduire le nombre de couleurs ?

J’ai un nombre de couleurs déterminées (mettons 24) et je m’aperçois qu’il y a d’autres couleurs très approchante de celle de références dans mes images.

Quel serait selon vous le meilleur algo pour les convertir en l’une de mes couleurs de références ?
02/12/2019, 21h23
BeanzMaster

Citation:

Envoyé par der§en

J’ai un nombre de couleurs déterminées (mettons 24) et je m’aperçois qu’il y a d’autres couleurs très approchante de celle de références dans mes images.

Quel serait selon vous le meilleur algo pour les convertir en l’une de mes couleurs de références ?

Salut l'approche la plus courrantte est la Quantization (Rosetta code), Diffusion d'erreur cf "Dithering" : Algorithme de Floyd-Steinberg entre autres : Riemersma dither et voir ici

Malheureusement je n'ai aucun code à te proposer c'est un sujet que je n'ai pas encore abordé dans mon projet. Tu devrais pouvoir trouver quelques codes sur le web pour Delphi et notamment dans GifImage ou GR32 (et BGRABitmap il me semble)

A+
02/12/2019, 21h45
BeanzMaster

En recherchant sur le forum anglais, FPC "FPImage" dispose déja de l'algotihme de Floyd-Steinberg : voir ici Je ne savais pas :ccool:
02/12/2019, 22h16
der§en

Merci pour les noms des différents algos, je vais creuser la question avec de bonne infos de base :ccool:
26/04/2020, 22h44
circular17
J'arrive un peu tard mais en ce qui concerne BGRABitmap, il y a une unité BGRAColorQuantization pour faire cela. Les étapes à suivre sont les suivantes :
- Charger l'image source dans un TBGRABitmap
- Créer un TBGRAColorQuantizer avec la palette voulue
- Soit appliquer le dithering sur l'image directement avec ApplyDitheringInplace
- Ou bien générer une nouvelle image avec GetDitheredBitmap
L'objet palette est défini dans l'unité BGRAPalette. Vous pouvez soit l'instancier et appeler la fonction AddColor, ou bien charger la palette à partir d'un fichier de palette.

1 pièce(s) jointe(s)

Intéressant ! J'ai fait un petit exemple rapide, juste pour comprendre le principe, avec une palette contenant différents degrés de bleu (sur le moment je n'avais pas d'autre idée).

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.DoButtonClick(Sender: TObject);
var
  LPalette: TBGRAPalette;
  LQuantizer: TBGRAColorQuantizer;
  LChannel: byte;
begin
  LPalette := TBGRAPalette.Create;
  LChannel := 255;
  repeat
    LPalette.AddColor(BGRA(0, 0, LChannel, 255));
    Dec(LChannel, 8);
  until LChannel = 7 ;
  LQuantizer := TBGRAColorQuantizer.Create(LPalette, FALSE);
  LQuantizer.ApplyDitheringInplace(daNearestNeighbor, FBitmap);
  LPalette.Free;
  LQuantizer.Free;
  Invalidate;
end;

27/04/2020, 16h49
circular17

Oui effectivement tu peux faire cela.

Si tu n'as pas de palette de départ, tu peux mettre l'image source en paramètre quand tu crées le TBGRAColorQuantizer et définir la propriété ReductionColorCount pour définir à combien de couleurs tu veux réduire la palette (par défaut c'est 256).
27/04/2020, 16h58
Roland Chastain

1 pièce(s) jointe(s)
Citation:

Envoyé par circular17

Si tu n'as pas de palette de départ, tu peux mettre l'image source en paramètre quand tu crées le TBGRAColorQuantizer et définir la propriété ReductionColorCount pour définir à combien de couleurs tu veux réduire la palette (par défaut c'est 256).

D'accord, merci pour le tuyau. Oui, c'est plus intéressant comme ça.

Pièce jointe 560762
Code:

1 2 3 LPalette := TBGRAPalette.Create(FBitmap); LQuantizer := TBGRAColorQuantizer.Create(LPalette, FALSE, 50); LQuantizer.ApplyDitheringInplace(daNearestNeighbor, FBitmap);