/* example Prescript script file for MPMorph */
/* This example is a simple Warp which fades to black */
/* $VER: FadeToBlack_MPM 4.4 (23.2.97)
 */
parse arg Base

numeric digits 12

options results
GetAttr Base Frame var f
GetAttr Base TotalFrames var t
options

SetAttr Base RMinus TRUNC(f*255/t)
SetAttr Base GMinus TRUNC(f*255/t)
SetAttr Base BMinus TRUNC(f*255/t)

exit