Re: Defective Mesh lines in ContourPlot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg121136] Re: Defective Mesh lines in ContourPlot3D
- From: Roger Bagula <roger.bagula at gmail.com>
- Date: Wed, 31 Aug 2011 06:03:35 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <j3h9b7$ni4$1@smc.vnet.net>
John Flutz,
I tried two experiments with the mesh-tubes
and only one worked:
Clear[x, y, a, g, p, k]
x[t_, p_] := (1 - p)*Cos[t]
y[t_, p_] := (1 + p)*Sin[t]
p = (k + 1)/10
ga = ParametricPlot3D[{x[Pi*t, p], y[Pi*t, p], p}, {t, -1, 1}, {p, -1,
1}, Axes -> False, Boxed -> False, PlotPoints -> 60,
MeshStyle -> {{GrayLevel[.7], Tube[0.1]}}]
Export["RuledTetrahedron_tubelines.stl", ga]
The Mesh tubes show up in the stl model.
Roger Bagula