home *** CD-ROM | disk | FTP | other *** search
- XVL
- .xvd test.xvd
- .XVDauthor MZL
- .XVDsubtitle 20fps->15fpsの実験
- .XVDtitle XVD作成TEST
- /
- .XVDxlength 192
- .XVDylength 128
- /
- .XVDaspect 0
- /
- .XVDtimebase 60
- .XVDframerate 4
- /
- .XVDpcmtype 0
- .XVDpcmchannel 0
- .XVDpcmfrequency 0
- /
- .framenum 12
- .XVDheaderclose
-
- .load screen 1,3,1
- .poster 0 0
-
- //// RGB領域を確保します。
- .initRGB
- //// 整数変数に0を代入します。
- .setNUM 0
-
- .repeat -
-
- //// 整数変数を3で割り、その余りを代入します。
- .modNUM 3
-
- //// 整数変数の値を内部ステータスに代入します。
- .setVAR
-
- //// 内部ステータスが0の場合、.elseの直前まで実行されます。
- .ifEQ 0
-
- .load ice -l0,0 %d.ice
-
- .deRGB
- .addRGB
- .addRGB
- //// この時点でRGB領域には
- //// 1枚目の要素を3倍したものが格納されています。
-
- .load ice -l0,0 %d.ice
- .addRGB
-
- //// この時点でRGB領域には3:1の比で
- //// 1枚目と2枚目の要素が加算されています。
-
- .divRGB 4
-
- //// この時点で要素が6bitになります。
- .enRGB
- //// GRAM($00C00000~)に合成した内容を転送します。
-
-
- //// 内部ステータスが0でない場合、.fiの直前まで実行されます。
- .else
-
- .ifEQ 1
-
- .load ice -l0,0 %d.ice
- .deRGB
-
- .load ice -l0,0 %d.ice
- .mixRGB
- .enRGB
-
- .else
-
- .load ice -l0,0 %d.ice
- .deRGB
-
- .load ice -l0,0 %d.ice
- .addRGB
- .addRGB
- .addRGB
- .divRGB 4
- .enRGB
- //// 4frame毎に+1します。
- *+1
- .fi
- .fi
-
- :@ 0 0
-
- .addNUM 1
- .next
-
- .end
-