Discussion :

[benDelphic]

" Le filtre de Kramer et Bruckner est l'un des filtres non-linéaires qu'on appelle des filtres de choc, ils réduisent l'étendue des dégradés. Ils opèrent en étendant les minima et maxima de niveaux de gris dans une image. En répétant l'application d'un tel filtre, on aboutit à une image sans le moindre dégradé, donc formée de zones constantes séparées par des marches abruptes. "
voila donc une implémentation Delphi

Code Delphi :

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
19
procedure TForm1.KrameretBruckner1Click(Sender: TObject);
    var i,j :integer;
   intensMax, intensMin :byte;
       begin
      intensMin:= greymin(image1);
       intensMax:= greymax(image1);


        for j:=0 to image1.width do
        for i:=0 to image1.Height do
                 if getrvalue(image1.canvas.pixels[j,i])>=(intensMin+intensMax)/2

                    then
                   image1.canvas.pixels[j,i]:= rgb(intensMax,intensMax,intensMax) 
                   else
                   image1.canvas.pixels[j,i]:=  rgb(intensMin,intensMin,intensMin);

end;

et les deux procédures de calcul des niveaux maxima de gris :

Code Pascal :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function greymax (i:timage):byte;
  var ik ,j :integer;
       v1,v2 :byte ;
          begin
          v2:=0;
            for j:=0 to i.width do
            for ik:=0 to i.Height do
                 begin
                 v1:= floor((getrvalue(i.Canvas.Pixels [j,ik])+getbvalue(i.Canvas.Pixels [j,ik])+getgvalue(i.Canvas.Pixels [j,ik]))/3);
               v2:= max(v1,v2);
end;
              result:=v2 ;
 end;

a noter que cette procédure marche même pour les images en RGB ( mal heureusement j'ai pas encore adapté l'algorithme lui même qui n'utilise que les images en niveaux de gris )

Code Pascal :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function greymin(i:timage):byte ;
  var ik,j :integer;
  v1,v2 :byte ;
    begin
    v2:=255;
       for j:=0 to i.width do
       for ik:=0 to i.Height do
       begin
         v1:= floor((getrvalue(i.Canvas.Pixels  [j,ik])+getbvalue(i.Canvas.Pixels [j,ik])+getgvalue(i.Canvas.Pixels [j,ik]))/3);
        v2:= min(v1,v2);
       end;
       result:=v2 ;
end;

je posterais une version Borland C++ un peu plus tard

[PRomu@ld]

Est ce que tu peux nous mettre des images pour que l'on puisse comparer aux filtre de choc que millie a déjà posté ici :

http://www.developpez.net/forums/sho...d.php?t=416703

Si tu veux un peu plus de perf, tu peux précalculer certains termes.

[benDelphic]

en fait ce filtre ressemble beaucoup au filtre Mediane ...
On obtient une image binaire , sans dégradé .

[PRomu@ld]

sans dégradé .

Le problème est que sur l'image de départ, tu n'as déjà pas de dégradé

en fait ce filtre ressemble beaucoup au filtre Mediane ...

Est-ce qu'il y a des cas où ils réagissent de façon très différentes. Si la réponse est non alors quel peut être l'intérêt de ce filtre ?

[benDelphic]

Promu@ld
en fait il y avait un petit dégradé sur l'image dû au flou appliqué ... c'est pour cela qu 'il est intéressant de l'utiliser pour préparer l'image à d 'autres traitements ( Hough par exemple )
voici donc les autres exemples


après application du filtre




pour les différences :oui il existe . déja les deux filtres sont de deux types différents , le filtre mediane est local et le filtre K-B est global .