Re: Re: how draw box with open front
- To: mathgroup at smc.vnet.net
- Subject: [mg85181] Re: [mg85139] Re: how draw box with open front
- From: Murray Eisenberg <murray at math.umass.edu>
- Date: Thu, 31 Jan 2008 00:50:20 -0500 (EST)
- Organization: Mathematics & Statistics, Univ. of Mass./Amherst
- References: <200801301103.GAA11130@smc.vnet.net>
- Reply-to: murray at math.umass.edu
I raised a similar question a couple of months ago here. This is the
code I developed based upon a number of suggestions:
txt[myText_, position_] :=
Text[Style[myText, FontFamily -> "Times", FontSize -> 28,
FontWeight -> "Bold", FontSlant -> "Italic", FontColor -> Black],
position]
With[{y = 0.85},
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}]
]
w.pasman wrote:
> I have dashed lines also on the screen.
> If I rotate it such that I can look into the box, two edges at the back end of the box are dashed, one on the right end of the lower edge and one on the top end of the left edge.
> If I print to ps I get exactly the same.
>
--
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
- References:
- Re: how draw box with open front
- From: "w.pasman" <w.pasman@tudelft.nl>
- Re: how draw box with open front