Re: Draw a circle in 3D
- To: mathgroup at smc.vnet.net
- Subject: [mg99625] Re: Draw a circle in 3D
- From: Szabolcs Horvát <szhorvat at gmail.com>
- Date: Sat, 9 May 2009 03:31:24 -0400 (EDT)
- References: <gu3050$ol8$1@smc.vnet.net>
ibmichuco at hotmail.com wrote:
> Hi,
>
> I would like to draw circles of radius 1 centered at the origin in 3d,
> similar to (but not limited to) the longitude lines of the globe. That
> is planes that lies in the a particular plane made an angle with the
> one of the axes etc.
>
> Is there any mathematica function to do this?
>
No, there isn't, but it's not difficult to write one using
ParametricPlot3D, or directly with Line, and then rotate it as you like.
Graphics3D[
Rotate[Line@
Table[{Cos[u], Sin[u], 0}, {u, 0., 2 Pi, 2 Pi/30}],
{{1, 0, 0}, {1, 0, 1}}]
]