Re: AmatureQ: clipping graphics? Small .nb attached
- To: mathgroup at smc.vnet.net
- Subject: [mg22883] Re: AmatureQ: clipping graphics? Small .nb attached
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 4 Apr 2000 01:25:21 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <8c87vj$78p@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I clip only the oper two parts from your graphics. I should be easy
for you to make a complete solution
invalidPointQ[{x_, _, z_}] := ( 10 + x - z < 0 || 10 - x - z < 0)
invalidPolyQ[Polygon[pnts_]] :=
If[TrueQ[And @@ (invalidPointQ /@ pnts)], {}, Polygon[pnts]]
Show[hiveG /. p_Polygon :> invalidPolyQ[p]]
Hope that helps
Jens
"Steven T. Hatton" wrote:
>
> Note: Please don't flame me if I did a no-no by attaching a notebook. I
> looked on the Mathematica site for pointers on how to send notebooks, and they
> suggested attachments to mail. If this is undesirable, I will
> discontinue this practice.
>
> The listing below generates a manifold of square parallel pipettes. I
> would like to know if there is a way to "clip the wings" on this thing.
> That is, can I restrict the range of the ParametricPlot3D so that the
> internal plane segments do not protrude from the surface of the largest
> square? I attempted to use notation such as, "/; j -size -1 <= x <=
> size + 1 -j, to restrict the range of evaluation on the chamber
> formula. I couldn't get it to work. If anybody has an answer to this
> specific question I would be grateful if you would share it.
>
> If you know of a more eloquent way of generating this whole thing, that
> would also be appreciated. Sorry if my Mathematica code looks like my little
> sister's preschool scribble. I am just an armchair mathematician.
>
> TIA,
>
> Steve
C5FC69C18E68400A2--