Discussion :

[sp2308]

Bonjour

Je m initie au canvas avec quelques difficultés...mathematiques car je souhaite faire pivoter un triangle sur son axe.
je dessine le triangle comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  Points: array of TPoint;
begin
  SetLength(Points, 3);
  Points[0] := Point(105, 50);
  Points[1] := Point(190, 50);
  Points[2] := Point(150, 130);
  Canvas.Pen.Width := 2;
  Canvas.Pen.Color := clred;
  Canvas.Brush.Color := clgray;
  Canvas.Polygon(Points);

J imagine que je dois, dans l ordre
-creer les nouvelles coordonnées
-effacer le triangle
-dessiner le triangle aux nouvelles coordonnées.

Mais je ne sais pas faire :
-Pour effacer je pense redessiner par dessus avec la couleur de fond.
-deplacer les coordonnées : là gros pb mathematique

Merci de votre aide

stephane

[Gilbert Geyer]

Bonjour,

sp2308 : deplacer les coordonnées : là gros pb mathematique

Pour déplacer les coordonnées des 3 sommets :

Code :

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

1
2
3
4
5
6
7
8
9
procedure RotaPoint(Centre: tPoint; var Pt: tPoint; dPhiRad: Extended); // dPhiRad = Angle de rotation en Radians
var Rxx, Ryy: Double; si, co: Extended;
begin
  Rxx := Pt.x - Centre.x; Ryy := Pt.y - Centre.y;
  // Application de la matrice de rotation par rapport au centre xc,yc
  SinCos(dPhiRad, si, co);
  Pt.x := round(Centre.x + (Rxx * co - Ryy * si));
  Pt.y := round(Centre.y + (Rxx * si + Ryy * co));
end;

-Pour effacer je pense redessiner par dessus avec la couleur de fond.

C'est faisable si le fond est uniforme.
Par contre il est également possible de dessiner avec pen.mode:=pmXor ou pmNotXor et de redessiner par dessus avec le même mode ce qui efface les traits précédents avant de tracer le triangle dans sa nouvelle position.

A+.

[sp2308]

Merci pour ta réponse mais je ne comprends pas un truc.
C est une procedure. donc je ne comprends pas comment recuperer les valeurs nouvellement calculées car je ne vois pas comment elles peuvent affecter mon canvas autrement qu en les recuperant
dsl
stéphane

[Gilbert Geyer]

Re-salut,

C est une procedure. donc je ne comprends pas comment recuperer les valeurs nouvellement calculées

Oui, c'est une procédure, mais dont le paramètre Pt: tPoint est une variable : procedure RotaPoint(Centre: tPoint; var Pt: tPoint; dPhiRad: Extended);
et donc c'est ce point qui subira la rotation.

Code :

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

1
2
3
var Points: array of TPoint;
  Centre: tPoint;
  dPhiRad: Extended;

Code :

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

1
2
3
4
5
6
begin
 for i:=0 to high(Points) do begin
   ...
   RotaPoint(Centre, Points[i], dPhiRad);
   ...
end;

A+.

[sp2308]

merci cette fois c est clair pour moi