SNIPPET - /DRAWTRANSP

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