RETOUCHE D'IMAGES (FLOUS, SEUIL, HISTOGRAMMES, OPÉRATIONS ARITHMÉTIQUES)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
1 juin 2005 à 15:27
cs_pseudo3 Messages postés 268 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 2 février 2021 - 22 avril 2011 à 13:45
cs_pseudo3 Messages postés 268 Date d'inscription mardi 24 juillet 2007 Statut Membre Dernière intervention 2 février 2021 - 22 avril 2011 à 13:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/31753-retouche-d-images-flous-seuil-histogrammes-operations-arithmetiques
https://codes-sources.commentcamarche.net/source/31753-retouche-d-images-flous-seuil-histogrammes-operations-arithmetiques
22 avril 2011 à 13:45
Voiçi une variante plus rapide utilisant les Scanlines et un tri-par-comptage-d'occurences appliqués au filtre Médian de Cedricbi :
type
TRGBArray = ARRAY[0..0] OF TRGBTriple; // élément de bitmap (API windows)
pRGBArray = ^TRGBArray; // type pointeur vers tableau 3 octets 24 bits
var ScanLinesS : array[Word] of pRGBArray; // BmpSource
ScanLinesD : array[Word] of PRGBArray; // BmpDestination
// Filtre Médian anti poivre et sel -------------------------------------
function FiltreMedian2(const BmpSrc : TBitMap; TailleFiltre : Integer) : tBitMap;
type tAOB = array of byte;
var X, Y : Integer;
X2, Y2 : Integer;
Rouge,Vert,Bleu : tAOB;
NombrePixels : Integer;
NumPixel : Integer;
NumPixel2 : Integer;
procedure TriParOcc( var T : tAOB; sens2tri : boolean);
// Tri du tableau T par comptage d'occurences
// Si sens2tri=True alors tri en ordre croissant
var nbOcc : array [0..255] of integer; va,i,j,k : integer;
begin FillChar(nbOcc,SizeOf(nbOcc),0); // r.à.z du tableau des occurrences
for i := Low(T) to High(T) // recherche des nombres d'occurrences dans le tableau des valeurs :
do nbOcc[ T[i] ] := nbOcc[ T[i] ] + 1;
k := Low(T);
if sens2tri = true then // restitution en ordre croissant
begin for va:=0 to 255
do if nbOcc[va] <> 0
then for j:=1 to nbOcc[va] do begin T[k]:=va; inc(k); end;
end else // restitution en ordre décroissant
begin for va := 255 downto 0
do if nbOcc[va] <> 0
then for j:=1 to nbOcc[va] do begin T[k]:=va; inc(k); end;
end;
end;
begin Result:=tBitMap.create;
with Result do begin
width:=BmpSrc.width; height:=BmpSrc.height; PixelFormat:=pf24bit;
end;
for y := 0 to BmpSrc.height-1 do begin
ScanLinesS[y] := BmpSrc.scanline[y]; // Source
ScanLinesD[y] := Result.scanline[y]; // Destination
end;
TailleFiltre := TailleFiltre div 2;
SetLength(Rouge, (TailleFiltre * 2 + 1) * (TailleFiltre * 2 + 1));
SetLength(Vert, (TailleFiltre * 2 + 1) * (TailleFiltre * 2 + 1));
SetLength(Bleu, (TailleFiltre * 2 + 1) * (TailleFiltre * 2 + 1));
for X := 0 to BmpSrc.Width- 1 do // Parcourir tous les pixels
begin //frmFiltres.labX.caption:=intToStr(X); frmFiltres.labX.update;
for Y := 0 to BmpSrc.Height - 1 do // de l'image
begin
NombrePixels := 0;
for X2 := -TailleFiltre to TailleFiltre do
if (X + X2 >= 0) and (X + X2 < BmpSrc.Width) then // Teste si la colonne X + X2 est sur l'image
for Y2 := -TailleFiltre to TailleFiltre do
if (Y + Y2 >= 0) and (Y + Y2 < BmpSrc.Height) then // Teste si la ligne Y + Y2 est sur l'image
begin
Rouge[NombrePixels]:= ScanLinesS[Y + Y2, X + X2].rgbtRed; // Mémorisation des valeurs
Vert[NombrePixels] := ScanLinesS[Y + Y2, X + X2].rgbtGreen; // des pixels
Bleu[NombrePixels] := ScanLinesS[Y + Y2, X + X2].rgbtBlue; // dans les tableaux
Inc(NombrePixels); // Augmente de 1 le nombre de pixels additionnés
end;
TriParOcc(Rouge, true); // Trier les couleurs par ordre croissant
TriParOcc(Vert, true);
TriParOcc(Bleu, true);
if Odd(NombrePixels) then
begin
ScanLinesD[Y, X].rgbtRed := Rouge[NombrePixels div 2]; // Calculer la
ScanLinesD[Y, X].rgbtGreen := Vert[NombrePixels div 2]; // couleur
ScanLinesD[Y, X].rgbtBlue := Bleu[NombrePixels div 2]; // du pixel
end
else
begin
ScanLinesD[Y, X].rgbtRed := trunc((Rouge[NombrePixels div 2] + Rouge[NombrePixels div 2 + 1]) / 2); // Calculer la
ScanLinesD[Y, X].rgbtGreen:= trunc((Vert[NombrePixels div 2] + Vert[NombrePixels div 2 + 1]) / 2); // couleur
ScanLinesD[Y, X].rgbtBlue := trunc((Bleu[NombrePixels div 2] + Bleu[NombrePixels div 2 + 1]) / 2); // du pixel
end;
end;
end;
end; // FiltreMedian2
Resultats des tests de vitesses comparatifs pour une image-bitMap de 500x347 pixels et une Taille de filtre égale à 10 :
- avec le code de Cedricbi : Mis 63250 millisecondes (hors durée de la prévisualisation)
- avec le code ci-dessus : Mis 2687 millisecondes soit 23,5 fois plus rapide.
A+.
19 avril 2011 à 16:41
Beau travail ... mais bigrement lent : quelle idée d'utiliser Pixels[] qui rame.
Préférer l'utilisation de Bitmap.Scanline pour la vitesse.
En plus, pour le filtre médian, la vitesse est de surcroît ralantie par le Tri des couleurs par ordre croissant avec la procedure Swap(var X, Y : Double) qui peut être avantageusement remplacée par un tri-par-comptage-d'occurences, sous réserver de remplacer le type double par de l'integer.
A+.
20 déc. 2010 à 23:26
20 déc. 2007 à 00:27
Merci pour le code source, c'est ce que je cherche, c'est très gentil.
BVV
19 juil. 2006 à 16:31
Je veux implémenter un programme qui exécute les mêmes fonctions que le votre mais en Borland C++ Builder 6, j'ai téléchargé le ZIP mais je n'ai rien compris car je suis nulle en Delphi. Je vous écris pour vous demander l'exécutable du programme, pour voir qu'es que vous avez utilisé dans la Form MDI.
Merci par anticipation
2 mai 2006 à 16:14
Je suis désolé d'avoir suspendu ce projet mais pour le moment je suis sur un autre programme !
LBBENSCH -> voici le site internet duquel j'ai pris le plus d'idée : http://homepages.inf.ed.ac.uk/rbf/HIPR2/featops.htm
2 mai 2006 à 14:03
Je recherche une fonction graphique qui me permettrais d'extraire les contours d'une image. Maheureusement, étant novice dans le domaine graphique, je ne connais son nom. Tout ce que je cherche, c'est une fonction qui me permet de récupérer une image avev un contour en N/B sans dégradés.
Merci.
17 juin 2005 à 12:41
Very Usefull Thanks...
12 juin 2005 à 19:45
Merci à tous pour votre soutient et vos encouragements !
10 juin 2005 à 18:05
Vous êtes fin !
10 juin 2005 à 17:41
La suite arrivera surement (j'espère) dimanche !
Nouvelle présentation, nouvelles fonctions, code plus commenté et plus simple.
10 juin 2005 à 11:38
Impatient de connaitre la suite !
9 juin 2005 à 18:49
ok, tu vas me demander où? demande dans le forum !!!
9 juin 2005 à 18:38
Par contre je ne sais si tu peux trouver des versions gratuites sur Internet !
9 juin 2005 à 18:03
8 juin 2005 à 20:22
8 juin 2005 à 18:27
Merci de me répondre et merci d'avance !
Bloom1
6 juin 2005 à 19:06
1) Merci pour les sources mais le Delphi est plus compréhensible pour moi !
2) Sinon pour les idées j'en ai encore plein mais il me faut le temps de les mettre en forme ! Mais vous pouvez toujours m'en donner d'autre soit en laissant un commentaire ou en m'écrivant un mail (bignon.cedric@wanadoo.fr).
3) Mes fonctions de TI sont déjà partiellement indépendantes de mon programme (grâce à l'objet TCalcImage) mais pas encore à 100% !
4) Par contre, je ne suis pas trop pour l'idée de pouvoir appeler les fonctions directement par la ligne de commande car pour cela il faudrait que je revois toute la structure de mon programme !
MAURICO -> Merci beaucoup ! Je vais voir ce que je peux en faire mais je pense que cela va m'être très utile !
6 juin 2005 à 10:27
A+
6 juin 2005 à 07:55
- http://www.codeproject.com/cs/media/Image_Processing_Lab.asp
- http://www.codeproject.com/script/articles/list_articles.asp?userid=6556 ==> Voir Rubrique Multimedia/GDI+. Il y a 6 articles.
Idéees :
1) Si tu peux (et veux), essaye de construire ton prg de manière à ca que les fonctions de TI soient totalement indépendantes de ton interface, afin qu'on puisse les ré-utiliser dans d'autres programmes
2) Dans le même esprit, qu'on puisse appeler les fonctions directement en passant les paramètres dans la ligne de commande. Cela est très pratique en TI de pouvoir faire des batchs(des macros) pour des traitements répétitifs.
Si tu veux me joindre n'hésite pas j'ai pleins d'autres idées...
3 juin 2005 à 19:32
Sinon j'avais déjà vu ton programme pour redimensionner les images sans perdre trop en qualité. Si tu me le permet, j'essaierai de l'integrer dans mon programme !
a+
3 juin 2005 à 17:49
3 juin 2005 à 17:23
J'ai aussi pensé à cette erreur qui pourrais survenir ! C'est pour cela que j'ai mis ce "désagrement" à corriger dans la liste A Faire !
Mais ce qui m'ennui c'est que je ne sais pas par quelle valeur je peut remplacer le résultat !
3 juin 2005 à 17:06
ça fait un moment que je voulais tester ta source :)
Je la trouve interessante pour apprendre comment on fait les diverses effets graphiques ...
J' en profite pour te signaler une erreur de division par 0 sur la ligne 80 de ton unité untFiltreDivImage_Image laquelle, par sa nature, pourrait exister dans d' autres unités.
a+
1 juin 2005 à 15:49
Je pense que je vais utiliser ta source pour le "Emboss", et le "Sharpen".
Merci encore !
Toute autre source et commentaire est le bienvenue !
1 juin 2005 à 15:27
http://vbfrance.com/code.aspx?id=18759
elle devrais t'interesser.... même si c'est en VB