Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

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