Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1993
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1993

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

Search the Archive

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









  • Prev by Date: Re: Why printing?
  • Next by Date: Fucntional Derivatives and Variational Calculus
  • Previous by thread: line thickness and ScatterPlot3D
  • Next by thread: Help me