Re: Changing line style behind surfaces
- To: mathgroup at smc.vnet.net
- Subject: [mg81614] Re: Changing line style behind surfaces
- From: Steve <stephenmdalton at gmail.com>
- Date: Sat, 29 Sep 2007 02:30:39 -0400 (EDT)
So I assume it is impossible in Mathematica 6. Though the following code, taken from the Guidebook, works wonders in 5.2:
DashHiddenEdges[g_Graphics3D, dd_, opts___] :=
Module[{gr3d, gr1, gr2},
(* do not display graphics *)
gr3d = Append[g, DisplayFunction -> Identity];
(* the dashed polygon edges *)
gr1 = Graphics[gr3d /. Polygon[l_] :> {Dashing[dd],
Line[Append[l, First[l]]]}];
(* the original graphics *)
gr2 = Graphics[gr3d];
Show[{gr2, gr1}, opts, AspectRatio -> Automatic]]
So it is then safe to assume that Mathematica 6 is incapable of doing even simple things possible in 5.2
Steve