Graphique: fusion de 2 images

Soyez le premier à donner votre avis sur cette source.

Vue 4 703 fois - Téléchargée 436 fois

Description

Cette source permet de fusionner 2 images (comme une superposition de 2 images avec un efffet de transparence: voir l'apercu) avec possibilité de réglages. C'est juste pour le principe que je mets cette source: vb étant lent, c'est completement inutile de développer des progs graphiques... (il faudrait le faire en C). Voila
@+

Source / Exemple :


Dim r(1), g(1), b(1)
Dim a As Integer

Private Sub c_Click()
PictureFusion sl1.Value / 100, sl2.Value / 100
End Sub

Private Sub PictureFusion(Coeff1 As Single, Coeff2 As Single)
For x = 0 To p(2).ScaleWidth
    For y = 0 To p(2).ScaleHeight
        For a = 0 To 1
            WannaRGB p(a).Point(x, y), a
        Next a
    p(2).PSet (x, y), RGB(r(0) * Coeff1 + r(1) * Coeff2, g(0) * Coeff1 + g(1) * Coeff2, b(0) * Coeff1 + b(1) * Coeff2)
    Next y
'DoEvents
Next x
End Sub

Private Sub WannaRGB(lng As Long, ind As Integer)
b(ind) = Abs(Fix(lng / (256 ^ 2)))
g(ind) = Abs(Fix((lng - b(ind) * (256 ^ 2)) / 256))
r(ind) = Abs(Fix(lng - b(ind) * (256 ^ 2) - g(ind) * 256))
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de ADN733R

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.