Discussion :

[spyk]

Bonjour a tous!

Alors, je suis en train de travailler sur un petit jeux en delphi 2D.

En se moment, je fait le mapper de niveaux, et je me heurte a un petit probleme.

Comment decouper une image, pour en prendre qu'une partie?

En faite, je cherche comment faire l'equivalent en delphi de cette fonction lua

Code :

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

1
2
 
image:blit(x, y, tiles, tileX, tileY, 16, 16)

donc cette fonction fait sa : on dessine sur l'image a la position x,y un morceau recuperer sur l'image "tiles" a la position tileX,tileY de taille 16x16

Merci a vous tous!!

[tourlourou]

tu peux regarder du côté de CopyRect et Draw(Rect ?) des Bitmaps, sûrement.

mais on ne peut pas dessiner dans un TImage : il faut lui affecter le bitmap ensuite

[spyk]

Arf... et dire que mes imagessont en png

Ya pas un langage ou c faisable facilement?

[Lung]

Arf... et dire que mes imagessont en png

Ya pas un langage ou c faisable facilement?

Il existe surement une bibiothèque Delphi qui prennent en compte ce format.

[spyk]

Certe oui, mais pour manipuler les images...
deja que j'arrive pas a prendre un carré de 34x34 pixel sur un jpg...

[spyk]

Ah j'ai trouvé dans les librairies lua la fonction en C :

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
 
static int Image_blit (lua_State *L) {
	int argc = lua_gettop(L);
 
	if (argc != 4 && argc != 5 && argc != 8 && argc != 9) return luaL_error(L, "Argument error: image:blit() takes 3, 4, 7 or 8 arguments, and MUST be called with a colon.");
 
	bool alpha = (argc==5 || argc==9)?lua_toboolean(L, -1):true; 
	if(argc==5 || argc==9) lua_pop(L, 1);
 
	SETDEST
 
	int dx = luaL_checkint(L, 1);
	int dy = luaL_checkint(L, 2);
	Image* source = *toImage(L, 3);
 
	bool rect = (argc ==8 || argc == 9) ;
	int sx = rect? luaL_checkint(L, 4) : 0;
	int sy = rect? luaL_checkint(L, 5) : 0;
	int width = rect? luaL_checkint(L, 6) : source->imageWidth;
	int height = rect? luaL_checkint(L, 7) : source->imageHeight;
 
	if (!dest) {
		if (!adjustBlitRectangle(width, height, SCREEN_WIDTH, SCREEN_HEIGHT, &sx, &sy, &width, &height, &dx, &dy)) return 0;
		alpha?
			blitAlphaImageToScreen(sx, sy, width, height, source, dx, dy) :
			blitImageToScreen(sx, sy, width, height, source, dx, dy);
	} else {
		if (!adjustBlitRectangle(width, height, dest->imageWidth, dest->imageHeight, &sx, &sy, &width, &height, &dx, &dy)) return 0;
		alpha?
			blitAlphaImageToImage(sx, sy, width, height, source, dx, dy, dest) :
			blitImageToImage(sx, sy, width, height, source, dx, dy, dest);
	}
	return 0;
}

le fichier entier ici http://spyk1.free.fr/luagraphics.cpp


si quelqun est chaud pour une ptite conversion en delphi de ca!!!


merci!

[spyk]

une petite question, puisque personne veut se lancer, je vais essayer de convertur le code, mais avant de me lancer, vous croyer que c'est possible?