Problème de rotation d'image

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous
J'essaie de faire pivoter une image de 90°.
Je me suis inspiré d'un bout de code ( https://www.developpez.net/forums/d1...calees-d-1-px/ )

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  BGRABitmap, BGRABitmapTypes;
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure dessin();
  private
    procedure RotateImage(src, dest: TBGRABitmap; rot: Integer);
  public
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.lfm}
procedure TForm1.dessin();
var
  iSrc, iDest: TBGRABitmap;
begin
   iSrc := TBGRABitmap.Create('d:\a.png');  //image qui fait 800*600
  try
    iDest := TBGRABitmap.Create(iSrc.Height, iSrc.Width);   //image destination pour rotation 90°
 
    try
      // rotations et dessin sur le canevas final
 
      RotateImage(iSrc, iDest, 90);    // rotation 90°
     iDest.Draw(Canvas, 100, 10);
        idest.SaveToFile('d:\new_a.png');
 
    finally
      iDest.Free;
    end;
  finally
    iSrc.Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 dessin;
end;
 
procedure TForm1.RotateImage(src, dest: TBGRABitmap; rot: Integer);
// rotation d'une image : 1 = 0 / 2 = 90 / 3 = 180 / 4 = 270
var
  Tmp: TBGRABitmap;
begin
  Tmp := TBGRABitmap.Create(Src.Width,Src.Height, BGRAblack);
  try
    tmp.PutImageAngle(src.Width/2,
                    src.Height/2,
                    src,
                    rot,
                    tmp.Width/2,
                    tmp.Height/2);
    tmp.Draw(dest.Canvas, 0, 0);
  finally
    Tmp.Free;
  end;
end;
 
end.

Mon image faire bien une rotation de 90 ° mais elle est coupée.
Mon image de départ fait 800*600 pixels et à la sortie j'ai une image de 600*800 pixels mais tronquée.

Pièce jointe 652444

Pièce jointe 652445

22/03/2024, 10h08
Andnotor

On voit clairement que l'image subit une rotation par le centre sur un support qui fait toujours la taille originale de 800x600, TopLeft passe à X=100, Y=-100.

Les dimensions de Tmp devraient plutôt être égales à Dest ; mais on peut se demander si cette image intermédiaire est vraiment nécessaire puisque Dest est finalement identique à Tmp (enfin est censée être identique).
22/03/2024, 10h55
anapurna

Salut

L'image est clairement tronquée aux deux extrémités.

PS : L'image de destination doit etre un carré. Les côtés sont de la valeur de la diagonale de l'image source.
Exemple pour une image de 800x600 : ton image de destination doit avoir des côtés de 1000x1000 ; de cette manière il n'y aura pas de troncature.
Et à la fin, si c'est un retournement à 90°, tu réduiras le canevas final.
22/03/2024, 12h26
Andnotor

On tiendrait compte de la diagonale pour des angles non multiples de 90 (ici on sait que les cotes sont juste inversées) mais on la pré-calculerait pour fixer une taille définitive à la destination.
En partant d'une image plus grande, tu devras de toute façon la calculer mais en plus calculer des offsets ;)

L'image ici est tronquée sur les côtés suite à la rotation (sur 800 on en garde que 600) et sur le haut suite au Draw (image décalée soit 100 à 700 mais transposée de 0 à 600).
22/03/2024, 16h19
Roland Chastain

2 pièce(s) jointe(s)
Bonjour !

Soit dit en passant, pour faire ce que vous voulez, il y a une méthode plus facile, avec la fonction RotateCW, qui fait tout le boulot sans rien demander. ;)
Code:

1 2 FImage1 := TBGRABitmap.Create('grafx2_banner.png'); FImage2 := FImage1.RotateCW;
Pièce jointe 652478

Salut
J'ai modifié le code et celui-ci marche.

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
48
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  ExtCtrls, BGRABitmap, BGRABitmapTypes;
 
type
  { TForm1 }
 
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure rotation(rot: single);
  private
    { private declarations }
  public
    { public declarations }
    bmp: TBGRABitmap;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
procedure TForm1.rotation(rot: single);
var
  bitmap: TBGRABitmap;
begin
  bitmap := TBGRABitmap.Create(bmp.Height, bmp.Width);
  Bitmap.PutImageAngle(Bitmap.Width / 2 - 0.5, Bitmap.Height / 2 - 0.5, bmp,
    rot, bmp.Width / 2 - 0.5, bmp.Height / 2 - 0.5);
  bitmap.SaveToFile('test_rot.bmp');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBGRABitmap.Create('test.bmp');
  rotation(90);
end;
 
end.

FImage1.RotateCW proposé par Roland est le plus simple mais j'essaie de comprendre les différents codes que je teste.

merci à tous