GR32 et rotation d'image

Version imprimable

05/08/2016, 09h29
Invité

GR32 et rotation d'image

Bonjour,

Je souhaite faire une rotation sur un TImage (en gardant la transparence).

Super simple sur Firemonkey.. cela se complique sur VCL.

J'utilise actuellement Gaphics32 dont la dernière version date de 2012 .. et je ne trouve pas pour faire la rotation de manière "propre".

A chaque fois je perd la transparence et le tour devient noir .. :(

Merci

Il suffit que je poste pour trouver .. il y a un peu de lag mais cela fonctionne :

Code:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
procedure Rotation(angle: integer; PictureSource: TPicture);
type
  TRGBArray = ARRAY[0..10000] of TRGBTriple;
  pTRGBArray = ^TRGBArray;
  TArrayLigneCible = Array[0..10000] of pTRGBArray;
 
var
  BitmapSource, BitmapCible : TBitmap;
  x,y : integer;
  LigneSource, LigneCible : pTRGBArray;
 
begin
 
  BitmapSource := TBitmap.Create;
  BitmapCible := TBitmap.Create;
 
  try
    BitmapSource.assign (PictureSource.Graphic);
    BitmapSource.pixelformat := pf24bit;
    BitmapCible.pixelformat := pf24bit;
 
    BitmapCible.Height := BitmapSource.Width;
    BitmapCible.Width := BitmapSource.Height;
 
    for y:=0 to BitmapSource.Height - 1 do
    begin
      LigneSource := BitmapSource.ScanLine[y];
      for x:=0 to BitmapSource.Width - 1 do
      begin
        if (angle > 0) then
        begin
          LigneCible := BitmapCible.ScanLine[x];
          LigneCible[BitmapSource.Height - 1 - y] := LigneSource[x];
        end
	      else
        begin
          LigneCible := BitmapCible.ScanLine[BitmapSource.Width - x - 1];
          LigneCible[y] := LigneSource[x];
        end;
      end;
    end;
    PictureSource.assign(BitmapCible);
  finally
    BitmapSource.free;
    BitmapCible.free;
  end;
end;

05/08/2016, 10h36
ShaiLeTroll

C'est une rotation à +90° ou -90° ?

As-tu essayé les fonctions intégrées à l'OS comme SetWorldTransform et son XFORM structure comme dans le sujet Rotation d'image avec bitblt/xform ou le sujet [débutant] Traitement d'image: WMF ou bmp?
05/08/2016, 11h53
Invité

Hélas oui j'ai posté trop vite ... +90 et -90 .. :calim2:

Je test ce que tu m'as donné et je reviens vers toi :)
05/08/2016, 12h17
foetus

Non te prends pas le chou avec les solutions de ShaiLeTroll: (Image32 + scanline) == la méthode la plus rapide :mrgreen: :mrgreen:

Entoure ton code avec des BeginUpdate/ EndUpdate et passe par une variable pour récupérer chaque ligne/ chaque scanline (Gr32::PColor32Array)

Édit: Après peut-être que l'idée c'est de passer par "Sampling and Rasterization" mais ce n'est pas super clair, il n'y a pas d'exemples clairs
05/08/2016, 13h02
Invité

Pas top la documentation en effet .. :D

J'avais essayé ca, mais le tour reste tout noir, impossible d'avoir la transparence :/
http://graphics32.org/documentation/...ods/Rotate.htm

Une fois que j'ai fait mon Scanline il faut que je calcul ou mettre le point ?
05/08/2016, 14h07
Invité
Graphics32 permet les TRotLayer, super simple pour la rotation.
Code:

1 2 L.Bitmap.LoadFromFile('C:\Users\r.valtot\Documents\RAD Studio\Projets\equidManager\images\test.png'); L.Angle := 30
Par contre, je n'arrive pas a lui faire gérer la transparence .. ni que l'image soit "stretch" :calim2:

Je dois pas etre le seul a vouloir faire de la rotation de TImage autre que par 90° 8O
05/08/2016, 15h49
Andnotor

Je ne connais pas non plus graphics32 plus que ça mais :

Citation:

Envoyé par retwas

Par contre, je n'arrive pas a lui faire gérer la transparence .. ni que l'image soit "stretch" :calim2:

D'après la doc, il faut une librairie additionnelle pour charger correctement un png avec transparence.

Dans ton exemple de ce matin, tu travailles sur des bitmap 24 bits, il n'y a donc aucune transparence :koi:

Sinon, je ne peux que te conseiller de passer à GDI+ qui lui gère la plupart des formats nativement avec transparence ainsi que les transformations.
05/08/2016, 20h48
foetus

Si tu travailles avec une bitmap tu peux éventuellement tester un truc :mrgreen:: créer/ ajouter un layer, y mettre ta bitmap et définir la transparence de ce layer

J'ai posté du code C++ avec des layers ici sur ce fil de discussion

Je viens de télécharger la librairie GDI+.
Pas de soucis pour la rotation par 90, 180 ou 270°, en revanche pas n'importe quel autre angle ça se complique ..

J'ai trouvé un exemple sur stackoverflow, mais celui ci ne fonctionne pas (ou plus), les 3/4 des fonctions sont en private.

Code:

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
31
32
33
34
35
36
37
38
procedure RotateBitmap(Bmp: TBitmap; Degs: Integer; AdjustSize: Boolean;
  BkColor: TColor = clNone);
var
  Tmp: TGPBitmap;
  Matrix: TGPMatrix;
  C: Single;
  S: Single;
  NewSize: TSize;
  Graphs: TGPGraphics;
  P: TGPPointF;
begin
  Tmp := TGPBitmap.Create(Bmp.Handle, Bmp.Palette);
  Matrix := TGPMatrix.Create;
  try
    Matrix.RotateAt(Degs, MakePoint(0.5 * Bmp.Width, 0.5 * Bmp.Height));
    if AdjustSize then
    begin
      C := Cos(DegToRad(Degs));
      S := Sin(DegToRad(Degs));
      NewSize.cx := Round(Bmp.Width * Abs(C) + Bmp.Height * Abs(S));
      NewSize.cy := Round(Bmp.Width * Abs(S) + Bmp.Height * Abs(C));
      Bmp.Width := NewSize.cx;
      Bmp.Height := NewSize.cy;
    end;
    Graphs := TGPGraphics.Create(Bmp.Canvas.Handle);
    try
      Graphs.Clear(ColorRefToARGB(ColorToRGB(BkColor)));
      Graphs.SetTransform(Matrix);
      Graphs.DrawImage(Tmp, (Cardinal(Bmp.Width) - Tmp.GetWidth) div 2,
        (Cardinal(Bmp.Height) - Tmp.GetHeight) div 2);
    finally
      Graphs.Free;
    end;
  finally
    Matrix.Free;
    Tmp.Free;
  end;
end;

De ce fait je n'ai pas accès au .RotateAt, et autres.. je fait quelque chose de travers ?

Merci

09/08/2016, 21h41
Andnotor
Il y a deux démos très bien faites expliquant tous les cheminements. Regarde-les de plus près.
Code:

1 2 Graphs.RotateTransform(Angle); Graphs.DrawImage(...);
20/08/2016, 12h06
Invité

La démo est super mal fichu tout est dans le même projet pas si simple..