Re: Circles and Text Offset in Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg87666] Re: Circles and Text Offset in Graphics3D
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 15 Apr 2008 05:52:10 -0400 (EDT)
- Organization: Uni Leipzig
- References: <ftv8vg$7rn$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
Hi, 1) Manipulate[ Graphics3D[ Rotate[Rotate[ Rotate[Line[ Table[{Cos[phi], Sin[phi], 0}, {phi, 0, 2 Pi, 2 Pi/64}]], psi, {1, 0, 0}], th, {0, 0, 1}], phi, {1, 0, 0}], PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}} ], {psi, 0, 2 Pi}, {th, 0, 2 Pi}, {phi, 0, 2 Pi}] is not a circle ? and you can't orient it as you like ?? OK it is a polygon approximation to a circle .. 2) with Graphics3D[ MapIndexed[{Point[#1], Text[Style[#2[[1]], 16], #1, {-1, -1}]} &, {{0, 0, 0}, {1, 0, 0}, {0.5, 0.5, 0.5}}] ] I can move the graphics but the points are never obscured .. Regards Jens Steve Gray wrote: > Two questions: > > 1. Is there any way to define a circle in Graphics3D other > than by using a Cylinder with a very short length? I'm doing that now > but it seems inefficient, and especially calculating the direction of > the cylinder's axis seems unnecessary. The circle could be defined by > 3 points in 3D it goes through and the usual colors, thickness, etc. > Or by its center, radius, and a vector parallel to the axis. > > 2. I have some Points in Graphics3D with a numeric label on > each one. The labels obscure the points. I'd like to move the text off > to the side of the point, but I don't see any offset that applies to > the 2D projection of the text. I tried putting a few spaces before the > actual label, but the spaces are dropped and the label is recentered > around its location so it still obscures the point. > > I've looked in all places that seem relevant. Thanks for any > info. > > Steve Gray >