Re: line thickness and ScatterPlot3D

*To*: mathgroup at yoda.physics.unc.edu*Subject*: Re: line thickness and ScatterPlot3D*From*: twj*Date*: Wed, 7 Apr 93 08:21:11 CDT

Gary Gray writes: >I am using the the following command on a set of data: > >hLines = ScatterPlot3D[ hComps, PlotJoined -> True ] > >and then I am defining some axes using the following sort of >cammands: > >e1={{0,0,0},{1.5,0,0}}; e2={{0,0,0},{0,1.5,0}}; >e3={{0,0,0},{0,0,1.5}}; >PO = {0,0,+1}; PP = {0,0,-1}; >PFp= {1.000000,0.000000,0.000000}; PFn= >{-1.000000,0.000000,0.000000}; >PUp= {0.000000,1.000000,0.000000}; PUn= >{0.000000,-1.000000,0.000000}; > >q = Graphics3D[ {Thickness[0.0018], > Line[e1],Line[e2],Line[e3], > PointSize[.01], > Point[PO],Point[PP], > Point[PFp],Point[PFn], > Point[PUp],Point[PUn] > }] > > >The problem is the following... > >When I Show hLines and q using the following: > >Show[ q, > hLines, > Boxed -> False, > AmbientLight -> GrayLevel[1], > PlotRegion -> {{-0.4, 1.3},{-0.5,1.3}}, > ViewPoint -> {2.186, 1.700, 1.945} > ] > >the line thickness for the hLines is much too thick. The line thickness of the hLines is not affected by the Thickness in the q Graphics3D object since the combined object will look like Graphics3D[ {First[q], First[hLines]}, opts] since the Thickness of q is in a sub-list its scope will not reach to hLines. If you want to make thin lines from ScatterPlot3D you have to put them in explicitly. There are many ways to do this. This will work... In[1]:= <<Graphics/Graphics3D.m In[2]:= hComps = Table[ {t Cos[t], t Sin[t], t}, {t,0,4Pi,Pi/20}]; In[3]:= hLines = ScatterPlot3D[ hComps, PlotJoined -> True ] Out[3]= -Graphics3D- In[4]:= newhLines = hLines /. Line[ pts_] -> {Thickness[0.001], Line[ pts]} Out[4]= -Graphics3D- In[5]:= Show[ newhLines] Out[5]= -Graphics3D- Tom Wickham-Jones WRI