\(アニメ - ション\)
Clear[a]
Clear[z]
Clear[b]
Clear[y]
Clear[c]
Clear[x]
Clear[d]
Clear[w]
Clear[e]
Clear[v]
Clear[f]
Clear[u]
Clear[t]
Clear[g]
Clear[h]
Clear[i]
Clear[j]
Clear[k]

block11[
                      t_] = {Table[
                        Cuboid[{(8 - g), 8, 3  i/2}, {(10 - g), 14, 
                            2 + 3  i/2}]]};
block12[
                      t_] = {Table[Cuboid[{10, 8, 0}, {12, 14, 2}]]};
block13[
                      t_] = {Table[
                        Cuboid[{12 + a/2 + e/2 - f - k, 8, 
                            z + v/2 - f}, {14 + a/2 + e/2 - f - k, 14, 
                            2 + z + v/2 - f}]]};
block21[
                    t_] = {Table[
                      Cuboid[{8 - 0.15  f - 0.15  k, 8, 
                          2}, {14 - 0.15  f - 0.15  k, 10, 4}]]};
block22[
                  t_] = {Table[
                    Cuboid[{8 + b + d - 0.95  f - 0.95  k, 10 + w/8, 
                        2 + y + w/4 - f}, {14 + b + d - 0.95  f - 0.95  k, 
                        12 + w/8, 4 + y + w/4 - f}]]};
block23[
                  t_] = {Table[
                    Cuboid[{8 - 0.15  f - 0.15  k, 12, 
                        2}, {14 - 0.15  f - 0.15  k, 14, 4}]]};
block31[
                  t_] = {Table[
                    Cuboid[{8 - 0.22  f - 0.22  k, 8, 
                        4}, {10 - 0.22  f - 0.22  k, 14, 6}]]};
block32[
                  t_] = {Table[
                    Cuboid[{10 - f - k, 8 + c + e, 
                        4 + x + v/4 - f}, {12 - f - k, 14 + c + e, 
                        6 + x + v/4 - f}]]};
block33[
                  t_] = {Table[
                    Cuboid[{12 - 0.2  f - 0.2  k, 8, 
                        4}, {14 - 0.2  f - 0.2  k, 14, 6}]]};
block41[
                  t_] = {Table[
                    Cuboid[{8 - 0.75  f - 0.75  k, 8 - b/2 - 0.13  f, 
                        6 + 3  y/4 - f}, {14 - 0.75  f - 0.75  k, 
                        10 - b/2 - 0.13  f, 8 + 3  y/4 - f}]]};
block42[
                  t_] = {Table[
                    Cuboid[{8 - 0.15  f - 0.15  k, 10, 
                        6}, {14 - 0.15  f - 0.15  k, 12, 8}]]};
block43[
                  t_] = {Table[
                    Cuboid[{8 - 0.7  f - 0.7  k, 12 + b/2 + 0.11  f, 
                        6 + 3  y/4 - f}, {14 - 0.7  f - 0.7  k, 
                        14 + b/2 + 0.11  f, 8 + 3  y/4 - f}]]};
block51[
                  t_] = {Table[
                    Cuboid[{8 - a/2 - 0.8  f - 0.8  k, 8 + c + 0.13  f, 
                        8 + z/2 + x/4 - f}, {10 - a/2 - 0.8  f - 0.8  k, 
                        14 + c + 0.13  f, 10 + z/2 + x/4 - f}]]};
block52[
                  t_] = {Table[
                    Cuboid[{10 - 0.2  f - 0.2  k, 8, 
                        8}, {12 - 0.2  f - 0.2  k, 14, 10}]]};
block53[
                  t_] = {Table[
                    Cuboid[{12 + c/2 - 0.83  f - 0.83  k, 8 + 0.12  f, 
                        8 + 3  x/4 - f}, {14 + c/2 - 0.83  f - 0.83  k, 
                        14 + 0.12  f, 10 + 3  x/4 - f}]]};
block61[
                  t_] = {Table[
                    Cuboid[{8 - 0.58  f - 0.58  k, 8, 
                        10 - f}, {14 - 0.58  f - 0.58  k, 10, 12 - f}]]};
block62[
                  t_] = {Table[
                    Cuboid[{8 + d - 0.9  f - 0.9  k, 10, 
                        10 + 3  w/4 + u - f}, {14 + d - 0.9  f - 0.9  k, 12, 
                        12 + 3  w/4 - f}]]};
block63[
                t_] = {Table[
                  Cuboid[{8 - 0.58  f - 0.58  k, 12, 
                      10 - f}, {14 - 0.58  f - 0.58  k, 14, 12 - f}]]}; 
            block71[t_] = {Table[
                  Cuboid[{8 - 0.63  f - 0.63  k, 8 - 0.12  f, 
                      12 - f}, {10 - 0.63  f - 0.63  k, 14 - 0.12  f, 
                      14 - f}]]};
