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


Rubik's Magic Snake Model

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




ホームページ


「井口和基博士と家族のホームページ」
井口和基 (C)2019