3D plot of hemisphere pushing into a triangular membrane or surface

*To*: mathgroup at smc.vnet.net*Subject*: [mg110271] 3D plot of hemisphere pushing into a triangular membrane or surface*From*: Garapata <warsaw95826 at mypacks.net>*Date*: Fri, 11 Jun 2010 02:09:21 -0400 (EDT)

I'd like to create a 3D plot of some kind with 2 key elements. 1. something that looks like a membrane stretched across a unit triangle with coordinates {{1,0,0}, {0,1,0},{0,0,1}} 2. a hemisphere that would press up from behind the membrane Basically a hemisphere pushing up through or intersecting a plane. I'll then set up a Manipulate so I can control 3 parameters: diameter of the sphere; how far it penetrates through the plane defined by the triangle; and where it penetrates the plane of the triangle. The Manipulate should be straight forward, I think I can handle that part easily enough. But the plot part has eluded me. I've searched the documentation for anything that looked relevant. Graphics3D[{Sphere[{0, 0, 1}, 1], Sphere[{1, 0, 1}, 1/2]}, =E2=80=A8 BoxSty= le - > Directive[LightGray]] Which shows 2 spheres intersecting and Plot3D[UnitTriangle[x, y], {x, -1, 1}, {y, -1, 1}, PlotRange -> All, BoxStyle -> Directive[LightGray]] which shows something one could think of as a membrane both look promising, but I can't figure out where to go next. I haven't done a lot of graphics with Mathematica and just need an idea of where to start. Any thoughts appreciated. Thanks, G P.S. I made a couple of responses to thank forum participants for their help on previous posts that never appeared in the forum. Not certain what happened, but belatedly, many many thanks.