Now I am working on something like this:
helix[a_, b_][t_] := {a*Cos[t], a*Sin[t], b*t}
listept1 = Table[helix[1, 0.35][t], {t, 0, 4 Pi, .25}];
listept2 = Table[helix[0.25, 0.35][t], {t, 0, 4 Pi, .25}];
mapdecalgarde = Map[{0, 0, 0.5} + # &, {listept1}, {2}];
exterieurSup1 = Map[{0, 0, 0.1} + # &, listept1];
mapdecalgarde1 = Map[{0, 0, 0.5} + # &, listept1];
Listedepointgardecorps1 =
Flatten[{{mapdecalgarde1}, {exterieurSup1}}, 1];
ptsGarCor1 = Transpose[Listedepointgardecorps1];
ligneGardeCor1 = Map[Line, ptsGarCor1];
barriere = Graphics3D[{Opacity[0.25], RGBColor[1, 3, 0], Tube[ptsGarCor1]}]
and simple rods I want to substitute with this particular shape:
Graphics3D[{CapForm["Round"], Tube[{{0, 100, 0}, {100, 300, 0}, {300, 300, 100}}, 40]}, Boxed -> False, PlotRange -> All]
in this orientation:
so it freely rotates around (let say) Z direction where XY plane alongside the twofold symmetry axis.
helix[ ]
lacks the definition $\endgroup$helix[]
(which I have previously forgot to include). $\endgroup$