[beyonder1]

Below is a macro that animates multiple Tecplot frames at the same time. This code is taken from http://http://www.tecplottalk.com/fo...pic.php?t=1043.
I want to change the color of line in each frame. Can anyone suggest how to modify this code.

$!VarSet |MFBD| = 'C:\TECPLOT75'
$!VarSet |lpa| = 1
$!VarSet |NZm1| = |NUMZONES|
$!VarSet |NZm1| -= 1
$!Varset |MOVIE| = "avi"
$!Varset |ANIMSETUP| = "AVI"

$!PROMPTFORTEXTSTRING |ANIMTYPE|
INSTRUCTIONS = "Please enter the animation file type: 1 for AVI, 2 for Raster Metafile"

$!IF |ANIMTYPE| == 2
$!VARSET |MOVIE| = "rm"
$!VARSET |ANIMSETUP| = "RASTERMETAFILE"
$!ENDIF


#Get the name of the output movie
$!PROMPTFORFILENAME |fname|
DIALOGTITLE="Specify output movie file."
DEFAULTFNAME = "*.|MOVIE|"

$!LOOP |NUMFRAMES|
$!if |framemode| >= 2
$!ACTIVEFIELDZONES = [ |lpa| ]
$!Endif
$!if |framemode| == 1
$!XYMAP
ASSIGN { ZONE = |lpa| }
$!Endif
$!FRAMECONTROL PUSHTOP
$!ENDLOOP
$!REDRAWALL
$!Delay 1

$!EXPORTSETUP EXPORTFORMAT = |ANIMSETUP|
$!EXPORTSETUP BITDUMPREGION = ALLFRAMES
$!EXPORTSETUP EXPORTFNAME = '|fname|'
$!EXPORT
APPEND = NO

$!Loop |NZm1|
$!VARSET |lpa| += 1
$!LOOP |NUMFRAMES|
$!if |framemode| >= 2
$!ACTIVEFIELDZONES = [ |lpa| ]
$!Endif
$!if |framemode| == 1
$!XYMAP
ASSIGN { ZONE = |lpa| }
$!Endif
$!FRAMECONTROL PUSHTOP
$!ENDLOOP
$!REDRAWALL
$!Delay 1
$!EXPORT
APPEND = YES
$!ENDLOOP

$!RemoveVar |MFBD|
$!RemoveVar |lpa|
$!RemoveVar |NZm1|
$!RemoveVar |fname|