4 crossing tetra-tori / 交差する４つの四芒星環

a = 3; (* center hole size of a torus *)

b = 4; (* tetra-torus *)

c = 2; (* distance from the center of rotation *)

d = 4; (* number of torus *)

h = 1; (* height of a torus *)

SetOptions[ParametricPlot3D, PlotRange -> Full, Mesh -> None,

Boxed -> False, Axes -> False, PlotPoints -> 400, ImageSize -> 3000,

Background -> RGBColor[{10, 40, 40}/255],

PlotStyle -> Directive[Specularity[White, 30], Texture[Import["D:/tmp/86.jpg"]]],

TextureCoordinateFunction -> ({#4, #5 2 Pi} &), Lighting -> "Neutral"];

f[v_] := Cos[2 Cos[Cos[Cos[v]]]];

x = (a - f[t] - Sin[b s]) Cos[s + Pi/(2 b)];

y = (a - f[t] - Sin[b s]) Sin[s + Pi/(2 b)];

z = (Sin[t/2] - h Sin[b s]) + c;

rot = Table[{x, y, z}.RotationMatrix[2 i Pi/d, {1, 1, 0}], {i, d}];

ParametricPlot3D[rot, {t, 0, 2 Pi}, {s, 0, 2 Pi}]

(*---

The Texture

*)