MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Connecting pipes


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.
>



  • Prev by Date: Re: Exporting ContourPlot data into text file to plot somewhere else..
  • Next by Date: Re: debugging code that contains compile
  • Previous by thread: Connecting pipes
  • Next by thread: Re: Connecting pipes