これは井口和基博士のホームページです。


Rubik's Magic Snake Model

with 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]




ホームページ


「井口和基博士のホームページ」
井口和基 (C)2022