Discussion :

[Fatalize]

Bonjour,

Je cherche à faire un algorithme qui me fait tourner une image d'un certain angle. J'ai réussi à écrire un truc qui marche en calculant la nouvelle position de chaque pixel après rotation et à placer chaque pixel à sa nouvelle position dans une nouvelle image temporaire.

Le problème, c'est que même sur une image pas très très grosse, ça fait pas mal de calcul et du coup si je dessine l'image toute les x secondes avec un TTimer, ça rame pas mal dès que je demande une cadence suffisamment élevée pour que la rotation apparaisse fluide.

Voilà mon code :

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
procedure TForm2.Timer1Timer(Sender: TObject);
var i,j,x,y:integer;
begin
     Form2.Canvas.brush.color := clwhite;
     imagetemp := TBitmap.create;
     imagetemp.width:=500;
     imagetemp.height:=500;
     for i := 0 to imagetemp.Width do
     begin
           for j:= 0 to imagetemp.height do
           begin
               x := 128+round((i-200)*cos(Pi*angle/180)-(j-200)*sin(Pi*angle/180));
               y := 99+round((i-200)*sin(Pi*angle/180)+(j-200)*cos(Pi*angle/180));
               imagetemp.Canvas.Pixels[i+50,j+50]:=image.Canvas.Pixels[x,y];
            end;
     end;
     Form2.canvas.Draw(0,0,imagetemp);
     imagetemp.free;
     angle:=angle+5;
end;

(Les "128","200", etc. servent juste à bidouiller pour que ça tourne bien autour du centre de l'image.)

Je sais qu'on peut utiliser des librairies pour faire ce genre de trucs, mais je voulais savoir si c'était pas possible d'améliorer mon truc pour que ça fonctionne ?

Merci.

[batyann811]

La valeur de ton angle ne change durant toute la rotation donc la 1ere chose que tu peux faire c'est pré-calculer tes sinus et cosinus en début de procédure, stocker les résultats dans des variables et utiliser ces variables dans la boucle.

[tourlourou]

Il est peut-être également possible de calculer quelques images à l'avance dans un thread de manière à avoir un simple affichage dans le OnTimer ?

Si les images ont toutes la même taille, un TImageList pour les stocker, un index pour savoir où on en est, et un Synchronise dans le thread pour ajouter les images ?

[Fatalize]

j'ai modifié mon programme pour qu'il recalcule pas le sinus et cosinus à chaque fois pour le même angle et pour qu'il enregistre les images tournées dans un TStringList, et qu'il affiche à partir de ça.

Du coup ça marche impec mais le seul problème c'est que je suis obligé d'attendre qu'il ai fini de calculer toutes les images avant d'afficher, sinon si j'essaye d'afficher en même temps il va afficher plus vite que le calcul et j'ai des erreurs de violation de mémoire du coup.

[tourlourou]

D'où l'utilité d'un thread qui s'exécute en parallèle de l'appli, calcule une seule image à la fois, et quand elle est prête utilise un Synchronize pour l'ajouter à un TImageList (ou l'enregistre et met son chemin dans un TStringList).

Le OnTimer accèdera à la liste (donc pas d'interférence, car synchronisée si le thread y accède) et cherchera la nième image (compteur) pour l'afficher.

Si le calcul d'une image prend plus de temps que l'intervalle du Timer, ce n'est simplement pas possible... on peut tricher un peu en réglant un petit délai supplémentaire pour attendre l'image, si compteur=List.Count, évitant ainsi les violations d'accès. A voir ensuite si rattrapage du délai initial.

Sinon, tu as 72 images à calculer, dont 18 rotations et 3 symétries (90°, 180° et 270°) pour chaque. En Delphi, avec les Scanlines, il est sûrement plus rapide de calculer les symétries que de refaire le calcul trigo. Sous Lazarus, il faut "ruser" pour retrouver un équivalent des ScanLines, cf. posts sur ce sujet