Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

Re: how draw box with open front

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83811] Re: [mg83790] how draw box with open front
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Sat, 1 Dec 2007 05:42:54 -0500 (EST)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200711301028.FAA07652@smc.vnet.net>
  • Reply-to: murray at math.umass.edu

With most helpful suggestions from Kevin McCann to use Polygon in the 
Graphics3D, I've come up with the following which looks the way I want 
in Mathematica (6):

   With[{y = 0.85},
  case = Graphics3D[{
     EdgeForm[{Thick, Black}], LightGray, Opacity[0.7],
     Polygon[{{0, 0, 0}, {1, 0, 0}, {1, y, 0}, {0, y, 0}, {0, 0, 0}}],
     Opacity[0.7],
     Polygon[{{1, 0, 0}, {1, y, 0}, {1, y, 1}, {1, 0, 1}, {1, 0, 0}}],
     Polygon[{{0, 0, 1}, {1, 0, 1}, {1, y, 1}, {0, y, 1}, {0, 0, 1}}],
     Polygon[{{0, y, 0}, {1, y, 0}, {1, y, 1}, {0, 1 y, 1}, {0, y,
        0}}], Polygon[{{0, 0, 0}, {0, y, 0}, {0, y, 1}, {0, 0, 1}, {0,
        0, 0}}],
     {Thick, Dashed, Line[{{1, y, 0}, {0.75, y, 0}}],
      Line[{{0, y, 1}, {0, y, 0.8}}]},
     txt["y", {1, 0.35, 0.95}], txt["y", {1.105, 0.35, 0.1}],
     txt["x", {0.6, 0.7, 1.1}], txt["x", {1.12, 0.6, 0.65}]
     },
    Boxed -> False, Lighting -> "Neutral", ViewPoint -> {1, -2, 0.75}]
  ]

However, if I Export "case" as EPS and then view it in GhostView (or 
incorporate it into a LaTeX source and distill the result to pdf), I now 
see spurious dashed grid lines across the polygonal faces -- in white 
against the back and left-side polygons and in light gray across the top 
and right-side polygons.  There's also one spurious diagonal drawn 
across each of those polygons.

What happened?  How can these spurious elements be eliminated in the 
exported file?

Note that I believe I'm really forced to export to EPS, since the 
ultimate target is for inclusion in a LaTeX document where the EPS 
format is required so that TeX can determine the bounding box.

Murray Eisenberg wrote:
> In Mathematica 6, what's the best way to draw a convincing box 
> (rectangular parallelepiped) with an open front?
> 
> Of course I tried Cuboid, but no matter how I try to treat the faces, it 
> still looks like the front is solid, too.


-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305


  • Prev by Date: Re: Using ReadList to read a string
  • Next by Date: Re: Using ReadList to read a string
  • Previous by thread: Re: how draw box with open front
  • Next by thread: Re: how draw box with open front