Is it possible to create a GIF animation like the one shown below, using Mathematica?
UPDATE
I have mainly two puzzles:
- How do I obtain the rendered trigonometric curves (unnecessarily animated);- So I want to know what kind of Mathematica commands can create a "3D rendered tube" like curves per the parametric equations? -- I mean curves that look like the ones in the picture below:
- How do I make sure these curves are smoothly continuous even after being refracted; I also need some clues in representing the equations of the curves (in parametric form or other forms), before and after being refracted; In order to handle the refraction smoothly and continuously, I think parametric equation forms of the curves are necessary since some of the curves may have only implicit form.
For example:
This photo was found from the Internet; I need such clues to create similar GIF animations using Mathematica;
Before creating similar GIF animations, I need to solve the two puzzles; I think there is no other obstacle for me to create it;
Update$^{(2)}$
I am not simply requesting code, answers resolve the two questions mentioned and illustrated with photos above will be accepted. I hope this can be made clearer.
However, there is no reason that I refuse answers with codes which can create similar GIF photos.
Now there is already acceptable answer. I will try to work on it.