MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: AmatureQ: clipping graphics? Small .nb attached

  • To: mathgroup at
  • Subject: [mg22883] Re: AmatureQ: clipping graphics? Small .nb attached
  • From: Jens-Peer Kuska <kuska at>
  • Date: Tue, 4 Apr 2000 01:25:21 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <8c87vj$>
  • Sender: owner-wri-mathgroup at


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

"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

  • 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