ColorFunction -> Function[{x, y, z, f}, Hue[Sin[x] Sin[z]]],ColorFunctionScaling -> False, Mesh -> None]ContourPlot3D[x^2 + z^2 == 60 y, {x, -40, 40}, {y, 0, 21.6}, {z, -40, 40},MeshFunctions -> {#1 - #2 &, #1 + #2 &},MeshShading -> {{Y...