Re: Connecting pipes

*To*: mathgroup at smc.vnet.net*Subject*: [mg91379] Re: Connecting pipes*From*: hocaosau at gmail.com*Date*: Tue, 19 Aug 2008 07:14:50 -0400 (EDT)*References*: <200808151054.GAA11099@smc.vnet.net> <g88v4l$gst$1@smc.vnet.net>

On Aug 17, 5:39 am, Selwyn Hollis <sh2.7... at earthlink.net> wrote: > Place a sphere at the connection point? e.g., > > Graphics3D[ > {EdgeForm[], Cylinder[{{0, 0, 0}, {0, 0, 1}}, .1], > Cylinder[{{0, 0, 0}, {1, 0, 0}}, .1], > Cylinder[{{1, 0, 0}, {1, 0, 1}}, .1], > Cylinder[{{1, 0, 1}, {0, 0, 1}}, .1], > Sphere[{0, 0, 0}, .1], > Sphere[{1, 0, 0}, .1], > Sphere[{0, 0, 1}, .1], > Sphere[{1, 0, 1}, .1] > }] > > - Selwyn Hollis > > On Aug 15, 2008, at 6:54 AM, hocao... at gmail.com wrote: > > > Hi, > > > I'd like to draw a network of connecting of pipes (like that 3D pipe > > screen saver). Supposed I have the coordinates stored in Coord, and > > I'd like to connect, say, Coord[[4]] to Coord[[2]], etc. > > > I figure I could use the cylinder function (damned Euler angle!) to > > draw a single pipe, but haven't quite figured out how to connect them > > together. Any suggestion? > > > Thanks > > > Caosau > > PS. Bonus if I can do it with cartesian coords. Many thanks to Jens and Selwyn, I'll take a look at MathGl3D and the ref. Selwyn, Is this Cylinder function from a newer version of Mathematica? I use 5.2 and it does not seem to accept the syntax. Regards, Caosau

**References**:**Connecting pipes***From:*hocaosau@gmail.com