Re: ParametricPlot3D- Line Thickness
- To: mathgroup at smc.vnet.net
- Subject: [mg78858] Re: ParametricPlot3D- Line Thickness
- From: Roger Bagula <rlbagula at sbcglobal.net>
- Date: Wed, 11 Jul 2007 06:13:33 -0400 (EDT)
- References: <f6kqr4$kb7$1@smc.vnet.net>
John Wallbank wrote:
>Hi
>
>Does anyone know how to increase the thickness of the lines drawn using ParametricPlot3D in Mathematica 5.2?
>
>Also would I be correct in thinking that there is no way of creating semi-transparent images using version 5.2?
>
>Thanks
>John
>
>
>
Try this code ( transparency due to Xah Lee's seashell code):
Clear[x, y, z, gp, gp2]
x = 3*Cos[t]/(Sqrt[3] - Cos[p]);
y = 3*Cos[t + 2*Pi/3]/(Sqrt[3] - Cos[p + 2*Pi/3]);
z = 3*Cos[t - 2*Pi/3]/(Sqrt[3] - Cos[p - 2*Pi/3]);
Clear[gp, gp2]
gp = First@ParametricPlot3D[{x, -y, z, {AbsoluteThickness[1],
Blue}}, {t, -Pi, Pi}, {
p, 0, Pi}, PlotRange -> All, PlotPoints -> {30, 20}];
gp2 = First@ParametricPlot3D[{x, -y, z}, {
t, -Pi, Pi}, {p, -Pi, 0}, PlotRange -> All, PlotPoints -> {30, 20}];
Show[Graphics3D[{gp /. Polygon -> Line, EdgeForm[GrayLevel[.8]],
gp2}, {Boxed -> False}]];