$1/\sqrt{2}$

1

$\frac12$

$\frac12$

1

1

u = -0.8 (slider from -5 to 5, step 0.05)
a = Rotate(Translate[Pyramid[Polygon[(0, 0), (1, 0), 4], (0, 0, 1)], Vector[(-2, 1, 0)]], u, Line[(-2.5, 1.5, 0.5), Vector[(cos((2 * u)), sin((3 * u)), sin((2.5 * u)))]])
b = Rotate(Pyramid[Polygon[(0, 0), (2, 0), (1, -1)], (1, -1, 1)], u, Line[(1, -0.5, 0.5), Vector[(cos((3 * u)), sin((2 * u)), sin((1.5 * u)))]])
c = Translate(Rotate[Tetrahedron[(0, 0, 0), (sqrt(2), 0, 0), Point[Circle[Midpoint[(0, 0, 0), (sqrt(2), 0, 0)], (Distance[(0, 0, 0), (sqrt(2), 0, 0)] * sqrt(3) / 2), Segment[(0, 0, 0), (sqrt(2), 0, 0)]]]], u, Line[(0.7, 0.5, 0.5), Vector[(cos((2.5 * u)), sin((1.5 * u)), sin((2 * u)))]]], Vector[(-1, 1, 0)])
f = Translate(Rotate[Segment[(0, 0, 0), (sqrt(2), 0, 0)], u, Line[(0.7, 0.5, 0.5), Vector[(cos((2.5 * u)), sin((1.5 * u)), sin((2 * u)))]]], Vector[(-1, 1, 0)])
g = Rotate(Segment[(0, 0), (2, 0)], u, Line[(1, -0.5, 0.5), Vector[(cos((3 * u)), sin((2 * u)), sin((1.5 * u)))]])
h = Rotate(Translate[Segment[(0, 0, 0), (1, 0, 0)], Vector[(-2, 1, 0)]], u, Line[(-2.5, 1.5, 0.5), Vector[(cos((2 * u)), sin((3 * u)), sin((2.5 * u)))]])
i = Rotate(Segment[(1, -1, 0), (1, -1, 1)], u, Line[(1, -0.5, 0.5), Vector[(cos((3 * u)), sin((2 * u)), sin((1.5 * u)))]])
d = Translate(Rotate[Pyramid[Polygon[(0, 0), (2, 0), (1, -1)], (1, 0, 1)], u, Line[(1, -0.5, 0.5), Vector[(cos((1.5 * u)), sin((2.5 * u)), sin((3 * u)))]]], Vector[(-2, 0, 0)])
j = Translate(Rotate[Segment[(0, 0, 0), (2, 0, 0)], u, Line[(1, -0.5, 0.5), Vector[(cos((1.5 * u)), sin((2.5 * u)), sin((3 * u)))]]], Vector[(-2, 0, 0)])
k = Translate(Rotate[Segment[(1, 0, 1), (1, -1, 0)], u, Line[(1, -0.5, 0.5), Vector[(cos((1.5 * u)), sin((2.5 * u)), sin((3 * u)))]]], Vector[(-2, 0, 0)])