Graphique: fusion de 2 images

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_AntiSlash)