ParametricPlot3D- Line Thickness

[John Wallbank]

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

[chuck009]

Just concatenate a color and thickness as the fourth parameter:

ParametricPlot3D[{Cos[t], Sin[t], 2, {Red, Thickness[0.03]}}, {t, 0, 2 Pi}]

[dh]

Hi John,

you must insert the graphics directive Thickness at the aprobriate place

into Graphics3D. E.g.:

g=ParametricPlot3D[{Sin[x ],Cos[x], x },{x,0,2Pi}]

Show[Insert[g,Thickness[0.1],{1,1}]]

this will show one normal plot and a seconed plot with a thick curve.

hope this helps, Daniel

[Jean-Marc Gulliet]

John Wallbank wrote:
> Hi
>
> Does anyone know how to increase the thickness of the lines drawn using ParametricPlot3D in Mathematica 5.2?

Hi John,

According to the online documentation, "ParametricPlot3D[{a, a, a, s}, …
] shades the plot according to the color specification s." You can use
this fourth argument to modify more than just the color, however. For
instance,

In[1]:=
ParametricPlot3D[{Cos[5*t], Sin[3*t], Sin[t], {AbsoluteThickness[3],
Orange}}, {t, 0, 2*Pi}, PlotPoints -> 100];

[... graphic with a thick spiraling orange line deleted ...]

> Also would I be correct in thinking that there is no way of creating semi-transparent images using version 5.2?

I am afraid you are totally correct on that point.

Regards,
Jean-Marc

> Thanks
> John
>

[Roger Bagula]

John Wallbank wrote:

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}]];