/netb @window x y w h (transformation d'une zone en noire et blanc)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 339 fois - Téléchargée 25 fois

Contenu du snippet

Transforme les couleurs de la surfaces demandée en noir et blanc (gris)

Source / Exemple :


; /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 
}

A voir également

Ajouter un commentaire

Commentaire

Messages postés
229
Date d'inscription
vendredi 16 août 2002
Statut
Membre
Dernière intervention
9 juillet 2003

pas mal...

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.