Re: Defective Mesh lines in ContourPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg121138] Re: Defective Mesh lines in ContourPlot3D
- From: Roger Bagula <roger.bagula at gmail.com>
- Date: Wed, 31 Aug 2011 06:03:57 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j3h9b7$ni4$1@smc.vnet.net>
John Furth,
The Mesh Tubes use a lot of memory
( as seen in the model being much larger as output),
so that the real time effect
doesn't work as well in 8.
The last/ first tube mesh line doesn't print:
Clear[g1, g2, x1, x2x3, x, y, z, t, p]
x1 = Cos[t]; x2 = Cos[t + 2*Pi/3]; x3 = Cos[t - 2*Pi/3];
z = x1*p;
x = x2*(-1 + p);
y = x3*(1 - p);
g1 = ParametricPlot3D[{x, y, z}, {t, 0, 2*Pi}, {p, 0, 1},
Axes -> False, Boxed -> False, PlotPoints -> 60,
MeshStyle -> {{GrayLevel[.9], Tube[0.025]}}]
g2 = ParametricPlot3D[{x, y, -z}, {t, 0, 2*Pi}, {p, 0, 1},
Axes -> False, Boxed -> False, PlotPoints -> 60,
MeshStyle -> {{GrayLevel[.9], Tube[0.025]}}]
Show[{g1, g2}]
Export["Ruledellipsedouble_tubelines.stl", %]
For getting color out the web suggests the *.coff
file format: Mathematica gives
Export::infer: "Cannot infer format of file \!\
(\"Ruledellipsedouble_tubelines.coff\"\)."
but will do an *.off file.
Roger Bagula