Soyez le premier à donner votre avis sur cette source.
Snippet vu 2 583 fois - Téléchargée 27 fois
; /nETb @window x y w h ; Transforme les couleurs de la surfaces demandé en noir et blanc (gris) ; Notez que cette aliase peut "geler" quelque temps votre pc pour les grandes surfaces ; Ex: /nETb @bleurp 0 0 200 50 donnera l'image que vous pouvez voir (aperçu) ; Ouverture de l'aliase alias noirETblanc { ; Vérification de routine if !$window($1) || $5 == $null { halt } ; Sélection du champs "y" pour pouvoir l'incrémenter var %y = $3 , %w = $2 + $4 , %h = %y + $5 ; Boucle pour la hauteur while %y <= %h { ; Sélection du champs "x" pour pouvoir l'incrémenter var %x = $2 ; Boucle pour la largeur while %x <= %w { ; Nous obtenons la teinte de gris en faisant la moyenne des 3 couleurs (rgb) var %rgb = $rgb( [ $getdot($1,%x,%y) ] ) , %gris = $calc(( $gettok(%rgb,1,44) + $gettok(%rgb,2,44) + $gettok(%rgb,3,44) ) / 3) ; Nous dessinons le point drawdot -nr $1 $rgb( [ %gris , %gris , %gris ] ) 1 %x %y inc %x } inc %y } ; Nous affichons le tout drawdot $1 0 1 200000 200000 }
17 juin 2003 à 14:26
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.