GRAPHIQUE: FUSION DE 2 IMAGES TRÈS RAPIDEMENT
Gorgot
Messages postés
95
Date d'inscription
lundi 28 janvier 2002
Statut
Membre
Dernière intervention
21 février 2008
-
30 nov. 2002 à 01:57
cs_Lapou Messages postés 30 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 juin 2008 - 28 juil. 2004 à 14:40
cs_Lapou Messages postés 30 Date d'inscription vendredi 23 juillet 2004 Statut Membre Dernière intervention 11 juin 2008 - 28 juil. 2004 à 14:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5212-graphique-fusion-de-2-images-tres-rapidement
https://codes-sources.commentcamarche.net/source/5212-graphique-fusion-de-2-images-tres-rapidement
28 juil. 2004 à 14:40
Quelle est la différence avec [url]http://www.vbfrance.com/code.aspx?ID=21354/url, "FUSION IMMÉDIATE DE 2 IMAGES"
Merci beaucoup
Bonne journée
20 mars 2003 à 22:13
rem: une fois compilée, c'est en effet plus rapide...
si ya d'autres remarques, n'hésitez pas...
19 mars 2003 à 16:02
- rtlmovememory pour décomposer le pixel en composante
- 2 for-next mais 1 seul
bref, economie d'appel aux api (rtlmovememory, et fornext qui est une api vb) donc gain de temps probable.
Note : il faut tester la vitesse dans la version compilé et non pas interprété par vb.
super les api getdibits et setdibits!
ah oui, dernière trouvaille : le do until ... loop est plus rapide que le for...next quand tu compiles.
1 déc. 2002 à 21:31
Sans utiliser les fonctions de base (devrais-je dire : de mer...credi) fourni par vb, on peut faire des bonnes applications.
Les APIs utilisé dans cette source sont a réutiliser pour faire votre propre utilitaire de filtre graphique : il sera difficile de faire plus rapide (on manipule les bitmap directement en mémoire, sans passer par .point ou même setpixel)
L'exemple ici est de faire une fusion de deux images, mais on peut imaginer bien d'autres actions.
30 nov. 2002 à 11:13
Iobj = CreateBitmap(W + 1, H, 1, 32, FinalColor(0, 0))
par
Iobj = CreateBitmap(W + 1, H, 1, xxxxx, FinalColor(0, 0)) avec xxxx la valeur de ton mode de couleur... Mais je vais changer mon code pour qu'il y est plus de prob.
Anthomicro>> Je prefere les choses compliquées ! (je connaissais pas cette api)
30 nov. 2002 à 11:07
Gorgot > il faut que ton bureau soit en mode couleurs 32bits
30 nov. 2002 à 08:00
http://www.vbfrance.com/article.aspx?Val=4155
Voilà
30 nov. 2002 à 01:57
Gorgot