Discussion :

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

[BeanzMaster]

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+

[BeanzMaster]

En recherchant sur le forum anglais, FPC "FPImage" dispose déja de l'algotihme de Floyd-Steinberg : voir ici Je ne savais pas

[der§en]

Merci pour les noms des différents algos, je vais creuser la question avec de bonne infos de base

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

[Roland Chastain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

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

[Roland Chastain]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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