Examples of Dynamic Modules

DynamicModule[{cols,funs},
cols=RGBColor/@{"#3636ff","#ff3636"};
funs[y_,z_]:={{(1-z^4-Abs[y]^1.5)^2,y,z},
{-(1-z^4-Abs[y]^1.5)^2,y,z}};
Manipulate[Show[Table[ParametricPlot3D[funs[y,z],
{y,-(1 -z^4)^2,(1-z^4)^2},PlotRange->1,
Boxed->False,Axes->False,PlotPoints->100,
SphericalRegion->False,Background->RGBColor["#360036"],
PlotStyle->Blend[cols,(z+1)/2],ImageSize ->500,
ViewPoint->65 {1,0,1},ViewAngle ->Pi/256],
{z,-1+t,1-.001,.1}]],{t,.001,.1}]]