Snippet - /drawtransp

Commenter

Contenu du snippet

Ien à déja eu quelques unes, je sort la mienne.
Voici une alias pour mixer deux parties de picwins avec un effet de transparence
La syntaxe est décrite dans le code

Source / Exemple : 


;drawtransp @in x y w h @out x y w h
;Cette commande prend une partie d'une picwin pour l'appliquer sur une partie d'une seconde picwin en transparence
;@in est la picwin de départ et @out celle de destination
;xywh sont les coordonnées respectives des parties des deux picwin que vous désirez mixer

alias drawtransp {
  window -pfhk0 @buf.transp -1 -1 $4-5
  clear @buf.transp
  window -pfhk0 @buf.transp2 -1 -1 $4-5
  clear @buf.transp2
  drawcopy $1-5 @buf.transp2 0 0 $4-5
  var %dh = 0, %ds = 2
  while (%dh <= 60) {
    var %ds = $iif(%ds == 2,1,2), %dw = $iif(%ds == 1,0,1)
    while (%dw <= 60) { drawdot -rn @buf.transp $rgb(255,0,255) 1 %dw %dh | inc %dw 2 }
    inc %dh 1
  }
  drawdot @buf.transp
  var %iw = 0, %ih = 0
  while (%ih <= $5) {
    while (%iw <= $4) { drawcopy @buf.transp 0 0 60 61 @buf.transp %iw %ih | inc %iw 60 }
    var %iw = 0
    inc %ih 50
  }
  drawcopy -tr @buf.transp $rgb(255,255,255) 0 0 $4-5 $1-5
  drawcopy -tr $1 $rgb(255,0,255) $2-
  drawcopy @buf.transp2 0 0 $4-5 $1-5
}

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_Seregon)