Mathematica Manipulating a Surface and Color Contours

[member 428835]

Hi PF!

I'm trying to have color contours of a surface and then manipulate the surface. Using the sample code below, we see that if you step forward Mathematica plots the surface and then also the color contours. However, rather than stepping forward, if we play the video the color contours don't show. Any help would be amazing!

Manipulate[
Show[ParametricPlot3D[{2 s t z, 3 s t, s^2}, {s, -1, 1}, {z, 0, 1},
PlotStyle -> {{Blue, Lighting -> "Neutral", Specularity[Blue, 0.3],
Opacity[0.9]}},
MeshStyle -> {{Yellow, Thick}, {Yellow, Thick}}]], {t, 0, 1}]

 

[DrClaude]

It seems that the contour lines take some time to appear: if you move the slider, you will see the surface change immediately, but it takes a fraction of a second for the contour to be drawn when you stop. I played around with a few parameters, but unfortunately, I couldn't find a way to have the contour be displayed before it changes to the next value of t.