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--

```

• Prev by Date: Re: Trying to define: Fractional Derivatives & Leibniz' display form for output and templates
• Next by Date: RE: Eigensystem Error on Machine Precision Matrices
• Previous by thread: AmatureQ: clipping graphics? Small .nb attached
• Next by thread: Programming question: Iterative solution