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
}
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.