Re: Animation: sphere filling with water
- To: mathgroup at smc.vnet.net
- Subject: [mg38824] Re: Animation: sphere filling with water
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 15 Jan 2003 02:19:20 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <b00rkj$pmh$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
something like:
Block[{$DisplayFunction = Identity},
sp = ParametricPlot3D[{Cos[phi]*Sin[th], Sin[phi]*Sin[th], Cos[th]},
{th,
Pi/2, Pi}, {phi, 0, 2Pi}];
water = ParametricPlot3D[{r*Cos[phi], r*Sin[phi], -0.1 +
0.1*r*Sin[4phi],
SurfaceColor[RGBColor[0.2, 0.2, 1.0]]}, {r, 0, 0.95}, {phi, 0,
2Pi}];
]
Show[sp, water]
Regards
Jens
jmbjorkl at mappi.helsinki.fi wrote:
>
> Hi!
>
> I'm trying to make an animation of an hollow sphere which is filling up
> with water (so it has to be colored blue :). So far I haven't been able to
> come up with anything useful. I'm using Mathematica version 4.0. Any
> advice?
>
> -Jenni