Logiciel de retouche photo style photoshop (29 effets)

Soyez le premier à donner votre avis sur cette source.

Vue 89 392 fois - Téléchargée 6 482 fois

Description

Black-FX est un logiciel genre PhotoShop mais en VB...
ok, il n'y a pas autant de filtres que dans photoshop mais
il y en a assez pour faire de bon trucs.
Certain sont reproduits comme par exemple blur, Noise, ... mais
d'autres inedits comme Flag, Photo19, RGB-FX, ...
Black-FX c'est en tout 29 effets:
-Invert (Inversion des couleurs)
-X-Noise (bruit FX)
-Mosaic (pixelisations progressive)
-Blur (flou progressif)
-GrayScale (noir et blanc avec contrastes)
-Light++ (plus de lumiere)
-Light-- (moins de lumiere)
-STraT (St Germain Style)
-T°c (Thermic V2)
-Aqua-R (aquarelle)
-Photo19 (photo debut du siecle)
-RGB-FX (effet de couleurs)
-X-Black (Noir et blanc sans contrastes)
-H2O (reflet sur une flaque d'eau)
-PhotoCop (Photocopie)
-Comic (encre)
-Replace (recherche et change une couleur de l'image)
-Flash (Flash de lumiere)
-Flag (deformation sinusoïdale)
-true Noise (Bruit classic)
-Flip Horizontal (effet miroir)
-Set WallPaper (mettre l'image en cours en papier peint)
-7 filtres de couleurs personnalisables
undo et redo avec 6 actions de memoire
Restore pour re-aficher l'image d'origine
une palette à dessin tres complete:
-Crayon classique
-pipette
-loupe
-ligne
-cercle
-pot de peinture
-rectangle vide
-rectangle plein
-palette de couleurs
-aerographe à diametre variable
la possibilité d'ouvrir les BMP, JPG et Gif
la possibilité de sauvegarder en BMP
la possibilité de telecharger la derniere version sur 2 servers different en un clic de souris.
vous pouvez accedez à cette page en un clique de souris.
les menus possedent now des icons pour un aspect plus cool.

V 2.0.16 - Capture d'ecran disponible.

merci de voter ici:
http://www.vizue.com/?id=4312

Conclusion :


un probleme? Un conseil?
blackwizzard@fr.st

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

BlackWizzard
Messages postés
1277
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2 -
2001 la date de la source, j'ai commencé la prog et l'info mi-2000, du coup j'avais pas enormement de connaissance ni d'experience a l'epoque...
Comme je l'ai deja dit, si je devait le refaire, j'utiliserai le traitement en memoire, voir je reprogrammerai le soft en le basant sur des dll codé en asm, maintenant que j'ai la connaisance pour le faire, histoire de vraiment utiliser de maniere optimum la puissance du cpu... mais j'ai d'autres choses a faire plus utiles, moins utopique que de concurrencer photoshop ;)
La source est là, les algo sont simple a dechiffrer, si qqun vx reprogrammer le soft il n'y a aucun probleme!
Je serais heureux de savoir que mon code ou mes algo peuvent etre utiles...
cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
82 -
Je sais, j'arrive bien après la bataille, mais voilà : j'ai fais une classe de gestion d'image se basant sur les fonctions de l'API Windows GetDIBits et SetDIBits qui permettent de gagner environ 30x plus de temps que les classiques GetPixel/SetPixel. Je te suggère donc d'utiliser ma source pour augmenter la vitesse de traitement car c'est vrai que c'est assez lent quand même. Dommage que je n'ai pas le temps de prendre la relève de ce soft.

Excellent soft, dommage qu'il soit aussi lent pour certains filtres !

Tu pourrais y gagner pas mal de temps également en mettant des DoEvents dans tes boucles !

8/10

DarK Sidious
BlackWizzard
Messages postés
1277
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2 -
cool!
suis content que qqun reprenne le projet :D
tient moi au courrant!
aKheNathOn
Messages postés
285
Date d'inscription
dimanche 22 juillet 2001
Statut
Modérateur
Dernière intervention
5 décembre 2013
-
Moi je l'aime bien cegenre de soft, je vise pas Adobe, mais bon, je vais surement le refaire... rien que pour continuer l'optimisation j'ai refais ta fonction d'effet de bruit :

Public Sub Blur2(ByVal Taux As Integer)
Dim cnt As Long
Dim x As Long
Dim y As Long
Dim maxp As Long

maxp = UBound(PicBits)

For cnt = 1 To maxp Step 3
x = cnt + CInt(Rnd * Taux)
y = x + (CInt(Rnd * Taux) * BytesPerLine)
If y > maxp - 3 Then y = maxp - 3
PicBits(cnt) = PicBits(y)
PicBits(cnt + 1) = PicBits(y + 1)
PicBits(cnt + 2) = PicBits(y + 2)
Next cnt


End Sub

Je suis passé de 12,5 Secondes d'execution à 550 Millisec, et le tout en mode execution sous VB autant dire qu'en compilé ce sera instantané.

Vivement les vacances d'été, je sent que je vais m'amuser :)
BlackWizzard
Messages postés
1277
Date d'inscription
mercredi 21 mars 2001
Statut
Modérateur
Dernière intervention
21 juin 2009
2 -
lol
merci de ce long commentaire, c tres instructif :)
ce code a 3 ans deja!
depuis je traite en memoire ce genre de donnée, mais je ne compte pas updater le code, je ne fait plus de vb...manque de tps, et surtout je prefere les langages plus structurés; action script, java...

mais si qqun vx updater pour poster sous son nom, c pas un prob ;)

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.