MathGroup Archive 2011

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

Search the Archive

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





  • Prev by Date: TransformedDistribution
  • Next by Date: Re: avoid combining like terms in algebraic expression
  • Previous by thread: Re: Defective Mesh lines in ContourPlot3D
  • Next by thread: Re: Defective Mesh lines in ContourPlot3D