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