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
>