EFFET DE FONDU

; Can be used on demo opening, for example...
; /Ga to run the demo
; N = incrementation ; optional (default = 15)

alias Ga {
  var %N 15, %aff 0, %ticks $ticks, %i 0
  $iif($window(@Ga),window -c @Ga)
  window -pdCdhn +l @Ga 0 0 640 480
  drawrect -f @Ga 1 0 0 0 640 480
  drawtext @Ga 4 verdana 56 200 180 Ga Is Ga
  if ($1) {
    if ($1 <= 255 && $1 > 0) { %N = $1 }
    else { halt }
  }
  while (%i < 255) {
    setlayer %i @Ga
    $iif(!%i, window -a @Ga)
    inc %aff
    inc %i %N
  }
  setlayer 255 @Ga 
  drawtext @Ga 4 verdana 20 180 250 %aff displaying in $calc(($ticks - %ticks ) / 1000) secs.
}