Filtres Anti-aliasing et TBitmap

**Sub0** · 03/03/2005, 08h50

Salut!

Je suis à la recherche d'un filtre anti-aliasing pour intégrer le redimensionnement d'images dans mes projets... J'ai trouvé dans la librairie Graphics32, le code de superbes filtres anti-aliasing. J'ai simplifié le code des unités, voici ce que j'obtiens :
http://sub0.developpez.com/delphi/exe/TableA.zip

Néanmoins, la démo nécessite toujours le type TBitmap32. Ce que je recherche, c'est de pouvoir me passer de ce type et utiliser à la place, le type TBitmap standard (avec éventuellement la propriété pixelformat de l'image destination à pf32bit), surtout que je n'ai pas besoin d'intégrer la masque Alpha dans les images, le type TBitmap me suffirait largement.

Merci de votre aide!

**WolffN** · 03/03/2005, 09h17

Salut

tu pourrais essayer de passer par une variable temporaire en bitmap32

bmp -> bmp32
operations sur bmp32 (anti aliasing,filtre...)
bmp32 -> bmp

@+

**Sub0** · 03/03/2005, 09h21

Merci de ta réponse, mais justement, mon objectif est de supprimer le type TBitmap32 de mon code, en le remplaçant par le type TBitmap standard...

**lil_jam63** · 04/03/2005, 01h52

Voilà une routine que j'utilise et qui fonctionne assez bien je trouve, si ça peut t'aider

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
19
20
21
22
23
24
25
26
27
28
29
30
 
procedure AntiAliasRect(clip: tbitmap; XOrigin, YOrigin,
  XFinal, YFinal: Integer);
var Memo,x,y: Integer;
    p0,p1,p2:pbytearray;
 
begin
   if XFinal<XOrigin then begin Memo:=XOrigin; XOrigin:=XFinal; XFinal:=Memo; end;
   if YFinal<YOrigin then begin Memo:=YOrigin; YOrigin:=YFinal; YFinal:=Memo; end;  (
   XOrigin:=max(1,XOrigin);
   YOrigin:=max(1,YOrigin);
   XFinal:=min(clip.width-2,XFinal);
   YFinal:=min(clip.height-2,YFinal);
   clip.PixelFormat :=pf24bit;
   for y:=YOrigin to YFinal do begin
    p0:=clip.ScanLine [y-1];
    p1:=clip.scanline [y];
    p2:=clip.ScanLine [y+1];
    for x:=XOrigin to XFinal do begin
      p1[x*3]:=(p0[x*3]+p2[x*3]+p1[(x-1)*3]+p1[(x+1)*3])div 4;
      p1[x*3+1]:=(p0[x*3+1]+p2[x*3+1]+p1[(x-1)*3+1]+p1[(x+1)*3+1])div 4;
      p1[x*3+2]:=(p0[x*3+2]+p2[x*3+2]+p1[(x-1)*3+2]+p1[(x+1)*3+2])div 4;
      end;
   end;
end;
 
procedure AntiAlias(clip: tbitmap);
begin
 AntiAliasRect(clip,0,0,clip.width,clip.height);
end;

**Sub0** · 04/03/2005, 03h13

Salut Lil_jam63!

Je connais déjà cet algo (de JanFx) qui est en réalité un flou légé et non un vrai anti-aliasing. D'ailleurs, si tu utilises ce type de filtre dans le redimensionnement d'images, tu t'appercevras rapidement de la différence de qualité par rapport à un vrai anti-aliasing... d'où mes recherches. Merci qu'en même!

**Sub0** · 04/03/2005, 15h42

J'ai réussi à obtenir ce que je voulais sauf que le Bitmap se trouve maintenant retournée à 90° !!
Je continu de chercher une solution. Si ça vous dit de m'aider, voici le code actuel :

http://sub0.developpez.com/delphi/exe/TableA3.zip

Merci d'avance!

**Loran** · 04/03/2005, 16h50

Le sujet m'intéresse beaucoup,

Une piste peut-être, mais tu y avais peut-être pensé.

http://homepages.borland.com/efg2lab...teScanline.htm

Cordialement
Loran

**Sub0** · 04/03/2005, 17h42

Effectivement, ça pourrait-être une solution... ou en partie récupérer le code de la rotation qu'il me faut. Mais à vrai dire, je suppose qu'il doit avoir une solution sans ajouter du code, mais en le modifiant légèrement celui que j'ai déjà. C'est depuis que j'ai ajouté scanLine que le problème est apparu... Dans le code, il faut inverser quelque chose mais je n'arrive pas à trouver quoi... J'ai l'impression qu'il me manque un scanLine vertical en fait... Merci qu'en même pour le lien, j'espère tout de même pouvoir arriver à m'en passer.

**Loran** · 04/03/2005, 17h49

Tout à fait d'accord.
Je dois dire que j'observe le code mais (pour l'instant) pas moyen de voir comment tourner l'image.
J'ai tout juste réussi à tourner l'image dans l'autre sens, donc aucun intérêt.
Je continue à chercher.
Cordialement
Loran

