[VB6] [Graphisme] Inversion dans picturebox

**tomnie** · 16/04/2003, 11h37

voila j'ai une image en noir et blanc (fond noir / dessin blanc) chargé dans une picture box.
jusque là no souci !
mais je souhaiterais inversé ces couleurs et donc avoir fond blanc et dessin noir pour une impression plus agreable et moins gaspilleuse d'encre.
est ce possible et si oui comment

:

**ThierryAIM** · 16/04/2003, 11h40

a part un traitement pixel par pixel sur la largeur et la hauteur de l'image, je ne connais pas d'autre solution mais les pros de l'image ont peut-être ca en magasin

**SpaceFrog** · 16/04/2003, 11h42

c'est en noir et blanc ou en niveaux de gris ???

Si c'est jsute en noir et blanc il y a eu un post recemment sur le traitement des pixels ...

si c'est en niveaux de gris le principe serait le même mais il faudra juste rouver la foction pour trouver l'inverse du niveau de gris...

D'ailleurs si quelqu'un à un idée de comment caluler le négatif d'une couleur en rgb par exemple je suis preneur...

**tomnie** · 16/04/2003, 11h47

merci à vous.
pour info c'est juste du noir en fond et une autre couleur pour le dessin (mais le plus souvent du blanc).
tant qu'on est dans les trucs reloud : peut on agrandir de facon propre un bmp ?

**ThierryAIM** · 16/04/2003, 11h53

-> SpaceFrog :

Si je me souviens bien :

Vert+Rouge+Bleu = Blanc = &HFFFFFF

Donc le négatif doit être le complément de la couleur en question a &HFFFFFF

(par ex : &H0000FF + &HFFFF00 = &HFFFFFF)

sous reserve

**SpaceFrog** · 16/04/2003, 11h58

bmp = bitmap <> vectoriel !!!
si tu aimes bien le cubisme ....

**DarkVader** · 16/04/2003, 12h03

Logiquement

Code :

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

Négatif = Original xor &hFFFFFF

**tomnie** · 16/04/2003, 12h10

bah frog, on peut otujours posé la question on sait jamais....
sinon j'ai recuperer un code de toi pour faire une recup des pixels
je suppose qu'une fois le traitement fait tu recoles le tout de la meme facon dans le picturebox ?

sinon pour le coup du negatif : cela fonctionnera t il si je veux passé d'un dessin en jaune a un dessin en noir car la couleur du dessin est propre a la config locale et donc je n'y peux rien ...

**ZuZu** · 16/04/2003, 12h26

Tommie, pour agrandir un bmp, les coéfficients multiple de 2 sont préférable (et surtout plus simple à faire), il te suffit dans les deux dimensions d'ajouter autant de pixels qu'il en existe entre chaque ligne. La couleur de ces pixels est la moyenne de ceux qui l'entoure. (des huits qui l'entourent pour être plus précis, ou seulement des deux sur la même ligne, ou colonne, ou comme tu veux ...)

**SpaceFrog** · 16/04/2003, 12h31

Yes Tom tu recolles tout de la même façon , donc le traitememnt est un peu long ...

En plus si tu colles une moyenne des couleurs en ajoutant des lignes ...

**tomnie** · 16/04/2003, 12h33

bon donc voici mon code :

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
 
Public Sub inverse_image(Picture1 As PictureBox)
 
largeur_p = Picture1.ScaleWidth
hauteur = Picture1.ScaleHeight
 
'Ligne à ligne
For pixCy = 0 To hauteur
    'colonne par colonne
    For pixCx = 0 To largeur
   Picture1.PSet (pixCx, pixCy), Picture1.Point(pixCx, pixCy) Xor &HFFFFFF
    Next pixCx
Next pixCy
 
End Sub

le probleme est qu'il ne me convertit que la premiere colonne de noir à blanc et c'est tout.
qui peut m'expliquer, SVP !

**DarkVader** · 16/04/2003, 12h33

En fait, plus généralement concernant le négatif

Code :

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

Négatif = Original xor maxCodage

où maxCodage vaut la valeur la plus haute pouvant être affectée à un point pour représenter une couleur
ex:
Noir et blanc 1
Niveaux de gris 128
Couleurs 24bits 2^24-1
Couleurs 32bits 2^32-1

**tomnie** · 16/04/2003, 12h37

ok dark mais si mon utilisateur a choisi un jolie rose comme couleur d'origine pour son dessin quel sera sa couleur après opération ?
mon but serait vraiment de revnir toujours à du noir et blanc

**SpaceFrog** · 16/04/2003, 12h43

pour le coup de la première colonne, t'aurais pas un problème entre largeur_p et largeur ???

**ZuZu** · 16/04/2003, 12h44

Et bien remplace les couleurs foncées par du noir et les couleurs claires par du blanc.

**ZuZu** · 16/04/2003, 12h47

Un conseil pour le traitement, même avec des images de petite taille ca peut être assez long, tu as tout intérêt à copier dans un tabelau tous les pixels de l'image, faire les traitements que tu veux sur ce tableau et ensuite recopier le tableau dans l'image.

**tomnie** · 16/04/2003, 12h49

ok bien vu frog

pour les couleurs comment on fait la difference ...

**tomnie** · 16/04/2003, 12h51

bon voila ce code fonctionne .
en tout cas je n'ai pas eu de probleme pour le moment !

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
 
Public Sub inverse_image(Picture1 As PictureBox)
 
 
largeur = Picture1.ScaleWidth
hauteur = Picture1.ScaleHeight
Dim couleur As Long
'Ligne à ligne
For pixCy = 0 To hauteur
    'colonne par colonne
    For pixCx = 0 To largeur
        couleur = Picture1.Point(pixCx, pixCy)
        If couleur = vbBlack Then
            Picture1.PSet (pixCx, pixCy), vbWhite
        Else
            Picture1.PSet (pixCx, pixCy), vbBlack
        End If
    Next pixCx
Next pixCy
 
End Sub