Discussion :

[Archimède]

Un truc sympa est de réaliser un composant qui dérive d'un bitmap et qui permet de raisonner directement en coordonnées mathématiques plutôt qu'en coordonnées informatiques.

Par exemple, Monbitmap:=Tmonbitmap.create(monwidth,monheight,-10,10,-15,15)

ainsi, c'est comme si je réalisais un repérage mathématique en extended
avec minx,maxx,miny et maxy.

dans mon exemple, on va de -10 à +10 en abscisse et j'ai redéfini toutes les méthodes de dessin de mon composant...
exemple un line(rpoint1,rpoint2) pour tracer une ligne ou rpoint est un record
type Trpoint
x,y:extended;
end;

comme ça, c'est nickel, il suffit de faire son dessin sur une feuille quadrillée en
coords mathématiques et de pondre une application graphique en 3 coups de click.
Puis pour se faire des graphiques, c'est parfait.
Avec ça, on raisonne directement en coordonnées réelles.

@+

[CapJack]

Tu as trouvé une méthode pour le faire simplement, Archimède ? Faudrait que tu nous donnes ton code...

[Archimède]

cadeau... si tu veux un exemple, tu me le dis...

[CapJack]

Hmm.. tu redéfinis toutes les fonctions dont tu as besoin. C'est loin d'être "simple".

[Archimède]

oui, c'est vrai. J'ai pris une ugraphique comme ça...
J'en ai fait d'autres suivant les besoins.
Là, c'est encore en construction puisqu'il faut la compléter.
Sinon, l'utilisation en est très simple...
Ce qu'il faut comprendre, c'est déjà la fonction transfo et ce que j'ai mis dans le constructor create.
Tu te fais un petit schéma... essaie de voir comment passer des coords mathématiques aux coordonnées informatique et tu pigeras mes formules :

Gx:=width/(xmax-xmin);
Gy:=height/(ymax-ymin);
O:=pt(-xmin*Gx,ymax*Gy);

result:=point(round(O.x+x*Gx),round(O.y-y*Gy));

après, je pense, tu sauras faire...

@+

[Franck SORIANO]

oui, c'est vrai. J'ai pris une ugraphique comme ça...
J'en ai fait d'autres suivant les besoins.
Là, c'est encore en construction puisqu'il faut la compléter.
Sinon, l'utilisation en est très simple...
Ce qu'il faut comprendre, c'est déjà la fonction transfo et ce que j'ai mis dans le constructor create.
Tu te fais un petit schéma... essaie de voir comment passer des coords mathématiques aux coordonnées informatique et tu pigeras mes formules :

Gx:=width/(xmax-xmin);
Gy:=height/(ymax-ymin);
O:=pt(-xmin*Gx,ymax*Gy);

result:=point(round(O.x+x*Gx),round(O.y-y*Gy));

après, je pense, tu sauras faire...

@+

Vous connaissez SetWindowOrgEx ? C'est une fonction du GDI qui permet de déplacer l'origine du repère. Après on peut continuer à dessiner avec les fonctions standards, il suffit de faire :

Code :

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

1
2
3
4
5
6
 
  SetWindowOrgEx(Canvas.Handle, -Width div 2 , -height div 2, nil);
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(Width div 2, 0);
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(0, height div 2);

Et on dessine les axes du repère, avec le 0 centré au milieu de la zone.

A partir de NT4, on peut utiliser SetWorldTransform pour définir une transformation linéaire à appliquer au repère.
Ainsi avec :

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
 
var
  xFrm : XFORM;
begin
  xFrm.eM11 := 1;
  xFrm.eM12 := 0;
  xFrm.eM21 := 0;
  xFrm.eM22 := -1; // Retourne l'axe des y
  xFrm.eDx := width div 2; // changement d'origine X
  xFrm.eDy := height div 2; // changement d'origine Y
  SetGraphicsMode(Canvas.Handle, GM_ADVANCED);
  SetWorldTransform(Canvas.Handle, xFrm);
 
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(Width div 2, 0);
  Canvas.MoveTo(0, 0);
  Canvas.LineTo(0, height div 2);

On déplace à la fois le centre du repère, et on retourne l'axe des Y. C'est directement le GDI qui calculera toutes les transformations nécessaires : On applique une matrice de transformation aux coordonnées indiquées à chaque fonction de dessin.
Ainsi, avec une seule fonction on peut réaliser la plupart des transformations : Symétrie, rotation, homotéthie, changement d'origine...