POT DE PEINTURE (REMPLISSAGE/FLOOD)

Signaler
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
-
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/34556-pot-de-peinture-remplissage-flood

Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
22
Ah ben ça fait plaisir !!! Merci ^^
Y'en a au moins un qui a apprécié :D

Je me demande d'ailleurs qui à bien pu me coller un petit "3" en douce... hum...

Enfin, Lexsty, s'il te reste des question tant sur ce code que sur ses alternatives (comme suggéré), demande moi :)
Messages postés
169
Date d'inscription
samedi 10 décembre 2005
Statut
Membre
Dernière intervention
18 juin 2017

Bonjour.

Très bien pour les commentaires pédagogiques.

A+ JP
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
67
ajouter mémorisation des points traités... accelerera la chose
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
27
je te met ma première méthode,
les couleurs sont dans Ztab()
les tailles de l'image sont bw * bh
les couleurs de références à tester sont Rx, Vx, Bx et en plus il y a la transparence dans Tx
Mpixel() c'est la fonction qui traite le point sélectionné.
il y a plus court à écrire
seulement il y a des problèmes de pile et on est limité en taille.

Private Sub Fill(i As Integer, j As Integer)
If Ztab(i, j).Red <> Rx Then Exit Sub
If Ztab(i, j).Green <> Vx Then Exit Sub
If Ztab(i, j).Blue <> Bx Then Exit Sub
If Ztab(i, j).Trans <> Tx Then Exit Sub
Mpixel i, j
If j > 0 Then Fill i, j - 1
If i > 0 Then Fill i - 1, j
If j + 1 < bh Then Fill i, j + 1
If i + 1 < bw Then Fill i + 1, j
End Sub
Afficher les 9 commentaires