Re: Animation: sphere filling with water
- To: mathgroup at smc.vnet.net
- Subject: [mg38831] Re: Animation: sphere filling with water
- From: Tom Burton <tburton at brahea.com>
- Date: Wed, 15 Jan 2003 02:19:44 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
Here's an easy way, using a moving white rectangle to create the effect of
rising water.
Needs["Graphics`Colors`"]
Table[
Show[Graphics[{
Blue,Disk[{0,0},1],White,Rectangle[{-1,y},{1,1}],Black,Circle[{0,0},1]
},AspectRatio->Automatic]],
{y,-1,1,0.1}]
If this trick doesn't work for you then you must animate the moving front of
water directly. This is more work, but someone will probably post a
solution.
Tom Burton