[?] Plot 3D (red-blue) graphs?

Questions
1

Hello!
I would like to create an own constantly moving-waving 3D graph of sin. So it should include two really similar parts of the sin graph as a red one and a blue one. I have written this code:

Plot3D[{Cos[x] Sin[y], Cos[x + .5] Sin[y + .5]}, {x, -5, 5}, {y, -5, 5}, MeshShading -> {{Red, None, None, None}, {Red, None, None, None}}, Mesh -> 30]

And it gives this graph:

3DPlot3D.jpg
3DPlot3D.jpg333×277 71.1 KB

The left is red as it should be, but the right side of the graph should be blue. How can I programme it?
Furthermore, I would like to displace the black (gray) grid, is it possible?
Thank you for helping me.
Best regards,
Kristóf

2

Hi,
Do you mean something like

g1 = Plot3D[{Cos[x] Sin[y]}, {x, -5, 5}, {y, -5, 5}, 
   MeshShading -> {{Red, None, None, None}}, Mesh -> 30];
g2 = Plot3D[{Cos[x + 0.5] Sin[y + 0.5]}, {x, -5, 5}, {y, -5, 5}, 
   MeshShading -> {{Blue, None, None, None}}, Mesh -> 30];

10048two.svg
10048two.svg360×292 264 Bytes

I’m not it is “pretty”, but IMHO this may answer your post

3

Do you want to produce stereo anaglyphs? If so, then you might want to look at this Mathematica StackExchange post.

4

Yes, I do. This is what I originally want. Thank you very much, my friend!