4
$\begingroup$

I'd like to combine several 3D graphics, but the interface, indicated by the arrow in the figure attached between them is alway present. How to eliminate it? Thanks in advance.

Here is my example:

  Graphics3D[{
      {EdgeForm[None], Opacity[0.1], Gray, 
       Cylinder[{{0, 0, 0}, {0, 2, 0}}, 0.5]}, 
      {EdgeForm[None], CapForm["Butt"], Opacity[0.1], Gray, 
       Tube[{{0, 2, 0}, {0, 3, 0}}, {0.5, 0.2}]},

      }, ViewPoint -> {0.8677796780444739`, 2.2396029175520074`, 
       2.383513625315694`}, 
     ViewVertical -> {-2.366747875495254`, -0.028635050478789906`, 
       1.8415006920431496`}, Boxed -> False]

enter image description here

$\endgroup$
6
  • $\begingroup$ My guess is that this is not possible using Cylinder or Tube primitives. BTW running your code produces a different image than the one you posted. $\endgroup$
    – Yves Klett
    Mar 18, 2013 at 9:47
  • $\begingroup$ @YvesKlett, you mean the arrow that I added using mspaint? $\endgroup$
    – yulinlinyu
    Mar 18, 2013 at 9:52
  • $\begingroup$ Not the arrow, but the right part is also a regular cylinder, and not a truncated cone. Interestingly, this is done by EdgeForm["Butt"]. Without it, the object shows correctly as a cone (though with a rounded end). $\endgroup$ Mar 18, 2013 at 10:05
  • $\begingroup$ @YvesKlett,@István Zachar, my figure is obtained in Ver. 8.0. It shows differently in ver.9, as is pointed out by István Zachar. $\endgroup$
    – yulinlinyu
    Mar 18, 2013 at 10:50
  • $\begingroup$ @YvesKlett,@István Zachar, I think it is a bug for ver.9.0. You can see the same case in the documents by searching "Cone" in the help browser, and entering "Properties & relations". $\endgroup$
    – yulinlinyu
    Mar 18, 2013 at 10:55

1 Answer 1

4
$\begingroup$

Or perhaps you want this (two tubes):

Graphics3D[{
  EdgeForm[None],
  CapForm[None],
  Opacity[0.1],
  Gray,
  Tube[{{0, 0, 0}, {0, 2, 0}}, 0.5],
  Tube[{{0, 2, 0}, {0, 3, 0}}, {0.5, 0.2}]
  },
 ViewPoint -> {0.86, 2.2, 2.3},
 ViewVertical -> {-2.3, 0.0, 1.8},
 Boxed -> False]

quicker by tube

$\endgroup$
4
  • 1
    $\begingroup$ Code or it didn´t happen :-P $\endgroup$
    – Yves Klett
    Mar 18, 2013 at 15:14
  • $\begingroup$ OK, you caught me red-handed... $\endgroup$
    – cormullion
    Mar 18, 2013 at 15:20
  • 2
    $\begingroup$ Why not a single tube? Tube[{{0, 0, 0}, {0, 2, 0}, {0, 3, 0}}, {0.5, 0.5, 0.2}] $\endgroup$ Mar 18, 2013 at 15:49
  • $\begingroup$ @Simon Woods, yes, it is the simplest way. $\endgroup$
    – yulinlinyu
    Mar 19, 2013 at 2:45

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Not the answer you're looking for? Browse other questions tagged or ask your own question.