5. Chain

Needs["Graphics`Polyhedra`"]

farbe  =  {{{-1,  .5,  .5}, 
            RGBColor[ .8,  .4, 
              1]},  
            {{-1,  .3,  .1}, RGBColor[ .6, 1, 
              1]}, 
            {{ .5,   0,  .1}, RGBColor[1, 1, 1]}} ;

g[l_, d_]  :=  Dodecahedron[l, d];
x[wi_]  :=  Cos[wi];  y[wi_]  :=  Sin[wi];  
    z[wi_]  :=   Sin[2  wi];

\(\(cublauf1[t_, xx_, 
          yy_]\  := 
Show[
\ \ \ \ \ \ \ \ \ Table[
Graphics3D[
g[{x[wi + t], y[wi + t] + 1, 
                  z[wi\  + t]}, \  .1]], 
	{wi, 0, 2  Pi - \ 2  Pi/32, \ 
              2  Pi/32}], 
\ \ ViewPoint -> {\(-0.176\) + 
                xx, \ 1.882 + yy, \ 
              0.391}, 
\ \ LightSources\  -> 
            farbe, \ 
\ \ \ \ \ \ \ \ DisplayFunction\  -> \ 
            Identity, 
\ \ \ \ \ \ \ \ Boxed\  -> \ False];\)\)

\(\(cublauf2[t_, xx_, 
          yy_]\  := 
Show[
\ \ \ \ \ \ \ \ \ Table[
Graphics3D[
g[{x[wi - t], y[wi - t] - 1, 
                  z[wi\  +  .5  Pi\  - \ 
                      t]}, \  .1]], 
{wi, Pi/32, 
              2  Pi - \ 2  Pi/32\  + \ Pi/32, 
              2\ Pi/32}], 
\ \ \ \ ViewPoint -> {\(-0.176\) + xx, \ 1.882 + yy, \ 0.391}, 
\ \ \ \ LightSources\  -> 
            farbe, \ 
\ \ \ \ DisplayFunction\  -> \ 
            Identity, 
\ \ \ \ \ \ \ \ \ \ Boxed\  -> \ False];\)\)

cubcomb[t_, xx_, yy_]  := 
 
        Show[cublauf1[t, xx, yy] , 
          cublauf2[t, xx, 
            yy],  
           DisplayFunction  -> Identity ];
paar[
          t_] := 
{cubcomb[t, -0.076, -0.009], 
          cubcomb[t, 0, 0 ]} ;
ster[
          t_] :=  
Show[
GraphicsArray[
            paar[t]], 
DisplayFunction  -> 
            Identity ];

Table[
Show[
ster[
            t], 
  
 
          Background  -> GrayLevel[ .9], 
 
          DisplayFunction -> $DisplayFunction], 
{t, 
          0, 2  Pi/32 - Pi/320, 
          Pi/320}] ;