これは井口和基博士のホームページです。
Rubik's Magic Snake Modelwith Chirality S = 1 |
---|
ABL Tyropsine Kinase SRC-Homology 3 (SH3) Domain 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! (21 Sept 2K1)
-------------------------------------
(*Folded 72 Rubik's Magic Snake Chain
of S = 1*)
(*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}}]
};
Q2ax:={
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}\
}]
};
Q2bx:={
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}}]
};
Q2cx:={
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}}]
};
R2ax:={
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}}]
};
R2bx:={
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}}]
};
R2cx:={
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}}]
};
T1az:={
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}}]
};
T1bz:={
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}}]
};
T1cz:={
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}}]
};
T3az:={
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}}]
};
T3bz:={
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}}]
};
T3cz:={
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];
colorQ2ax = Map[{Hue[c2], #} &,Q2ax];
colorQ2bx = Map[{Hue[c1], #} &,Q2bx];
colorQ2cx = Map[{Hue[c2], #} &,Q2cx];
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];
colorR2ax = Map[{Hue[c2], #} &,R2ax];
colorR2bx = Map[{Hue[c1], #} &,R2bx];
colorR2cx = Map[{Hue[c2], #} &,R2cx];
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];
colorT1az = Map[{Hue[c2], #} &,T1az];
colorT1bz = Map[{Hue[c1], #} &,T1bz];
colorT1cz = Map[{Hue[c2], #} &,T1cz];
colorT2a = Map[{Hue[c2], #} &,T2a];
colorT2b = Map[{Hue[c1], #} &,T2b];
colorT2c = Map[{Hue[c2], #} &,T2c];
colorT3az = Map[{Hue[c2], #} &,T3az];
colorT3bz = Map[{Hue[c1], #} &,T3bz];
colorT3cz = Map[{Hue[c2], #} &,T3cz];
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,
colorQ2ax,colorQ2bx,colorQ2cx,
colorQ3a,colorQ3b,colorQ3c,
colorR1a,colorR1b,colorR1c,
colorR2ax,colorR2bx,colorR2cx,
colorR3a,colorR3b,colorR3c,
colorS1a,colorS1b,colorS1c,
colorS2a,colorS2b,colorS2c,
colorS3a,colorS3b,colorS3c,
colorT1az,colorT1bz,colorT1cz,
colorT2a,colorT2b,colorT2c,
colorT3az,colorT3bz,colorT3cz,
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.790, 1.780, 1.800},
AxesLabel->{"X","Y","Z"},
Axes->True,Ticks->None,
Lighting->False]