fishtop = ParametricPlot3D[{x, .2(2x-x^2) Cos[t], (2x-x^2) Sin[t]}, {x,-.25,2},{t,0.1,Pi-.1}, PlotPoints -> {15,10}]; fishbottom = ParametricPlot3D[{x, .2(2x-x^2) Cos[t], (2x-x^2) Sin[t]}, {x,-.25,2},{t,Pi+.1,2Pi-.1}, PlotPoints -> {15,10}]; leftstripe = ParametricPlot3D[{x, .2(2x-x^2) Cos[t], (2x-x^2) Sin[t]}, {x,-.25,2},{t,-0.1,.1}, PlotPoints -> {15,3}]; rightstripe = ParametricPlot3D[{x, .2(2x-x^2) Cos[t], (2x-x^2) Sin[t]}, {x,-.25,2},{t,Pi-0.1,Pi+.1}, PlotPoints -> {15,3}]; x = 1.7; t1 = Pi/2 + 1; t2 = Pi/2 - 1; eyes = Graphics3D[{{PointSize[0.05], Point[{x, .2(2x-x^2) Cos[t1], (2x-x^2) Sin[t1]}], Point[{x, .2(2x-x^2) Cos[t2], (2x-x^2) Sin[t2]}]}} ];
In[20]:=
Show[fishtop,fishbottom,leftstripe,rightstripe,eyes,
ViewPoint -> {2,2,0}
];
Up to Aquarium