block72[
                  t_] = {Table[
                    Cuboid[{10 - 0.69  f - 0.69  k, 8 + a, 
                        12 + z/4 - f}, {12 - 0.65  f - 0.65  k, 14 + a, 
                        14 + z/4 - f}]]};
block73[
                  t_] = {Table[
                    Cuboid[{12 - 0.61  f - 0.61  k, 8 + 0.13  f, 
                        12 - f}, {14 - 0.61  f - 0.61  k, 14 + 0.13  f, 
                        14 - f}]]};
block81[
                  t_] = {Table[
                    Cuboid[{8 - 0.69  f - 0.69  k, 8, 
                        14 - f}, {14 - 0.69  f - 0.69  k, 10, 16 - f}]]};
block82[
                  t_] = {Table[
                    Cuboid[{8 + d - f - k, 10 - w/8 - 0.15  f, 
                        14 + w/2 - f}, {14 + d - f - k, 12 - w/8 - 0.15  f, 
                        16 + w/2 - f}]]};
block83[
                  t_] = {Table[
                    Cuboid[{8 - 0.68  f - 0.68  k, 12 + 0.13  f, 
                        14 - f}, {14 - 0.68  f - 0.68  k, 14 + 0.13  f, 
                        16 - f}]]};


options={    
Boxed -> False,
    
BoxRatios -> {1, 1, 1},
  
  
    
PlotRange -> {{-20, 23 - 5  t}, {-5, 
                        23 - 5  t}, {0, 30}},    
ViewPoint -> {1 - t - j, 
                      1.3 + 0.5  t - 1.7  j, -j}
};
a = 0;
z = 0;
b = 0;
y = 0;
c = 0;
x = 0;
d = 0;
w = 0;
e = 0;
v = 0;
f = 0;
u = 0;
t = 0;
g = 0;
h = 0;
i = 0;
j = 0;
k = 0;

Do[
            Show[
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{a, 0, 8, 2}
];

Do[
            Show[a = 8; 
              h = 1; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{z, 0, 16, 4}
];

Do[
            Show[z = 16; 
              h = 1; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{a, 8, 0, -2}
];

Do[
            Show[a = 0; z = 16; 
              h = 1; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{b, 0, 8, 2}
];

Do[
            Show[a = 0; z = 16; 
              b = 8; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{y, 0, 16, 4}
];

Do[
            Show[a = 0; z = 16; 
              y = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{b, 8, 0, -2}
];


Do[
            Show[a = 0; z = 16; b = 0; 
              y = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{c, 0, 8, 2}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; 
              c = 8; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{x, 0, 16, 4}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; 
              x = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{c, 8, 0, -2}
];


Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; 
              x = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{d, 0, 8, 2}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; 
              d = 8; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{w, 0, 16, 4}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; 
              w = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{d, 8, 0, -2}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; 
              w = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{e, 0, 8, 2}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 8; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{v, 0, 16, 4}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              v = 16; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{e, 8, 0, -2}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; 
              f = 0; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{t, 0, 1.5, 0.3}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; 
              t = 1.5; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{g, 0, 3, 0.3}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; t = 1.5; 
              g = 3; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{j, 0, 1, 0.1}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; j = 1; g = 3; 
              t = 1.5; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{k, 0, 2, 0.5}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; j = 1; g = 3; 
              t = 1.5; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{k, 2, -2, -0.5}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; j = 1; g = 3; 
              t = 1.5; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{k, -2, 2, 0.5}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; j = 1; g = 3; 
              t = 1.5; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{k, 2, -2, -0.5}
];



Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; j = 1; g = 3; 
              t = 1.5; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{k, -2, 14, 1}
];

Do[
            Show[a = 0; z = 16; b = 0; y = 16; c = 0; x = 16; d = 0; w = 16; 
              e = 0; v = 16; j = 1; g = 3; t = 1.5; 
              k = 14; 
Graphics3D[block11[t], 
                options], 
Graphics3D[
                block12[t]], 
Graphics3D[
                block13[t]], 
Graphics3D[
                block21[t]], 
Graphics3D[
                block22[t]], 
Graphics3D[
                block23[t]], 
Graphics3D[
                block31[t]], 
Graphics3D[
                block32[t]], 
Graphics3D[
                block33[t]], 
Graphics3D[
                block41[t]], 
Graphics3D[
                block42[t]], 
Graphics3D[
                block43[t]], 
Graphics3D[
                block51[t]], 
Graphics3D[
                block52[t]], 
Graphics3D[
                block53[t]], 
Graphics3D[
                block61[t]], 
Graphics3D[
                block62[t]], 
Graphics3D[
                block63[t]], 
Graphics3D[
                block71[t]], 
Graphics3D[
                block72[t]], 
Graphics3D[
                block73[t]], 
Graphics3D[
                block81[t]], 
Graphics3D[
                block82[t]], 
Graphics3D[
                block83[
                  t]]

], 
{f, 0, 8, 1}
];