Discussion :

[Invité]

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

[Invité]

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

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
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;

[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?

[Invité]

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

Je test ce que tu m'as donné et je reviens vers toi

[foetus]

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

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

[Invité]

Pas top la documentation en effet ..

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 ?