#!MC 1120
$!VARSET |nstep|=21
$!VARSET |ampl|=0.5
$!VARSET |PNG|=1
$!NEWLAYOUT
$!VARSET |new_frame_done|=0
$!IF |PNG|==0
$!EXPORTSETUP EXPORTFORMAT = AVI
$!EXPORTSETUP IMAGEWIDTH = 806
$!EXPORTSETUP EXPORTFNAME = 'animate_displacement.avi'
$!EXPORTSTART
EXPORTREGION = ALLFRAMES
$!ENDIF
$!READDATASET '"RESLT/elast_soln2.dat" '
READDATAOPTION = NEW
RESETSTYLE = YES
INCLUDETEXT = NO
INCLUDEGEOM = NO
INCLUDECUSTOMLABELS = NO
VARLOADMODE = BYNAME
ASSIGNSTRANDIDS = YES
INITIALPLOTTYPE = CARTESIAN2D
VARNAMELIST = '"V1" "V2" "V3" "V4" "V5" "V6"'
$!VARSET |old|=|NUMZONES|
$!VARSET |new|=(|NUMZONES|+1)
$!CREATEMIRRORZONES
SOURCEZONES = [1-|NUMZONES|]
$!FIELDMAP [|new|-|NUMZONES|] SHADE{SHOW = NO}
$!FIELDLAYERS SHOWEDGE = YES
$!FIELDMAP [1-|old|] EDGELAYER{SHOW = NO}
$!LOOP |nstep|
$!DRAWGRAPHICS FALSE
$!VARSET |phi|=(2.0*3.14158*(|LOOP|-1)/(|nstep|-1))
$!VARSET |step|=(|LOOP|-1)
$!VARSET |max_step|=(|nstep|-1)
$!TWODAXIS GRIDAREA{DRAWBORDER = YES}
$!TWODAXIS XDETAIL{TITLE{TITLEMODE = USETEXT}}
$!TWODAXIS XDETAIL{TITLE{TEXT = 'x1'}}
$!TWODAXIS YDETAIL{TITLE{TITLEMODE = USETEXT}}
$!TWODAXIS YDETAIL{TITLE{TEXT = 'x2'}}
$!FIELDLAYERS SHOWSHADE = YES
$!FIELDLAYERS SHOWEDGE = NO
$!FIELDLAYERS SHOWMESH = NO
$!FIELDMAP [1-|old|] SHADE{COLOR = CUSTOM10}
$!ALTERDATA
EQUATION = 'v7=v3*cos(|phi|)-v5*sin(|phi|)'
$!ALTERDATA
EQUATION = 'v8=v4*cos(|phi|)-v6*sin(|phi|)'
$!ALTERDATA
EQUATION = 'v9=v1+|ampl|*v7'
$!ALTERDATA
EQUATION = 'v10=v2+|ampl|*v8'
$!ALTERDATA [|new|-|NUMZONES|]
EQUATION = 'v7=v3*cos(|phi|)-v5*sin(|phi|)'
$!ALTERDATA [|new|-|NUMZONES|]
EQUATION = 'v8=v4*cos(|phi|)-v6*sin(|phi|)'
$!ALTERDATA [|new|-|NUMZONES|]
EQUATION = 'v9=v1-|ampl|*v7'
$!ALTERDATA [|new|-|NUMZONES|]
EQUATION = 'v10=v2+|ampl|*v8'
$!IF |new_frame_done|==0
$!FRAMELAYOUT ISTRANSPARENT = YES
$!LINKING BETWEENFRAMES{LINKFRAMESIZEANDPOSITION = YES}
$!LINKING BETWEENFRAMES{LINKXAXISRANGE = YES}
$!LINKING BETWEENFRAMES{LINKYAXISRANGE = YES}
$!LINKING BETWEENFRAMES{LINKAXISPOSITION = YES}
$!PICK ADDALL
SELECTFRAMES = YES
$!PICK COPY
$!PICK PASTE
$!VARSET |new_frame_done|=1
$!ENDIF
$!TWODAXIS XDETAIL{VARNUM = 9}
$!TWODAXIS YDETAIL{VARNUM = 10}
$!FIELDMAP [1-|old|] SHADE{COLOR = BLUE}
#$!IF |new_frame_done|==0
$!FRAMECONTROL PUSHTOP
$!FRAMELAYOUT ISTRANSPARENT = NO
$!FRAMECONTROL PUSHTOP
#$!ENDIF
$!TWODAXIS YDETAIL{RANGEMIN = -1.2}
$!TWODAXIS YDETAIL{RANGEMAX = 1.2}
$!TWODAXIS XDETAIL{RANGEMIN = -1.3}
$!TWODAXIS XDETAIL{RANGEMAX = 1.3}
$!ATTACHTEXT
ANCHORPOS
{
X = 36.67486331475128
Y = 54.54545454545454
}
TEXTSHAPE
{
FONT = HELV
HEIGHT = 27
}
TEXT = 'bla'
$!PICK ADDALL
SELECTTEXT = YES
$!PICK CUT
$!ATTACHTEXT
ANCHORPOS
{
X = 36.67486331475128
Y = 54.54545454545454
}
TEXTSHAPE
{
FONT = HELV
HEIGHT = 27
}
TEXT = 'wt = |step|/|max_step| x 2p'
$!FIELDLAYERS SHOWEDGE = YES
###################################################
$!DRAWGRAPHICS TRUE
$!REDRAWALL
$!IF |PNG|==1
$!EXPORTSETUP EXPORTFORMAT = PNG
$!EXPORTSETUP IMAGEWIDTH = 2000
$!EXPORTSETUP EXPORTFNAME = 'animate_displacement|step|.png'
$!EXPORT
EXPORTREGION = ALLFRAMES
$!ELSE
$!EXPORTNEXTFRAME
$!ENDIF
$!ENDLOOP
$!IF |PNG|==0
$!EXPORTFINISH
$!ENDIF