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}}] ]