Arrow from a torus to an other

The following image represents two worlds drawn as toruses whith one door on each world. I would like to draw a bidirectional red arrow — if possible as a tube for the fun — going from one door to the other.

But my tentativ is very poor. Any idea ?

torus2 = First[
       ParametricPlot3D[{(4 + Cos[2 \[Pi] v]) Sin[
           2 \[Pi] u], (4 + Cos[2 \[Pi] v]) Cos[2 \[Pi] u], 
         Sin[2 \[Pi] v]}, {u, 0, 1}, {v, 0, 1}, Boxed -> False, 
        Axes -> False, MeshFunctions -> {#3 &}, Mesh -> 0, 
        ColorFunction -> "BrownCyanTones"]];
    p2 = {LightBlue, AbsolutePointSize[20], Point[{2.5, 4, 1}]};
    g3D2 = Graphics3D[{p2, torus2}, Boxed -> False];
    torus1 = First[
       ParametricPlot3D[{(4 + Cos[2 \[Pi] v]) Sin[
           2 \[Pi] u], (4 + Cos[2 \[Pi] v]) Cos[2 \[Pi] u], 
         Sin[2 \[Pi] v]}, {u, 0, 1}, {v, 0, 1}, Boxed -> False, 
        Axes -> False, MeshFunctions -> {#3 &}, Mesh -> 0, 
        ColorFunction -> "AlpineColors"]];
    p1 = {LightRed, AbsolutePointSize[20], Point[{-2.5, -4, 1}]};
    g3D1 = Graphics3D[{p1, torus1}, Boxed -> False];
    a1 = Graphics[{{Thick, 
        Arrow[BezierCurve[{{-2, 3}, {1, 3.5}, {2, 2}}]]}}]
    GraphicsRow[{, g3D2, a1, g3D1,}]

dG9ya Arrow from a torus to an other

Let’s block ads! (Why?)

Recent Questions – Mathematica Stack Exchange