Re: Connecting pipes
- To: mathgroup at smc.vnet.net
- Subject: [mg91349] Re: [mg91321] Connecting pipes
- From: Selwyn Hollis <sh2.7183 at earthlink.net>
- Date: Sun, 17 Aug 2008 06:39:22 -0400 (EDT)
- References: <200808151054.GAA11099@smc.vnet.net>
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, hocaosau 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.
>
- References:
- Connecting pipes
- From: hocaosau@gmail.com
- Connecting pipes