**Nono40** · 04/03/2005, 18h39

Dans ta première boucle, tu as inversé l'accés X/Y dans Src.ScanLine

Voici la boucle correcte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    ClusterY := MapY[J - DstRect.Top];
    For X := MapXLoPos To MapXHiPos Do
    Begin
      HorzBuffer[X - MapXLoPos].R := 0;
      HorzBuffer[X - MapXLoPos].G := 0;
      HorzBuffer[X - MapXLoPos].B := 0;
      For Y := 0 To Length(ClusterY) - 1 Do
      Begin
        SrcLine := src.ScanLine[ClusterY[Y].Pos];
        Inc(HorzBuffer[X - MapXLoPos].R, ClusterY[Y].Weight * SrcLine[X].rgbtRed);
        Inc(HorzBuffer[X - MapXLoPos].G, ClusterY[Y].Weight * SrcLine[X].rgbtGreen);
        Inc(HorzBuffer[X - MapXLoPos].B, ClusterY[Y].Weight * SrcLine[X].rgbtBlue);
      End;
    End;

**tixu** · 04/03/2005, 18h41

j'ai pas regardé ton code de pres mais GR32 fournis une procedure
TBitmap32.Rotate
peut etre y a il moyen d'adapter cette routine au tbitmap standard

**Sub0** · 04/03/2005, 18h59

BRAVO Nono40!!

Je savais bien que tu allais trouver la solution étant l'expert de la manipulation d'image avec Delphi. Je m'étais un peu rapproché de la solution en utilisant Pixels, cependant, je me doutais bien qu'il y avait une solution en inversant des variables, sans arriver à trouver quoi. J'en profite donc pour vous donner l'archive avec le code corrigé. Peut-être serait-il intéressant de le diffuser dans la page des sources...

http://sub0.developpez.com/delphi/AAlias.zip

Merci à tous!

**Sub0** · 05/03/2005, 14h54

Bonjour à tous! Pour info, j'ai modifié la fonction pour pouvoir utiliser des TBitmaps en 24 et 32 bits. Je compte maintenant pouvoir redimensionner des images avec un masque/couleur de transparence, en espèrant que l'affichage de la transparence alpha est déjà prise en compte par windows... Je prépare une démo. Si vous avez des remarques, des suggestions, je suis preneur!

**Loran** · 05/03/2005, 15h06

Salut Sub0,

Super boulot que tu as fait !

Depuis le temps que je voulais afficher des Metafile avec anti-aliasing, maintenant c'est fait !

pour info j'en ai fait un composant, un TAAImage.

Je le mettrai volontier à disposition mais je ne sais pas ou le stocker

Cordialement,
Loran

**Sub0** · 05/03/2005, 19h54

