Mise en noir et blanc d'une timage
Soyez le premier à donner votre avis sur cette source.
Vue 4 954 fois - Téléchargée 327 fois
Description
C'est un code assez simple mais reservé aux ordi a processeur 633MHz et + car la conversion d'une image tres petite est assez longue.
Copier ce source dans une procédure ButtonClick et ajouter deux TImages :
- le premier, nomé image1, contient l'image de départ.
- le second, nommé image2, contient l'image d'arrivée.
Vous pouvez aussi ne pas changer de TImage, c'est a dire avoir directement l'image décoloréé dans le TImage d'origine en modifiant les "image2." en "image1."
Copier ce source dans une procédure ButtonClick et ajouter deux TImages :
- le premier, nomé image1, contient l'image de départ.
- le second, nommé image2, contient l'image d'arrivée.
Source / Exemple :
var //def des variables
x,y:integer;
pix,r,v,b:variant;
begin
for x:=1 to image1.picture.width do //on prend une ligne
begin
for y:=1 to image1.picture.height do //les colonnes de cette ligne
begin
pix:=image1.canvas.Pixels[x,y]; //on prend les couleurs RVB
r:=int(pix mod 256); //rouge
V := Int((pix - r) / 256 Mod 256); //vert
B := Int((pix - r) / 256 / 256); //bleu
R := (r + V + B) / 3; //ajout des trois couleurs puis division par trois pour obtenir un niveau de gris
image2.Canvas.pixels[x,y]:=rgb(r,r,r); //ecriture du pixel en N&B a la même place sur l'autre Timage
end;
end; //end du bloc qui dboute avant for y:=1 to ...
Conclusion :
Vous pouvez aussi ne pas changer de TImage, c'est a dire avoir directement l'image décoloréé dans le TImage d'origine en modifiant les "image2." en "image1."
Codes Sources
A voir également
- Image simple noir et blanc
- Image noir et blanc simple - Meilleures réponses
- Inverser noir et blanc photoshop - Forum - Graphisme/design
- Visual Basic / VB.NET : Mettre une image en noir et blanc rapidement - CodeS SourceS - Guide
- IRC : /netb @window x y w h (transformation d'une zone en noire et blanc) - CodeS SourceS - Guide
- C# / .NET : Effet de flou et noir et blanc sur une image. - CodeS SourceS - Guide
- Flash : Passage du noire et blanc à la couleurs - CodeS SourceS - Guide
31 mars 2009 à 14:38
- Messages postés
-
3832
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 17 février 2022
4831 mars 2009 à 14:14
poste tes questions sur le forum parce qu'ici tu auras très peut de chances d'avoir une réponse !!!!
31 mars 2009 à 14:07
Meric pour votre aide.
procedure TForm1.BiChromieClick(Sender: TObject);
Const
seuil=128;
filtrage=$ffffff; //blanc
Var
x,y,A,B:word;
begin
x:=A+1;
x:=B-1;
for x:=0 to image1.picture.width-1 do
begin
for y:=0 to image1.picture.Height-1 do
begin
if image1.Picture.Bitmap.Canvas.Pixels [x,y]and $ff>seuil then
image1.Picture.Bitmap.Canvas.Pixels [x,y]:=$ffffff else image1.Picture.Bitmap.Canvas.Pixels [x,y]:=$000000;
end;
end;
end;
Lol maintenant il faudrait que grâce à mon image noir et blanc je trouve le centre de gravité de l'image en utilisant le calcul des moments géométriques. Et aussi, complétement à part, que je mette dans un afficheur la luminosité moyenne de l'image
Lol dure la première semaine à faire du DELPHI :s
Une idée ? lol
- Messages postés
-
3832
- Date d'inscription
- vendredi 23 juillet 2004
- Statut
- Modérateur
- Dernière intervention
- 17 février 2022
4831 mars 2009 à 11:47
31 mars 2009 à 11:19
Merci quand même Cirec.
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.