Xah Talk Show 2021-07-29 WolframLang, Hilbert Curve, Hyperboloid
barLength = 2;
offSet = 0.5;
girth = 1;
tiltLevel = 45*Degree;
numberOfTubes = 30;
oneTube = Rotate[Tube[{{0, 0, -barLength + offSet}, {0, 0, barLength + offSet}}], tiltX, {1, 0, 0}];
Table[Graphics3D[{RandomColor[], Specularity[1, 20], Table[Rotate[Translate[oneTube, {girth, 0, 0}],
n*Degree, {0, 0, 1}], {n, 0, 360, 360/numberOfTubes}]}, Boxed -> False, Axes -> False,
ViewPoint -> {2, 0, 1}, PlotRange -> {{-3, 3}, {-3, 3}, {-3, 3}}],
{tiltX, 10*Degree, 70*Degree - 10*Degree, (1/4)*(70*Degree - 10*Degree)}]