D'après ce que j'ai pu comprendre en regardant le code de la lib, on utilise une capture de l'arrière-plan pour combiner les pixels du masque de transparence avec ceux de l'arrière-plan... Le résultat est une image opaque même si elle paraît transparente. C'est d'ailleurs pour cette raison que la librairie possède un "ImgView"... Je vais essayer de coder la fonction d'affichage pour voir, à+

**sur_uix** · 12/04/2005, 11h17

L'alog fonctionne très bien, par contre j'essais de le porter sous Delphi2005 et il y a quelque erreur.
voici les modifs de Transforms.pas

Code :

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

1
2
3
4
5
Interface Uses Windows, Math, Graphics, SysUtils, Classes,
               System.Runtime.InteropServices;
[old code]
Interface Uses Windows, Math, Graphics, SysUtils, Classes;
[/old code]

Code :

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

1
2
3
4
  SrcLine, DstLine: IntPtr;//PIntegerArray;
  [old code]
  SrcLine, DstLine: PIntegerArray
[/old code]

Code :

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

1
2
3
4
5
6
7
8
9
        ca := (Marshal.ReadInt32(SrcLine,X) And $FF000000) Shr 24;
        cr := (Marshal.ReadInt32(SrcLine,X) And $00FF0000) Shr 16;
        cg := (Marshal.ReadInt32(SrcLine,X) And $0000FF00) Shr 8;
        cb := (Marshal.ReadInt32(SrcLine,X) And $000000FF);
[old code]
        ca := (SrcLine[X] And $FF000000) Shr 24;
        cr := (SrcLine[X] And $00FF0000) Shr 16;
        cg := (SrcLine[X] And $0000FF00) Shr 8;
        cb := (SrcLine[X] And $000000FF);[/old code]

Code :

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

1
2
3
      Marshal.WriteInt32(DstLine,I,(Ca Shl 8) Or (Cr) Or (Cg Shr 8) Or (Cb Shr 16));
[old code]
      DstLine[I] := (Ca Shl 8) Or (Cr) Or (Cg Shr 8) Or (Cb Shr 16);[/old code]

Voici le résultat

**Sub0** · 12/04/2005, 11h59

J'ai ajouté tes modifications dans les sources originales grâce à la directive {$IFDEF VER170}. Quand tu auras un peu de temps libre, si tu pouvais l'essayer pour me confirmer que la nouvelle unité fonctionne bien avec D2005 s'il te plait. C'est la même adresse :

http://sub0.developpez.com/delphi/AAlias.zip

**sur_uix** · 12/04/2005, 12h03

Hourrrrrraaaaaaaaaaaa j'ai trouvé, le problème provient de la lecture depuis le pointeur, pour passer au integer suivant, avec Dot.Net la lecture d'un pointeur ce fais de cette manière :

Code :

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

Marshal.ReadInt32(SrcLine,X);

Et il faut faire attention avec l'offset, X dans mon cas. La doc MSDN nous apprend que l'offset c'est "An additional byte offset" et oui un byte, et moi je veux lire l'int32 suivant, donc je dois faire X*4 (4 byte = 32Bits...)

J'ai donc fais ceci pour la lecture

Code :

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

Marshal.ReadInt32(SrcLine,X*4)

et pour l'écriture :

Code :

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

Marshal.WriteInt32(DstLine,I*4,((Ca Shl 8) Or (Cr) Or (Cg Shr 8) Or (Cb Shr 16)));

Et ça marche......

ça fais deux jours que j'essais de migrer janFX sous Dot.Net, mais je crois que je vais garder Transform.pas

**Sub0** · 12/04/2005, 12h11

J'ai donc remodifié l'unité.

Confirme-moi qu'elle fonctionne stp, je n'ai pas D2005 installé...

[EDIT]
J(utilise aussi le multiplicateur * 4 pour les images 32 bits si j'utilise pByteArray.
D'ailleurs, peut-être que ce type est compatible avec D2005...
Je vais modifié l'unité avec ce dernier pour voir (merci de la tester).