Discussion :

[Darkyl]

Bonjour,

Je suis en train de programmer un petit moteur graphique. Je gère des textures (qui sont des .bmp), que j'affiche sur le canvas de la form. Ma texture est carré et je voudrais l'appliquer sur des cases qui ne sont pas forcément carré. Une case étant représenter par 4 pts avec leurs coord 2d, comment faire pour 'stretcher' ma texture entre ses 4 coord?

J'ai bien une idée:

[code]

pré requis: pt1 en bas à droite
pt2 en bas à gauche
pt3 en haut à gauche
pt4 en haut à droite

je calcul l'équation de pt1-pt2
je calcul l'équation de pt3-pt4
je calcul mon coeff de grandeur (la diff de longueur entre mes deux droite).

je me met au pt3, je trace la colonne des couleurs de ma texture (la ligne de gauche, de haut en bas) jusqu'a pt2, bien sur, en restant parrallèle à pt2_pt3.Chacune des ces opérations est pondéreées par des coeff, pt2-pt3 n'étant pas forcément parallèle et égale à pt4-pt1...

Bref, je sais pas si je suis clair. Cette méthode me semble bonne (avec scanlines) mais trés longue et trés fastidieuse.

De plus, je ne peux pas installer de composants ou de paquets car mon delphi bug... Je dois faire une fonction qui me renvoie la nouvelle image.

Personne n'a un bout de code? ou une version plus simple que mon idée...

[Gilbert Geyer]

Bonjour,

Le sujet est intéressant. Par contre je ne vois pas bien l'intérêt d'une telle usine à gaz.

En principe une texture est un motif sensé être répétitif. Donc pourquoi se casser la tête à vouloir le "stretcher" pour l'appliquer à des cases qui ne forment pas forcément un carré.

Si le bitMap-texture est plus grand que l'ensemble de cases-cibles, il suffit de transférer les pixels de la source vers la cible dans la zone de recouvrement.
Dans le cas inverse (bitMap-texture-carré de taille plus petite que la cible) ben on crée un BitMap-texture-temporaire de taille plus grande que la cible pour se re-placer dans le cas précedent et on procède au décalcage.

Comme tes cases cibles peuvent être mémorisées dans un array of tPoint qui forme donc un polygone, lors de l'utilisation de ScanLines il suffit de faire un "if MonPointCourant est à l'intérieur du polygone alors je décalque sinon je passe au point suivant".

Tiens pour commencer voiçi un bout de code pour cette partie :

Code :

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

1
2
3
4
5
6
7
function PointDansPolygone(const x,y : integer; Polygone : array of TPoint): boolean;
//       Renvoie True si le point x,y est à l'intérieur du Polygone de points
var      Handle : HRGN;
begin    Handle := CreatePolygonRgn(Polygone[0],length(Polygone),Winding);
         Result := PtInRegion(Handle,X,Y);
         DeleteObject(Handle);
end;

Cette fonction marche même si tu prends 4 points formant un noeud-papillon au lieu d'un carré ou d'un trapèze ... et même si l'array of TPoint est par exemple un truc aussi tordu que peut l'être une courbe de Bézier fermée qui reboucle sur elle-même.

A+.

[Darkyl]

merci de ta rép.

Si j'ai bien compris, tu ne fais que 'regarder ' la texture au travers de la fenetre former par ma case... Si c'est cela, ce n'ai pas ce que je veux faire.

En fait, ma texture représente une case quand elle est à 'plat' mais je génère des collines où il y a déplacement aléatoire des 4 points d'une case. Il faut donc que la texture soit stretcher pour avoir un beau rendu, non?

[Darkyl]

voila un exemple

[Gouyon]

Salut

En fait il faut projeter ta texture sur ta forme. Je te conseille d'aller voir les tutoriel DirectX ou openGL.
Mieux encore utilise OpenGL ou DirectX pour le faire.

[Darkyl]

je ne peux malheureusement installer ni opengl ni directx, mon delphi ne peut installer de composants. Je dois donc tout coder à la main.

Je sais que le moteur que je veux faire (style caesar) est faisable en deux deux sur opengl ou directx mais jpeux pas....

pour mes textures, je touche là le point sensible de mon programme;
en effet, c'est une projection sur le plan de ma case que je souhaite faire.

Je pense détenir la solution (voir plus haut) mais c'est trés compliqué, trés long à mettre en oeuvre. J'ai de la chance, je ne suis pas faire ce calcul en temps réel.

Je pensais que peut-être quelqu'un aurais une idée plus courte, ou aurais déjà réfléchi à un tel pblme.

Merci de ta rép Gouyon.

[Lung]

je ne peux malheureusement installer ni opengl ni directx, mon delphi ne peut installer de composants. Je dois donc tout coder à la main.

C'est pas des composants, c'est des bibliothèques (des DLL et autre sources *.pas).
Donc, dans ton code, un simple ajout dans tes uses, et c'est bon.

[Darkyl]

merci lung de ta réponse.
A chaque fois que j'ai téléhargé opengl ou directx (ou quoique ce soit d'autres), il y a un package delphi et je ne peux pas l' ajouter. il me dis des erreurs.par contre s'il était possible d'avoir uniquement le .pas qui m'interesse, je devrais pouvoir le mettre dans mon dossier projet, et l'utiliser dans mon projet...

Pas moyen d'installer des package et les unit fonctionnant souvent entre elles, impossible d'utiliser une seul sans les installer (copier) toutes.

Si quelqu'un à la unit qui m'interesse, c'est-a-dire la procedure qui affiche une texture entre les point1,2,3,4... je suis preneur.

[Rayek]

Pas besoin de composants pour opengl, c'est un uses qu'il te suffit de rajouter dans tes unités.

un bon cours ici sinon il y a le site de nehe où il y a pas mal d'exemple.

[Lung]

un bon cours ici sinon il y a le site de nehe où il y a pas mal d'exemple.

Le lien pour télécharger le tutoriel est mort :
ftp://ftp-developpez.com/nomdomaine/fichiers/opengl.zip

[Rayek]

Le lien pour télécharger le tutoriel est mort :
ftp://ftp-developpez.com/nomdomaine/fichiers/opengl.zip

Oui, on est au courant mais on arrive pas à joindre l'auteur, sinon il reste en version html

[Darkyl]

je vous remercie de vos réponses.

Je compter sur une solution du style:

Code :

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

1
2
3
4
5
 
 
procedure affichetexture(pt1,pt2,pt3,pt4,texture.bmp);
 
//mettre la bibliothèque machin en uses

mais cela aurait été trops simple. J'ai fait entièrement mon moteur graphique à la main, génération du terrain, affichage des batiments, des routes ou ttes objets, déplacement des perso, animation dans le décors. Le seul truc qu'il me manquait était de pouvoir afficher une texture (de l'herbe par ex) sur les cases de la map...juste ça. Mais bon, s'il faut apprendre opengl pour ça, je vais m'y mettre.

C'est que cela fait 2 ans que je bosse la-dessus. J'ai voulu rajouter un terrain plus nivelé (en 3d) sans prédéfinir les pentes, et cela complique tous.

Je vous remercie. Je pense que je reposterai trés vite.. Opengl étant relativement compliqué quand on est issue de Turbo Pascal et qu'on a fait son jeu avec uniquement ce qu'offrait Delphi 1.