これは井口和基博士のホームページです。
Rubik's Magic Snake Modelwith Chirality S = 0 |
|---|
Insulin Protein
図の作り方(How to generate the figure)
The Mathematica
program is as follows:
You just substitute it into the window and run the program.
Enjoy it! (8 Nov 2K)
-------------------------------------
(*Folded 72 Rubik's Magic Snake Chain
of S = 0*)
(*color*)
c1=0.6;
c2=0.3;
(*coordinates*)
P1a:={
Polygon[{{-3.5,-0.5,1.5},{-2.5,-0.5,1.5},{-2.5,0.5,1.5},{-3.5,0.5,1.5}}],
Polygon[{{-3.5,-0.5,1.5},{-2.5,-0.5,1.5},{-2.5,-0.5,2.5}}],
Polygon[{{-3.5,0.5,1.5},{-2.5,0.5,1.5},{-2.5,0.5,2.5}}],
Polygon[{{-3.5,-0.5,1.5},{-3.5,0.5,1.5},{-2.5,0.5,2.5},{-2.5,-0.5,2.5}}],
Polygon[{{-2.5,-0.5,1.5},{-2.5,0.5,1.5},{-2.5,0.5,2.5},{-2.5,-0.5,2.5}}]
};
P1b:={
Polygon[{{-2.5,-0.5,1.5},{-2.5,0.5,1.5},{-2.5,0.5,2.5},{-2.5,-0.5,2.5}}],
Polygon[{{-2.5,-0.5,1.5},{-1.5,-0.5,2.5},{-2.5,-0.5,2.5}}],
Polygon[{{-2.5,0.5,1.5},{-1.5,0.5,2.5},{-2.5,0.5,2.5}}],
Polygon[{{-2.5,-0.5,1.5},{-1.5,-0.5,2.5},{-1.5,0.5,2.5},{-2.5,0.5,1.5}}],
Polygon[{{-2.5,-0.5,2.5},{-1.5,-0.5,2.5},{-1.5,0.5,2.5},{-2.5,0.5,2.5}}]
};
P1c:={
Polygon[{{-2.5,-0.5,2.5},{-1.5,-0.5,2.5},{-1.5,0.5,2.5},{-2.5,0.5,2.5}}],
Polygon[{{-2.5,-0.5,2.5},{-1.5,-0.5,2.5},{-1.5,-0.5,3.5}}],
Polygon[{{-2.5,0.5,2.5},{-1.5,0.5,2.5},{-1.5,0.5,3.5}}],
Polygon[{{-2.5,-0.5,2.5},{-2.5,0.5,2.5},{-1.5,0.5,3.5},{-1.5,-0.5,3.5}}],
Polygon[{{-1.5,-0.5,2.5},{-1.5,0.5,2.5},{-1.5,0.5,3.5},{-1.5,-0.5,3.5}}]
};
P2a:={
Polygon[{{-1.5,-0.5,2.5},{-1.5,0.5,2.5},{-1.5,0.5,3.5},{-1.5,-0.5,3.5}}],
Polygon[{{-1.5,-0.5,2.5},{-0.5,0.5,2.5},{-1.5,0.5,2.5}}],
Polygon[{{-1.5,-0.5,3.5},{-0.5,0.5,3.5},{-1.5,0.5,3.5}}],
Polygon[{{-1.5,-0.5,2.5},{-1.5,-0.5,3.5},{-0.5,0.5,3.5},{-0.5,0.5,2.5}}],
Polygon[{{-1.5,0.5,3.5},{-0.5,0.5,3.5},{-1.5,0.5,2.5},{-1.5,0.5,2.5}}]
};
P2b:={
Polygon[{{-1.5,0.5,3.5},{-0.5,0.5,3.5},{-1.5,0.5,2.5},{-1.5,0.5,2.5}}],
Polygon[{{-1.5,0.5,2.5},{-0.5,0.5,2.5},{-0.5,1.5,2.5}}],
Polygon[{{-1.5,0.5,3.5},{-0.5,0.5,3.5},{-0.5,1.5,3.5}}],
Polygon[{{-1.5,0.5,2.5},{-1.5,0.5,3.5},{-0.5,1.5,3.5},{-0.5,1.5,2.5}}],
Polygon[{{-0.5,0.5,2.5},{-0.5,1.5,2.5},{-0.5,1.5,3.5},{-0.5,0.5,3.5}}]
};
P2c:={
Polygon[{{-0.5,0.5,2.5},{-0.5,1.5,2.5},{-0.5,1.5,3.5},{-0.5,0.5,3.5}}],
Polygon[{{-0.5,0.5,2.5},{0.5,1.5,2.5},{-0.5,1.5,2.5}}],
Polygon[{{-0.5,0.5,3.5},{0.5,1.5,3.5},{-0.5,1.5,3.5}}],
Polygon[{{-0.5,0.5,2.5},{0.5,1.5,2.5},{0.5,1.5,3.5},{-0.5,0.5,3.5}}],
Polygon[{{-0.5,1.5,2.5},{0.5,1.5,2.5},{0.5,1.5,3.5},{-0.5,1.5,3.5}}]
};
P3a:={
Polygon[{{-0.5,1.5,2.5},{0.5,1.5,2.5},{0.5,1.5,3.5},{-0.5,1.5,3.5}}],
Polygon[{{-0.5,1.5,3.5},{-0.5,1.5,2.5},{-0.5,2.5,2.5}}],
Polygon[{{0.5,1.5,3.5},{0.5,1.5,2.5},{0.5,2.5,2.5}}],
Polygon[{{-0.5,1.5,3.5},{0.5,1.5,3.5},{0.5,2.5,2.5},{-0.5,2.5,2.5}}],
Polygon[{{-0.5,1.5,2.5},{0.5,1.5,2.5},{0.5,2.5,2.5},{-0.5,2.5,2.5}}]
};
P3b:={
Polygon[{{-0.5,1.5,2.5},{0.5,1.5,2.5},{0.5,2.5,2.5},{-0.5,2.5,2.5}}],
Polygon[{{-0.5,1.5,2.5},{-0.5,2.5,1.5},{-0.5,2.5,2.5}}],
Polygon[{{0.5,1.5,2.5},{0.5,2.5,1.5},{0.5,2.5,2.5}}],
Polygon[{{-0.5,1.5,2.5},{-0.5,2.5,1.5},{0.5,2.5,1.5},{0.5,1.5,2.5}}],
Polygon[{{-0.5,2.5,1.5},{0.5,2.5,1.5},{0.5,2.5,2.5},{-0.5,2.5,2.5}}]
};
P3c:={
Polygon[{{-0.5,2.5,1.5},{0.5,2.5,1.5},{0.5,2.5,2.5},{-0.5,2.5,2.5}}],
Polygon[{{-0.5,2.5,2.5},{-0.5,2.5,1.5},{-0.5,3.5,1.5}}],
Polygon[{{0.5,2.5,2.5},{0.5,2.5,1.5},{0.5,3.5,1.5}}],
Polygon[{{-0.5,2.5,2.5},{-0.5,3.5,1.5},{0.5,3.5,1.5},{0.5,2.5,2.5}}],
Polygon[{{-0.5,2.5,1.5},{0.5,2.5,1.5},{0.5,3.5,1.5},{-0.5,3.5,1.5}}]
};
Q1a:={
Polygon[{{3.5,0.5,-1.5},{2.5,0.5,-1.5},{2.5,-0.5,-1.5},{3.5,-0.5,-1.5}}],
Polygon[{{3.5,0.5,-1.5},{2.5,0.5,-1.5},{2.5,0.5,-2.5}}],
Polygon[{{3.5,-0.5,-1.5},{2.5,-0.5,-1.5},{2.5,-0.5,-2.5}}],
Polygon[{{3.5,0.5,-1.5},{3.5,-0.5,-1.5},{2.5,-0.5,-2.5},{2.5,0.5,-2.5}}],
Polygon[{{2.5,0.5,-1.5},{2.5,-0.5,-1.5},{2.5,-0.5,-2.5},{2.5,0.5,-2.5}}]
};
Q1b:={
Polygon[{{2.5,0.5,-1.5},{2.5,-0.5,-1.5},{2.5,-0.5,-2.5},{2.5,0.5,-2.5}}],
Polygon[{{2.5,0.5,-1.5},{1.5,0.5,-2.5},{2.5,0.5,-2.5}}],
Polygon[{{2.5,-0.5,-1.5},{1.5,-0.5,-2.5},{2.5,-0.5,-2.5}}],
Polygon[{{2.5,0.5,-1.5},{1.5,0.5,-2.5},{1.5,-0.5,-2.5},{2.5,-0.5,-1.5}}],
Polygon[{{2.5,0.5,-2.5},{1.5,0.5,-2.5},{1.5,-0.5,-2.5},{2.5,-0.5,-2.5}}]
};
Q1c:={
Polygon[{{2.5,0.5,-2.5},{1.5,0.5,-2.5},{1.5,-0.5,-2.5},{2.5,-0.5,-2.5}}],
Polygon[{{2.5,0.5,-2.5},{1.5,0.5,-2.5},{1.5,0.5,-3.5}}],
Polygon[{{2.5,-0.5,-2.5},{1.5,-0.5,-2.5},{1.5,-0.5,-3.5}}],
Polygon[{{2.5,0.5,-2.5},{2.5,-0.5,-2.5},{1.5,-0.5,-3.5},{1.5,0.5,-3.5}}],
Polygon[{{1.5,0.5,-2.5},{1.5,-0.5,-2.5},{1.5,-0.5,-3.5},{1.5,0.5,-3.5}}]
};
Q2a:={
Polygon[{{1.5,0.5,-2.5},{1.5,-0.5,-2.5},{1.5,-0.5,-3.5},{1.5,0.5,-3.5}}],
Polygon[{{1.5,0.5,-2.5},{0.5,-0.5,-2.5},{1.5,-0.5,-2.5}}],
Polygon[{{1.5,0.5,-3.5},{0.5,-0.5,-3.5},{1.5,-0.5,-3.5}}],
Polygon[{{1.5,0.5,-2.5},{1.5,0.5,-3.5},{0.5,-0.5,-3.5},{0.5,-0.5,-2.5}}],
Polygon[{{1.5,-0.5,-3.5},{0.5,-0.5,-3.5},{1.5,-0.5,-2.5},{1.5,-0.5,-2.5}}]
};
Q2b:={
Polygon[{{1.5,-0.5,-3.5},{0.5,-0.5,-3.5},{1.5,-0.5,-2.5},{1.5,-0.5,-2.5}}],
Polygon[{{1.5,-0.5,-2.5},{0.5,-0.5,-2.5},{0.5,-1.5,-2.5}}],
Polygon[{{1.5,-0.5,-3.5},{0.5,-0.5,-3.5},{0.5,-1.5,-3.5}}],
Polygon[{{1.5,-0.5,-2.5},{1.5,-0.5,-3.5},{0.5,-1.5,-3.5},{0.5,-1.5,-2.5}}],
Polygon[{{0.5,-0.5,-2.5},{0.5,-1.5,-2.5},{0.5,-1.5,-3.5},{0.5,-0.5,-3.5}}]
};
Q2c:={
Polygon[{{0.5,-0.5,-2.5},{0.5,-1.5,-2.5},{0.5,-1.5,-3.5},{0.5,-0.5,-3.5}}],
Polygon[{{0.5,-0.5,-2.5},{-0.5,-1.5,-2.5},{0.5,-1.5,-2.5}}],
Polygon[{{0.5,-0.5,-3.5},{-0.5,-1.5,-3.5},{0.5,-1.5,-3.5}}],
Polygon[{{0.5,-0.5,-2.5},{-0.5,-1.5,-2.5},{-0.5,-1.5,-3.5},{0.5,-0.5,-3.5}}],
Polygon[{{0.5,-1.5,-2.5},{-0.5,-1.5,-2.5},{-0.5,-1.5,-3.5},{
0.5,-1.5,-3.5}}]
};
Q3a:={
Polygon[{{0.5,-1.5,-2.5},{-0.5,-1.5,-2.5},{-0.5,-1.5,-3.5},{0.5,-1.5,-3.5}}],
Polygon[{{0.5,-1.5,-3.5},{0.5,-1.5,-2.5},{0.5,-2.5,-2.5}}],
Polygon[{{-0.5,-1.5,-3.5},{-0.5,-1.5,-2.5},{-0.5,-2.5,-2.5}}],
Polygon[{{0.5,-1.5,-3.5},{-0.5,-1.5,-3.5},{-0.5,-2.5,-2.5},{0.5,-2.5,-2.5}}],
Polygon[{{0.5,-1.5,-2.5},{-0.5,-1.5,-2.5},{-0.5,-2.5,-2.5},{
0.5,-2.5,-2.5}}]
};
Q3b:={
Polygon[{{0.5,-1.5,-2.5},{-0.5,-1.5,-2.5},{-0.5,-2.5,-2.5},{0.5,-2.5,-2.5}}],
Polygon[{{0.5,-1.5,-2.5},{0.5,-2.5,-1.5},{0.5,-2.5,-2.5}}],
Polygon[{{-0.5,-1.5,-2.5},{-0.5,-2.5,-1.5},{-0.5,-2.5,-2.5}}],
Polygon[{{0.5,-1.5,-2.5},{0.5,-2.5,-1.5},{-0.5,-2.5,-1.5},{-0.5,-1.5,-2.5}}],
Polygon[{{0.5,-2.5,-1.5},{-0.5,-2.5,-1.5},{-0.5,-2.5,-2.5},{0.5,-2.5,-2.5}}]
};
Q3c:={
Polygon[{{0.5,-2.5,-1.5},{-0.5,-2.5,-1.5},{-0.5,-2.5,-2.5},{0.5,-2.5,-2.5}}],
Polygon[{{0.5,-2.5,-2.5},{0.5,-2.5,-1.5},{0.5,-3.5,-1.5}}],
Polygon[{{-0.5,-2.5,-2.5},{-0.5,-2.5,-1.5},{-0.5,-3.5,-1.5}}],
Polygon[{{0.5,-2.5,-2.5},{0.5,-3.5,-1.5},{-0.5,-3.5,-1.5},{-0.5,-2.5,-2.5}}],
Polygon[{{0.5,-2.5,-1.5},{-0.5,-2.5,-1.5},{-0.5,-3.5,-1.5},{0.5,-3.5,-1.5}}]
};
R1a:={
Polygon[{{-3.5,-0.5,-1.5},{-2.5,-0.5,-1.5},{-2.5,0.5,-1.5},{-3.5,0.5,-1.5}}],
Polygon[{{-3.5,-0.5,-1.5},{-2.5,-0.5,-1.5},{-2.5,-0.5,-2.5}}],
Polygon[{{-3.5,0.5,-1.5},{-2.5,0.5,-1.5},{-2.5,0.5,-2.5}}],
Polygon[{{-3.5,-0.5,-1.5},{-3.5,0.5,-1.5},{-2.5,0.5,-2.5},{-2.5,-0.5,-2.5}}],
Polygon[{{-2.5,-0.5,-1.5},{-2.5,0.5,-1.5},{-2.5,0.5,-2.5},{-2.5,-0.5,-2.5}}]
};
R1b:={
Polygon[{{-2.5,-0.5,-1.5},{-2.5,0.5,-1.5},{-2.5,0.5,-2.5},{-2.5,-0.5,-2.5}}],
Polygon[{{-2.5,-0.5,-1.5},{-1.5,-0.5,-2.5},{-2.5,-0.5,-2.5}}],
Polygon[{{-2.5,0.5,-1.5},{-1.5,0.5,-2.5},{-2.5,0.5,-2.5}}],
Polygon[{{-2.5,-0.5,-1.5},{-1.5,-0.5,-2.5},{-1.5,0.5,-2.5},{-2.5,0.5,-1.5}}],
Polygon[{{-2.5,-0.5,-2.5},{-1.5,-0.5,-2.5},{-1.5,0.5,-2.5},{-2.5,0.5,-2.5}}]
};
R1c:={
Polygon[{{-2.5,-0.5,-2.5},{-1.5,-0.5,-2.5},{-1.5,0.5,-2.5},{-2.5,0.5,-2.5}}],
Polygon[{{-2.5,-0.5,-2.5},{-1.5,-0.5,-2.5},{-1.5,-0.5,-3.5}}],
Polygon[{{-2.5,0.5,-2.5},{-1.5,0.5,-2.5},{-1.5,0.5,-3.5}}],
Polygon[{{-2.5,-0.5,-2.5},{-2.5,0.5,-2.5},{-1.5,0.5,-3.5},{-1.5,-0.5,-3.5}}],
Polygon[{{-1.5,-0.5,-2.5},{-1.5,0.5,-2.5},{-1.5,0.5,-3.5},{-1.5,-0.5,-3.5}}]
};
R2a:={
Polygon[{{-1.5,-0.5,-2.5},{-1.5,0.5,-2.5},{-1.5,0.5,-3.5},{-1.5,-0.5,-3.5}}],
Polygon[{{-1.5,-0.5,-2.5},{-0.5,0.5,-2.5},{-1.5,0.5,-2.5}}],
Polygon[{{-1.5,-0.5,-3.5},{-0.5,0.5,-3.5},{-1.5,0.5,-3.5}}],
Polygon[{{-1.5,-0.5,-2.5},{-1.5,-0.5,-3.5},{-0.5,0.5,-3.5},{-0.5,0.5,-2.5}}],
Polygon[{{-1.5,0.5,-3.5},{-0.5,0.5,-3.5},{-1.5,0.5,-2.5},{-1.5,0.5,-2.5}}]
};
R2b:={
Polygon[{{-1.5,0.5,-3.5},{-0.5,0.5,-3.5},{-1.5,0.5,-2.5},{-1.5,0.5,-2.5}}],
Polygon[{{-1.5,0.5,-2.5},{-0.5,0.5,-2.5},{-0.5,1.5,-2.5}}],
Polygon[{{-1.5,0.5,-3.5},{-0.5,0.5,-3.5},{-0.5,1.5,-3.5}}],
Polygon[{{-1.5,0.5,-2.5},{-1.5,0.5,-3.5},{-0.5,1.5,-3.5},{-0.5,1.5,-2.5}}],
Polygon[{{-0.5,0.5,-2.5},{-0.5,1.5,-2.5},{-0.5,1.5,-3.5},{-0.5,0.5,-3.5}}]
};
R2c:={
Polygon[{{-0.5,0.5,-2.5},{-0.5,1.5,-2.5},{-0.5,1.5,-3.5},{-0.5,0.5,-3.5}}],
Polygon[{{-0.5,0.5,-2.5},{0.5,1.5,-2.5},{-0.5,1.5,-2.5}}],
Polygon[{{-0.5,0.5,-3.5},{0.5,1.5,-3.5},{-0.5,1.5,-3.5}}],
Polygon[{{-0.5,0.5,-2.5},{0.5,1.5,-2.5},{0.5,1.5,-3.5},{-0.5,0.5,-3.5}}],
Polygon[{{-0.5,1.5,-2.5},{0.5,1.5,-2.5},{0.5,1.5,-3.5},{-0.5,1.5,-3.5}}]
};
R3a:={
Polygon[{{-0.5,1.5,-2.5},{0.5,1.5,-2.5},{0.5,1.5,-3.5},{-0.5,1.5,-3.5}}],
Polygon[{{-0.5,1.5,-3.5},{-0.5,1.5,-2.5},{-0.5,2.5,-2.5}}],
Polygon[{{0.5,1.5,-3.5},{0.5,1.5,-2.5},{0.5,2.5,-2.5}}],
Polygon[{{-0.5,1.5,-3.5},{0.5,1.5,-3.5},{0.5,2.5,-2.5},{-0.5,2.5,-2.5}}],
Polygon[{{-0.5,1.5,-2.5},{0.5,1.5,-2.5},{0.5,2.5,-2.5},{-0.5,2.5,-2.5}}]
};
R3b:={
Polygon[{{-0.5,1.5,-2.5},{0.5,1.5,-2.5},{0.5,2.5,-2.5},{-0.5,2.5,-2.5}}],
Polygon[{{-0.5,1.5,-2.5},{-0.5,2.5,-1.5},{-0.5,2.5,-2.5}}],
Polygon[{{0.5,1.5,-2.5},{0.5,2.5,-1.5},{0.5,2.5,-2.5}}],
Polygon[{{-0.5,1.5,-2.5},{-0.5,2.5,-1.5},{0.5,2.5,-1.5},{0.5,1.5,-2.5}}],
Polygon[{{-0.5,2.5,-1.5},{0.5,2.5,-1.5},{0.5,2.5,-2.5},{-0.5,2.5,-2.5}}]
};
R3c:={
Polygon[{{-0.5,2.5,-1.5},{0.5,2.5,-1.5},{0.5,2.5,-2.5},{-0.5,2.5,-2.5}}],
Polygon[{{-0.5,2.5,-2.5},{-0.5,2.5,-1.5},{-0.5,3.5,-1.5}}],
Polygon[{{0.5,2.5,-2.5},{0.5,2.5,-1.5},{0.5,3.5,-1.5}}],
Polygon[{{-0.5,2.5,-2.5},{-0.5,3.5,-1.5},{0.5,3.5,-1.5},{0.5,2.5,-2.5}}],
Polygon[{{-0.5,2.5,-1.5},{0.5,2.5,-1.5},{0.5,3.5,-1.5},{-0.5,3.5,-1.5}}]
};
S1a:={
Polygon[{{3.5,0.5,1.5},{2.5,0.5,1.5},{2.5,-0.5,1.5},{3.5,-0.5,1.5}}],
Polygon[{{3.5,0.5,1.5},{2.5,0.5,1.5},{2.5,0.5,2.5}}],
Polygon[{{3.5,-0.5,1.5},{2.5,-0.5,1.5},{2.5,-0.5,2.5}}],
Polygon[{{3.5,0.5,1.5},{3.5,-0.5,1.5},{2.5,-0.5,2.5},{2.5,0.5,2.5}}],
Polygon[{{2.5,0.5,1.5},{2.5,-0.5,1.5},{2.5,-0.5,2.5},{2.5,0.5,2.5}}]
};
S1b:={
Polygon[{{2.5,0.5,1.5},{2.5,-0.5,1.5},{2.5,-0.5,2.5},{2.5,0.5,2.5}}],
Polygon[{{2.5,0.5,1.5},{1.5,0.5,2.5},{2.5,0.5,2.5}}],
Polygon[{{2.5,-0.5,1.5},{1.5,-0.5,2.5},{2.5,-0.5,2.5}}],
Polygon[{{2.5,0.5,1.5},{1.5,0.5,2.5},{1.5,-0.5,2.5},{2.5,-0.5,1.5}}],
Polygon[{{2.5,0.5,2.5},{1.5,0.5,2.5},{1.5,-0.5,2.5},{2.5,-0.5,2.5}}]
};
S1c:={
Polygon[{{2.5,0.5,2.5},{1.5,0.5,2.5},{1.5,-0.5,2.5},{2.5,-0.5,2.5}}],
Polygon[{{2.5,0.5,2.5},{1.5,0.5,2.5},{1.5,0.5,3.5}}],
Polygon[{{2.5,-0.5,2.5},{1.5,-0.5,2.5},{1.5,-0.5,3.5}}],
Polygon[{{2.5,0.5,2.5},{2.5,-0.5,2.5},{1.5,-0.5,3.5},{1.5,0.5,3.5}}],
Polygon[{{1.5,0.5,2.5},{1.5,-0.5,2.5},{1.5,-0.5,3.5},{1.5,0.5,3.5}}]
};
S2a:={
Polygon[{{1.5,0.5,2.5},{1.5,-0.5,2.5},{1.5,-0.5,3.5},{1.5,0.5,3.5}}],
Polygon[{{1.5,0.5,2.5},{0.5,-0.5,2.5},{1.5,-0.5,2.5}}],
Polygon[{{1.5,0.5,3.5},{0.5,-0.5,3.5},{1.5,-0.5,3.5}}],
Polygon[{{1.5,0.5,2.5},{1.5,0.5,3.5},{0.5,-0.5,3.5},{0.5,-0.5,2.5}}],
Polygon[{{1.5,-0.5,3.5},{0.5,-0.5,3.5},{1.5,-0.5,2.5},{1.5,-0.5,2.5}}]
};
S2b:={
Polygon[{{1.5,-0.5,3.5},{0.5,-0.5,3.5},{1.5,-0.5,2.5},{1.5,-0.5,2.5}}],
Polygon[{{1.5,-0.5,2.5},{0.5,-0.5,2.5},{0.5,-1.5,2.5}}],
Polygon[{{1.5,-0.5,3.5},{0.5,-0.5,3.5},{0.5,-1.5,3.5}}],
Polygon[{{1.5,-0.5,2.5},{1.5,-0.5,3.5},{0.5,-1.5,3.5},{0.5,-1.5,2.5}}],
Polygon[{{0.5,-0.5,2.5},{0.5,-1.5,2.5},{0.5,-1.5,3.5},{0.5,-0.5,3.5}}]
};
S2c:={
Polygon[{{0.5,-0.5,2.5},{0.5,-1.5,2.5},{0.5,-1.5,3.5},{0.5,-0.5,3.5}}],
Polygon[{{0.5,-0.5,2.5},{-0.5,-1.5,2.5},{0.5,-1.5,2.5}}],
Polygon[{{0.5,-0.5,3.5},{-0.5,-1.5,3.5},{0.5,-1.5,3.5}}],
Polygon[{{0.5,-0.5,2.5},{-0.5,-1.5,2.5},{-0.5,-1.5,3.5},{0.5,-0.5,3.5}}],
Polygon[{{0.5,-1.5,2.5},{-0.5,-1.5,2.5},{-0.5,-1.5,3.5},{0.5,-1.5,3.5}}]
};
S3a:={
Polygon[{{0.5,-1.5,2.5},{-0.5,-1.5,2.5},{-0.5,-1.5,3.5},{0.5,-1.5,3.5}}],
Polygon[{{0.5,-1.5,3.5},{0.5,-1.5,2.5},{0.5,-2.5,2.5}}],
Polygon[{{-0.5,-1.5,3.5},{-0.5,-1.5,2.5},{-0.5,-2.5,2.5}}],
Polygon[{{0.5,-1.5,3.5},{-0.5,-1.5,3.5},{-0.5,-2.5,2.5},{0.5,-2.5,2.5}}],
Polygon[{{0.5,-1.5,2.5},{-0.5,-1.5,2.5},{-0.5,-2.5,2.5},{0.5,-2.5,2.5}}]
};
S3b:={
Polygon[{{0.5,-1.5,2.5},{-0.5,-1.5,2.5},{-0.5,-2.5,2.5},{0.5,-2.5,2.5}}],
Polygon[{{0.5,-1.5,2.5},{0.5,-2.5,1.5},{0.5,-2.5,2.5}}],
Polygon[{{-0.5,-1.5,2.5},{-0.5,-2.5,1.5},{-0.5,-2.5,2.5}}],
Polygon[{{0.5,-1.5,2.5},{0.5,-2.5,1.5},{-0.5,-2.5,1.5},{-0.5,-1.5,2.5}}],
Polygon[{{0.5,-2.5,1.5},{-0.5,-2.5,1.5},{-0.5,-2.5,2.5},{0.5,-2.5,2.5}}]
};
S3c:={
Polygon[{{0.5,-2.5,1.5},{-0.5,-2.5,1.5},{-0.5,-2.5,2.5},{0.5,-2.5,2.5}}],
Polygon[{{0.5,-2.5,2.5},{0.5,-2.5,1.5},{0.5,-3.5,1.5}}],
Polygon[{{-0.5,-2.5,2.5},{-0.5,-2.5,1.5},{-0.5,-3.5,1.5}}],
Polygon[{{0.5,-2.5,2.5},{0.5,-3.5,1.5},{-0.5,-3.5,1.5},{-0.5,-2.5,2.5}}],
Polygon[{{0.5,-2.5,1.5},{-0.5,-2.5,1.5},{-0.5,-3.5,1.5},{0.5,-3.5,1.5}}]
};
T1a:={
Polygon[{{2.5,-0.5,-1.5},{2.5,0.5,-1.5},{3.5,0.5,-1.5},{3.5,-0.5,-1.5}}],
Polygon[{{2.5,-0.5,-1.5},{2.5,0.5,-0.5},{2.5,0.5,-1.5}}],
Polygon[{{3.5,-0.5,-1.5},{3.5,0.5,-0.5},{3.5,0.5,-1.5}}],
Polygon[{{2.5,-0.5,-1.5},{3.5,-0.5,-1.5},{3.5,0.5,-0.5},{2.5,0.5,-0.5}}],
Polygon[{{3.5,0.5,-1.5},{3.5,0.5,-0.5},{2.5,0.5,-1.5},{2.5,0.5,-1.5}}]
};
T1b:={
Polygon[{{3.5,0.5,-1.5},{3.5,0.5,-0.5},{2.5,0.5,-1.5},{2.5,0.5,-1.5}}],
Polygon[{{2.5,0.5,-1.5},{2.5,0.5,-0.5},{2.5,1.5,-0.5}}],
Polygon[{{3.5,0.5,-1.5},{3.5,0.5,-0.5},{3.5,1.5,-0.5}}],
Polygon[{{2.5,0.5,-1.5},{3.5,0.5,-1.5},{3.5,1.5,-0.5},{2.5,1.5,-0.5}}],
Polygon[{{2.5,0.5,-0.5},{2.5,1.5,-0.5},{3.5,1.5,-0.5},{3.5,0.5,-0.5}}]
};
T1c:={
Polygon[{{2.5,0.5,-0.5},{2.5,1.5,-0.5},{3.5,1.5,-0.5},{3.5,0.5,-0.5}}],
Polygon[{{2.5,0.5,-0.5},{2.5,1.5,0.5},{2.5,1.5,-0.5}}],
Polygon[{{3.5,0.5,-0.5},{3.5,1.5,0.5},{3.5,1.5,-0.5}}],
Polygon[{{2.5,0.5,-0.5},{2.5,1.5,0.5},{3.5,1.5,0.5},{3.5,0.5,-0.5}}],
Polygon[{{2.5,1.5,-0.5},{2.5,1.5,0.5},{3.5,1.5,0.5},{3.5,1.5,-0.5}}]
};
T2a:={
Polygon[{{-2.5,-0.5,-1.5},{-2.5,0.5,-1.5},{-3.5,0.5,-1.5},{-3.5,-0.5,-1.5}}],
Polygon[{{-2.5,-0.5,-1.5},{-2.5,0.5,-0.5},{-2.5,0.5,-1.5}}],
Polygon[{{-3.5,-0.5,-1.5},{-3.5,0.5,-0.5},{-3.5,0.5,-1.5}}],
Polygon[{{-2.5,-0.5,-1.5},{-3.5,-0.5,-1.5},{-3.5,0.5,-0.5},{-2.5,0.5,-0.5}}],
Polygon[{{-3.5,0.5,-1.5},{-3.5,0.5,-0.5},{-2.5,0.5,-1.5},{-2.5,0.5,-1.5}}]
};
T2b:={
Polygon[{{-3.5,0.5,-1.5},{-3.5,0.5,-0.5},{-2.5,0.5,-1.5},{-2.5,0.5,-1.5}}],
Polygon[{{-2.5,0.5,-1.5},{-2.5,0.5,-0.5},{-2.5,1.5,-0.5}}],
Polygon[{{-3.5,0.5,-1.5},{-3.5,0.5,-0.5},{-3.5,1.5,-0.5}}],
Polygon[{{-2.5,0.5,-1.5},{-3.5,0.5,-1.5},{-3.5,1.5,-0.5},{-2.5,1.5,-0.5}}],
Polygon[{{-2.5,0.5,-0.5},{-2.5,1.5,-0.5},{-3.5,1.5,-0.5},{-3.5,0.5,-0.5}}]
};
T2c:={
Polygon[{{-2.5,0.5,-0.5},{-2.5,1.5,-0.5},{-3.5,1.5,-0.5},{-3.5,0.5,-0.5}}],
Polygon[{{-2.5,0.5,-0.5},{-2.5,1.5,0.5},{-2.5,1.5,-0.5}}],
Polygon[{{-3.5,0.5,-0.5},{-3.5,1.5,0.5},{-3.5,1.5,-0.5}}],
Polygon[{{-2.5,0.5,-0.5},{-2.5,1.5,0.5},{-3.5,1.5,0.5},{-3.5,0.5,-0.5}}],
Polygon[{{-2.5,1.5,-0.5},{-2.5,1.5,0.5},{-3.5,1.5,0.5},{-3.5,1.5,-0.5}}]
};
T3a:={
Polygon[{{2.5,-1.5,-0.5},{2.5,-1.5,0.5},{3.5,-1.5,0.5},{3.5,-1.5,-0.5}}],
Polygon[{{2.5,-1.5,-0.5},{2.5,-0.5,0.5},{2.5,-1.5,0.5}}],
Polygon[{{3.5,-1.5,-0.5},{3.5,-0.5,0.5},{3.5,-1.5,0.5}}],
Polygon[{{2.5,-1.5,-0.5},{3.5,-1.5,-0.5},{3.5,-0.5,0.5},{2.5,-0.5,0.5}}],
Polygon[{{3.5,-1.5,0.5},{3.5,-0.5,0.5},{2.5,-0.5,0.5},{2.5,-1.5,0.5}}]
};
T3b:={
Polygon[{{3.5,-1.5,0.5},{3.5,-0.5,0.5},{2.5,-1.5,0.5},{2.5,-1.5,0.5}}],
Polygon[{{2.5,-1.5,0.5},{2.5,-0.5,0.5},{2.5,-0.5,1.5}}],
Polygon[{{3.5,-1.5,0.5},{3.5,-0.5,0.5},{3.5,-0.5,1.5}}],
Polygon[{{2.5,-1.5,0.5},{3.5,-1.5,0.5},{3.5,-0.5,1.5},{2.5,-0.5,1.5}}],
Polygon[{{2.5,-0.5,0.5},{2.5,-0.5,1.5},{3.5,-0.5,1.5},{3.5,-0.5,0.5}}]
};
T3c:={
Polygon[{{2.5,-0.5,0.5},{2.5,-0.5,1.5},{3.5,-0.5,1.5},{3.5,-0.5,0.5}}],
Polygon[{{2.5,-0.5,0.5},{2.5,0.5,1.5},{2.5,-0.5,1.5}}],
Polygon[{{3.5,-0.5,0.5},{3.5,0.5,1.5},{3.5,-0.5,1.5}}],
Polygon[{{2.5,-0.5,0.5},{2.5,0.5,1.5},{3.5,0.5,1.5},{3.5,-0.5,0.5}}],
Polygon[{{2.5,-0.5,1.5},{2.5,0.5,1.5},{3.5,0.5,1.5},{3.5,-0.5,1.5}}]
};
T4a:={
Polygon[{{-2.5,-1.5,-0.5},{-2.5,-1.5,0.5},{-3.5,-1.5,0.5},{-3.5,-1.5,-0.5}}],
Polygon[{{-2.5,-1.5,-0.5},{-2.5,-0.5,0.5},{-2.5,-1.5,0.5}}],
Polygon[{{-3.5,-1.5,-0.5},{-3.5,-0.5,0.5},{-3.5,-1.5,0.5}}],
Polygon[{{-2.5,-1.5,-0.5},{-3.5,-1.5,-0.5},{-3.5,-0.5,0.5},{-2.5,-0.5,0.5}}],
Polygon[{{-3.5,-1.5,0.5},{-3.5,-0.5,0.5},{-2.5,-0.5,0.5},{-2.5,-1.5,0.5}}]
};
T4b:={
Polygon[{{-3.5,-1.5,0.5},{-3.5,-0.5,0.5},{-2.5,-1.5,0.5},{-2.5,-1.5,0.5}}],
Polygon[{{-2.5,-1.5,0.5},{-2.5,-0.5,0.5},{-2.5,-0.5,1.5}}],
Polygon[{{-3.5,-1.5,0.5},{-3.5,-0.5,0.5},{-3.5,-0.5,1.5}}],
Polygon[{{-2.5,-1.5,0.5},{-3.5,-1.5,0.5},{-3.5,-0.5,1.5},{-2.5,-0.5,1.5}}],
Polygon[{{-2.5,-0.5,0.5},{-2.5,-0.5,1.5},{-3.5,-0.5,1.5},{-3.5,-0.5,0.5}}]
};
T4c:={
Polygon[{{-2.5,-0.5,0.5},{-2.5,-0.5,1.5},{-3.5,-0.5,1.5},{-3.5,-0.5,0.5}}],
Polygon[{{-2.5,-0.5,0.5},{-2.5,0.5,1.5},{-2.5,-0.5,1.5}}],
Polygon[{{-3.5,-0.5,0.5},{-3.5,0.5,1.5},{-3.5,-0.5,1.5}}],
Polygon[{{-2.5,-0.5,0.5},{-2.5,0.5,1.5},{-3.5,0.5,1.5},{-3.5,-0.5,0.5}}],
Polygon[{{-2.5,-0.5,1.5},{-2.5,0.5,1.5},{-3.5,0.5,1.5},{-3.5,-0.5,1.5}}]
};
U1a:={
Polygon[{{-0.5,2.5,-1.5},{0.5,2.5,-1.5},{0.5,3.5,-1.5},{-0.5,3.5,-1.5}}],
Polygon[{{-0.5,2.5,-1.5},{0.5,2.5,-0.5},{0.5,2.5,-1.5}}],
Polygon[{{-0.5,3.5,-1.5},{0.5,3.5,-0.5},{0.5,3.5,-1.5}}],
Polygon[{{-0.5,2.5,-1.5},{-0.5,3.5,-1.5},{0.5,3.5,-0.5},{0.5,2.5,-0.5}}],
Polygon[{{0.5,3.5,-1.5},{0.5,3.5,-0.5},{0.5,2.5,-1.5},{0.5,2.5,-1.5}}]
};
U1b:={
Polygon[{{0.5,3.5,-1.5},{0.5,3.5,-0.5},{0.5,2.5,-1.5},{0.5,2.5,-1.5}}],
Polygon[{{0.5,2.5,-1.5},{0.5,2.5,-0.5},{1.5,2.5,-0.5}}],
Polygon[{{0.5,3.5,-1.5},{0.5,3.5,-0.5},{1.5,3.5,-0.5}}],
Polygon[{{0.5,2.5,-1.5},{0.5,3.5,-1.5},{1.5,3.5,-0.5},{1.5,2.5,-0.5}}],
Polygon[{{0.5,2.5,-0.5},{1.5,2.5,-0.5},{1.5,3.5,-0.5},{0.5,3.5,-0.5}}]
};
U1c:={
Polygon[{{0.5,2.5,-0.5},{1.5,2.5,-0.5},{1.5,3.5,-0.5},{0.5,3.5,-0.5}}],
Polygon[{{0.5,2.5,-0.5},{1.5,2.5,0.5},{1.5,2.5,-0.5}}],
Polygon[{{0.5,3.5,-0.5},{1.5,3.5,0.5},{1.5,3.5,-0.5}}],
Polygon[{{0.5,2.5,-0.5},{1.5,2.5,0.5},{1.5,3.5,0.5},{0.5,3.5,-0.5}}],
Polygon[{{1.5,2.5,-0.5},{1.5,2.5,0.5},{1.5,3.5,0.5},{1.5,3.5,-0.5}}]
};
U2a:={
Polygon[{{-0.5,-2.5,-1.5},{0.5,-2.5,-1.5},{0.5,-3.5,-1.5},{-0.5,-3.5,-1.5}}],
Polygon[{{-0.5,-2.5,-1.5},{0.5,-2.5,-0.5},{0.5,-2.5,-1.5}}],
Polygon[{{-0.5,-3.5,-1.5},{0.5,-3.5,-0.5},{0.5,-3.5,-1.5}}],
Polygon[{{-0.5,-2.5,-1.5},{-0.5,-3.5,-1.5},{0.5,-3.5,-0.5},{0.5,-2.5,-0.5}}],
Polygon[{{0.5,-3.5,-1.5},{0.5,-3.5,-0.5},{0.5,-2.5,-1.5},{0.5,-2.5,-1.5}}]
};
U2b:={
Polygon[{{0.5,-3.5,-1.5},{0.5,-3.5,-0.5},{0.5,-2.5,-1.5},{0.5,-2.5,-1.5}}],
Polygon[{{0.5,-2.5,-1.5},{0.5,-2.5,-0.5},{1.5,-2.5,-0.5}}],
Polygon[{{0.5,-3.5,-1.5},{0.5,-3.5,-0.5},{1.5,-3.5,-0.5}}],
Polygon[{{0.5,-2.5,-1.5},{0.5,-3.5,-1.5},{1.5,-3.5,-0.5},{1.5,-2.5,-0.5}}],
Polygon[{{0.5,-2.5,-0.5},{1.5,-2.5,-0.5},{1.5,-3.5,-0.5},{0.5,-3.5,-0.5}}]
};
U2c:={
Polygon[{{0.5,-2.5,-0.5},{1.5,-2.5,-0.5},{1.5,-3.5,-0.5},{0.5,-3.5,-0.5}}],
Polygon[{{0.5,-2.5,-0.5},{1.5,-2.5,0.5},{1.5,-2.5,-0.5}}],
Polygon[{{0.5,-3.5,-0.5},{1.5,-3.5,0.5},{1.5,-3.5,-0.5}}],
Polygon[{{0.5,-2.5,-0.5},{1.5,-2.5,0.5},{1.5,-3.5,0.5},{0.5,-3.5,-0.5}}],
Polygon[{{1.5,-2.5,-0.5},{1.5,-2.5,0.5},{1.5,-3.5,0.5},{1.5,-3.5,-0.5}}]
};
U3a:={
Polygon[{{-1.5,2.5,-0.5},{-1.5,2.5,0.5},{-1.5,3.5,0.5},{-1.5,3.5,-0.5}}],
Polygon[{{-1.5,2.5,-0.5},{-0.5,2.5,0.5},{-1.5,2.5,0.5}}],
Polygon[{{-1.5,3.5,-0.5},{-0.5,3.5,0.5},{-1.5,3.5,0.5}}],
Polygon[{{-1.5,2.5,-0.5},{-1.5,3.5,-0.5},{-0.5,3.5,0.5},{-0.5,2.5,0.5}}],
Polygon[{{-1.5,3.5,0.5},{-0.5,3.5,0.5},{-0.5,2.5,0.5},{-1.5,2.5,0.5}}]
};
U3b:={
Polygon[{{-1.5,3.5,0.5},{-0.5,3.5,0.5},{-1.5,2.5,0.5},{-1.5,2.5,0.5}}],
Polygon[{{-1.5,2.5,0.5},{-0.5,2.5,0.5},{-0.5,2.5,1.5}}],
Polygon[{{-1.5,3.5,0.5},{-0.5,3.5,0.5},{-0.5,3.5,1.5}}],
Polygon[{{-1.5,2.5,0.5},{-1.5,3.5,0.5},{-0.5,3.5,1.5},{-0.5,2.5,1.5}}],
Polygon[{{-0.5,2.5,0.5},{-0.5,2.5,1.5},{-0.5,3.5,1.5},{-0.5,3.5,0.5}}]
};
U3c:={
Polygon[{{-0.5,2.5,0.5},{-0.5,2.5,1.5},{-0.5,3.5,1.5},{-0.5,3.5,0.5}}],
Polygon[{{-0.5,2.5,0.5},{0.5,2.5,1.5},{-0.5,2.5,1.5}}],
Polygon[{{-0.5,3.5,0.5},{0.5,3.5,1.5},{-0.5,3.5,1.5}}],
Polygon[{{-0.5,2.5,0.5},{0.5,2.5,1.5},{0.5,3.5,1.5},{-0.5,3.5,0.5}}],
Polygon[{{-0.5,2.5,1.5},{0.5,2.5,1.5},{0.5,3.5,1.5},{-0.5,3.5,1.5}}]
};
U4a:={
Polygon[{{-1.5,-2.5,-0.5},{-1.5,-2.5,0.5},{-1.5,-3.5,0.5},{-1.5,-3.5,-0.5}}],
Polygon[{{-1.5,-2.5,-0.5},{-0.5,-2.5,0.5},{-1.5,-2.5,0.5}}],
Polygon[{{-1.5,-3.5,-0.5},{-0.5,-3.5,0.5},{-1.5,-3.5,0.5}}],
Polygon[{{-1.5,-2.5,-0.5},{-1.5,-3.5,-0.5},{-0.5,-3.5,0.5},{-0.5,-2.5,0.5}}],
Polygon[{{-1.5,-3.5,0.5},{-0.5,-3.5,0.5},{-0.5,-2.5,0.5},{-1.5,-2.5,0.5}}]
};
U4b:={
Polygon[{{-1.5,-3.5,0.5},{-0.5,-3.5,0.5},{-1.5,-2.5,0.5},{-1.5,-2.5,0.5}}],
Polygon[{{-1.5,-2.5,0.5},{-0.5,-2.5,0.5},{-0.5,-2.5,1.5}}],
Polygon[{{-1.5,-3.5,0.5},{-0.5,-3.5,0.5},{-0.5,-3.5,1.5}}],
Polygon[{{-1.5,-2.5,0.5},{-1.5,-3.5,0.5},{-0.5,-3.5,1.5},{-0.5,-2.5,1.5}}],
Polygon[{{-0.5,-2.5,0.5},{-0.5,-2.5,1.5},{-0.5,-3.5,1.5},{-0.5,-3.5,0.5}}]
};
U4c:={
Polygon[{{-0.5,-2.5,0.5},{-0.5,-2.5,1.5},{-0.5,-3.5,1.5},{-0.5,-3.5,0.5}}],
Polygon[{{-0.5,-2.5,0.5},{0.5,-2.5,1.5},{-0.5,-2.5,1.5}}],
Polygon[{{-0.5,-3.5,0.5},{0.5,-3.5,1.5},{-0.5,-3.5,1.5}}],
Polygon[{{-0.5,-2.5,0.5},{0.5,-2.5,1.5},{0.5,-3.5,1.5},{-0.5,-3.5,0.5}}],
Polygon[{{-0.5,-2.5,1.5},{0.5,-2.5,1.5},{0.5,-3.5,1.5},{-0.5,-3.5,1.5}}]
};
V1a:={
Polygon[{{2.5,-1.5,0.5},{2.5,-1.5,-0.5},{3.5,-1.5,-0.5},{3.5,-1.5,0.5}}],
Polygon[{{3.5,-1.5,0.5},{2.5,-1.5,0.5},{2.5,-2.5,0.5}}],
Polygon[{{3.5,-1.5,-0.5},{2.5,-1.5,-0.5},{2.5,-2.5,-0.5}}],
Polygon[{{3.5,-1.5,0.5},{3.5,-1.5,-0.5},{2.5,-2.5,-0.5},{2.5,-2.5,0.5}}],
Polygon[{{2.5,-1.5,0.5},{2.5,-1.5,-0.5},{2.5,-2.5,-0.5},{2.5,-2.5,0.5}}]
};
V1b:={
Polygon[{{2.5,-1.5,0.5},{2.5,-1.5,-0.5},{2.5,-2.5,-0.5},{2.5,-2.5,0.5}}],
Polygon[{{2.5,-1.5,0.5},{1.5,-2.5,0.5},{2.5,-2.5,0.5}}],
Polygon[{{2.5,-1.5,-0.5},{1.5,-2.5,-0.5},{2.5,-2.5,-0.5}}],
Polygon[{{2.5,-1.5,0.5},{1.5,-2.5,0.5},{1.5,-2.5,-0.5},{2.5,-1.5,-0.5}}],
Polygon[{{1.5,-2.5,0.5},{1.5,-2.5,-0.5},{2.5,-2.5,-0.5},{2.5,-2.5,0.5}}]
};
V1c:={
Polygon[{{1.5,-2.5,0.5},{1.5,-2.5,-0.5},{2.5,-2.5,-0.5},{2.5,-2.5,0.5}}],
Polygon[{{2.5,-2.5,0.5},{1.5,-2.5,0.5},{1.5,-3.5,0.5}}],
Polygon[{{2.5,-2.5,-0.5},{1.5,-2.5,-0.5},{1.5,-3.5,-0.5}}],
Polygon[{{2.5,-2.5,0.5},{1.5,-3.5,0.5},{1.5,-3.5,-0.5},{2.5,-2.5,-0.5}}],
Polygon[{{1.5,-2.5,0.5},{1.5,-2.5,-0.5},{1.5,-3.5,-0.5},{1.5,-3.5,0.5}}]
};
V2a:={
Polygon[{{-2.5,-1.5,0.5},{-2.5,-1.5,-0.5},{-3.5,-1.5,-0.5},{-3.5,-1.5,0.5}}],
Polygon[{{-3.5,-1.5,0.5},{-2.5,-1.5,0.5},{-2.5,-2.5,0.5}}],
Polygon[{{-3.5,-1.5,-0.5},{-2.5,-1.5,-0.5},{-2.5,-2.5,-0.5}}],
Polygon[{{-3.5,-1.5,0.5},{-3.5,-1.5,-0.5},{-2.5,-2.5,-0.5},{-2.5,-2.5,0.5}}],
Polygon[{{-2.5,-1.5,0.5},{-2.5,-1.5,-0.5},{-2.5,-2.5,-0.5},{-2.5,-2.5,0.5}}]
};
V2b:={
Polygon[{{-2.5,-1.5,0.5},{-2.5,-1.5,-0.5},{-2.5,-2.5,-0.5},{-2.5,-2.5,0.5}}],
Polygon[{{-2.5,-1.5,0.5},{-1.5,-2.5,0.5},{-2.5,-2.5,0.5}}],
Polygon[{{-2.5,-1.5,-0.5},{-1.5,-2.5,-0.5},{-2.5,-2.5,-0.5}}],
Polygon[{{-2.5,-1.5,0.5},{-1.5,-2.5,0.5},{-1.5,-2.5,-0.5},{-2.5,-1.5,-0.5}}],
Polygon[{{-1.5,-2.5,0.5},{-1.5,-2.5,-0.5},{-2.5,-2.5,-0.5},{-2.5,-2.5,0.5}}]
};
V2c:={
Polygon[{{-1.5,-2.5,0.5},{-1.5,-2.5,-0.5},{-2.5,-2.5,-0.5},{-2.5,-2.5,0.5}}],
Polygon[{{-2.5,-2.5,0.5},{-1.5,-2.5,0.5},{-1.5,-3.5,0.5}}],
Polygon[{{-2.5,-2.5,-0.5},{-1.5,-2.5,-0.5},{-1.5,-3.5,-0.5}}],
Polygon[{{-2.5,-2.5,0.5},{-1.5,-3.5,0.5},{-1.5,-3.5,-0.5},{-2.5,-2.5,-0.5}}],
Polygon[{{-1.5,-2.5,0.5},{-1.5,-2.5,-0.5},{-1.5,-3.5,-0.5},{-1.5,-3.5,0.5}}]
};
V3a:={
Polygon[{{2.5,1.5,0.5},{2.5,1.5,-0.5},{3.5,1.5,-0.5},{3.5,1.5,0.5}}],
Polygon[{{3.5,1.5,0.5},{2.5,1.5,0.5},{2.5,2.5,0.5}}],
Polygon[{{3.5,1.5,-0.5},{2.5,1.5,-0.5},{2.5,2.5,-0.5}}],
Polygon[{{3.5,1.5,0.5},{3.5,1.5,-0.5},{2.5,2.5,-0.5},{2.5,2.5,0.5}}],
Polygon[{{2.5,1.5,0.5},{2.5,1.5,-0.5},{2.5,2.5,-0.5},{2.5,2.5,0.5}}]
};
V3b:={
Polygon[{{2.5,1.5,0.5},{2.5,1.5,-0.5},{2.5,2.5,-0.5},{2.5,2.5,0.5}}],
Polygon[{{2.5,1.5,0.5},{1.5,2.5,0.5},{2.5,2.5,0.5}}],
Polygon[{{2.5,1.5,-0.5},{1.5,2.5,-0.5},{2.5,2.5,-0.5}}],
Polygon[{{2.5,1.5,0.5},{1.5,2.5,0.5},{1.5,2.5,-0.5},{2.5,1.5,-0.5}}],
Polygon[{{1.5,2.5,0.5},{1.5,2.5,-0.5},{2.5,2.5,-0.5},{2.5,2.5,0.5}}]
};
V3c:={
Polygon[{{1.5,2.5,0.5},{1.5,2.5,-0.5},{2.5,2.5,-0.5},{2.5,2.5,0.5}}],
Polygon[{{2.5,2.5,0.5},{1.5,2.5,0.5},{1.5,3.5,0.5}}],
Polygon[{{2.5,2.5,-0.5},{1.5,2.5,-0.5},{1.5,3.5,-0.5}}],
Polygon[{{2.5,2.5,0.5},{1.5,3.5,0.5},{1.5,3.5,-0.5},{2.5,2.5,-0.5}}],
Polygon[{{1.5,2.5,0.5},{1.5,2.5,-0.5},{1.5,3.5,-0.5},{1.5,3.5,0.5}}]
};
V4a:={
Polygon[{{-2.5,1.5,0.5},{-2.5,1.5,-0.5},{-3.5,1.5,-0.5},{-3.5,1.5,0.5}}],
Polygon[{{-3.5,1.5,0.5},{-2.5,1.5,0.5},{-2.5,2.5,0.5}}],
Polygon[{{-3.5,1.5,-0.5},{-2.5,1.5,-0.5},{-2.5,2.5,-0.5}}],
Polygon[{{-3.5,1.5,0.5},{-3.5,1.5,-0.5},{-2.5,2.5,-0.5},{-2.5,2.5,0.5}}],
Polygon[{{-2.5,1.5,0.5},{-2.5,1.5,-0.5},{-2.5,2.5,-0.5},{-2.5,2.5,0.5}}]
};
V4b:={
Polygon[{{-2.5,1.5,0.5},{-2.5,1.5,-0.5},{-2.5,2.5,-0.5},{-2.5,2.5,0.5}}],
Polygon[{{-2.5,1.5,0.5},{-1.5,2.5,0.5},{-2.5,2.5,0.5}}],
Polygon[{{-2.5,1.5,-0.5},{-1.5,2.5,-0.5},{-2.5,2.5,-0.5}}],
Polygon[{{-2.5,1.5,0.5},{-1.5,2.5,0.5},{-1.5,2.5,-0.5},{-2.5,1.5,-0.5}}],
Polygon[{{-1.5,2.5,0.5},{-1.5,2.5,-0.5},{-2.5,2.5,-0.5},{-2.5,2.5,0.5}}]
};
V4c:={
Polygon[{{-1.5,2.5,0.5},{-1.5,2.5,-0.5},{-2.5,2.5,-0.5},{-2.5,2.5,0.5}}],
Polygon[{{-2.5,2.5,0.5},{-1.5,2.5,0.5},{-1.5,3.5,0.5}}],
Polygon[{{-2.5,2.5,-0.5},{-1.5,2.5,-0.5},{-1.5,3.5,-0.5}}],
Polygon[{{-2.5,2.5,0.5},{-1.5,3.5,0.5},{-1.5,3.5,-0.5},{-2.5,2.5,-0.5}}],
Polygon[{{-1.5,2.5,0.5},{-1.5,2.5,-0.5},{-1.5,3.5,-0.5},{-1.5,3.5,0.5}}]
};
(*coloring*)
colorP1a = Map[{Hue[c1], #} &,P1a];
colorP1b = Map[{Hue[c2], #} &,P1b];
colorP1c = Map[{Hue[c1], #} &,P1c];
colorP2a = Map[{Hue[c2], #} &,P2a];
colorP2b = Map[{Hue[c1], #} &,P2b];
colorP2c = Map[{Hue[c2], #} &,P2c];
colorP3a = Map[{Hue[c1], #} &,P3a];
colorP3b = Map[{Hue[c2], #} &,P3b];
colorP3c = Map[{Hue[c1], #} &,P3c];
colorQ1a = Map[{Hue[c1], #} &,Q1a];
colorQ1b = Map[{Hue[c2], #} &,Q1b];
colorQ1c= Map[{Hue[c1], #} &,Q1c];
colorQ2a = Map[{Hue[c2], #} &,Q2a];
colorQ2b = Map[{Hue[c1], #} &,Q2b];
colorQ2c = Map[{Hue[c2], #} &,Q2c];
colorQ3a = Map[{Hue[c1], #} &,Q3a];
colorQ3b = Map[{Hue[c2], #} &,Q3b];
colorQ3c = Map[{Hue[c1], #} &,Q3c];
colorR1a = Map[{Hue[c1], #} &,R1a];
colorR1b = Map[{Hue[c2], #} &,R1b];
colorR1c= Map[{Hue[c1], #} &,R1c];
colorR2a = Map[{Hue[c2], #} &,R2a];
colorR2b = Map[{Hue[c1], #} &,R2b];
colorR2c = Map[{Hue[c2], #} &,R2c];
colorR3a = Map[{Hue[c1], #} &,R3a];
colorR3b = Map[{Hue[c2], #} &,R3b];
colorR3c = Map[{Hue[c1], #} &,R3c];
colorS1a = Map[{Hue[c1], #} &,S1a];
colorS1b = Map[{Hue[c2], #} &,S1b];
colorS1c = Map[{Hue[c1], #} &,S1c];
colorS2a = Map[{Hue[c2], #} &,S2a];
colorS2b = Map[{Hue[c1], #} &,S2b];
colorS2c = Map[{Hue[c2], #} &,S2c];
colorS3a = Map[{Hue[c1], #} &,S3a];
colorS3b = Map[{Hue[c2], #} &,S3b];
colorS3c = Map[{Hue[c1], #} &,S3c];
colorT1a = Map[{Hue[c2], #} &,T1a];
colorT1b = Map[{Hue[c1], #} &,T1b];
colorT1c = Map[{Hue[c2], #} &,T1c];
colorT2a = Map[{Hue[c2], #} &,T2a];
colorT2b = Map[{Hue[c1], #} &,T2b];
colorT2c = Map[{Hue[c2], #} &,T2c];
colorT3a = Map[{Hue[c2], #} &,T3a];
colorT3b = Map[{Hue[c1], #} &,T3b];
colorT3c = Map[{Hue[c2], #} &,T3c];
colorT4a = Map[{Hue[c2], #} &,T4a];
colorT4b = Map[{Hue[c1], #} &,T4b];
colorT4c = Map[{Hue[c2], #} &,T4c];
colorU1a = Map[{Hue[c2], #} &,U1a];
colorU1b = Map[{Hue[c1], #} &,U1b];
colorU1c = Map[{Hue[c2], #} &,U1c];
colorU2a = Map[{Hue[c2], #} &,U2a];
colorU2b = Map[{Hue[c1], #} &,U2b];
colorU2c = Map[{Hue[c2], #} &,U2c];
colorU3a = Map[{Hue[c2], #} &,U3a];
colorU3b = Map[{Hue[c1], #} &,U3b];
colorU3c = Map[{Hue[c2], #} &,U3c];
colorU4a = Map[{Hue[c2], #} &,U4a];
colorU4b = Map[{Hue[c1], #} &,U4b];
colorU4c = Map[{Hue[c2], #} &,U4c];
colorV1a = Map[{Hue[c1], #} &,V1a];
colorV1b = Map[{Hue[c2], #} &,V1b];
colorV1c = Map[{Hue[c1], #} &,V1c];
colorV2a = Map[{Hue[c1], #} &,V2a];
colorV2b = Map[{Hue[c2], #} &,V2b];
colorV2c = Map[{Hue[c1], #} &,V2c];
colorV3a = Map[{Hue[c1], #} &,V3a];
colorV3b = Map[{Hue[c2], #} &,V3b];
colorV3c = Map[{Hue[c1], #} &,V3c];
colorV4a = Map[{Hue[c1], #} &,V4a];
colorV4b = Map[{Hue[c2], #} &,V4b];
colorV4c = Map[{Hue[c1], #} &,V4c];
(*concatenation*)
colorfold:=Table[{
colorP1a,colorP1b,colorP1c,
colorP2a,colorP2b,colorP2c,
colorP3a,colorP3b,colorP3c,
colorQ1a,colorQ1b,colorQ1c,
colorQ2a,colorQ2b,colorQ2c,
colorQ3a,colorQ3b,colorQ3c,
colorR1a,colorR1b,colorR1c,
colorR2a,colorR2b,colorR2c,
colorR3a,colorR3b,colorR3c,
colorS1a,colorS1b,colorS1c,
colorS2a,colorS2b,colorS2c,
colorS3a,colorS3b,colorS3c,
colorT1a,colorT1b,colorT1c,
colorT2a,colorT2b,colorT2c,
colorT3a,colorT3b,colorT3c,
colorT4a,colorT4b,colorT4c,
colorU1a,colorU1b,colorU1c,
colorU2a,colorU2b,colorU2c,
colorU3a,colorU3b,colorU3c,
colorU4a,colorU4b,colorU4c,
colorV1a,colorV1b,colorV1c,
colorV2a,colorV2b,colorV2c,
colorV3a,colorV3b,colorV3c,
colorV4a,colorV4b,colorV4c
}];
(*graphics*)
Show[Graphics3D[colorfold],
ViewPoint->{1.810, -2.300, 1.340},
AxesLabel->{"X","Y","Z"},
Axes->True,Ticks->None,
Lighting->False]