4432 lines
98 KiB
Plaintext
4432 lines
98 KiB
Plaintext
// Copyright (c) 2008, Jens Schwaiger
|
|
// Institut fuer Mathematik, Karl-Franzens-Universitaet
|
|
// Heinrichstrasse 36, A-8010 GRAZ, Austria
|
|
// Homepage: http://www-ang.kfunigraz.ac.at/~schwaige/
|
|
|
|
// Version: $Id: polyhedron.asy,v 0.0 2008/02/03 Jens Schwaiger Exp $
|
|
|
|
// This program is free software; you can redistribute it and/or modify
|
|
// it under the terms of the GNU General Public License as published by
|
|
// the Free Software Foundation; either version 2 of the License, or (at
|
|
// your option) any later version.
|
|
|
|
// This program is distributed in the hope that it will be useful, but
|
|
// WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
// General Public License for more details.
|
|
|
|
// You should have received a copy of the GNU General Public License
|
|
// along with this program; if not, write to the Free Software
|
|
// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
|
|
// 02110-1301, USA.
|
|
|
|
// Modified by Philippe Ivaldi
|
|
|
|
import three;
|
|
|
|
typedef path3[] polyhedron; //A polyhedron is an array of guide3s
|
|
|
|
private surface polsurface(explicit polyhedron p)
|
|
{
|
|
surface s;
|
|
for (int i=0; i < p.length; ++i) {
|
|
s.append(surface(p[i],planar=true));
|
|
}
|
|
return s;
|
|
}
|
|
|
|
real sf(polyhedron p){ // scalefactor, used if the projection is orthographic
|
|
real maxmin(int i){return max(abs(max(p[i])),abs(min(p[i])));};
|
|
if(p.length==0) abort("empty polyhedron");
|
|
return 10*max(sequence(maxmin,p.length));// without multiplying by something 'large' things may look strange
|
|
}
|
|
|
|
triple cofgr(guide3 g){ // center of gravity of a closed guide3
|
|
int l=length(g);
|
|
if(l==0) return point(g,0);
|
|
triple cgr=(0,0,0);
|
|
for(int i=0;i<l;++i) cgr=cgr+point(g,i);
|
|
return(1/l)*cgr;
|
|
}
|
|
|
|
void draw(picture pic=currentpicture, polyhedron[] pol, pen[] pn={currentpen}, projection P=currentprojection)
|
|
{ // Draw all edges of all element of the array pol
|
|
pen[] pntmp=pn;
|
|
pntmp.cyclic=true;
|
|
for(int i=0;i<pol.length;++i) for(int j=0;j<(pol[i]).length;++j) draw(pic,pol[i][j],pntmp[i]);
|
|
}
|
|
|
|
void filldraw(picture pic=currentpicture,
|
|
polyhedron[] pol,
|
|
pen[] fcol={red,blue,green,orange,cyan},
|
|
real op=1,
|
|
pen[] dcol={black+1bp},
|
|
projection P=currentprojection,
|
|
light lt=currentlight)
|
|
{ // Filldraw all edges of all element of the array pol with fillcolors from fcol and drawcolors from dcol
|
|
// with opacity op
|
|
fcol.cyclic=true;
|
|
dcol.cyclic=true;
|
|
if(! is3D()) {
|
|
polyhedron join;
|
|
int[] nofpoly;
|
|
int[] constarray(int i, int n){int[] cr; for(int j=0;j<n;++j) cr[j]=i; return cr;};
|
|
for(int i=0;i<pol.length;++i){join.append(pol[i]);nofpoly.append(constarray(i,pol[i].length));};
|
|
triple cam;
|
|
cam=P.camera;
|
|
if(P.infinity) cam=sf(join)*unit(P.camera);
|
|
real[][] dist=new real[join.length][3];
|
|
real[][] distsort=new real[join.length][3];
|
|
for(int i=0;i<join.length;++i){dist[i][0]=abs(cofgr(join[i])-cam);dist[i][1]=i;dist[i][2]=nofpoly[i];};
|
|
distsort=sort(dist);
|
|
for(int i=distsort.length-1;i>-1;--i){
|
|
int d1=(int)distsort[i][1];
|
|
int d2=(int)distsort[i][2];
|
|
triple u,v,w;
|
|
u=point(join[d1],0)-cofgr(join[d1]);
|
|
v=point(join[d1],1)-cofgr(join[d1]);
|
|
w=unit(cross(u,v));
|
|
if(dot(w,cam-cofgr(join[d1]))<0) w=-w;
|
|
real contrast=0.5*(dot(sum(lt.position),w)+1);
|
|
if(lt==nolight) contrast=1;
|
|
filldraw(pic,project(join[d1],P),contrast*fcol[d2]+opacity(op),dcol[d2]);
|
|
}
|
|
} else {
|
|
for (int i=0; i < pol.length; ++i) {
|
|
draw(pol[i],dcol[i]);
|
|
draw(polsurface(pol[i]),fcol[i]+opacity(op));
|
|
}
|
|
}
|
|
}
|
|
|
|
// Cube
|
|
polyhedron cube;
|
|
cube[0]=(-0.5,-0.5,0)--(0.5,-0.5,0)--(0.5,0.5,0)--(-0.5,0.5,0)--cycle;
|
|
cube[1]=(-0.5,-0.5,0)--(0.5,-0.5,0)--(0.5,-0.5,1)--(-0.5,-0.5,1)--cycle;
|
|
cube[2]=(0.5,-0.5,0)--(0.5,0.5,0)--(0.5,0.5,1)--(0.5,-0.5,1)--cycle;
|
|
cube[3]=(0.5,0.5,0)--(-0.5,0.5,0)--(-0.5,0.5,1)--(0.5,0.5,1)--cycle;
|
|
cube[4]=(-0.5,0.5,0)--(-0.5,-0.5,0)--(-0.5,-0.5,1)--(-0.5,0.5,1)--cycle;
|
|
cube[5]=(-0.5,-0.5,1)--(0.5,-0.5,1)--(0.5,0.5,1)--(-0.5,0.5,1)--cycle;
|
|
|
|
// Adjust data such that the center is the triple (0,0,0) and such that the circumscribed ball has radius 1
|
|
cube=shift(-0.5Z)*cube;
|
|
cube=scale3(1/abs(point(cube[0],0)))*cube;
|
|
|
|
// Tetrahedron
|
|
polyhedron tetrahedron;
|
|
guide triangle=polygon(3);
|
|
tetrahedron[0]=(point(triangle,0).x,point(triangle,0).y,0);
|
|
for(int i=1;i<3;++i) tetrahedron[0]=tetrahedron[0]--(point(triangle,i).x,point(triangle,i).y,0);
|
|
tetrahedron[0]=tetrahedron[0]--cycle;
|
|
triple sp=(0,0,sqrt(2/3)*abs(point(triangle,1)-point(triangle,0)));
|
|
tetrahedron[1]=sp--point(tetrahedron[0],0)--point(tetrahedron[0],1)--cycle;
|
|
tetrahedron[2]=sp--point(tetrahedron[0],1)--point(tetrahedron[0],2)--cycle;
|
|
tetrahedron[3]=sp--point(tetrahedron[0],2)--point(tetrahedron[0],3)--cycle;
|
|
// Adjust data such that the center is the triple (0,0,0) and such that the circumscribed ball has radius 1
|
|
triple cotetr; // center of gravity of the tetrahedron
|
|
for(int i=0;i<4;++i) cotetr=cotetr+cofgr(tetrahedron[i]);
|
|
cotetr=(1/4)*cotetr;
|
|
tetrahedron=shift(-cotetr.z*Z)*tetrahedron;
|
|
tetrahedron=scale3(1/abs(point(tetrahedron[0],0)))*tetrahedron;
|
|
|
|
// Octahedron
|
|
polyhedron octahedron;
|
|
// The vertices of the octahedron are the midpoints of the faces of the cube
|
|
triple[] vert; for(int i=0;i<6;++i) vert[i]=cofgr(cube[i]);
|
|
octahedron[0]=vert[0]--vert[1]--vert[2]--cycle;
|
|
octahedron[1]=vert[0]--vert[2]--vert[3]--cycle;
|
|
octahedron[2]=vert[0]--vert[3]--vert[4]--cycle;
|
|
octahedron[3]=vert[0]--vert[4]--vert[1]--cycle;
|
|
octahedron[4]=vert[5]--vert[1]--vert[2]--cycle;
|
|
octahedron[5]=vert[5]--vert[2]--vert[3]--cycle;
|
|
octahedron[6]=vert[5]--vert[3]--vert[4]--cycle;
|
|
octahedron[7]=vert[5]--vert[4]--vert[1]--cycle;
|
|
// Adjust data such that the center is the triple (0,0,0) and such that the circumscribed ball has radius 1
|
|
octahedron=scale3(1/abs(point(octahedron[0],0)))*octahedron;
|
|
|
|
//####################################
|
|
//Construction of icosahedron
|
|
polyhedron icosahedron;
|
|
real tau;
|
|
tau = (sqrt(5)+1)/2;
|
|
triple[] M;
|
|
M[0] = (0, tau, 1); M[1] = (0, -tau, 1); M[2] = (0, tau, -1);
|
|
M[3] = (0, -tau, -1); M[4] = (1, 0, tau); M[5] = (-1, 0, tau);
|
|
M[6] = (1, 0, -tau); M[7] = (-1, 0, -tau); M[8] = (tau, 1, 0);
|
|
M[9] = (-tau, 1, 0); M[10] = (tau, -1, 0); M[11] = (-tau, -1, 0);
|
|
guide3 triface_(int i, int j, int k){guide3 gh; gh=M[i-1]--M[j-1]--M[k-1]--cycle; return gh;};
|
|
icosahedron[0]=triface_(1, 9, 3);
|
|
icosahedron[1]=triface_(1, 5, 9);
|
|
icosahedron[2]=triface_(1, 6, 5);
|
|
icosahedron[3]=triface_(1, 10, 6);
|
|
icosahedron[4]=triface_(1, 3, 10);
|
|
icosahedron[5]=triface_(3, 9, 7);
|
|
icosahedron[6]=triface_(9, 11, 7);
|
|
icosahedron[7]=triface_(9, 5, 11);
|
|
icosahedron[8]=triface_(5, 2, 11);
|
|
icosahedron[9]=triface_(5, 6, 2);
|
|
icosahedron[10]=triface_(6, 12, 2);
|
|
icosahedron[11]=triface_(6, 10, 12);
|
|
icosahedron[12]=triface_(10, 8, 12);
|
|
icosahedron[13]=triface_(10, 3, 8);
|
|
icosahedron[14]=triface_(3, 7, 8);
|
|
icosahedron[15]=triface_(4, 11, 2);
|
|
icosahedron[16]=triface_(4, 2, 12);
|
|
icosahedron[17]=triface_(4, 12, 8);
|
|
icosahedron[18]=triface_(4, 8, 7);
|
|
icosahedron[19]=triface_(4, 7, 11);
|
|
|
|
|
|
// Adjust data such that the center is the triple (0,0,0) and such that the circumscribed ball has radius 1
|
|
triple cogricos; // center of gravity of the icosahedron
|
|
|
|
for(int i=0;i<20;++i) cogricos=cogricos+cofgr(icosahedron[i]);
|
|
cogricos=(1/20)*cogricos;
|
|
icosahedron=shift(-cogricos.z*Z)*icosahedron;
|
|
icosahedron=scale3(1/abs(point(icosahedron[0],0)))*icosahedron;
|
|
|
|
//Construction of a dodecahedron;
|
|
//########################################################
|
|
polyhedron dodecahedron;
|
|
triple[] M_;
|
|
M_[0] = (1/3)*(M[0]+M[8]+M[2]);
|
|
M_[1] = (1/3)*(M[0]+M[4]+M[8]);
|
|
M_[2] = (1/3)*(M[0]+M[5]+M[4]);
|
|
M_[3] = (1/3)*(M[0]+M[9]+M[5]);
|
|
M_[4] = (1/3)*(M[0]+M[2]+M[9]);
|
|
M_[5] = (1/3)*(M[2]+M[8]+M[6]);
|
|
M_[6] = (1/3)*(M[8]+M[10]+M[6]);
|
|
M_[7] = (1/3)*(M[8]+M[4]+M[10]);
|
|
M_[8] = (1/3)*(M[4]+M[1]+M[10]);
|
|
M_[9] = (1/3)*(M[4]+M[5]+M[1]);
|
|
M_[10] = (1/3)*(M[5]+M[11]+M[1]);
|
|
M_[11] = (1/3)*(M[5]+M[9]+M[11]);
|
|
M_[12] = (1/3)*(M[9]+M[7]+M[11]);
|
|
M_[13] = (1/3)*(M[9]+M[2]+M[7]);
|
|
M_[14] = (1/3)*(M[2]+M[6]+M[7]);
|
|
M_[15] = (1/3)*(M[3]+M[10]+M[1]);
|
|
M_[16] = (1/3)*(M[3]+M[1]+M[11]);
|
|
M_[17] = (1/3)*(M[3]+M[11]+M[7]);
|
|
M_[18] = (1/3)*(M[3]+M[7]+M[6]);
|
|
M_[19] = (1/3)*(M[3]+M[6]+M[10]);
|
|
guide3 penface_(int i0, int i1, int i2, int i3, int i4){
|
|
guide3 gh; gh=M_[i0-1]--M_[i1-1]--M_[i2-1]--M_[i3-1]--M_[i4-1]--cycle; return gh;};
|
|
dodecahedron[0]=penface_(5, 4, 3, 2, 1);
|
|
dodecahedron[1]=penface_(1, 2, 8, 7, 6);
|
|
dodecahedron[2]=penface_(2, 3, 10, 9, 8);
|
|
dodecahedron[3]=penface_(3, 4, 12, 11, 10);
|
|
dodecahedron[4]=penface_(4, 5, 14, 13, 12);
|
|
dodecahedron[5]=penface_(5, 1, 6, 15, 14);
|
|
dodecahedron[6]=penface_(16, 17, 18, 19, 20);
|
|
dodecahedron[7]=penface_(16, 20, 7, 8, 9);
|
|
dodecahedron[8]=penface_(9, 10, 11, 17, 16);
|
|
dodecahedron[9]=penface_(11, 12, 13, 18, 17);
|
|
dodecahedron[10]=penface_(6, 7, 20, 19, 15);
|
|
dodecahedron[11]=penface_(13, 14, 15, 19, 18);
|
|
// Adjust data such that the center is the triple (0,0,0) and such that the circumscribed ball has radius 1
|
|
dodecahedron=scale3(1/abs(point(dodecahedron[0],0)))*dodecahedron;
|
|
|
|
//End of Construction of dodecahedron
|
|
//End of construction of platonian solids
|
|
|
|
polyhedron truncTetraRight, cubooctahedron,
|
|
truncCube, truncOctahedron,
|
|
rhombiCuboocta, truncCuboocta,
|
|
snubCubeRight, snubCubeLeft,
|
|
icosDod, truncateDodeca,
|
|
truncIcos, rhombicosDodec,
|
|
snbDdcleft, snbDdcright,
|
|
greatRhombicosDodec;
|
|
//*** start of truncTetraRight ***
|
|
truncTetraRight[0]=
|
|
(-30.1511,-90.4534,-30.1511)--
|
|
(30.1511,-90.4534,30.1511)--
|
|
(30.1511,-30.1511,90.4534)--
|
|
(-30.1511,30.1511,90.4534)--
|
|
(-90.4534,30.1511,30.1511)--
|
|
(-90.4534,-30.1511,-30.1511)--
|
|
cycle;
|
|
|
|
truncTetraRight[1]=
|
|
(-30.1511,-90.4534,-30.1511)--
|
|
(30.1511,-90.4534,30.1511)--
|
|
(90.4534,-30.1511,30.1511)--
|
|
(90.4534,30.1511,-30.1511)--
|
|
(30.1511,30.1511,-90.4534)--
|
|
(-30.1511,-30.1511,-90.4534)--
|
|
cycle;
|
|
|
|
truncTetraRight[2]=
|
|
(30.1511,90.4534,-30.1511)--
|
|
(-30.1511,90.4534,30.1511)--
|
|
(-30.1511,30.1511,90.4534)--
|
|
(30.1511,-30.1511,90.4534)--
|
|
(90.4534,-30.1511,30.1511)--
|
|
(90.4534,30.1511,-30.1511)--
|
|
cycle;
|
|
|
|
truncTetraRight[3]=
|
|
(30.1511,90.4534,-30.1511)--
|
|
(-30.1511,90.4534,30.1511)--
|
|
(-90.4534,30.1511,30.1511)--
|
|
(-90.4534,-30.1511,-30.1511)--
|
|
(-30.1511,-30.1511,-90.4534)--
|
|
(30.1511,30.1511,-90.4534)--
|
|
cycle;
|
|
|
|
truncTetraRight[4]=
|
|
(-30.1511,-30.1511,-90.4534)--
|
|
(-30.1511,-90.4534,-30.1511)--
|
|
(-90.4534,-30.1511,-30.1511)--
|
|
cycle;
|
|
|
|
truncTetraRight[5]=
|
|
(30.1511,-30.1511,90.4534)--
|
|
(30.1511,-90.4534,30.1511)--
|
|
(90.4534,-30.1511,30.1511)--
|
|
cycle;
|
|
|
|
truncTetraRight[6]=
|
|
(30.1511,30.1511,-90.4534)--
|
|
(30.1511,90.4534,-30.1511)--
|
|
(90.4534,30.1511,-30.1511)--
|
|
cycle;
|
|
|
|
truncTetraRight[7]=
|
|
(-30.1511,30.1511,90.4534)--
|
|
(-30.1511,90.4534,30.1511)--
|
|
(-90.4534,30.1511,30.1511)--
|
|
cycle;
|
|
truncTetraRight=scale3(1/abs(point(truncTetraRight[0],0)))*truncTetraRight;
|
|
//*** end of truncTetraRight ***
|
|
|
|
//*** start of cubooctahedron ***
|
|
cubooctahedron[0]=
|
|
(70.7107,0,-70.7107)--
|
|
(70.7107,-70.7107,0)--
|
|
(70.7107,0,70.7107)--
|
|
(70.7107,70.7107,0)--
|
|
cycle;
|
|
|
|
cubooctahedron[1]=
|
|
(-70.7107,-70.7107,0)--
|
|
(-70.7107,0,70.7107)--
|
|
(-70.7107,70.7107,0)--
|
|
(-70.7107,0,-70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[2]=
|
|
(0,70.7107,-70.7107)--
|
|
(-70.7107,0,-70.7107)--
|
|
(0,-70.7107,-70.7107)--
|
|
(70.7107,0,-70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[3]=
|
|
(-70.7107,0,70.7107)--
|
|
(0,-70.7107,70.7107)--
|
|
(70.7107,0,70.7107)--
|
|
(0,70.7107,70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[4]=
|
|
(70.7107,70.7107,0)--
|
|
(0,70.7107,70.7107)--
|
|
(-70.7107,70.7107,0)--
|
|
(0,70.7107,-70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[5]=
|
|
(0,-70.7107,70.7107)--
|
|
(-70.7107,-70.7107,0)--
|
|
(0,-70.7107,-70.7107)--
|
|
(70.7107,-70.7107,0)--
|
|
cycle;
|
|
|
|
cubooctahedron[6]=
|
|
(70.7107,0,-70.7107)--
|
|
(0,70.7107,-70.7107)--
|
|
(70.7107,70.7107,0)--
|
|
cycle;
|
|
|
|
cubooctahedron[7]=
|
|
(70.7107,0,70.7107)--
|
|
(70.7107,70.7107,0)--
|
|
(0,70.7107,70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[8]=
|
|
(0,70.7107,70.7107)--
|
|
(-70.7107,0,70.7107)--
|
|
(-70.7107,70.7107,0)--
|
|
cycle;
|
|
|
|
cubooctahedron[9]=
|
|
(-70.7107,70.7107,0)--
|
|
(-70.7107,0,-70.7107)--
|
|
(0,70.7107,-70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[10]=
|
|
(-70.7107,-70.7107,0)--
|
|
(-70.7107,0,70.7107)--
|
|
(0,-70.7107,70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[11]=
|
|
(-70.7107,0,-70.7107)--
|
|
(0,-70.7107,-70.7107)--
|
|
(-70.7107,-70.7107,0)--
|
|
cycle;
|
|
|
|
cubooctahedron[12]=
|
|
(70.7107,0,-70.7107)--
|
|
(70.7107,-70.7107,0)--
|
|
(0,-70.7107,-70.7107)--
|
|
cycle;
|
|
|
|
cubooctahedron[13]=
|
|
(0,-70.7107,70.7107)--
|
|
(70.7107,0,70.7107)--
|
|
(70.7107,-70.7107,0)--
|
|
cycle;
|
|
cubooctahedron=scale3(1/abs(point(cubooctahedron[0],0)))*cubooctahedron;
|
|
|
|
//*** end of cubooctahedron ***
|
|
|
|
//*** start of truncCube ***
|
|
truncCube[0]=
|
|
(67.8598,-28.1085,-67.8598)--
|
|
(67.8598,28.1085,-67.8598)--
|
|
(67.8598,67.8598,-28.1085)--
|
|
(67.8598,67.8598,28.1085)--
|
|
(67.8598,28.1085,67.8598)--
|
|
(67.8598,-28.1085,67.8598)--
|
|
(67.8598,-67.8598,28.1085)--
|
|
(67.8598,-67.8598,-28.1085)--
|
|
cycle;
|
|
|
|
truncCube[1]=
|
|
(-67.8598,-67.8598,28.1085)--
|
|
(-67.8598,-67.8598,-28.1085)--
|
|
(-67.8598,-28.1085,-67.8598)--
|
|
(-67.8598,28.1085,-67.8598)--
|
|
(-67.8598,67.8598,-28.1085)--
|
|
(-67.8598,67.8598,28.1085)--
|
|
(-67.8598,28.1085,67.8598)--
|
|
(-67.8598,-28.1085,67.8598)--
|
|
cycle;
|
|
|
|
truncCube[2]=
|
|
(-28.1085,67.8598,-67.8598)--
|
|
(28.1085,67.8598,-67.8598)--
|
|
(67.8598,28.1085,-67.8598)--
|
|
(67.8598,-28.1085,-67.8598)--
|
|
(28.1085,-67.8598,-67.8598)--
|
|
(-28.1085,-67.8598,-67.8598)--
|
|
(-67.8598,-28.1085,-67.8598)--
|
|
(-67.8598,28.1085,-67.8598)--
|
|
cycle;
|
|
|
|
truncCube[3]=
|
|
(-67.8598,-28.1085,67.8598)--
|
|
(-67.8598,28.1085,67.8598)--
|
|
(-28.1085,67.8598,67.8598)--
|
|
(28.1085,67.8598,67.8598)--
|
|
(67.8598,28.1085,67.8598)--
|
|
(67.8598,-28.1085,67.8598)--
|
|
(28.1085,-67.8598,67.8598)--
|
|
(-28.1085,-67.8598,67.8598)--
|
|
cycle;
|
|
|
|
truncCube[4]=
|
|
(67.8598,67.8598,-28.1085)--
|
|
(67.8598,67.8598,28.1085)--
|
|
(28.1085,67.8598,67.8598)--
|
|
(-28.1085,67.8598,67.8598)--
|
|
(-67.8598,67.8598,28.1085)--
|
|
(-67.8598,67.8598,-28.1085)--
|
|
(-28.1085,67.8598,-67.8598)--
|
|
(28.1085,67.8598,-67.8598)--
|
|
cycle;
|
|
|
|
truncCube[5]=
|
|
(28.1085,-67.8598,67.8598)--
|
|
(-28.1085,-67.8598,67.8598)--
|
|
(-67.8598,-67.8598,28.1085)--
|
|
(-67.8598,-67.8598,-28.1085)--
|
|
(-28.1085,-67.8598,-67.8598)--
|
|
(28.1085,-67.8598,-67.8598)--
|
|
(67.8598,-67.8598,-28.1085)--
|
|
(67.8598,-67.8598,28.1085)--
|
|
cycle;
|
|
|
|
truncCube[6]=
|
|
(28.1085,67.8598,-67.8598)--
|
|
(67.8598,28.1085,-67.8598)--
|
|
(67.8598,67.8598,-28.1085)--
|
|
cycle;
|
|
|
|
truncCube[7]=
|
|
(67.8598,67.8598,28.1085)--
|
|
(67.8598,28.1085,67.8598)--
|
|
(28.1085,67.8598,67.8598)--
|
|
cycle;
|
|
|
|
truncCube[8]=
|
|
(-28.1085,67.8598,67.8598)--
|
|
(-67.8598,28.1085,67.8598)--
|
|
(-67.8598,67.8598,28.1085)--
|
|
cycle;
|
|
|
|
truncCube[9]=
|
|
(-67.8598,67.8598,-28.1085)--
|
|
(-67.8598,28.1085,-67.8598)--
|
|
(-28.1085,67.8598,-67.8598)--
|
|
cycle;
|
|
|
|
truncCube[10]=
|
|
(-67.8598,-67.8598,28.1085)--
|
|
(-67.8598,-28.1085,67.8598)--
|
|
(-28.1085,-67.8598,67.8598)--
|
|
cycle;
|
|
|
|
truncCube[11]=
|
|
(-28.1085,-67.8598,-67.8598)--
|
|
(-67.8598,-28.1085,-67.8598)--
|
|
(-67.8598,-67.8598,-28.1085)--
|
|
cycle;
|
|
|
|
truncCube[12]=
|
|
(67.8598,-67.8598,-28.1085)--
|
|
(67.8598,-28.1085,-67.8598)--
|
|
(28.1085,-67.8598,-67.8598)--
|
|
cycle;
|
|
|
|
truncCube[13]=
|
|
(28.1085,-67.8598,67.8598)--
|
|
(67.8598,-28.1085,67.8598)--
|
|
(67.8598,-67.8598,28.1085)--
|
|
cycle;
|
|
truncCube=scale3(1/abs(point(truncCube[0],0)))*truncCube;
|
|
|
|
//*** end of truncCube ***
|
|
|
|
//*** start of truncOctahedron ***
|
|
truncOctahedron[0]=
|
|
(89.4427,0,-44.7214)--
|
|
(89.4427,-44.7214,0)--
|
|
(89.4427,0,44.7214)--
|
|
(89.4427,44.7214,0)--
|
|
cycle;
|
|
|
|
truncOctahedron[1]=
|
|
(-89.4427,-44.7214,0)--
|
|
(-89.4427,0,44.7214)--
|
|
(-89.4427,44.7214,0)--
|
|
(-89.4427,0,-44.7214)--
|
|
cycle;
|
|
|
|
truncOctahedron[2]=
|
|
(0,44.7214,-89.4427)--
|
|
(-44.7214,0,-89.4427)--
|
|
(0,-44.7214,-89.4427)--
|
|
(44.7214,0,-89.4427)--
|
|
cycle;
|
|
|
|
truncOctahedron[3]=
|
|
(-44.7214,0,89.4427)--
|
|
(0,-44.7214,89.4427)--
|
|
(44.7214,0,89.4427)--
|
|
(0,44.7214,89.4427)--
|
|
cycle;
|
|
|
|
truncOctahedron[4]=
|
|
(44.7214,89.4427,0)--
|
|
(0,89.4427,44.7214)--
|
|
(-44.7214,89.4427,0)--
|
|
(0,89.4427,-44.7214)--
|
|
cycle;
|
|
|
|
truncOctahedron[5]=
|
|
(0,-89.4427,44.7214)--
|
|
(-44.7214,-89.4427,0)--
|
|
(0,-89.4427,-44.7214)--
|
|
(44.7214,-89.4427,0)--
|
|
cycle;
|
|
|
|
truncOctahedron[6]=
|
|
(0,89.4427,-44.7214)--
|
|
(0,44.7214,-89.4427)--
|
|
(44.7214,0,-89.4427)--
|
|
(89.4427,0,-44.7214)--
|
|
(89.4427,44.7214,0)--
|
|
(44.7214,89.4427,0)--
|
|
cycle;
|
|
|
|
truncOctahedron[7]=
|
|
(44.7214,89.4427,0)--
|
|
(89.4427,44.7214,0)--
|
|
(89.4427,0,44.7214)--
|
|
(44.7214,0,89.4427)--
|
|
(0,44.7214,89.4427)--
|
|
(0,89.4427,44.7214)--
|
|
cycle;
|
|
|
|
truncOctahedron[8]=
|
|
(0,89.4427,44.7214)--
|
|
(0,44.7214,89.4427)--
|
|
(-44.7214,0,89.4427)--
|
|
(-89.4427,0,44.7214)--
|
|
(-89.4427,44.7214,0)--
|
|
(-44.7214,89.4427,0)--
|
|
cycle;
|
|
|
|
truncOctahedron[9]=
|
|
(-44.7214,89.4427,0)--
|
|
(-89.4427,44.7214,0)--
|
|
(-89.4427,0,-44.7214)--
|
|
(-44.7214,0,-89.4427)--
|
|
(0,44.7214,-89.4427)--
|
|
(0,89.4427,-44.7214)--
|
|
cycle;
|
|
|
|
truncOctahedron[10]=
|
|
(-44.7214,-89.4427,0)--
|
|
(-89.4427,-44.7214,0)--
|
|
(-89.4427,0,44.7214)--
|
|
(-44.7214,0,89.4427)--
|
|
(0,-44.7214,89.4427)--
|
|
(0,-89.4427,44.7214)--
|
|
cycle;
|
|
|
|
truncOctahedron[11]=
|
|
(0,-89.4427,-44.7214)--
|
|
(0,-44.7214,-89.4427)--
|
|
(-44.7214,0,-89.4427)--
|
|
(-89.4427,0,-44.7214)--
|
|
(-89.4427,-44.7214,0)--
|
|
(-44.7214,-89.4427,0)--
|
|
cycle;
|
|
|
|
truncOctahedron[12]=
|
|
(44.7214,-89.4427,0)--
|
|
(89.4427,-44.7214,0)--
|
|
(89.4427,0,-44.7214)--
|
|
(44.7214,0,-89.4427)--
|
|
(0,-44.7214,-89.4427)--
|
|
(0,-89.4427,-44.7214)--
|
|
cycle;
|
|
|
|
truncOctahedron[13]=
|
|
(0,-89.4427,44.7214)--
|
|
(0,-44.7214,89.4427)--
|
|
(44.7214,0,89.4427)--
|
|
(89.4427,0,44.7214)--
|
|
(89.4427,-44.7214,0)--
|
|
(44.7214,-89.4427,0)--
|
|
cycle;
|
|
truncOctahedron=scale3(1/abs(point(truncOctahedron[0],0)))*truncOctahedron;
|
|
|
|
//*** end of truncOctahedron ***
|
|
|
|
//*** start of rhombiCuboocta ***
|
|
rhombiCuboocta[0]=
|
|
(86.2856,35.7407,-35.7407)--
|
|
(86.2856,-35.7407,-35.7407)--
|
|
(86.2856,-35.7407,35.7407)--
|
|
(86.2856,35.7407,35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[1]=
|
|
(-86.2856,-35.7407,-35.7407)--
|
|
(-86.2856,-35.7407,35.7407)--
|
|
(-86.2856,35.7407,35.7407)--
|
|
(-86.2856,35.7407,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[2]=
|
|
(35.7407,35.7407,-86.2856)--
|
|
(-35.7407,35.7407,-86.2856)--
|
|
(-35.7407,-35.7407,-86.2856)--
|
|
(35.7407,-35.7407,-86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[3]=
|
|
(-35.7407,35.7407,86.2856)--
|
|
(-35.7407,-35.7407,86.2856)--
|
|
(35.7407,-35.7407,86.2856)--
|
|
(35.7407,35.7407,86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[4]=
|
|
(35.7407,86.2856,-35.7407)--
|
|
(35.7407,86.2856,35.7407)--
|
|
(-35.7407,86.2856,35.7407)--
|
|
(-35.7407,86.2856,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[5]=
|
|
(35.7407,-86.2856,35.7407)--
|
|
(-35.7407,-86.2856,35.7407)--
|
|
(-35.7407,-86.2856,-35.7407)--
|
|
(35.7407,-86.2856,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[6]=
|
|
(35.7407,86.2856,-35.7407)--
|
|
(35.7407,35.7407,-86.2856)--
|
|
(86.2856,35.7407,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[7]=
|
|
(35.7407,86.2856,35.7407)--
|
|
(86.2856,35.7407,35.7407)--
|
|
(35.7407,35.7407,86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[8]=
|
|
(-35.7407,86.2856,35.7407)--
|
|
(-35.7407,35.7407,86.2856)--
|
|
(-86.2856,35.7407,35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[9]=
|
|
(-35.7407,86.2856,-35.7407)--
|
|
(-86.2856,35.7407,-35.7407)--
|
|
(-35.7407,35.7407,-86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[10]=
|
|
(-35.7407,-86.2856,35.7407)--
|
|
(-86.2856,-35.7407,35.7407)--
|
|
(-35.7407,-35.7407,86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[11]=
|
|
(-35.7407,-86.2856,-35.7407)--
|
|
(-35.7407,-35.7407,-86.2856)--
|
|
(-86.2856,-35.7407,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[12]=
|
|
(35.7407,-86.2856,-35.7407)--
|
|
(86.2856,-35.7407,-35.7407)--
|
|
(35.7407,-35.7407,-86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[13]=
|
|
(35.7407,-86.2856,35.7407)--
|
|
(35.7407,-35.7407,86.2856)--
|
|
(86.2856,-35.7407,35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[14]=
|
|
(86.2856,-35.7407,-35.7407)--
|
|
(35.7407,-35.7407,-86.2856)--
|
|
(35.7407,35.7407,-86.2856)--
|
|
(86.2856,35.7407,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[15]=
|
|
(35.7407,-35.7407,86.2856)--
|
|
(86.2856,-35.7407,35.7407)--
|
|
(86.2856,35.7407,35.7407)--
|
|
(35.7407,35.7407,86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[16]=
|
|
(-86.2856,-35.7407,35.7407)--
|
|
(-35.7407,-35.7407,86.2856)--
|
|
(-35.7407,35.7407,86.2856)--
|
|
(-86.2856,35.7407,35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[17]=
|
|
(-35.7407,-35.7407,-86.2856)--
|
|
(-86.2856,-35.7407,-35.7407)--
|
|
(-86.2856,35.7407,-35.7407)--
|
|
(-35.7407,35.7407,-86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[18]=
|
|
(86.2856,35.7407,-35.7407)--
|
|
(35.7407,86.2856,-35.7407)--
|
|
(35.7407,86.2856,35.7407)--
|
|
(86.2856,35.7407,35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[19]=
|
|
(35.7407,35.7407,86.2856)--
|
|
(35.7407,86.2856,35.7407)--
|
|
(-35.7407,86.2856,35.7407)--
|
|
(-35.7407,35.7407,86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[20]=
|
|
(-86.2856,35.7407,35.7407)--
|
|
(-35.7407,86.2856,35.7407)--
|
|
(-35.7407,86.2856,-35.7407)--
|
|
(-86.2856,35.7407,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[21]=
|
|
(-35.7407,35.7407,-86.2856)--
|
|
(-35.7407,86.2856,-35.7407)--
|
|
(35.7407,86.2856,-35.7407)--
|
|
(35.7407,35.7407,-86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[22]=
|
|
(-86.2856,-35.7407,-35.7407)--
|
|
(-35.7407,-86.2856,-35.7407)--
|
|
(-35.7407,-86.2856,35.7407)--
|
|
(-86.2856,-35.7407,35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[23]=
|
|
(35.7407,-35.7407,-86.2856)--
|
|
(35.7407,-86.2856,-35.7407)--
|
|
(-35.7407,-86.2856,-35.7407)--
|
|
(-35.7407,-35.7407,-86.2856)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[24]=
|
|
(86.2856,-35.7407,35.7407)--
|
|
(35.7407,-86.2856,35.7407)--
|
|
(35.7407,-86.2856,-35.7407)--
|
|
(86.2856,-35.7407,-35.7407)--
|
|
cycle;
|
|
|
|
rhombiCuboocta[25]=
|
|
(-35.7407,-35.7407,86.2856)--
|
|
(-35.7407,-86.2856,35.7407)--
|
|
(35.7407,-86.2856,35.7407)--
|
|
(35.7407,-35.7407,86.2856)--
|
|
cycle;
|
|
rhombiCuboocta=scale3(1/abs(point(rhombiCuboocta[0],0)))*rhombiCuboocta;
|
|
|
|
//*** end of rhombiCuboocta ***
|
|
|
|
//*** start of truncCuboocta ***
|
|
truncCuboocta[0]=
|
|
(82.5943,21.5739,-52.0841)--
|
|
(82.5943,-21.5739,-52.0841)--
|
|
(82.5943,-52.0841,-21.5739)--
|
|
(82.5943,-52.0841,21.5739)--
|
|
(82.5943,-21.5739,52.0841)--
|
|
(82.5943,21.5739,52.0841)--
|
|
(82.5943,52.0841,21.5739)--
|
|
(82.5943,52.0841,-21.5739)--
|
|
cycle;
|
|
|
|
truncCuboocta[1]=
|
|
(-82.5943,-52.0841,21.5739)--
|
|
(-82.5943,-21.5739,52.0841)--
|
|
(-82.5943,21.5739,52.0841)--
|
|
(-82.5943,52.0841,21.5739)--
|
|
(-82.5943,52.0841,-21.5739)--
|
|
(-82.5943,21.5739,-52.0841)--
|
|
(-82.5943,-21.5739,-52.0841)--
|
|
(-82.5943,-52.0841,-21.5739)--
|
|
cycle;
|
|
|
|
truncCuboocta[2]=
|
|
(21.5739,52.0841,-82.5943)--
|
|
(-21.5739,52.0841,-82.5943)--
|
|
(-52.0841,21.5739,-82.5943)--
|
|
(-52.0841,-21.5739,-82.5943)--
|
|
(-21.5739,-52.0841,-82.5943)--
|
|
(21.5739,-52.0841,-82.5943)--
|
|
(52.0841,-21.5739,-82.5943)--
|
|
(52.0841,21.5739,-82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[3]=
|
|
(-52.0841,-21.5739,82.5943)--
|
|
(-21.5739,-52.0841,82.5943)--
|
|
(21.5739,-52.0841,82.5943)--
|
|
(52.0841,-21.5739,82.5943)--
|
|
(52.0841,21.5739,82.5943)--
|
|
(21.5739,52.0841,82.5943)--
|
|
(-21.5739,52.0841,82.5943)--
|
|
(-52.0841,21.5739,82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[4]=
|
|
(52.0841,82.5943,-21.5739)--
|
|
(52.0841,82.5943,21.5739)--
|
|
(21.5739,82.5943,52.0841)--
|
|
(-21.5739,82.5943,52.0841)--
|
|
(-52.0841,82.5943,21.5739)--
|
|
(-52.0841,82.5943,-21.5739)--
|
|
(-21.5739,82.5943,-52.0841)--
|
|
(21.5739,82.5943,-52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[5]=
|
|
(-21.5739,-82.5943,52.0841)--
|
|
(-52.0841,-82.5943,21.5739)--
|
|
(-52.0841,-82.5943,-21.5739)--
|
|
(-21.5739,-82.5943,-52.0841)--
|
|
(21.5739,-82.5943,-52.0841)--
|
|
(52.0841,-82.5943,-21.5739)--
|
|
(52.0841,-82.5943,21.5739)--
|
|
(21.5739,-82.5943,52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[6]=
|
|
(21.5739,52.0841,-82.5943)--
|
|
(21.5739,82.5943,-52.0841)--
|
|
(52.0841,82.5943,-21.5739)--
|
|
(82.5943,52.0841,-21.5739)--
|
|
(82.5943,21.5739,-52.0841)--
|
|
(52.0841,21.5739,-82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[7]=
|
|
(82.5943,52.0841,21.5739)--
|
|
(52.0841,82.5943,21.5739)--
|
|
(21.5739,82.5943,52.0841)--
|
|
(21.5739,52.0841,82.5943)--
|
|
(52.0841,21.5739,82.5943)--
|
|
(82.5943,21.5739,52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[8]=
|
|
(-21.5739,52.0841,82.5943)--
|
|
(-21.5739,82.5943,52.0841)--
|
|
(-52.0841,82.5943,21.5739)--
|
|
(-82.5943,52.0841,21.5739)--
|
|
(-82.5943,21.5739,52.0841)--
|
|
(-52.0841,21.5739,82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[9]=
|
|
(-82.5943,52.0841,-21.5739)--
|
|
(-52.0841,82.5943,-21.5739)--
|
|
(-21.5739,82.5943,-52.0841)--
|
|
(-21.5739,52.0841,-82.5943)--
|
|
(-52.0841,21.5739,-82.5943)--
|
|
(-82.5943,21.5739,-52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[10]=
|
|
(-82.5943,-52.0841,21.5739)--
|
|
(-52.0841,-82.5943,21.5739)--
|
|
(-21.5739,-82.5943,52.0841)--
|
|
(-21.5739,-52.0841,82.5943)--
|
|
(-52.0841,-21.5739,82.5943)--
|
|
(-82.5943,-21.5739,52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[11]=
|
|
(-21.5739,-52.0841,-82.5943)--
|
|
(-21.5739,-82.5943,-52.0841)--
|
|
(-52.0841,-82.5943,-21.5739)--
|
|
(-82.5943,-52.0841,-21.5739)--
|
|
(-82.5943,-21.5739,-52.0841)--
|
|
(-52.0841,-21.5739,-82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[12]=
|
|
(82.5943,-52.0841,-21.5739)--
|
|
(52.0841,-82.5943,-21.5739)--
|
|
(21.5739,-82.5943,-52.0841)--
|
|
(21.5739,-52.0841,-82.5943)--
|
|
(52.0841,-21.5739,-82.5943)--
|
|
(82.5943,-21.5739,-52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[13]=
|
|
(21.5739,-52.0841,82.5943)--
|
|
(21.5739,-82.5943,52.0841)--
|
|
(52.0841,-82.5943,21.5739)--
|
|
(82.5943,-52.0841,21.5739)--
|
|
(82.5943,-21.5739,52.0841)--
|
|
(52.0841,-21.5739,82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[14]=
|
|
(52.0841,-21.5739,-82.5943)--
|
|
(82.5943,-21.5739,-52.0841)--
|
|
(82.5943,21.5739,-52.0841)--
|
|
(52.0841,21.5739,-82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[15]=
|
|
(82.5943,-21.5739,52.0841)--
|
|
(52.0841,-21.5739,82.5943)--
|
|
(52.0841,21.5739,82.5943)--
|
|
(82.5943,21.5739,52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[16]=
|
|
(-52.0841,-21.5739,82.5943)--
|
|
(-82.5943,-21.5739,52.0841)--
|
|
(-82.5943,21.5739,52.0841)--
|
|
(-52.0841,21.5739,82.5943)--
|
|
cycle;
|
|
|
|
truncCuboocta[17]=
|
|
(-82.5943,-21.5739,-52.0841)--
|
|
(-52.0841,-21.5739,-82.5943)--
|
|
(-52.0841,21.5739,-82.5943)--
|
|
(-82.5943,21.5739,-52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[18]=
|
|
(52.0841,82.5943,-21.5739)--
|
|
(82.5943,52.0841,-21.5739)--
|
|
(82.5943,52.0841,21.5739)--
|
|
(52.0841,82.5943,21.5739)--
|
|
cycle;
|
|
|
|
truncCuboocta[19]=
|
|
(21.5739,82.5943,52.0841)--
|
|
(21.5739,52.0841,82.5943)--
|
|
(-21.5739,52.0841,82.5943)--
|
|
(-21.5739,82.5943,52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[20]=
|
|
(-52.0841,82.5943,21.5739)--
|
|
(-82.5943,52.0841,21.5739)--
|
|
(-82.5943,52.0841,-21.5739)--
|
|
(-52.0841,82.5943,-21.5739)--
|
|
cycle;
|
|
|
|
truncCuboocta[21]=
|
|
(-21.5739,82.5943,-52.0841)--
|
|
(-21.5739,52.0841,-82.5943)--
|
|
(21.5739,52.0841,-82.5943)--
|
|
(21.5739,82.5943,-52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[22]=
|
|
(-52.0841,-82.5943,-21.5739)--
|
|
(-82.5943,-52.0841,-21.5739)--
|
|
(-82.5943,-52.0841,21.5739)--
|
|
(-52.0841,-82.5943,21.5739)--
|
|
cycle;
|
|
|
|
truncCuboocta[23]=
|
|
(21.5739,-82.5943,-52.0841)--
|
|
(21.5739,-52.0841,-82.5943)--
|
|
(-21.5739,-52.0841,-82.5943)--
|
|
(-21.5739,-82.5943,-52.0841)--
|
|
cycle;
|
|
|
|
truncCuboocta[24]=
|
|
(52.0841,-82.5943,21.5739)--
|
|
(82.5943,-52.0841,21.5739)--
|
|
(82.5943,-52.0841,-21.5739)--
|
|
(52.0841,-82.5943,-21.5739)--
|
|
cycle;
|
|
|
|
truncCuboocta[25]=
|
|
(-21.5739,-82.5943,52.0841)--
|
|
(-21.5739,-52.0841,82.5943)--
|
|
(21.5739,-52.0841,82.5943)--
|
|
(21.5739,-82.5943,52.0841)--
|
|
cycle;
|
|
truncCuboocta=scale3(1/abs(point(truncCuboocta[0],0)))*truncCuboocta;
|
|
|
|
//*** end of truncCuboocta ***
|
|
|
|
//*** start of snubCubeRight ***
|
|
snubCubeRight[0]=
|
|
(-85.0284,-25.112,-46.2554)--
|
|
(-85.0284,-46.2554,25.112)--
|
|
(-85.0284,25.112,46.2554)--
|
|
(-85.0284,46.2554,-25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[1]=
|
|
(85.0284,25.112,-46.2554)--
|
|
(85.0284,-46.2554,-25.112)--
|
|
(85.0284,-25.112,46.2554)--
|
|
(85.0284,46.2554,25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[2]=
|
|
(-25.112,46.2554,85.0284)--
|
|
(-46.2554,-25.112,85.0284)--
|
|
(25.112,-46.2554,85.0284)--
|
|
(46.2554,25.112,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[3]=
|
|
(25.112,46.2554,-85.0284)--
|
|
(-46.2554,25.112,-85.0284)--
|
|
(-25.112,-46.2554,-85.0284)--
|
|
(46.2554,-25.112,-85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[4]=
|
|
(46.2554,-85.0284,25.112)--
|
|
(-25.112,-85.0284,46.2554)--
|
|
(-46.2554,-85.0284,-25.112)--
|
|
(25.112,-85.0284,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[5]=
|
|
(46.2554,85.0284,-25.112)--
|
|
(25.112,85.0284,46.2554)--
|
|
(-46.2554,85.0284,25.112)--
|
|
(-25.112,85.0284,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[6]=
|
|
(-85.0284,-46.2554,25.112)--
|
|
(-25.112,-85.0284,46.2554)--
|
|
(-46.2554,-25.112,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[7]=
|
|
(-25.112,-46.2554,-85.0284)--
|
|
(-46.2554,-85.0284,-25.112)--
|
|
(-85.0284,-25.112,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[8]=
|
|
(85.0284,-46.2554,-25.112)--
|
|
(25.112,-85.0284,-46.2554)--
|
|
(46.2554,-25.112,-85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[9]=
|
|
(25.112,-46.2554,85.0284)--
|
|
(46.2554,-85.0284,25.112)--
|
|
(85.0284,-25.112,46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[10]=
|
|
(25.112,46.2554,-85.0284)--
|
|
(46.2554,85.0284,-25.112)--
|
|
(85.0284,25.112,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[11]=
|
|
(85.0284,46.2554,25.112)--
|
|
(25.112,85.0284,46.2554)--
|
|
(46.2554,25.112,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[12]=
|
|
(-25.112,46.2554,85.0284)--
|
|
(-46.2554,85.0284,25.112)--
|
|
(-85.0284,25.112,46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[13]=
|
|
(-85.0284,46.2554,-25.112)--
|
|
(-25.112,85.0284,-46.2554)--
|
|
(-46.2554,25.112,-85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[14]=
|
|
(-46.2554,-25.112,85.0284)--
|
|
(-85.0284,-46.2554,25.112)--
|
|
(-85.0284,25.112,46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[15]=
|
|
(-85.0284,25.112,46.2554)--
|
|
(-25.112,46.2554,85.0284)--
|
|
(-46.2554,-25.112,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[16]=
|
|
(-85.0284,-25.112,-46.2554)--
|
|
(-25.112,-46.2554,-85.0284)--
|
|
(-46.2554,25.112,-85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[17]=
|
|
(-46.2554,25.112,-85.0284)--
|
|
(-85.0284,46.2554,-25.112)--
|
|
(-85.0284,-25.112,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[18]=
|
|
(46.2554,-25.112,-85.0284)--
|
|
(85.0284,-46.2554,-25.112)--
|
|
(85.0284,25.112,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[19]=
|
|
(85.0284,25.112,-46.2554)--
|
|
(25.112,46.2554,-85.0284)--
|
|
(46.2554,-25.112,-85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[20]=
|
|
(85.0284,-25.112,46.2554)--
|
|
(25.112,-46.2554,85.0284)--
|
|
(46.2554,25.112,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[21]=
|
|
(46.2554,25.112,85.0284)--
|
|
(85.0284,46.2554,25.112)--
|
|
(85.0284,-25.112,46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[22]=
|
|
(-85.0284,-46.2554,25.112)--
|
|
(-25.112,-85.0284,46.2554)--
|
|
(-46.2554,-85.0284,-25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[23]=
|
|
(-46.2554,-85.0284,-25.112)--
|
|
(-85.0284,-25.112,-46.2554)--
|
|
(-85.0284,-46.2554,25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[24]=
|
|
(-25.112,-46.2554,-85.0284)--
|
|
(-46.2554,-85.0284,-25.112)--
|
|
(25.112,-85.0284,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[25]=
|
|
(25.112,-85.0284,-46.2554)--
|
|
(46.2554,-25.112,-85.0284)--
|
|
(-25.112,-46.2554,-85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[26]=
|
|
(85.0284,-46.2554,-25.112)--
|
|
(25.112,-85.0284,-46.2554)--
|
|
(46.2554,-85.0284,25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[27]=
|
|
(46.2554,-85.0284,25.112)--
|
|
(85.0284,-25.112,46.2554)--
|
|
(85.0284,-46.2554,-25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[28]=
|
|
(25.112,-46.2554,85.0284)--
|
|
(46.2554,-85.0284,25.112)--
|
|
(-25.112,-85.0284,46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[29]=
|
|
(-25.112,-85.0284,46.2554)--
|
|
(-46.2554,-25.112,85.0284)--
|
|
(25.112,-46.2554,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[30]=
|
|
(85.0284,46.2554,25.112)--
|
|
(25.112,85.0284,46.2554)--
|
|
(46.2554,85.0284,-25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[31]=
|
|
(46.2554,85.0284,-25.112)--
|
|
(85.0284,25.112,-46.2554)--
|
|
(85.0284,46.2554,25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[32]=
|
|
(-25.112,46.2554,85.0284)--
|
|
(-46.2554,85.0284,25.112)--
|
|
(25.112,85.0284,46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[33]=
|
|
(25.112,85.0284,46.2554)--
|
|
(46.2554,25.112,85.0284)--
|
|
(-25.112,46.2554,85.0284)--
|
|
cycle;
|
|
|
|
snubCubeRight[34]=
|
|
(-85.0284,46.2554,-25.112)--
|
|
(-25.112,85.0284,-46.2554)--
|
|
(-46.2554,85.0284,25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[35]=
|
|
(-46.2554,85.0284,25.112)--
|
|
(-85.0284,25.112,46.2554)--
|
|
(-85.0284,46.2554,-25.112)--
|
|
cycle;
|
|
|
|
snubCubeRight[36]=
|
|
(25.112,46.2554,-85.0284)--
|
|
(46.2554,85.0284,-25.112)--
|
|
(-25.112,85.0284,-46.2554)--
|
|
cycle;
|
|
|
|
snubCubeRight[37]=
|
|
(-25.112,85.0284,-46.2554)--
|
|
(-46.2554,25.112,-85.0284)--
|
|
(25.112,46.2554,-85.0284)--
|
|
cycle;
|
|
snubCubeRight=scale3(1/abs(point(snubCubeRight[0],0)))*snubCubeRight;
|
|
|
|
//*** end of snubCubeRight ***
|
|
|
|
//*** start of snubCubeLeft ***
|
|
snubCubeLeft[0]=
|
|
(183.824,100,-54.2898)--
|
|
(183.824,-54.2898,-100)--
|
|
(183.824,-100,54.2898)--
|
|
(183.824,54.2898,100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[1]=
|
|
(-183.824,-100,-54.2898)--
|
|
(-183.824,-54.2898,100)--
|
|
(-183.824,100,54.2898)--
|
|
(-183.824,54.2898,-100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[2]=
|
|
(100,54.2898,-183.824)--
|
|
(-54.2898,100,-183.824)--
|
|
(-100,-54.2898,-183.824)--
|
|
(54.2898,-100,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[3]=
|
|
(-100,54.2898,183.824)--
|
|
(-54.2898,-100,183.824)--
|
|
(100,-54.2898,183.824)--
|
|
(54.2898,100,183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[4]=
|
|
(54.2898,183.824,-100)--
|
|
(100,183.824,54.2898)--
|
|
(-54.2898,183.824,100)--
|
|
(-100,183.824,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[5]=
|
|
(54.2898,-183.824,100)--
|
|
(-100,-183.824,54.2898)--
|
|
(-54.2898,-183.824,-100)--
|
|
(100,-183.824,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[6]=
|
|
(54.2898,183.824,-100)--
|
|
(100,54.2898,-183.824)--
|
|
(183.824,100,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[7]=
|
|
(100,183.824,54.2898)--
|
|
(183.824,54.2898,100)--
|
|
(54.2898,100,183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[8]=
|
|
(-54.2898,183.824,100)--
|
|
(-100,54.2898,183.824)--
|
|
(-183.824,100,54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[9]=
|
|
(-100,183.824,-54.2898)--
|
|
(-183.824,54.2898,-100)--
|
|
(-54.2898,100,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[10]=
|
|
(-100,-183.824,54.2898)--
|
|
(-183.824,-54.2898,100)--
|
|
(-54.2898,-100,183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[11]=
|
|
(-54.2898,-183.824,-100)--
|
|
(-100,-54.2898,-183.824)--
|
|
(-183.824,-100,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[12]=
|
|
(100,-183.824,-54.2898)--
|
|
(183.824,-54.2898,-100)--
|
|
(54.2898,-100,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[13]=
|
|
(54.2898,-183.824,100)--
|
|
(100,-54.2898,183.824)--
|
|
(183.824,-100,54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[14]=
|
|
(183.824,-54.2898,-100)--
|
|
(100,54.2898,-183.824)--
|
|
(183.824,100,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[15]=
|
|
(183.824,-54.2898,-100)--
|
|
(100,54.2898,-183.824)--
|
|
(54.2898,-100,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[16]=
|
|
(100,-54.2898,183.824)--
|
|
(183.824,54.2898,100)--
|
|
(54.2898,100,183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[17]=
|
|
(100,-54.2898,183.824)--
|
|
(183.824,54.2898,100)--
|
|
(183.824,-100,54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[18]=
|
|
(-183.824,-54.2898,100)--
|
|
(-100,54.2898,183.824)--
|
|
(-183.824,100,54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[19]=
|
|
(-183.824,-54.2898,100)--
|
|
(-100,54.2898,183.824)--
|
|
(-54.2898,-100,183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[20]=
|
|
(-100,-54.2898,-183.824)--
|
|
(-183.824,54.2898,-100)--
|
|
(-54.2898,100,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[21]=
|
|
(-100,-54.2898,-183.824)--
|
|
(-183.824,54.2898,-100)--
|
|
(-183.824,-100,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[22]=
|
|
(100,183.824,54.2898)--
|
|
(183.824,100,-54.2898)--
|
|
(54.2898,183.824,-100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[23]=
|
|
(100,183.824,54.2898)--
|
|
(183.824,100,-54.2898)--
|
|
(183.824,54.2898,100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[24]=
|
|
(-54.2898,183.824,100)--
|
|
(54.2898,100,183.824)--
|
|
(100,183.824,54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[25]=
|
|
(-54.2898,183.824,100)--
|
|
(54.2898,100,183.824)--
|
|
(-100,54.2898,183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[26]=
|
|
(-100,183.824,-54.2898)--
|
|
(-183.824,100,54.2898)--
|
|
(-54.2898,183.824,100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[27]=
|
|
(-100,183.824,-54.2898)--
|
|
(-183.824,100,54.2898)--
|
|
(-183.824,54.2898,-100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[28]=
|
|
(54.2898,183.824,-100)--
|
|
(-54.2898,100,-183.824)--
|
|
(-100,183.824,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[29]=
|
|
(54.2898,183.824,-100)--
|
|
(-54.2898,100,-183.824)--
|
|
(100,54.2898,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[30]=
|
|
(-100,-183.824,54.2898)--
|
|
(-183.824,-100,-54.2898)--
|
|
(-54.2898,-183.824,-100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[31]=
|
|
(-100,-183.824,54.2898)--
|
|
(-183.824,-100,-54.2898)--
|
|
(-183.824,-54.2898,100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[32]=
|
|
(-54.2898,-183.824,-100)--
|
|
(54.2898,-100,-183.824)--
|
|
(100,-183.824,-54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[33]=
|
|
(-54.2898,-183.824,-100)--
|
|
(54.2898,-100,-183.824)--
|
|
(-100,-54.2898,-183.824)--
|
|
cycle;
|
|
|
|
snubCubeLeft[34]=
|
|
(100,-183.824,-54.2898)--
|
|
(183.824,-100,54.2898)--
|
|
(54.2898,-183.824,100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[35]=
|
|
(100,-183.824,-54.2898)--
|
|
(183.824,-100,54.2898)--
|
|
(183.824,-54.2898,-100)--
|
|
cycle;
|
|
|
|
snubCubeLeft[36]=
|
|
(54.2898,-183.824,100)--
|
|
(-54.2898,-100,183.824)--
|
|
(-100,-183.824,54.2898)--
|
|
cycle;
|
|
|
|
snubCubeLeft[37]=
|
|
(54.2898,-183.824,100)--
|
|
(-54.2898,-100,183.824)--
|
|
(100,-54.2898,183.824)--
|
|
cycle;
|
|
snubCubeLeft=scale3(1/abs(point(snubCubeLeft[0],0)))*snubCubeLeft;
|
|
|
|
//*** end of snubCubeLeft ***
|
|
|
|
//*** start of icosDod ***
|
|
icosDod[0]=
|
|
(30.9017,50,-80.9017)--
|
|
(0,0,-100)--
|
|
(30.9017,-50,-80.9017)--
|
|
(80.9017,-30.9017,-50)--
|
|
(80.9017,30.9017,-50)--
|
|
cycle;
|
|
|
|
icosDod[1]=
|
|
(30.9017,-50,80.9017)--
|
|
(0,0,100)--
|
|
(30.9017,50,80.9017)--
|
|
(80.9017,30.9017,50)--
|
|
(80.9017,-30.9017,50)--
|
|
cycle;
|
|
|
|
icosDod[2]=
|
|
(-80.9017,-30.9017,50)--
|
|
(-80.9017,30.9017,50)--
|
|
(-30.9017,50,80.9017)--
|
|
(0,0,100)--
|
|
(-30.9017,-50,80.9017)--
|
|
cycle;
|
|
|
|
icosDod[3]=
|
|
(-80.9017,30.9017,-50)--
|
|
(-80.9017,-30.9017,-50)--
|
|
(-30.9017,-50,-80.9017)--
|
|
(0,0,-100)--
|
|
(-30.9017,50,-80.9017)--
|
|
cycle;
|
|
|
|
icosDod[4]=
|
|
(50,80.9017,30.9017)--
|
|
(50,80.9017,-30.9017)--
|
|
(80.9017,30.9017,-50)--
|
|
(100,0,0)--
|
|
(80.9017,30.9017,50)--
|
|
cycle;
|
|
|
|
icosDod[5]=
|
|
(30.9017,50,80.9017)--
|
|
(-30.9017,50,80.9017)--
|
|
(-50,80.9017,30.9017)--
|
|
(0,100,0)--
|
|
(50,80.9017,30.9017)--
|
|
cycle;
|
|
|
|
icosDod[6]=
|
|
(-50,80.9017,30.9017)--
|
|
(-80.9017,30.9017,50)--
|
|
(-100,0,0)--
|
|
(-80.9017,30.9017,-50)--
|
|
(-50,80.9017,-30.9017)--
|
|
cycle;
|
|
|
|
icosDod[7]=
|
|
(-30.9017,50,-80.9017)--
|
|
(30.9017,50,-80.9017)--
|
|
(50,80.9017,-30.9017)--
|
|
(0,100,0)--
|
|
(-50,80.9017,-30.9017)--
|
|
cycle;
|
|
|
|
icosDod[8]=
|
|
(-50,-80.9017,-30.9017)--
|
|
(-80.9017,-30.9017,-50)--
|
|
(-100,0,0)--
|
|
(-80.9017,-30.9017,50)--
|
|
(-50,-80.9017,30.9017)--
|
|
cycle;
|
|
|
|
icosDod[9]=
|
|
(30.9017,-50,-80.9017)--
|
|
(-30.9017,-50,-80.9017)--
|
|
(-50,-80.9017,-30.9017)--
|
|
(0,-100,0)--
|
|
(50,-80.9017,-30.9017)--
|
|
cycle;
|
|
|
|
icosDod[10]=
|
|
(50,-80.9017,-30.9017)--
|
|
(50,-80.9017,30.9017)--
|
|
(80.9017,-30.9017,50)--
|
|
(100,0,0)--
|
|
(80.9017,-30.9017,-50)--
|
|
cycle;
|
|
|
|
icosDod[11]=
|
|
(-30.9017,-50,80.9017)--
|
|
(30.9017,-50,80.9017)--
|
|
(50,-80.9017,30.9017)--
|
|
(0,-100,0)--
|
|
(-50,-80.9017,30.9017)--
|
|
cycle;
|
|
|
|
icosDod[12]=
|
|
(80.9017,30.9017,-50)--
|
|
(30.9017,50,-80.9017)--
|
|
(50,80.9017,-30.9017)--
|
|
cycle;
|
|
|
|
icosDod[13]=
|
|
(30.9017,50,80.9017)--
|
|
(80.9017,30.9017,50)--
|
|
(50,80.9017,30.9017)--
|
|
cycle;
|
|
|
|
icosDod[14]=
|
|
(-80.9017,30.9017,50)--
|
|
(-30.9017,50,80.9017)--
|
|
(-50,80.9017,30.9017)--
|
|
cycle;
|
|
|
|
icosDod[15]=
|
|
(-30.9017,50,-80.9017)--
|
|
(-80.9017,30.9017,-50)--
|
|
(-50,80.9017,-30.9017)--
|
|
cycle;
|
|
|
|
icosDod[16]=
|
|
(-30.9017,-50,80.9017)--
|
|
(-80.9017,-30.9017,50)--
|
|
(-50,-80.9017,30.9017)--
|
|
cycle;
|
|
|
|
icosDod[17]=
|
|
(-30.9017,-50,-80.9017)--
|
|
(-50,-80.9017,-30.9017)--
|
|
(-80.9017,-30.9017,-50)--
|
|
cycle;
|
|
|
|
icosDod[18]=
|
|
(80.9017,-30.9017,-50)--
|
|
(50,-80.9017,-30.9017)--
|
|
(30.9017,-50,-80.9017)--
|
|
cycle;
|
|
|
|
icosDod[19]=
|
|
(30.9017,-50,80.9017)--
|
|
(50,-80.9017,30.9017)--
|
|
(80.9017,-30.9017,50)--
|
|
cycle;
|
|
|
|
icosDod[20]=
|
|
(80.9017,-30.9017,-50)--
|
|
(80.9017,30.9017,-50)--
|
|
(100,0,0)--
|
|
cycle;
|
|
|
|
icosDod[21]=
|
|
(80.9017,30.9017,50)--
|
|
(80.9017,-30.9017,50)--
|
|
(100,0,0)--
|
|
cycle;
|
|
|
|
icosDod[22]=
|
|
(-80.9017,-30.9017,50)--
|
|
(-80.9017,30.9017,50)--
|
|
(-100,0,0)--
|
|
cycle;
|
|
|
|
icosDod[23]=
|
|
(-80.9017,30.9017,-50)--
|
|
(-80.9017,-30.9017,-50)--
|
|
(-100,0,0)--
|
|
cycle;
|
|
|
|
icosDod[24]=
|
|
(-30.9017,50,-80.9017)--
|
|
(30.9017,50,-80.9017)--
|
|
(0,0,-100)--
|
|
cycle;
|
|
|
|
icosDod[25]=
|
|
(30.9017,-50,-80.9017)--
|
|
(-30.9017,-50,-80.9017)--
|
|
(0,0,-100)--
|
|
cycle;
|
|
|
|
icosDod[26]=
|
|
(-30.9017,-50,80.9017)--
|
|
(30.9017,-50,80.9017)--
|
|
(0,0,100)--
|
|
cycle;
|
|
|
|
icosDod[27]=
|
|
(30.9017,50,80.9017)--
|
|
(-30.9017,50,80.9017)--
|
|
(0,0,100)--
|
|
cycle;
|
|
|
|
icosDod[28]=
|
|
(50,80.9017,30.9017)--
|
|
(50,80.9017,-30.9017)--
|
|
(0,100,0)--
|
|
cycle;
|
|
|
|
icosDod[29]=
|
|
(-50,80.9017,-30.9017)--
|
|
(-50,80.9017,30.9017)--
|
|
(0,100,0)--
|
|
cycle;
|
|
|
|
icosDod[30]=
|
|
(-50,-80.9017,30.9017)--
|
|
(-50,-80.9017,-30.9017)--
|
|
(0,-100,0)--
|
|
cycle;
|
|
|
|
icosDod[31]=
|
|
(50,-80.9017,-30.9017)--
|
|
(50,-80.9017,30.9017)--
|
|
(0,-100,0)--
|
|
cycle;
|
|
icosDod=scale3(1/abs(point(icosDod[0],0)))*icosDod;
|
|
|
|
//*** end of icosDod ***
|
|
|
|
//*** start of truncateDodeca ***
|
|
truncateDodeca[0]=
|
|
(16.8381,44.0828,-88.1656)--
|
|
(44.0828,54.4894,-71.3275)--
|
|
(71.3275,44.0828,-54.4894)--
|
|
(88.1656,16.8381,-44.0828)--
|
|
(88.1656,-16.8381,-44.0828)--
|
|
(71.3275,-44.0828,-54.4894)--
|
|
(44.0828,-54.4894,-71.3275)--
|
|
(16.8381,-44.0828,-88.1656)--
|
|
(0,-16.8381,-98.5722)--
|
|
(0,16.8381,-98.5722)--
|
|
cycle;
|
|
|
|
truncateDodeca[1]=
|
|
(16.8381,-44.0828,88.1656)--
|
|
(44.0828,-54.4894,71.3275)--
|
|
(71.3275,-44.0828,54.4894)--
|
|
(88.1656,-16.8381,44.0828)--
|
|
(88.1656,16.8381,44.0828)--
|
|
(71.3275,44.0828,54.4894)--
|
|
(44.0828,54.4894,71.3275)--
|
|
(16.8381,44.0828,88.1656)--
|
|
(0,16.8381,98.5722)--
|
|
(0,-16.8381,98.5722)--
|
|
cycle;
|
|
|
|
truncateDodeca[2]=
|
|
(-16.8381,-44.0828,88.1656)--
|
|
(-44.0828,-54.4894,71.3275)--
|
|
(-71.3275,-44.0828,54.4894)--
|
|
(-88.1656,-16.8381,44.0828)--
|
|
(-88.1656,16.8381,44.0828)--
|
|
(-71.3275,44.0828,54.4894)--
|
|
(-44.0828,54.4894,71.3275)--
|
|
(-16.8381,44.0828,88.1656)--
|
|
(0,16.8381,98.5722)--
|
|
(0,-16.8381,98.5722)--
|
|
cycle;
|
|
|
|
truncateDodeca[3]=
|
|
(-16.8381,44.0828,-88.1656)--
|
|
(-44.0828,54.4894,-71.3275)--
|
|
(-71.3275,44.0828,-54.4894)--
|
|
(-88.1656,16.8381,-44.0828)--
|
|
(-88.1656,-16.8381,-44.0828)--
|
|
(-71.3275,-44.0828,-54.4894)--
|
|
(-44.0828,-54.4894,-71.3275)--
|
|
(-16.8381,-44.0828,-88.1656)--
|
|
(0,-16.8381,-98.5722)--
|
|
(0,16.8381,-98.5722)--
|
|
cycle;
|
|
|
|
truncateDodeca[4]=
|
|
(44.0828,88.1656,-16.8381)--
|
|
(54.4894,71.3275,-44.0828)--
|
|
(71.3275,44.0828,-54.4894)--
|
|
(88.1656,16.8381,-44.0828)--
|
|
(98.5722,0,-16.8381)--
|
|
(98.5722,0,16.8381)--
|
|
(88.1656,16.8381,44.0828)--
|
|
(71.3275,44.0828,54.4894)--
|
|
(54.4894,71.3275,44.0828)--
|
|
(44.0828,88.1656,16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[5]=
|
|
(16.8381,98.5722,0)--
|
|
(-16.8381,98.5722,0)--
|
|
(-44.0828,88.1656,16.8381)--
|
|
(-54.4894,71.3275,44.0828)--
|
|
(-44.0828,54.4894,71.3275)--
|
|
(-16.8381,44.0828,88.1656)--
|
|
(16.8381,44.0828,88.1656)--
|
|
(44.0828,54.4894,71.3275)--
|
|
(54.4894,71.3275,44.0828)--
|
|
(44.0828,88.1656,16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[6]=
|
|
(-44.0828,88.1656,16.8381)--
|
|
(-44.0828,88.1656,-16.8381)--
|
|
(-54.4894,71.3275,-44.0828)--
|
|
(-71.3275,44.0828,-54.4894)--
|
|
(-88.1656,16.8381,-44.0828)--
|
|
(-98.5722,0,-16.8381)--
|
|
(-98.5722,0,16.8381)--
|
|
(-88.1656,16.8381,44.0828)--
|
|
(-71.3275,44.0828,54.4894)--
|
|
(-54.4894,71.3275,44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[7]=
|
|
(16.8381,98.5722,0)--
|
|
(-16.8381,98.5722,0)--
|
|
(-44.0828,88.1656,-16.8381)--
|
|
(-54.4894,71.3275,-44.0828)--
|
|
(-44.0828,54.4894,-71.3275)--
|
|
(-16.8381,44.0828,-88.1656)--
|
|
(16.8381,44.0828,-88.1656)--
|
|
(44.0828,54.4894,-71.3275)--
|
|
(54.4894,71.3275,-44.0828)--
|
|
(44.0828,88.1656,-16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[8]=
|
|
(-44.0828,-88.1656,16.8381)--
|
|
(-54.4894,-71.3275,44.0828)--
|
|
(-71.3275,-44.0828,54.4894)--
|
|
(-88.1656,-16.8381,44.0828)--
|
|
(-98.5722,0,16.8381)--
|
|
(-98.5722,0,-16.8381)--
|
|
(-88.1656,-16.8381,-44.0828)--
|
|
(-71.3275,-44.0828,-54.4894)--
|
|
(-54.4894,-71.3275,-44.0828)--
|
|
(-44.0828,-88.1656,-16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[9]=
|
|
(-16.8381,-98.5722,0)--
|
|
(16.8381,-98.5722,0)--
|
|
(44.0828,-88.1656,-16.8381)--
|
|
(54.4894,-71.3275,-44.0828)--
|
|
(44.0828,-54.4894,-71.3275)--
|
|
(16.8381,-44.0828,-88.1656)--
|
|
(-16.8381,-44.0828,-88.1656)--
|
|
(-44.0828,-54.4894,-71.3275)--
|
|
(-54.4894,-71.3275,-44.0828)--
|
|
(-44.0828,-88.1656,-16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[10]=
|
|
(44.0828,-88.1656,16.8381)--
|
|
(44.0828,-88.1656,-16.8381)--
|
|
(54.4894,-71.3275,-44.0828)--
|
|
(71.3275,-44.0828,-54.4894)--
|
|
(88.1656,-16.8381,-44.0828)--
|
|
(98.5722,0,-16.8381)--
|
|
(98.5722,0,16.8381)--
|
|
(88.1656,-16.8381,44.0828)--
|
|
(71.3275,-44.0828,54.4894)--
|
|
(54.4894,-71.3275,44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[11]=
|
|
(-16.8381,-98.5722,0)--
|
|
(16.8381,-98.5722,0)--
|
|
(44.0828,-88.1656,16.8381)--
|
|
(54.4894,-71.3275,44.0828)--
|
|
(44.0828,-54.4894,71.3275)--
|
|
(16.8381,-44.0828,88.1656)--
|
|
(-16.8381,-44.0828,88.1656)--
|
|
(-44.0828,-54.4894,71.3275)--
|
|
(-54.4894,-71.3275,44.0828)--
|
|
(-44.0828,-88.1656,16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[12]=
|
|
(98.5722,0,-16.8381)--
|
|
(88.1656,16.8381,-44.0828)--
|
|
(88.1656,-16.8381,-44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[13]=
|
|
(98.5722,0,16.8381)--
|
|
(88.1656,-16.8381,44.0828)--
|
|
(88.1656,16.8381,44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[14]=
|
|
(-98.5722,0,16.8381)--
|
|
(-88.1656,16.8381,44.0828)--
|
|
(-88.1656,-16.8381,44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[15]=
|
|
(-98.5722,0,-16.8381)--
|
|
(-88.1656,-16.8381,-44.0828)--
|
|
(-88.1656,16.8381,-44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[16]=
|
|
(0,16.8381,-98.5722)--
|
|
(16.8381,44.0828,-88.1656)--
|
|
(-16.8381,44.0828,-88.1656)--
|
|
cycle;
|
|
|
|
truncateDodeca[17]=
|
|
(0,-16.8381,-98.5722)--
|
|
(-16.8381,-44.0828,-88.1656)--
|
|
(16.8381,-44.0828,-88.1656)--
|
|
cycle;
|
|
|
|
truncateDodeca[18]=
|
|
(0,-16.8381,98.5722)--
|
|
(16.8381,-44.0828,88.1656)--
|
|
(-16.8381,-44.0828,88.1656)--
|
|
cycle;
|
|
|
|
truncateDodeca[19]=
|
|
(0,16.8381,98.5722)--
|
|
(-16.8381,44.0828,88.1656)--
|
|
(16.8381,44.0828,88.1656)--
|
|
cycle;
|
|
|
|
truncateDodeca[20]=
|
|
(16.8381,98.5722,0)--
|
|
(44.0828,88.1656,-16.8381)--
|
|
(44.0828,88.1656,16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[21]=
|
|
(-16.8381,98.5722,0)--
|
|
(-44.0828,88.1656,16.8381)--
|
|
(-44.0828,88.1656,-16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[22]=
|
|
(-16.8381,-98.5722,0)--
|
|
(-44.0828,-88.1656,-16.8381)--
|
|
(-44.0828,-88.1656,16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[23]=
|
|
(16.8381,-98.5722,0)--
|
|
(44.0828,-88.1656,16.8381)--
|
|
(44.0828,-88.1656,-16.8381)--
|
|
cycle;
|
|
|
|
truncateDodeca[24]=
|
|
(44.0828,54.4894,-71.3275)--
|
|
(71.3275,44.0828,-54.4894)--
|
|
(54.4894,71.3275,-44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[25]=
|
|
(71.3275,44.0828,54.4894)--
|
|
(44.0828,54.4894,71.3275)--
|
|
(54.4894,71.3275,44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[26]=
|
|
(-44.0828,54.4894,71.3275)--
|
|
(-71.3275,44.0828,54.4894)--
|
|
(-54.4894,71.3275,44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[27]=
|
|
(-71.3275,44.0828,-54.4894)--
|
|
(-44.0828,54.4894,-71.3275)--
|
|
(-54.4894,71.3275,-44.0828)--
|
|
cycle;
|
|
|
|
truncateDodeca[28]=
|
|
(-54.4894,-71.3275,44.0828)--
|
|
(-71.3275,-44.0828,54.4894)--
|
|
(-44.0828,-54.4894,71.3275)--
|
|
cycle;
|
|
|
|
truncateDodeca[29]=
|
|
(-71.3275,-44.0828,-54.4894)--
|
|
(-54.4894,-71.3275,-44.0828)--
|
|
(-44.0828,-54.4894,-71.3275)--
|
|
cycle;
|
|
|
|
truncateDodeca[30]=
|
|
(44.0828,-54.4894,-71.3275)--
|
|
(54.4894,-71.3275,-44.0828)--
|
|
(71.3275,-44.0828,-54.4894)--
|
|
cycle;
|
|
|
|
truncateDodeca[31]=
|
|
(71.3275,-44.0828,54.4894)--
|
|
(54.4894,-71.3275,44.0828)--
|
|
(44.0828,-54.4894,71.3275)--
|
|
cycle;
|
|
truncateDodeca=scale3(1/abs(point(truncateDodeca[0],0)))*truncateDodeca;
|
|
|
|
//*** end of truncateDodeca ***
|
|
|
|
//*** start of truncIcos ***
|
|
truncIcos[0]=
|
|
(20.1774,0,-97.9432)--
|
|
(40.3548,-32.6477,-85.4729)--
|
|
(73.0026,-20.1774,-65.2955)--
|
|
(73.0026,20.1774,-65.2955)--
|
|
(40.3548,32.6477,-85.4729)--
|
|
cycle;
|
|
|
|
truncIcos[1]=
|
|
(20.1774,0,97.9432)--
|
|
(40.3548,32.6477,85.4729)--
|
|
(73.0026,20.1774,65.2955)--
|
|
(73.0026,-20.1774,65.2955)--
|
|
(40.3548,-32.6477,85.4729)--
|
|
cycle;
|
|
|
|
truncIcos[2]=
|
|
(-20.1774,0,97.9432)--
|
|
(-40.3548,-32.6477,85.4729)--
|
|
(-73.0026,-20.1774,65.2955)--
|
|
(-73.0026,20.1774,65.2955)--
|
|
(-40.3548,32.6477,85.4729)--
|
|
cycle;
|
|
|
|
truncIcos[3]=
|
|
(-20.1774,0,-97.9432)--
|
|
(-40.3548,32.6477,-85.4729)--
|
|
(-73.0026,20.1774,-65.2955)--
|
|
(-73.0026,-20.1774,-65.2955)--
|
|
(-40.3548,-32.6477,-85.4729)--
|
|
cycle;
|
|
|
|
truncIcos[4]=
|
|
(97.9432,20.1774,0)--
|
|
(85.4729,40.3548,32.6477)--
|
|
(65.2955,73.0026,20.1774)--
|
|
(65.2955,73.0026,-20.1774)--
|
|
(85.4729,40.3548,-32.6477)--
|
|
cycle;
|
|
|
|
truncIcos[5]=
|
|
(0,97.9432,20.1774)--
|
|
(32.6477,85.4729,40.3548)--
|
|
(20.1774,65.2955,73.0026)--
|
|
(-20.1774,65.2955,73.0026)--
|
|
(-32.6477,85.4729,40.3548)--
|
|
cycle;
|
|
|
|
truncIcos[6]=
|
|
(-97.9432,20.1774,0)--
|
|
(-85.4729,40.3548,-32.6477)--
|
|
(-65.2955,73.0026,-20.1774)--
|
|
(-65.2955,73.0026,20.1774)--
|
|
(-85.4729,40.3548,32.6477)--
|
|
cycle;
|
|
|
|
truncIcos[7]=
|
|
(0,97.9432,-20.1774)--
|
|
(-32.6477,85.4729,-40.3548)--
|
|
(-20.1774,65.2955,-73.0026)--
|
|
(20.1774,65.2955,-73.0026)--
|
|
(32.6477,85.4729,-40.3548)--
|
|
cycle;
|
|
|
|
truncIcos[8]=
|
|
(-97.9432,-20.1774,0)--
|
|
(-85.4729,-40.3548,32.6477)--
|
|
(-65.2955,-73.0026,20.1774)--
|
|
(-65.2955,-73.0026,-20.1774)--
|
|
(-85.4729,-40.3548,-32.6477)--
|
|
cycle;
|
|
|
|
truncIcos[9]=
|
|
(0,-97.9432,-20.1774)--
|
|
(32.6477,-85.4729,-40.3548)--
|
|
(20.1774,-65.2955,-73.0026)--
|
|
(-20.1774,-65.2955,-73.0026)--
|
|
(-32.6477,-85.4729,-40.3548)--
|
|
cycle;
|
|
|
|
truncIcos[10]=
|
|
(97.9432,-20.1774,0)--
|
|
(85.4729,-40.3548,-32.6477)--
|
|
(65.2955,-73.0026,-20.1774)--
|
|
(65.2955,-73.0026,20.1774)--
|
|
(85.4729,-40.3548,32.6477)--
|
|
cycle;
|
|
|
|
truncIcos[11]=
|
|
(0,-97.9432,20.1774)--
|
|
(-32.6477,-85.4729,40.3548)--
|
|
(-20.1774,-65.2955,73.0026)--
|
|
(20.1774,-65.2955,73.0026)--
|
|
(32.6477,-85.4729,40.3548)--
|
|
cycle;
|
|
|
|
truncIcos[12]=
|
|
(85.4729,40.3548,-32.6477)--
|
|
(97.9432,20.1774,0)--
|
|
(97.9432,-20.1774,0)--
|
|
(85.4729,-40.3548,-32.6477)--
|
|
(73.0026,-20.1774,-65.2955)--
|
|
(73.0026,20.1774,-65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[13]=
|
|
(85.4729,-40.3548,32.6477)--
|
|
(97.9432,-20.1774,0)--
|
|
(97.9432,20.1774,0)--
|
|
(85.4729,40.3548,32.6477)--
|
|
(73.0026,20.1774,65.2955)--
|
|
(73.0026,-20.1774,65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[14]=
|
|
(-85.4729,40.3548,32.6477)--
|
|
(-97.9432,20.1774,0)--
|
|
(-97.9432,-20.1774,0)--
|
|
(-85.4729,-40.3548,32.6477)--
|
|
(-73.0026,-20.1774,65.2955)--
|
|
(-73.0026,20.1774,65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[15]=
|
|
(-85.4729,-40.3548,-32.6477)--
|
|
(-97.9432,-20.1774,0)--
|
|
(-97.9432,20.1774,0)--
|
|
(-85.4729,40.3548,-32.6477)--
|
|
(-73.0026,20.1774,-65.2955)--
|
|
(-73.0026,-20.1774,-65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[16]=
|
|
(40.3548,32.6477,-85.4729)--
|
|
(20.1774,0,-97.9432)--
|
|
(-20.1774,0,-97.9432)--
|
|
(-40.3548,32.6477,-85.4729)--
|
|
(-20.1774,65.2955,-73.0026)--
|
|
(20.1774,65.2955,-73.0026)--
|
|
cycle;
|
|
|
|
truncIcos[17]=
|
|
(-40.3548,-32.6477,-85.4729)--
|
|
(-20.1774,0,-97.9432)--
|
|
(20.1774,0,-97.9432)--
|
|
(40.3548,-32.6477,-85.4729)--
|
|
(20.1774,-65.2955,-73.0026)--
|
|
(-20.1774,-65.2955,-73.0026)--
|
|
cycle;
|
|
|
|
truncIcos[18]=
|
|
(40.3548,-32.6477,85.4729)--
|
|
(20.1774,0,97.9432)--
|
|
(-20.1774,0,97.9432)--
|
|
(-40.3548,-32.6477,85.4729)--
|
|
(-20.1774,-65.2955,73.0026)--
|
|
(20.1774,-65.2955,73.0026)--
|
|
cycle;
|
|
|
|
truncIcos[19]=
|
|
(-40.3548,32.6477,85.4729)--
|
|
(-20.1774,0,97.9432)--
|
|
(20.1774,0,97.9432)--
|
|
(40.3548,32.6477,85.4729)--
|
|
(20.1774,65.2955,73.0026)--
|
|
(-20.1774,65.2955,73.0026)--
|
|
cycle;
|
|
|
|
truncIcos[20]=
|
|
(32.6477,85.4729,-40.3548)--
|
|
(0,97.9432,-20.1774)--
|
|
(0,97.9432,20.1774)--
|
|
(32.6477,85.4729,40.3548)--
|
|
(65.2955,73.0026,20.1774)--
|
|
(65.2955,73.0026,-20.1774)--
|
|
cycle;
|
|
|
|
truncIcos[21]=
|
|
(-32.6477,85.4729,40.3548)--
|
|
(0,97.9432,20.1774)--
|
|
(0,97.9432,-20.1774)--
|
|
(-32.6477,85.4729,-40.3548)--
|
|
(-65.2955,73.0026,-20.1774)--
|
|
(-65.2955,73.0026,20.1774)--
|
|
cycle;
|
|
|
|
truncIcos[22]=
|
|
(-32.6477,-85.4729,-40.3548)--
|
|
(0,-97.9432,-20.1774)--
|
|
(0,-97.9432,20.1774)--
|
|
(-32.6477,-85.4729,40.3548)--
|
|
(-65.2955,-73.0026,20.1774)--
|
|
(-65.2955,-73.0026,-20.1774)--
|
|
cycle;
|
|
|
|
truncIcos[23]=
|
|
(32.6477,-85.4729,40.3548)--
|
|
(0,-97.9432,20.1774)--
|
|
(0,-97.9432,-20.1774)--
|
|
(32.6477,-85.4729,-40.3548)--
|
|
(65.2955,-73.0026,-20.1774)--
|
|
(65.2955,-73.0026,20.1774)--
|
|
cycle;
|
|
|
|
truncIcos[24]=
|
|
(20.1774,65.2955,-73.0026)--
|
|
(32.6477,85.4729,-40.3548)--
|
|
(65.2955,73.0026,-20.1774)--
|
|
(85.4729,40.3548,-32.6477)--
|
|
(73.0026,20.1774,-65.2955)--
|
|
(40.3548,32.6477,-85.4729)--
|
|
cycle;
|
|
|
|
truncIcos[25]=
|
|
(85.4729,40.3548,32.6477)--
|
|
(73.0026,20.1774,65.2955)--
|
|
(40.3548,32.6477,85.4729)--
|
|
(20.1774,65.2955,73.0026)--
|
|
(32.6477,85.4729,40.3548)--
|
|
(65.2955,73.0026,20.1774)--
|
|
cycle;
|
|
|
|
truncIcos[26]=
|
|
(-73.0026,20.1774,65.2955)--
|
|
(-40.3548,32.6477,85.4729)--
|
|
(-20.1774,65.2955,73.0026)--
|
|
(-32.6477,85.4729,40.3548)--
|
|
(-65.2955,73.0026,20.1774)--
|
|
(-85.4729,40.3548,32.6477)--
|
|
cycle;
|
|
|
|
truncIcos[27]=
|
|
(-85.4729,40.3548,-32.6477)--
|
|
(-65.2955,73.0026,-20.1774)--
|
|
(-32.6477,85.4729,-40.3548)--
|
|
(-20.1774,65.2955,-73.0026)--
|
|
(-40.3548,32.6477,-85.4729)--
|
|
(-73.0026,20.1774,-65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[28]=
|
|
(-85.4729,-40.3548,32.6477)--
|
|
(-65.2955,-73.0026,20.1774)--
|
|
(-32.6477,-85.4729,40.3548)--
|
|
(-20.1774,-65.2955,73.0026)--
|
|
(-40.3548,-32.6477,85.4729)--
|
|
(-73.0026,-20.1774,65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[29]=
|
|
(-20.1774,-65.2955,-73.0026)--
|
|
(-32.6477,-85.4729,-40.3548)--
|
|
(-65.2955,-73.0026,-20.1774)--
|
|
(-85.4729,-40.3548,-32.6477)--
|
|
(-73.0026,-20.1774,-65.2955)--
|
|
(-40.3548,-32.6477,-85.4729)--
|
|
cycle;
|
|
|
|
truncIcos[30]=
|
|
(85.4729,-40.3548,-32.6477)--
|
|
(65.2955,-73.0026,-20.1774)--
|
|
(32.6477,-85.4729,-40.3548)--
|
|
(20.1774,-65.2955,-73.0026)--
|
|
(40.3548,-32.6477,-85.4729)--
|
|
(73.0026,-20.1774,-65.2955)--
|
|
cycle;
|
|
|
|
truncIcos[31]=
|
|
(20.1774,-65.2955,73.0026)--
|
|
(32.6477,-85.4729,40.3548)--
|
|
(65.2955,-73.0026,20.1774)--
|
|
(85.4729,-40.3548,32.6477)--
|
|
(73.0026,-20.1774,65.2955)--
|
|
(40.3548,-32.6477,85.4729)--
|
|
cycle;
|
|
truncIcos=scale3(1/abs(point(truncIcos[0],0)))*truncIcos;
|
|
|
|
//*** end of truncIcos ***
|
|
|
|
//*** start of rhombicosDodec ***
|
|
rhombicosDodec[0]=
|
|
(-22.3919,94.8536,-22.3919)--
|
|
(-36.2309,72.4617,-58.6227)--
|
|
(0,58.6227,-81.0146)--
|
|
(36.2309,72.4617,-58.6227)--
|
|
(22.3919,94.8536,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[1]=
|
|
(22.3919,94.8536,22.3919)--
|
|
(36.2309,72.4617,58.6227)--
|
|
(0,58.6227,81.0146)--
|
|
(-36.2309,72.4617,58.6227)--
|
|
(-22.3919,94.8536,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[2]=
|
|
(-22.3919,-94.8536,22.3919)--
|
|
(-36.2309,-72.4617,58.6227)--
|
|
(0,-58.6227,81.0146)--
|
|
(36.2309,-72.4617,58.6227)--
|
|
(22.3919,-94.8536,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[3]=
|
|
(22.3919,-94.8536,-22.3919)--
|
|
(36.2309,-72.4617,-58.6227)--
|
|
(0,-58.6227,-81.0146)--
|
|
(-36.2309,-72.4617,-58.6227)--
|
|
(-22.3919,-94.8536,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[4]=
|
|
(22.3919,-22.3919,-94.8536)--
|
|
(58.6227,-36.2309,-72.4617)--
|
|
(81.0146,0,-58.6227)--
|
|
(58.6227,36.2309,-72.4617)--
|
|
(22.3919,22.3919,-94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[5]=
|
|
(-22.3919,22.3919,-94.8536)--
|
|
(-58.6227,36.2309,-72.4617)--
|
|
(-81.0146,0,-58.6227)--
|
|
(-58.6227,-36.2309,-72.4617)--
|
|
(-22.3919,-22.3919,-94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[6]=
|
|
(-22.3919,-22.3919,94.8536)--
|
|
(-58.6227,-36.2309,72.4617)--
|
|
(-81.0146,0,58.6227)--
|
|
(-58.6227,36.2309,72.4617)--
|
|
(-22.3919,22.3919,94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[7]=
|
|
(22.3919,22.3919,94.8536)--
|
|
(58.6227,36.2309,72.4617)--
|
|
(81.0146,0,58.6227)--
|
|
(58.6227,-36.2309,72.4617)--
|
|
(22.3919,-22.3919,94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[8]=
|
|
(94.8536,22.3919,22.3919)--
|
|
(72.4617,58.6227,36.2309)--
|
|
(58.6227,81.0146,0)--
|
|
(72.4617,58.6227,-36.2309)--
|
|
(94.8536,22.3919,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[9]=
|
|
(94.8536,-22.3919,-22.3919)--
|
|
(72.4617,-58.6227,-36.2309)--
|
|
(58.6227,-81.0146,0)--
|
|
(72.4617,-58.6227,36.2309)--
|
|
(94.8536,-22.3919,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[10]=
|
|
(-94.8536,-22.3919,22.3919)--
|
|
(-72.4617,-58.6227,36.2309)--
|
|
(-58.6227,-81.0146,0)--
|
|
(-72.4617,-58.6227,-36.2309)--
|
|
(-94.8536,-22.3919,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[11]=
|
|
(-94.8536,22.3919,-22.3919)--
|
|
(-72.4617,58.6227,-36.2309)--
|
|
(-58.6227,81.0146,0)--
|
|
(-72.4617,58.6227,36.2309)--
|
|
(-94.8536,22.3919,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[12]=
|
|
(22.3919,94.8536,22.3919)--
|
|
(22.3919,94.8536,-22.3919)--
|
|
(-22.3919,94.8536,-22.3919)--
|
|
(-22.3919,94.8536,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[13]=
|
|
(22.3919,-94.8536,-22.3919)--
|
|
(22.3919,-94.8536,22.3919)--
|
|
(-22.3919,-94.8536,22.3919)--
|
|
(-22.3919,-94.8536,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[14]=
|
|
(-22.3919,22.3919,-94.8536)--
|
|
(22.3919,22.3919,-94.8536)--
|
|
(22.3919,-22.3919,-94.8536)--
|
|
(-22.3919,-22.3919,-94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[15]=
|
|
(22.3919,22.3919,94.8536)--
|
|
(-22.3919,22.3919,94.8536)--
|
|
(-22.3919,-22.3919,94.8536)--
|
|
(22.3919,-22.3919,94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[16]=
|
|
(94.8536,-22.3919,-22.3919)--
|
|
(94.8536,22.3919,-22.3919)--
|
|
(94.8536,22.3919,22.3919)--
|
|
(94.8536,-22.3919,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[17]=
|
|
(-94.8536,22.3919,-22.3919)--
|
|
(-94.8536,-22.3919,-22.3919)--
|
|
(-94.8536,-22.3919,22.3919)--
|
|
(-94.8536,22.3919,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[18]=
|
|
(36.2309,72.4617,-58.6227)--
|
|
(22.3919,94.8536,-22.3919)--
|
|
(58.6227,81.0146,0)--
|
|
(72.4617,58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[19]=
|
|
(58.6227,81.0146,0)--
|
|
(22.3919,94.8536,22.3919)--
|
|
(36.2309,72.4617,58.6227)--
|
|
(72.4617,58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[20]=
|
|
(-36.2309,72.4617,58.6227)--
|
|
(-22.3919,94.8536,22.3919)--
|
|
(-58.6227,81.0146,0)--
|
|
(-72.4617,58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[21]=
|
|
(-58.6227,81.0146,0)--
|
|
(-22.3919,94.8536,-22.3919)--
|
|
(-36.2309,72.4617,-58.6227)--
|
|
(-72.4617,58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[22]=
|
|
(36.2309,-72.4617,58.6227)--
|
|
(22.3919,-94.8536,22.3919)--
|
|
(58.6227,-81.0146,0)--
|
|
(72.4617,-58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[23]=
|
|
(58.6227,-81.0146,0)--
|
|
(22.3919,-94.8536,-22.3919)--
|
|
(36.2309,-72.4617,-58.6227)--
|
|
(72.4617,-58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[24]=
|
|
(-36.2309,-72.4617,-58.6227)--
|
|
(-22.3919,-94.8536,-22.3919)--
|
|
(-58.6227,-81.0146,0)--
|
|
(-72.4617,-58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[25]=
|
|
(-58.6227,-81.0146,0)--
|
|
(-22.3919,-94.8536,22.3919)--
|
|
(-36.2309,-72.4617,58.6227)--
|
|
(-72.4617,-58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[26]=
|
|
(58.6227,36.2309,-72.4617)--
|
|
(22.3919,22.3919,-94.8536)--
|
|
(0,58.6227,-81.0146)--
|
|
(36.2309,72.4617,-58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[27]=
|
|
(0,58.6227,-81.0146)--
|
|
(-22.3919,22.3919,-94.8536)--
|
|
(-58.6227,36.2309,-72.4617)--
|
|
(-36.2309,72.4617,-58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[28]=
|
|
(-58.6227,-36.2309,-72.4617)--
|
|
(-22.3919,-22.3919,-94.8536)--
|
|
(0,-58.6227,-81.0146)--
|
|
(-36.2309,-72.4617,-58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[29]=
|
|
(0,-58.6227,-81.0146)--
|
|
(22.3919,-22.3919,-94.8536)--
|
|
(58.6227,-36.2309,-72.4617)--
|
|
(36.2309,-72.4617,-58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[30]=
|
|
(-58.6227,36.2309,72.4617)--
|
|
(-22.3919,22.3919,94.8536)--
|
|
(0,58.6227,81.0146)--
|
|
(-36.2309,72.4617,58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[31]=
|
|
(0,58.6227,81.0146)--
|
|
(22.3919,22.3919,94.8536)--
|
|
(58.6227,36.2309,72.4617)--
|
|
(36.2309,72.4617,58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[32]=
|
|
(58.6227,-36.2309,72.4617)--
|
|
(22.3919,-22.3919,94.8536)--
|
|
(0,-58.6227,81.0146)--
|
|
(36.2309,-72.4617,58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[33]=
|
|
(0,-58.6227,81.0146)--
|
|
(-22.3919,-22.3919,94.8536)--
|
|
(-58.6227,-36.2309,72.4617)--
|
|
(-36.2309,-72.4617,58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[34]=
|
|
(72.4617,58.6227,-36.2309)--
|
|
(94.8536,22.3919,-22.3919)--
|
|
(81.0146,0,-58.6227)--
|
|
(58.6227,36.2309,-72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[35]=
|
|
(81.0146,0,-58.6227)--
|
|
(94.8536,-22.3919,-22.3919)--
|
|
(72.4617,-58.6227,-36.2309)--
|
|
(58.6227,-36.2309,-72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[36]=
|
|
(72.4617,-58.6227,36.2309)--
|
|
(94.8536,-22.3919,22.3919)--
|
|
(81.0146,0,58.6227)--
|
|
(58.6227,-36.2309,72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[37]=
|
|
(81.0146,0,58.6227)--
|
|
(94.8536,22.3919,22.3919)--
|
|
(72.4617,58.6227,36.2309)--
|
|
(58.6227,36.2309,72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[38]=
|
|
(-72.4617,-58.6227,-36.2309)--
|
|
(-94.8536,-22.3919,-22.3919)--
|
|
(-81.0146,0,-58.6227)--
|
|
(-58.6227,-36.2309,-72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[39]=
|
|
(-81.0146,0,-58.6227)--
|
|
(-94.8536,22.3919,-22.3919)--
|
|
(-72.4617,58.6227,-36.2309)--
|
|
(-58.6227,36.2309,-72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[40]=
|
|
(-72.4617,58.6227,36.2309)--
|
|
(-94.8536,22.3919,22.3919)--
|
|
(-81.0146,0,58.6227)--
|
|
(-58.6227,36.2309,72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[41]=
|
|
(-81.0146,0,58.6227)--
|
|
(-94.8536,-22.3919,22.3919)--
|
|
(-72.4617,-58.6227,36.2309)--
|
|
(-58.6227,-36.2309,72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[42]=
|
|
(22.3919,94.8536,-22.3919)--
|
|
(58.6227,81.0146,0)--
|
|
(22.3919,94.8536,22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[43]=
|
|
(-22.3919,94.8536,-22.3919)--
|
|
(-22.3919,94.8536,22.3919)--
|
|
(-58.6227,81.0146,0)--
|
|
cycle;
|
|
|
|
rhombicosDodec[44]=
|
|
(22.3919,-94.8536,22.3919)--
|
|
(58.6227,-81.0146,0)--
|
|
(22.3919,-94.8536,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[45]=
|
|
(-22.3919,-94.8536,22.3919)--
|
|
(-22.3919,-94.8536,-22.3919)--
|
|
(-58.6227,-81.0146,0)--
|
|
cycle;
|
|
|
|
rhombicosDodec[46]=
|
|
(22.3919,22.3919,-94.8536)--
|
|
(0,58.6227,-81.0146)--
|
|
(-22.3919,22.3919,-94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[47]=
|
|
(22.3919,-22.3919,-94.8536)--
|
|
(-22.3919,-22.3919,-94.8536)--
|
|
(0,-58.6227,-81.0146)--
|
|
cycle;
|
|
|
|
rhombicosDodec[48]=
|
|
(-22.3919,22.3919,94.8536)--
|
|
(0,58.6227,81.0146)--
|
|
(22.3919,22.3919,94.8536)--
|
|
cycle;
|
|
|
|
rhombicosDodec[49]=
|
|
(-22.3919,-22.3919,94.8536)--
|
|
(22.3919,-22.3919,94.8536)--
|
|
(0,-58.6227,81.0146)--
|
|
cycle;
|
|
|
|
rhombicosDodec[50]=
|
|
(94.8536,22.3919,-22.3919)--
|
|
(81.0146,0,-58.6227)--
|
|
(94.8536,-22.3919,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[51]=
|
|
(94.8536,22.3919,22.3919)--
|
|
(94.8536,-22.3919,22.3919)--
|
|
(81.0146,0,58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[52]=
|
|
(-94.8536,-22.3919,-22.3919)--
|
|
(-81.0146,0,-58.6227)--
|
|
(-94.8536,22.3919,-22.3919)--
|
|
cycle;
|
|
|
|
rhombicosDodec[53]=
|
|
(-94.8536,-22.3919,22.3919)--
|
|
(-94.8536,22.3919,22.3919)--
|
|
(-81.0146,0,58.6227)--
|
|
cycle;
|
|
|
|
rhombicosDodec[54]=
|
|
(36.2309,72.4617,-58.6227)--
|
|
(58.6227,36.2309,-72.4617)--
|
|
(72.4617,58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[55]=
|
|
(58.6227,36.2309,72.4617)--
|
|
(36.2309,72.4617,58.6227)--
|
|
(72.4617,58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[56]=
|
|
(-36.2309,72.4617,58.6227)--
|
|
(-58.6227,36.2309,72.4617)--
|
|
(-72.4617,58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[57]=
|
|
(-58.6227,36.2309,-72.4617)--
|
|
(-36.2309,72.4617,-58.6227)--
|
|
(-72.4617,58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[58]=
|
|
(36.2309,-72.4617,58.6227)--
|
|
(58.6227,-36.2309,72.4617)--
|
|
(72.4617,-58.6227,36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[59]=
|
|
(36.2309,-72.4617,-58.6227)--
|
|
(72.4617,-58.6227,-36.2309)--
|
|
(58.6227,-36.2309,-72.4617)--
|
|
cycle;
|
|
|
|
rhombicosDodec[60]=
|
|
(-36.2309,-72.4617,-58.6227)--
|
|
(-58.6227,-36.2309,-72.4617)--
|
|
(-72.4617,-58.6227,-36.2309)--
|
|
cycle;
|
|
|
|
rhombicosDodec[61]=
|
|
(-58.6227,-36.2309,72.4617)--
|
|
(-36.2309,-72.4617,58.6227)--
|
|
(-72.4617,-58.6227,36.2309)--
|
|
cycle;
|
|
rhombicosDodec=scale3(1/abs(point(rhombicosDodec[0],0)))*rhombicosDodec;
|
|
|
|
//*** end of RhombicosDodec ***
|
|
|
|
//*** start of snbDdcleft ***
|
|
snbDdcleft[0]=
|
|
(-28.6199,-92.0928,-26.5588)--
|
|
(-33.4519,-68.4094,-64.8161)--
|
|
(8.17712,-58.6781,-80.6249)--
|
|
(37.9121,-76.4211,-51.8528)--
|
|
(15.6109,-97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[1]=
|
|
(28.6199,-92.0928,26.5588)--
|
|
(33.4519,-68.4094,64.8161)--
|
|
(-8.17712,-58.6781,80.6249)--
|
|
(-37.9121,-76.4211,51.8528)--
|
|
(-15.6109,-97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[2]=
|
|
(-28.6199,92.0928,26.5588)--
|
|
(-33.4519,68.4094,64.8161)--
|
|
(8.17712,58.6781,80.6249)--
|
|
(37.9121,76.4211,51.8528)--
|
|
(15.6109,97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[3]=
|
|
(28.6199,92.0928,-26.5588)--
|
|
(33.4519,68.4094,-64.8161)--
|
|
(-8.17712,58.6781,-80.6249)--
|
|
(-37.9121,76.4211,-51.8528)--
|
|
(-15.6109,97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[4]=
|
|
(-92.0928,-26.5588,-28.6199)--
|
|
(-68.4094,-64.8161,-33.4519)--
|
|
(-58.6781,-80.6249,8.17712)--
|
|
(-76.4211,-51.8528,37.9121)--
|
|
(-97.1734,-18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[5]=
|
|
(-92.0928,26.5588,28.6199)--
|
|
(-68.4094,64.8161,33.4519)--
|
|
(-58.6781,80.6249,-8.17712)--
|
|
(-76.4211,51.8528,-37.9121)--
|
|
(-97.1734,18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[6]=
|
|
(92.0928,26.5588,-28.6199)--
|
|
(68.4094,64.8161,-33.4519)--
|
|
(58.6781,80.6249,8.17712)--
|
|
(76.4211,51.8528,37.9121)--
|
|
(97.1734,18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[7]=
|
|
(92.0928,-26.5588,28.6199)--
|
|
(68.4094,-64.8161,33.4519)--
|
|
(58.6781,-80.6249,-8.17712)--
|
|
(76.4211,-51.8528,-37.9121)--
|
|
(97.1734,-18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[8]=
|
|
(26.5588,28.6199,-92.0928)--
|
|
(64.8161,33.4519,-68.4094)--
|
|
(80.6249,-8.17712,-58.6781)--
|
|
(51.8528,-37.9121,-76.4211)--
|
|
(18.3382,-15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[9]=
|
|
(-26.5588,-28.6199,-92.0928)--
|
|
(-64.8161,-33.4519,-68.4094)--
|
|
(-80.6249,8.17712,-58.6781)--
|
|
(-51.8528,37.9121,-76.4211)--
|
|
(-18.3382,15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[10]=
|
|
(26.5588,-28.6199,92.0928)--
|
|
(64.8161,-33.4519,68.4094)--
|
|
(80.6249,8.17712,58.6781)--
|
|
(51.8528,37.9121,76.4211)--
|
|
(18.3382,15.6109,97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[11]=
|
|
(-26.5588,28.6199,92.0928)--
|
|
(-64.8161,33.4519,68.4094)--
|
|
(-80.6249,-8.17712,58.6781)--
|
|
(-51.8528,-37.9121,76.4211)--
|
|
(-18.3382,-15.6109,97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[12]=
|
|
(15.6109,-97.1734,-18.3382)--
|
|
(58.6781,-80.6249,-8.17712)--
|
|
(28.6199,-92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[13]=
|
|
(-15.6109,-97.1734,18.3382)--
|
|
(-58.6781,-80.6249,8.17712)--
|
|
(-28.6199,-92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[14]=
|
|
(15.6109,97.1734,18.3382)--
|
|
(58.6781,80.6249,8.17712)--
|
|
(28.6199,92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[15]=
|
|
(-15.6109,97.1734,-18.3382)--
|
|
(-58.6781,80.6249,-8.17712)--
|
|
(-28.6199,92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[16]=
|
|
(-97.1734,-18.3382,15.6109)--
|
|
(-80.6249,-8.17712,58.6781)--
|
|
(-92.0928,26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[17]=
|
|
(-97.1734,18.3382,-15.6109)--
|
|
(-80.6249,8.17712,-58.6781)--
|
|
(-92.0928,-26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[18]=
|
|
(97.1734,18.3382,15.6109)--
|
|
(80.6249,8.17712,58.6781)--
|
|
(92.0928,-26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[19]=
|
|
(97.1734,-18.3382,-15.6109)--
|
|
(80.6249,-8.17712,-58.6781)--
|
|
(92.0928,26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[20]=
|
|
(18.3382,-15.6109,-97.1734)--
|
|
(8.17712,-58.6781,-80.6249)--
|
|
(-26.5588,-28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[21]=
|
|
(-18.3382,15.6109,-97.1734)--
|
|
(-8.17712,58.6781,-80.6249)--
|
|
(26.5588,28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[22]=
|
|
(18.3382,15.6109,97.1734)--
|
|
(8.17712,58.6781,80.6249)--
|
|
(-26.5588,28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[23]=
|
|
(-18.3382,-15.6109,97.1734)--
|
|
(-8.17712,-58.6781,80.6249)--
|
|
(26.5588,-28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[24]=
|
|
(37.9121,-76.4211,-51.8528)--
|
|
(51.8528,-37.9121,-76.4211)--
|
|
(76.4211,-51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[25]=
|
|
(33.4519,-68.4094,64.8161)--
|
|
(68.4094,-64.8161,33.4519)--
|
|
(64.8161,-33.4519,68.4094)--
|
|
cycle;
|
|
|
|
snbDdcleft[26]=
|
|
(-37.9121,-76.4211,51.8528)--
|
|
(-51.8528,-37.9121,76.4211)--
|
|
(-76.4211,-51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[27]=
|
|
(-68.4094,-64.8161,-33.4519)--
|
|
(-64.8161,-33.4519,-68.4094)--
|
|
(-33.4519,-68.4094,-64.8161)--
|
|
cycle;
|
|
|
|
snbDdcleft[28]=
|
|
(37.9121,76.4211,51.8528)--
|
|
(51.8528,37.9121,76.4211)--
|
|
(76.4211,51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[29]=
|
|
(33.4519,68.4094,-64.8161)--
|
|
(68.4094,64.8161,-33.4519)--
|
|
(64.8161,33.4519,-68.4094)--
|
|
cycle;
|
|
|
|
snbDdcleft[30]=
|
|
(-37.9121,76.4211,-51.8528)--
|
|
(-51.8528,37.9121,-76.4211)--
|
|
(-76.4211,51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[31]=
|
|
(-68.4094,64.8161,33.4519)--
|
|
(-64.8161,33.4519,68.4094)--
|
|
(-33.4519,68.4094,64.8161)--
|
|
cycle;
|
|
|
|
snbDdcleft[32]=
|
|
(15.6109,-97.1734,-18.3382)--
|
|
(58.6781,-80.6249,-8.17712)--
|
|
(37.9121,-76.4211,-51.8528)--
|
|
cycle;
|
|
|
|
snbDdcleft[33]=
|
|
(76.4211,-51.8528,-37.9121)--
|
|
(37.9121,-76.4211,-51.8528)--
|
|
(58.6781,-80.6249,-8.17712)--
|
|
cycle;
|
|
|
|
snbDdcleft[34]=
|
|
(58.6781,-80.6249,-8.17712)--
|
|
(28.6199,-92.0928,26.5588)--
|
|
(68.4094,-64.8161,33.4519)--
|
|
cycle;
|
|
|
|
snbDdcleft[35]=
|
|
(33.4519,-68.4094,64.8161)--
|
|
(68.4094,-64.8161,33.4519)--
|
|
(28.6199,-92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[36]=
|
|
(-15.6109,-97.1734,18.3382)--
|
|
(-58.6781,-80.6249,8.17712)--
|
|
(-37.9121,-76.4211,51.8528)--
|
|
cycle;
|
|
|
|
snbDdcleft[37]=
|
|
(-76.4211,-51.8528,37.9121)--
|
|
(-37.9121,-76.4211,51.8528)--
|
|
(-58.6781,-80.6249,8.17712)--
|
|
cycle;
|
|
|
|
snbDdcleft[38]=
|
|
(-58.6781,-80.6249,8.17712)--
|
|
(-28.6199,-92.0928,-26.5588)--
|
|
(-68.4094,-64.8161,-33.4519)--
|
|
cycle;
|
|
|
|
snbDdcleft[39]=
|
|
(-33.4519,-68.4094,-64.8161)--
|
|
(-68.4094,-64.8161,-33.4519)--
|
|
(-28.6199,-92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[40]=
|
|
(15.6109,97.1734,18.3382)--
|
|
(58.6781,80.6249,8.17712)--
|
|
(37.9121,76.4211,51.8528)--
|
|
cycle;
|
|
|
|
snbDdcleft[41]=
|
|
(76.4211,51.8528,37.9121)--
|
|
(37.9121,76.4211,51.8528)--
|
|
(58.6781,80.6249,8.17712)--
|
|
cycle;
|
|
|
|
snbDdcleft[42]=
|
|
(58.6781,80.6249,8.17712)--
|
|
(28.6199,92.0928,-26.5588)--
|
|
(68.4094,64.8161,-33.4519)--
|
|
cycle;
|
|
|
|
snbDdcleft[43]=
|
|
(33.4519,68.4094,-64.8161)--
|
|
(68.4094,64.8161,-33.4519)--
|
|
(28.6199,92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[44]=
|
|
(-15.6109,97.1734,-18.3382)--
|
|
(-58.6781,80.6249,-8.17712)--
|
|
(-37.9121,76.4211,-51.8528)--
|
|
cycle;
|
|
|
|
snbDdcleft[45]=
|
|
(-76.4211,51.8528,-37.9121)--
|
|
(-37.9121,76.4211,-51.8528)--
|
|
(-58.6781,80.6249,-8.17712)--
|
|
cycle;
|
|
|
|
snbDdcleft[46]=
|
|
(-58.6781,80.6249,-8.17712)--
|
|
(-28.6199,92.0928,26.5588)--
|
|
(-68.4094,64.8161,33.4519)--
|
|
cycle;
|
|
|
|
snbDdcleft[47]=
|
|
(-33.4519,68.4094,64.8161)--
|
|
(-68.4094,64.8161,33.4519)--
|
|
(-28.6199,92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcleft[48]=
|
|
(-97.1734,-18.3382,15.6109)--
|
|
(-80.6249,-8.17712,58.6781)--
|
|
(-76.4211,-51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[49]=
|
|
(-51.8528,-37.9121,76.4211)--
|
|
(-76.4211,-51.8528,37.9121)--
|
|
(-80.6249,-8.17712,58.6781)--
|
|
cycle;
|
|
|
|
snbDdcleft[50]=
|
|
(-80.6249,-8.17712,58.6781)--
|
|
(-92.0928,26.5588,28.6199)--
|
|
(-64.8161,33.4519,68.4094)--
|
|
cycle;
|
|
|
|
snbDdcleft[51]=
|
|
(-68.4094,64.8161,33.4519)--
|
|
(-64.8161,33.4519,68.4094)--
|
|
(-92.0928,26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[52]=
|
|
(-97.1734,18.3382,-15.6109)--
|
|
(-80.6249,8.17712,-58.6781)--
|
|
(-76.4211,51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[53]=
|
|
(-51.8528,37.9121,-76.4211)--
|
|
(-76.4211,51.8528,-37.9121)--
|
|
(-80.6249,8.17712,-58.6781)--
|
|
cycle;
|
|
|
|
snbDdcleft[54]=
|
|
(-80.6249,8.17712,-58.6781)--
|
|
(-92.0928,-26.5588,-28.6199)--
|
|
(-64.8161,-33.4519,-68.4094)--
|
|
cycle;
|
|
|
|
snbDdcleft[55]=
|
|
(-68.4094,-64.8161,-33.4519)--
|
|
(-64.8161,-33.4519,-68.4094)--
|
|
(-92.0928,-26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[56]=
|
|
(97.1734,18.3382,15.6109)--
|
|
(80.6249,8.17712,58.6781)--
|
|
(76.4211,51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[57]=
|
|
(51.8528,37.9121,76.4211)--
|
|
(76.4211,51.8528,37.9121)--
|
|
(80.6249,8.17712,58.6781)--
|
|
cycle;
|
|
|
|
snbDdcleft[58]=
|
|
(80.6249,8.17712,58.6781)--
|
|
(92.0928,-26.5588,28.6199)--
|
|
(64.8161,-33.4519,68.4094)--
|
|
cycle;
|
|
|
|
snbDdcleft[59]=
|
|
(68.4094,-64.8161,33.4519)--
|
|
(64.8161,-33.4519,68.4094)--
|
|
(92.0928,-26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[60]=
|
|
(97.1734,-18.3382,-15.6109)--
|
|
(80.6249,-8.17712,-58.6781)--
|
|
(76.4211,-51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcleft[61]=
|
|
(51.8528,-37.9121,-76.4211)--
|
|
(76.4211,-51.8528,-37.9121)--
|
|
(80.6249,-8.17712,-58.6781)--
|
|
cycle;
|
|
|
|
snbDdcleft[62]=
|
|
(80.6249,-8.17712,-58.6781)--
|
|
(92.0928,26.5588,-28.6199)--
|
|
(64.8161,33.4519,-68.4094)--
|
|
cycle;
|
|
|
|
snbDdcleft[63]=
|
|
(68.4094,64.8161,-33.4519)--
|
|
(64.8161,33.4519,-68.4094)--
|
|
(92.0928,26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcleft[64]=
|
|
(18.3382,-15.6109,-97.1734)--
|
|
(8.17712,-58.6781,-80.6249)--
|
|
(51.8528,-37.9121,-76.4211)--
|
|
cycle;
|
|
|
|
snbDdcleft[65]=
|
|
(37.9121,-76.4211,-51.8528)--
|
|
(51.8528,-37.9121,-76.4211)--
|
|
(8.17712,-58.6781,-80.6249)--
|
|
cycle;
|
|
|
|
snbDdcleft[66]=
|
|
(8.17712,-58.6781,-80.6249)--
|
|
(-26.5588,-28.6199,-92.0928)--
|
|
(-33.4519,-68.4094,-64.8161)--
|
|
cycle;
|
|
|
|
snbDdcleft[67]=
|
|
(-64.8161,-33.4519,-68.4094)--
|
|
(-33.4519,-68.4094,-64.8161)--
|
|
(-26.5588,-28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[68]=
|
|
(-18.3382,15.6109,-97.1734)--
|
|
(-8.17712,58.6781,-80.6249)--
|
|
(-51.8528,37.9121,-76.4211)--
|
|
cycle;
|
|
|
|
snbDdcleft[69]=
|
|
(-37.9121,76.4211,-51.8528)--
|
|
(-51.8528,37.9121,-76.4211)--
|
|
(-8.17712,58.6781,-80.6249)--
|
|
cycle;
|
|
|
|
snbDdcleft[70]=
|
|
(-8.17712,58.6781,-80.6249)--
|
|
(26.5588,28.6199,-92.0928)--
|
|
(33.4519,68.4094,-64.8161)--
|
|
cycle;
|
|
|
|
snbDdcleft[71]=
|
|
(64.8161,33.4519,-68.4094)--
|
|
(33.4519,68.4094,-64.8161)--
|
|
(26.5588,28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[72]=
|
|
(18.3382,15.6109,97.1734)--
|
|
(8.17712,58.6781,80.6249)--
|
|
(51.8528,37.9121,76.4211)--
|
|
cycle;
|
|
|
|
snbDdcleft[73]=
|
|
(37.9121,76.4211,51.8528)--
|
|
(51.8528,37.9121,76.4211)--
|
|
(8.17712,58.6781,80.6249)--
|
|
cycle;
|
|
|
|
snbDdcleft[74]=
|
|
(8.17712,58.6781,80.6249)--
|
|
(-26.5588,28.6199,92.0928)--
|
|
(-33.4519,68.4094,64.8161)--
|
|
cycle;
|
|
|
|
snbDdcleft[75]=
|
|
(-64.8161,33.4519,68.4094)--
|
|
(-33.4519,68.4094,64.8161)--
|
|
(-26.5588,28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[76]=
|
|
(-18.3382,-15.6109,97.1734)--
|
|
(-8.17712,-58.6781,80.6249)--
|
|
(-51.8528,-37.9121,76.4211)--
|
|
cycle;
|
|
|
|
snbDdcleft[77]=
|
|
(-37.9121,-76.4211,51.8528)--
|
|
(-51.8528,-37.9121,76.4211)--
|
|
(-8.17712,-58.6781,80.6249)--
|
|
cycle;
|
|
|
|
snbDdcleft[78]=
|
|
(-8.17712,-58.6781,80.6249)--
|
|
(26.5588,-28.6199,92.0928)--
|
|
(33.4519,-68.4094,64.8161)--
|
|
cycle;
|
|
|
|
snbDdcleft[79]=
|
|
(64.8161,-33.4519,68.4094)--
|
|
(33.4519,-68.4094,64.8161)--
|
|
(26.5588,-28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcleft[80]=
|
|
(-28.6199,-92.0928,-26.5588)--
|
|
(-15.6109,-97.1734,18.3382)--
|
|
(15.6109,-97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[81]=
|
|
(28.6199,-92.0928,26.5588)--
|
|
(15.6109,-97.1734,-18.3382)--
|
|
(-15.6109,-97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[82]=
|
|
(-28.6199,92.0928,26.5588)--
|
|
(-15.6109,97.1734,-18.3382)--
|
|
(15.6109,97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[83]=
|
|
(28.6199,92.0928,-26.5588)--
|
|
(15.6109,97.1734,18.3382)--
|
|
(-15.6109,97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcleft[84]=
|
|
(-92.0928,-26.5588,-28.6199)--
|
|
(-97.1734,18.3382,-15.6109)--
|
|
(-97.1734,-18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[85]=
|
|
(-92.0928,26.5588,28.6199)--
|
|
(-97.1734,-18.3382,15.6109)--
|
|
(-97.1734,18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[86]=
|
|
(92.0928,26.5588,-28.6199)--
|
|
(97.1734,-18.3382,-15.6109)--
|
|
(97.1734,18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[87]=
|
|
(92.0928,-26.5588,28.6199)--
|
|
(97.1734,18.3382,15.6109)--
|
|
(97.1734,-18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcleft[88]=
|
|
(26.5588,28.6199,-92.0928)--
|
|
(-18.3382,15.6109,-97.1734)--
|
|
(18.3382,-15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[89]=
|
|
(-26.5588,-28.6199,-92.0928)--
|
|
(18.3382,-15.6109,-97.1734)--
|
|
(-18.3382,15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[90]=
|
|
(26.5588,-28.6199,92.0928)--
|
|
(-18.3382,-15.6109,97.1734)--
|
|
(18.3382,15.6109,97.1734)--
|
|
cycle;
|
|
|
|
snbDdcleft[91]=
|
|
(-26.5588,28.6199,92.0928)--
|
|
(18.3382,15.6109,97.1734)--
|
|
(-18.3382,-15.6109,97.1734)--
|
|
cycle;
|
|
snbDdcleft=scale3(1/abs(point(snbDdcleft[0],0)))*snbDdcleft;
|
|
|
|
//*** end of snbDdcleft ***
|
|
|
|
//*** start of snbDdcright ***
|
|
snbDdcright[0]=
|
|
(-28.6199,92.0928,-26.5588)--
|
|
(-33.4519,68.4094,-64.8161)--
|
|
(8.17712,58.6781,-80.6249)--
|
|
(37.9121,76.4211,-51.8528)--
|
|
(15.6109,97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[1]=
|
|
(28.6199,92.0928,26.5588)--
|
|
(33.4519,68.4094,64.8161)--
|
|
(-8.17712,58.6781,80.6249)--
|
|
(-37.9121,76.4211,51.8528)--
|
|
(-15.6109,97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[2]=
|
|
(-28.6199,-92.0928,26.5588)--
|
|
(-33.4519,-68.4094,64.8161)--
|
|
(8.17712,-58.6781,80.6249)--
|
|
(37.9121,-76.4211,51.8528)--
|
|
(15.6109,-97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[3]=
|
|
(28.6199,-92.0928,-26.5588)--
|
|
(33.4519,-68.4094,-64.8161)--
|
|
(-8.17712,-58.6781,-80.6249)--
|
|
(-37.9121,-76.4211,-51.8528)--
|
|
(-15.6109,-97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[4]=
|
|
(-92.0928,26.5588,-28.6199)--
|
|
(-68.4094,64.8161,-33.4519)--
|
|
(-58.6781,80.6249,8.17712)--
|
|
(-76.4211,51.8528,37.9121)--
|
|
(-97.1734,18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[5]=
|
|
(-92.0928,-26.5588,28.6199)--
|
|
(-68.4094,-64.8161,33.4519)--
|
|
(-58.6781,-80.6249,-8.17712)--
|
|
(-76.4211,-51.8528,-37.9121)--
|
|
(-97.1734,-18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[6]=
|
|
(92.0928,-26.5588,-28.6199)--
|
|
(68.4094,-64.8161,-33.4519)--
|
|
(58.6781,-80.6249,8.17712)--
|
|
(76.4211,-51.8528,37.9121)--
|
|
(97.1734,-18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[7]=
|
|
(92.0928,26.5588,28.6199)--
|
|
(68.4094,64.8161,33.4519)--
|
|
(58.6781,80.6249,-8.17712)--
|
|
(76.4211,51.8528,-37.9121)--
|
|
(97.1734,18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[8]=
|
|
(26.5588,-28.6199,-92.0928)--
|
|
(64.8161,-33.4519,-68.4094)--
|
|
(80.6249,8.17712,-58.6781)--
|
|
(51.8528,37.9121,-76.4211)--
|
|
(18.3382,15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[9]=
|
|
(-26.5588,28.6199,-92.0928)--
|
|
(-64.8161,33.4519,-68.4094)--
|
|
(-80.6249,-8.17712,-58.6781)--
|
|
(-51.8528,-37.9121,-76.4211)--
|
|
(-18.3382,-15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[10]=
|
|
(26.5588,28.6199,92.0928)--
|
|
(64.8161,33.4519,68.4094)--
|
|
(80.6249,-8.17712,58.6781)--
|
|
(51.8528,-37.9121,76.4211)--
|
|
(18.3382,-15.6109,97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[11]=
|
|
(-26.5588,-28.6199,92.0928)--
|
|
(-64.8161,-33.4519,68.4094)--
|
|
(-80.6249,8.17712,58.6781)--
|
|
(-51.8528,37.9121,76.4211)--
|
|
(-18.3382,15.6109,97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[12]=
|
|
(15.6109,97.1734,-18.3382)--
|
|
(58.6781,80.6249,-8.17712)--
|
|
(28.6199,92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[13]=
|
|
(-15.6109,97.1734,18.3382)--
|
|
(-58.6781,80.6249,8.17712)--
|
|
(-28.6199,92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[14]=
|
|
(15.6109,-97.1734,18.3382)--
|
|
(58.6781,-80.6249,8.17712)--
|
|
(28.6199,-92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[15]=
|
|
(-15.6109,-97.1734,-18.3382)--
|
|
(-58.6781,-80.6249,-8.17712)--
|
|
(-28.6199,-92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[16]=
|
|
(-97.1734,18.3382,15.6109)--
|
|
(-80.6249,8.17712,58.6781)--
|
|
(-92.0928,-26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[17]=
|
|
(-97.1734,-18.3382,-15.6109)--
|
|
(-80.6249,-8.17712,-58.6781)--
|
|
(-92.0928,26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[18]=
|
|
(97.1734,-18.3382,15.6109)--
|
|
(80.6249,-8.17712,58.6781)--
|
|
(92.0928,26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[19]=
|
|
(97.1734,18.3382,-15.6109)--
|
|
(80.6249,8.17712,-58.6781)--
|
|
(92.0928,-26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[20]=
|
|
(18.3382,15.6109,-97.1734)--
|
|
(8.17712,58.6781,-80.6249)--
|
|
(-26.5588,28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[21]=
|
|
(-18.3382,-15.6109,-97.1734)--
|
|
(-8.17712,-58.6781,-80.6249)--
|
|
(26.5588,-28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[22]=
|
|
(18.3382,-15.6109,97.1734)--
|
|
(8.17712,-58.6781,80.6249)--
|
|
(-26.5588,-28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[23]=
|
|
(-18.3382,15.6109,97.1734)--
|
|
(-8.17712,58.6781,80.6249)--
|
|
(26.5588,28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[24]=
|
|
(37.9121,76.4211,-51.8528)--
|
|
(51.8528,37.9121,-76.4211)--
|
|
(76.4211,51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[25]=
|
|
(33.4519,68.4094,64.8161)--
|
|
(68.4094,64.8161,33.4519)--
|
|
(64.8161,33.4519,68.4094)--
|
|
cycle;
|
|
|
|
snbDdcright[26]=
|
|
(-37.9121,76.4211,51.8528)--
|
|
(-51.8528,37.9121,76.4211)--
|
|
(-76.4211,51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[27]=
|
|
(-68.4094,64.8161,-33.4519)--
|
|
(-64.8161,33.4519,-68.4094)--
|
|
(-33.4519,68.4094,-64.8161)--
|
|
cycle;
|
|
|
|
snbDdcright[28]=
|
|
(37.9121,-76.4211,51.8528)--
|
|
(51.8528,-37.9121,76.4211)--
|
|
(76.4211,-51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[29]=
|
|
(33.4519,-68.4094,-64.8161)--
|
|
(68.4094,-64.8161,-33.4519)--
|
|
(64.8161,-33.4519,-68.4094)--
|
|
cycle;
|
|
|
|
snbDdcright[30]=
|
|
(-37.9121,-76.4211,-51.8528)--
|
|
(-51.8528,-37.9121,-76.4211)--
|
|
(-76.4211,-51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[31]=
|
|
(-68.4094,-64.8161,33.4519)--
|
|
(-64.8161,-33.4519,68.4094)--
|
|
(-33.4519,-68.4094,64.8161)--
|
|
cycle;
|
|
|
|
snbDdcright[32]=
|
|
(15.6109,97.1734,-18.3382)--
|
|
(58.6781,80.6249,-8.17712)--
|
|
(37.9121,76.4211,-51.8528)--
|
|
cycle;
|
|
|
|
snbDdcright[33]=
|
|
(76.4211,51.8528,-37.9121)--
|
|
(37.9121,76.4211,-51.8528)--
|
|
(58.6781,80.6249,-8.17712)--
|
|
cycle;
|
|
|
|
snbDdcright[34]=
|
|
(58.6781,80.6249,-8.17712)--
|
|
(28.6199,92.0928,26.5588)--
|
|
(68.4094,64.8161,33.4519)--
|
|
cycle;
|
|
|
|
snbDdcright[35]=
|
|
(33.4519,68.4094,64.8161)--
|
|
(68.4094,64.8161,33.4519)--
|
|
(28.6199,92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[36]=
|
|
(-15.6109,97.1734,18.3382)--
|
|
(-58.6781,80.6249,8.17712)--
|
|
(-37.9121,76.4211,51.8528)--
|
|
cycle;
|
|
|
|
snbDdcright[37]=
|
|
(-76.4211,51.8528,37.9121)--
|
|
(-37.9121,76.4211,51.8528)--
|
|
(-58.6781,80.6249,8.17712)--
|
|
cycle;
|
|
|
|
snbDdcright[38]=
|
|
(-58.6781,80.6249,8.17712)--
|
|
(-28.6199,92.0928,-26.5588)--
|
|
(-68.4094,64.8161,-33.4519)--
|
|
cycle;
|
|
|
|
snbDdcright[39]=
|
|
(-33.4519,68.4094,-64.8161)--
|
|
(-68.4094,64.8161,-33.4519)--
|
|
(-28.6199,92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[40]=
|
|
(15.6109,-97.1734,18.3382)--
|
|
(58.6781,-80.6249,8.17712)--
|
|
(37.9121,-76.4211,51.8528)--
|
|
cycle;
|
|
|
|
snbDdcright[41]=
|
|
(76.4211,-51.8528,37.9121)--
|
|
(37.9121,-76.4211,51.8528)--
|
|
(58.6781,-80.6249,8.17712)--
|
|
cycle;
|
|
|
|
snbDdcright[42]=
|
|
(58.6781,-80.6249,8.17712)--
|
|
(28.6199,-92.0928,-26.5588)--
|
|
(68.4094,-64.8161,-33.4519)--
|
|
cycle;
|
|
|
|
snbDdcright[43]=
|
|
(33.4519,-68.4094,-64.8161)--
|
|
(68.4094,-64.8161,-33.4519)--
|
|
(28.6199,-92.0928,-26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[44]=
|
|
(-15.6109,-97.1734,-18.3382)--
|
|
(-58.6781,-80.6249,-8.17712)--
|
|
(-37.9121,-76.4211,-51.8528)--
|
|
cycle;
|
|
|
|
snbDdcright[45]=
|
|
(-76.4211,-51.8528,-37.9121)--
|
|
(-37.9121,-76.4211,-51.8528)--
|
|
(-58.6781,-80.6249,-8.17712)--
|
|
cycle;
|
|
|
|
snbDdcright[46]=
|
|
(-58.6781,-80.6249,-8.17712)--
|
|
(-28.6199,-92.0928,26.5588)--
|
|
(-68.4094,-64.8161,33.4519)--
|
|
cycle;
|
|
|
|
snbDdcright[47]=
|
|
(-33.4519,-68.4094,64.8161)--
|
|
(-68.4094,-64.8161,33.4519)--
|
|
(-28.6199,-92.0928,26.5588)--
|
|
cycle;
|
|
|
|
snbDdcright[48]=
|
|
(-97.1734,18.3382,15.6109)--
|
|
(-80.6249,8.17712,58.6781)--
|
|
(-76.4211,51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[49]=
|
|
(-51.8528,37.9121,76.4211)--
|
|
(-76.4211,51.8528,37.9121)--
|
|
(-80.6249,8.17712,58.6781)--
|
|
cycle;
|
|
|
|
snbDdcright[50]=
|
|
(-80.6249,8.17712,58.6781)--
|
|
(-92.0928,-26.5588,28.6199)--
|
|
(-64.8161,-33.4519,68.4094)--
|
|
cycle;
|
|
|
|
snbDdcright[51]=
|
|
(-68.4094,-64.8161,33.4519)--
|
|
(-64.8161,-33.4519,68.4094)--
|
|
(-92.0928,-26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[52]=
|
|
(-97.1734,-18.3382,-15.6109)--
|
|
(-80.6249,-8.17712,-58.6781)--
|
|
(-76.4211,-51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[53]=
|
|
(-51.8528,-37.9121,-76.4211)--
|
|
(-76.4211,-51.8528,-37.9121)--
|
|
(-80.6249,-8.17712,-58.6781)--
|
|
cycle;
|
|
|
|
snbDdcright[54]=
|
|
(-80.6249,-8.17712,-58.6781)--
|
|
(-92.0928,26.5588,-28.6199)--
|
|
(-64.8161,33.4519,-68.4094)--
|
|
cycle;
|
|
|
|
snbDdcright[55]=
|
|
(-68.4094,64.8161,-33.4519)--
|
|
(-64.8161,33.4519,-68.4094)--
|
|
(-92.0928,26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[56]=
|
|
(97.1734,-18.3382,15.6109)--
|
|
(80.6249,-8.17712,58.6781)--
|
|
(76.4211,-51.8528,37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[57]=
|
|
(51.8528,-37.9121,76.4211)--
|
|
(76.4211,-51.8528,37.9121)--
|
|
(80.6249,-8.17712,58.6781)--
|
|
cycle;
|
|
|
|
snbDdcright[58]=
|
|
(80.6249,-8.17712,58.6781)--
|
|
(92.0928,26.5588,28.6199)--
|
|
(64.8161,33.4519,68.4094)--
|
|
cycle;
|
|
|
|
snbDdcright[59]=
|
|
(68.4094,64.8161,33.4519)--
|
|
(64.8161,33.4519,68.4094)--
|
|
(92.0928,26.5588,28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[60]=
|
|
(97.1734,18.3382,-15.6109)--
|
|
(80.6249,8.17712,-58.6781)--
|
|
(76.4211,51.8528,-37.9121)--
|
|
cycle;
|
|
|
|
snbDdcright[61]=
|
|
(51.8528,37.9121,-76.4211)--
|
|
(76.4211,51.8528,-37.9121)--
|
|
(80.6249,8.17712,-58.6781)--
|
|
cycle;
|
|
|
|
snbDdcright[62]=
|
|
(80.6249,8.17712,-58.6781)--
|
|
(92.0928,-26.5588,-28.6199)--
|
|
(64.8161,-33.4519,-68.4094)--
|
|
cycle;
|
|
|
|
snbDdcright[63]=
|
|
(68.4094,-64.8161,-33.4519)--
|
|
(64.8161,-33.4519,-68.4094)--
|
|
(92.0928,-26.5588,-28.6199)--
|
|
cycle;
|
|
|
|
snbDdcright[64]=
|
|
(18.3382,15.6109,-97.1734)--
|
|
(8.17712,58.6781,-80.6249)--
|
|
(51.8528,37.9121,-76.4211)--
|
|
cycle;
|
|
|
|
snbDdcright[65]=
|
|
(37.9121,76.4211,-51.8528)--
|
|
(51.8528,37.9121,-76.4211)--
|
|
(8.17712,58.6781,-80.6249)--
|
|
cycle;
|
|
|
|
snbDdcright[66]=
|
|
(8.17712,58.6781,-80.6249)--
|
|
(-26.5588,28.6199,-92.0928)--
|
|
(-33.4519,68.4094,-64.8161)--
|
|
cycle;
|
|
|
|
snbDdcright[67]=
|
|
(-64.8161,33.4519,-68.4094)--
|
|
(-33.4519,68.4094,-64.8161)--
|
|
(-26.5588,28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[68]=
|
|
(-18.3382,-15.6109,-97.1734)--
|
|
(-8.17712,-58.6781,-80.6249)--
|
|
(-51.8528,-37.9121,-76.4211)--
|
|
cycle;
|
|
|
|
snbDdcright[69]=
|
|
(-37.9121,-76.4211,-51.8528)--
|
|
(-51.8528,-37.9121,-76.4211)--
|
|
(-8.17712,-58.6781,-80.6249)--
|
|
cycle;
|
|
|
|
snbDdcright[70]=
|
|
(-8.17712,-58.6781,-80.6249)--
|
|
(26.5588,-28.6199,-92.0928)--
|
|
(33.4519,-68.4094,-64.8161)--
|
|
cycle;
|
|
|
|
snbDdcright[71]=
|
|
(64.8161,-33.4519,-68.4094)--
|
|
(33.4519,-68.4094,-64.8161)--
|
|
(26.5588,-28.6199,-92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[72]=
|
|
(18.3382,-15.6109,97.1734)--
|
|
(8.17712,-58.6781,80.6249)--
|
|
(51.8528,-37.9121,76.4211)--
|
|
cycle;
|
|
|
|
snbDdcright[73]=
|
|
(37.9121,-76.4211,51.8528)--
|
|
(51.8528,-37.9121,76.4211)--
|
|
(8.17712,-58.6781,80.6249)--
|
|
cycle;
|
|
|
|
snbDdcright[74]=
|
|
(8.17712,-58.6781,80.6249)--
|
|
(-26.5588,-28.6199,92.0928)--
|
|
(-33.4519,-68.4094,64.8161)--
|
|
cycle;
|
|
|
|
snbDdcright[75]=
|
|
(-64.8161,-33.4519,68.4094)--
|
|
(-33.4519,-68.4094,64.8161)--
|
|
(-26.5588,-28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[76]=
|
|
(-18.3382,15.6109,97.1734)--
|
|
(-8.17712,58.6781,80.6249)--
|
|
(-51.8528,37.9121,76.4211)--
|
|
cycle;
|
|
|
|
snbDdcright[77]=
|
|
(-37.9121,76.4211,51.8528)--
|
|
(-51.8528,37.9121,76.4211)--
|
|
(-8.17712,58.6781,80.6249)--
|
|
cycle;
|
|
|
|
snbDdcright[78]=
|
|
(-8.17712,58.6781,80.6249)--
|
|
(26.5588,28.6199,92.0928)--
|
|
(33.4519,68.4094,64.8161)--
|
|
cycle;
|
|
|
|
snbDdcright[79]=
|
|
(64.8161,33.4519,68.4094)--
|
|
(33.4519,68.4094,64.8161)--
|
|
(26.5588,28.6199,92.0928)--
|
|
cycle;
|
|
|
|
snbDdcright[80]=
|
|
(-28.6199,92.0928,-26.5588)--
|
|
(-15.6109,97.1734,18.3382)--
|
|
(15.6109,97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[81]=
|
|
(28.6199,92.0928,26.5588)--
|
|
(15.6109,97.1734,-18.3382)--
|
|
(-15.6109,97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[82]=
|
|
(-28.6199,-92.0928,26.5588)--
|
|
(-15.6109,-97.1734,-18.3382)--
|
|
(15.6109,-97.1734,18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[83]=
|
|
(28.6199,-92.0928,-26.5588)--
|
|
(15.6109,-97.1734,18.3382)--
|
|
(-15.6109,-97.1734,-18.3382)--
|
|
cycle;
|
|
|
|
snbDdcright[84]=
|
|
(-92.0928,26.5588,-28.6199)--
|
|
(-97.1734,-18.3382,-15.6109)--
|
|
(-97.1734,18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[85]=
|
|
(-92.0928,-26.5588,28.6199)--
|
|
(-97.1734,18.3382,15.6109)--
|
|
(-97.1734,-18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[86]=
|
|
(92.0928,-26.5588,-28.6199)--
|
|
(97.1734,18.3382,-15.6109)--
|
|
(97.1734,-18.3382,15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[87]=
|
|
(92.0928,26.5588,28.6199)--
|
|
(97.1734,-18.3382,15.6109)--
|
|
(97.1734,18.3382,-15.6109)--
|
|
cycle;
|
|
|
|
snbDdcright[88]=
|
|
(26.5588,-28.6199,-92.0928)--
|
|
(-18.3382,-15.6109,-97.1734)--
|
|
(18.3382,15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[89]=
|
|
(-26.5588,28.6199,-92.0928)--
|
|
(18.3382,15.6109,-97.1734)--
|
|
(-18.3382,-15.6109,-97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[90]=
|
|
(26.5588,28.6199,92.0928)--
|
|
(-18.3382,15.6109,97.1734)--
|
|
(18.3382,-15.6109,97.1734)--
|
|
cycle;
|
|
|
|
snbDdcright[91]=
|
|
(-26.5588,-28.6199,92.0928)--
|
|
(18.3382,-15.6109,97.1734)--
|
|
(-18.3382,15.6109,97.1734)--
|
|
cycle;
|
|
snbDdcright=scale3(1/abs(point(snbDdcright[0],0)))*snbDdcright;
|
|
|
|
//*** end of snbDdcright ***
|
|
|
|
//*** start of greatRhombicosDodec ***
|
|
greatRhombicosDodec[0]=
|
|
(-13.1496,-98.2558,-13.1496)--
|
|
(-34.4262,-90.1289,-26.2992)--
|
|
(-42.5531,-76.9792,-47.5758)--
|
|
(-34.4262,-63.8296,-68.8523)--
|
|
(-13.1496,-55.7027,-82.0019)--
|
|
(13.1496,-55.7027,-82.0019)--
|
|
(34.4262,-63.8296,-68.8523)--
|
|
(42.5531,-76.9792,-47.5758)--
|
|
(34.4262,-90.1289,-26.2992)--
|
|
(13.1496,-98.2558,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[1]=
|
|
(13.1496,-98.2558,13.1496)--
|
|
(34.4262,-90.1289,26.2992)--
|
|
(42.5531,-76.9792,47.5758)--
|
|
(34.4262,-63.8296,68.8523)--
|
|
(13.1496,-55.7027,82.0019)--
|
|
(-13.1496,-55.7027,82.0019)--
|
|
(-34.4262,-63.8296,68.8523)--
|
|
(-42.5531,-76.9792,47.5758)--
|
|
(-34.4262,-90.1289,26.2992)--
|
|
(-13.1496,-98.2558,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[2]=
|
|
(-13.1496,98.2558,13.1496)--
|
|
(-34.4262,90.1289,26.2992)--
|
|
(-42.5531,76.9792,47.5758)--
|
|
(-34.4262,63.8296,68.8523)--
|
|
(-13.1496,55.7027,82.0019)--
|
|
(13.1496,55.7027,82.0019)--
|
|
(34.4262,63.8296,68.8523)--
|
|
(42.5531,76.9792,47.5758)--
|
|
(34.4262,90.1289,26.2992)--
|
|
(13.1496,98.2558,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[3]=
|
|
(13.1496,98.2558,-13.1496)--
|
|
(34.4262,90.1289,-26.2992)--
|
|
(42.5531,76.9792,-47.5758)--
|
|
(34.4262,63.8296,-68.8523)--
|
|
(13.1496,55.7027,-82.0019)--
|
|
(-13.1496,55.7027,-82.0019)--
|
|
(-34.4262,63.8296,-68.8523)--
|
|
(-42.5531,76.9792,-47.5758)--
|
|
(-34.4262,90.1289,-26.2992)--
|
|
(-13.1496,98.2558,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[4]=
|
|
(-98.2558,-13.1496,-13.1496)--
|
|
(-90.1289,-26.2992,-34.4262)--
|
|
(-76.9792,-47.5758,-42.5531)--
|
|
(-63.8296,-68.8523,-34.4262)--
|
|
(-55.7027,-82.0019,-13.1496)--
|
|
(-55.7027,-82.0019,13.1496)--
|
|
(-63.8296,-68.8523,34.4262)--
|
|
(-76.9792,-47.5758,42.5531)--
|
|
(-90.1289,-26.2992,34.4262)--
|
|
(-98.2558,-13.1496,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[5]=
|
|
(-98.2558,13.1496,13.1496)--
|
|
(-90.1289,26.2992,34.4262)--
|
|
(-76.9792,47.5758,42.5531)--
|
|
(-63.8296,68.8523,34.4262)--
|
|
(-55.7027,82.0019,13.1496)--
|
|
(-55.7027,82.0019,-13.1496)--
|
|
(-63.8296,68.8523,-34.4262)--
|
|
(-76.9792,47.5758,-42.5531)--
|
|
(-90.1289,26.2992,-34.4262)--
|
|
(-98.2558,13.1496,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[6]=
|
|
(98.2558,13.1496,-13.1496)--
|
|
(90.1289,26.2992,-34.4262)--
|
|
(76.9792,47.5758,-42.5531)--
|
|
(63.8296,68.8523,-34.4262)--
|
|
(55.7027,82.0019,-13.1496)--
|
|
(55.7027,82.0019,13.1496)--
|
|
(63.8296,68.8523,34.4262)--
|
|
(76.9792,47.5758,42.5531)--
|
|
(90.1289,26.2992,34.4262)--
|
|
(98.2558,13.1496,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[7]=
|
|
(98.2558,-13.1496,13.1496)--
|
|
(90.1289,-26.2992,34.4262)--
|
|
(76.9792,-47.5758,42.5531)--
|
|
(63.8296,-68.8523,34.4262)--
|
|
(55.7027,-82.0019,13.1496)--
|
|
(55.7027,-82.0019,-13.1496)--
|
|
(63.8296,-68.8523,-34.4262)--
|
|
(76.9792,-47.5758,-42.5531)--
|
|
(90.1289,-26.2992,-34.4262)--
|
|
(98.2558,-13.1496,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[8]=
|
|
(13.1496,13.1496,-98.2558)--
|
|
(26.2992,34.4262,-90.1289)--
|
|
(47.5758,42.5531,-76.9792)--
|
|
(68.8523,34.4262,-63.8296)--
|
|
(82.0019,13.1496,-55.7027)--
|
|
(82.0019,-13.1496,-55.7027)--
|
|
(68.8523,-34.4262,-63.8296)--
|
|
(47.5758,-42.5531,-76.9792)--
|
|
(26.2992,-34.4262,-90.1289)--
|
|
(13.1496,-13.1496,-98.2558)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[9]=
|
|
(-13.1496,-13.1496,-98.2558)--
|
|
(-26.2992,-34.4262,-90.1289)--
|
|
(-47.5758,-42.5531,-76.9792)--
|
|
(-68.8523,-34.4262,-63.8296)--
|
|
(-82.0019,-13.1496,-55.7027)--
|
|
(-82.0019,13.1496,-55.7027)--
|
|
(-68.8523,34.4262,-63.8296)--
|
|
(-47.5758,42.5531,-76.9792)--
|
|
(-26.2992,34.4262,-90.1289)--
|
|
(-13.1496,13.1496,-98.2558)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[10]=
|
|
(13.1496,-13.1496,98.2558)--
|
|
(26.2992,-34.4262,90.1289)--
|
|
(47.5758,-42.5531,76.9792)--
|
|
(68.8523,-34.4262,63.8296)--
|
|
(82.0019,-13.1496,55.7027)--
|
|
(82.0019,13.1496,55.7027)--
|
|
(68.8523,34.4262,63.8296)--
|
|
(47.5758,42.5531,76.9792)--
|
|
(26.2992,34.4262,90.1289)--
|
|
(13.1496,13.1496,98.2558)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[11]=
|
|
(-13.1496,13.1496,98.2558)--
|
|
(-26.2992,34.4262,90.1289)--
|
|
(-47.5758,42.5531,76.9792)--
|
|
(-68.8523,34.4262,63.8296)--
|
|
(-82.0019,13.1496,55.7027)--
|
|
(-82.0019,-13.1496,55.7027)--
|
|
(-68.8523,-34.4262,63.8296)--
|
|
(-47.5758,-42.5531,76.9792)--
|
|
(-26.2992,-34.4262,90.1289)--
|
|
(-13.1496,-13.1496,98.2558)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[12]=
|
|
(34.4262,-90.1289,-26.2992)--
|
|
(13.1496,-98.2558,-13.1496)--
|
|
(13.1496,-98.2558,13.1496)--
|
|
(34.4262,-90.1289,26.2992)--
|
|
(55.7027,-82.0019,13.1496)--
|
|
(55.7027,-82.0019,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[13]=
|
|
(-34.4262,-90.1289,26.2992)--
|
|
(-13.1496,-98.2558,13.1496)--
|
|
(-13.1496,-98.2558,-13.1496)--
|
|
(-34.4262,-90.1289,-26.2992)--
|
|
(-55.7027,-82.0019,-13.1496)--
|
|
(-55.7027,-82.0019,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[14]=
|
|
(34.4262,90.1289,26.2992)--
|
|
(13.1496,98.2558,13.1496)--
|
|
(13.1496,98.2558,-13.1496)--
|
|
(34.4262,90.1289,-26.2992)--
|
|
(55.7027,82.0019,-13.1496)--
|
|
(55.7027,82.0019,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[15]=
|
|
(-34.4262,90.1289,-26.2992)--
|
|
(-13.1496,98.2558,-13.1496)--
|
|
(-13.1496,98.2558,13.1496)--
|
|
(-34.4262,90.1289,26.2992)--
|
|
(-55.7027,82.0019,13.1496)--
|
|
(-55.7027,82.0019,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[16]=
|
|
(-90.1289,-26.2992,34.4262)--
|
|
(-98.2558,-13.1496,13.1496)--
|
|
(-98.2558,13.1496,13.1496)--
|
|
(-90.1289,26.2992,34.4262)--
|
|
(-82.0019,13.1496,55.7027)--
|
|
(-82.0019,-13.1496,55.7027)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[17]=
|
|
(-90.1289,26.2992,-34.4262)--
|
|
(-98.2558,13.1496,-13.1496)--
|
|
(-98.2558,-13.1496,-13.1496)--
|
|
(-90.1289,-26.2992,-34.4262)--
|
|
(-82.0019,-13.1496,-55.7027)--
|
|
(-82.0019,13.1496,-55.7027)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[18]=
|
|
(90.1289,26.2992,34.4262)--
|
|
(98.2558,13.1496,13.1496)--
|
|
(98.2558,-13.1496,13.1496)--
|
|
(90.1289,-26.2992,34.4262)--
|
|
(82.0019,-13.1496,55.7027)--
|
|
(82.0019,13.1496,55.7027)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[19]=
|
|
(90.1289,-26.2992,-34.4262)--
|
|
(98.2558,-13.1496,-13.1496)--
|
|
(98.2558,13.1496,-13.1496)--
|
|
(90.1289,26.2992,-34.4262)--
|
|
(82.0019,13.1496,-55.7027)--
|
|
(82.0019,-13.1496,-55.7027)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[20]=
|
|
(26.2992,-34.4262,-90.1289)--
|
|
(13.1496,-13.1496,-98.2558)--
|
|
(-13.1496,-13.1496,-98.2558)--
|
|
(-26.2992,-34.4262,-90.1289)--
|
|
(-13.1496,-55.7027,-82.0019)--
|
|
(13.1496,-55.7027,-82.0019)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[21]=
|
|
(-26.2992,34.4262,-90.1289)--
|
|
(-13.1496,13.1496,-98.2558)--
|
|
(13.1496,13.1496,-98.2558)--
|
|
(26.2992,34.4262,-90.1289)--
|
|
(13.1496,55.7027,-82.0019)--
|
|
(-13.1496,55.7027,-82.0019)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[22]=
|
|
(26.2992,34.4262,90.1289)--
|
|
(13.1496,13.1496,98.2558)--
|
|
(-13.1496,13.1496,98.2558)--
|
|
(-26.2992,34.4262,90.1289)--
|
|
(-13.1496,55.7027,82.0019)--
|
|
(13.1496,55.7027,82.0019)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[23]=
|
|
(-26.2992,-34.4262,90.1289)--
|
|
(-13.1496,-13.1496,98.2558)--
|
|
(13.1496,-13.1496,98.2558)--
|
|
(26.2992,-34.4262,90.1289)--
|
|
(13.1496,-55.7027,82.0019)--
|
|
(-13.1496,-55.7027,82.0019)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[24]=
|
|
(34.4262,-63.8296,-68.8523)--
|
|
(42.5531,-76.9792,-47.5758)--
|
|
(63.8296,-68.8523,-34.4262)--
|
|
(76.9792,-47.5758,-42.5531)--
|
|
(68.8523,-34.4262,-63.8296)--
|
|
(47.5758,-42.5531,-76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[25]=
|
|
(76.9792,-47.5758,42.5531)--
|
|
(63.8296,-68.8523,34.4262)--
|
|
(42.5531,-76.9792,47.5758)--
|
|
(34.4262,-63.8296,68.8523)--
|
|
(47.5758,-42.5531,76.9792)--
|
|
(68.8523,-34.4262,63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[26]=
|
|
(-34.4262,-63.8296,68.8523)--
|
|
(-42.5531,-76.9792,47.5758)--
|
|
(-63.8296,-68.8523,34.4262)--
|
|
(-76.9792,-47.5758,42.5531)--
|
|
(-68.8523,-34.4262,63.8296)--
|
|
(-47.5758,-42.5531,76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[27]=
|
|
(-76.9792,-47.5758,-42.5531)--
|
|
(-63.8296,-68.8523,-34.4262)--
|
|
(-42.5531,-76.9792,-47.5758)--
|
|
(-34.4262,-63.8296,-68.8523)--
|
|
(-47.5758,-42.5531,-76.9792)--
|
|
(-68.8523,-34.4262,-63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[28]=
|
|
(34.4262,63.8296,68.8523)--
|
|
(42.5531,76.9792,47.5758)--
|
|
(63.8296,68.8523,34.4262)--
|
|
(76.9792,47.5758,42.5531)--
|
|
(68.8523,34.4262,63.8296)--
|
|
(47.5758,42.5531,76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[29]=
|
|
(76.9792,47.5758,-42.5531)--
|
|
(63.8296,68.8523,-34.4262)--
|
|
(42.5531,76.9792,-47.5758)--
|
|
(34.4262,63.8296,-68.8523)--
|
|
(47.5758,42.5531,-76.9792)--
|
|
(68.8523,34.4262,-63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[30]=
|
|
(-34.4262,63.8296,-68.8523)--
|
|
(-42.5531,76.9792,-47.5758)--
|
|
(-63.8296,68.8523,-34.4262)--
|
|
(-76.9792,47.5758,-42.5531)--
|
|
(-68.8523,34.4262,-63.8296)--
|
|
(-47.5758,42.5531,-76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[31]=
|
|
(-76.9792,47.5758,42.5531)--
|
|
(-63.8296,68.8523,34.4262)--
|
|
(-42.5531,76.9792,47.5758)--
|
|
(-34.4262,63.8296,68.8523)--
|
|
(-47.5758,42.5531,76.9792)--
|
|
(-68.8523,34.4262,63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[32]=
|
|
(42.5531,-76.9792,-47.5758)--
|
|
(34.4262,-90.1289,-26.2992)--
|
|
(55.7027,-82.0019,-13.1496)--
|
|
(63.8296,-68.8523,-34.4262)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[33]=
|
|
(63.8296,-68.8523,34.4262)--
|
|
(55.7027,-82.0019,13.1496)--
|
|
(34.4262,-90.1289,26.2992)--
|
|
(42.5531,-76.9792,47.5758)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[34]=
|
|
(-42.5531,-76.9792,47.5758)--
|
|
(-34.4262,-90.1289,26.2992)--
|
|
(-55.7027,-82.0019,13.1496)--
|
|
(-63.8296,-68.8523,34.4262)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[35]=
|
|
(-63.8296,-68.8523,-34.4262)--
|
|
(-55.7027,-82.0019,-13.1496)--
|
|
(-34.4262,-90.1289,-26.2992)--
|
|
(-42.5531,-76.9792,-47.5758)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[36]=
|
|
(42.5531,76.9792,47.5758)--
|
|
(34.4262,90.1289,26.2992)--
|
|
(55.7027,82.0019,13.1496)--
|
|
(63.8296,68.8523,34.4262)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[37]=
|
|
(63.8296,68.8523,-34.4262)--
|
|
(55.7027,82.0019,-13.1496)--
|
|
(34.4262,90.1289,-26.2992)--
|
|
(42.5531,76.9792,-47.5758)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[38]=
|
|
(-42.5531,76.9792,-47.5758)--
|
|
(-34.4262,90.1289,-26.2992)--
|
|
(-55.7027,82.0019,-13.1496)--
|
|
(-63.8296,68.8523,-34.4262)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[39]=
|
|
(-63.8296,68.8523,34.4262)--
|
|
(-55.7027,82.0019,13.1496)--
|
|
(-34.4262,90.1289,26.2992)--
|
|
(-42.5531,76.9792,47.5758)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[40]=
|
|
(-76.9792,-47.5758,42.5531)--
|
|
(-90.1289,-26.2992,34.4262)--
|
|
(-82.0019,-13.1496,55.7027)--
|
|
(-68.8523,-34.4262,63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[41]=
|
|
(-68.8523,34.4262,63.8296)--
|
|
(-82.0019,13.1496,55.7027)--
|
|
(-90.1289,26.2992,34.4262)--
|
|
(-76.9792,47.5758,42.5531)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[42]=
|
|
(-76.9792,47.5758,-42.5531)--
|
|
(-90.1289,26.2992,-34.4262)--
|
|
(-82.0019,13.1496,-55.7027)--
|
|
(-68.8523,34.4262,-63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[43]=
|
|
(-68.8523,-34.4262,-63.8296)--
|
|
(-82.0019,-13.1496,-55.7027)--
|
|
(-90.1289,-26.2992,-34.4262)--
|
|
(-76.9792,-47.5758,-42.5531)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[44]=
|
|
(76.9792,47.5758,42.5531)--
|
|
(90.1289,26.2992,34.4262)--
|
|
(82.0019,13.1496,55.7027)--
|
|
(68.8523,34.4262,63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[45]=
|
|
(68.8523,-34.4262,63.8296)--
|
|
(82.0019,-13.1496,55.7027)--
|
|
(90.1289,-26.2992,34.4262)--
|
|
(76.9792,-47.5758,42.5531)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[46]=
|
|
(76.9792,-47.5758,-42.5531)--
|
|
(90.1289,-26.2992,-34.4262)--
|
|
(82.0019,-13.1496,-55.7027)--
|
|
(68.8523,-34.4262,-63.8296)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[47]=
|
|
(68.8523,34.4262,-63.8296)--
|
|
(82.0019,13.1496,-55.7027)--
|
|
(90.1289,26.2992,-34.4262)--
|
|
(76.9792,47.5758,-42.5531)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[48]=
|
|
(47.5758,-42.5531,-76.9792)--
|
|
(26.2992,-34.4262,-90.1289)--
|
|
(13.1496,-55.7027,-82.0019)--
|
|
(34.4262,-63.8296,-68.8523)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[49]=
|
|
(-34.4262,-63.8296,-68.8523)--
|
|
(-13.1496,-55.7027,-82.0019)--
|
|
(-26.2992,-34.4262,-90.1289)--
|
|
(-47.5758,-42.5531,-76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[50]=
|
|
(-47.5758,42.5531,-76.9792)--
|
|
(-26.2992,34.4262,-90.1289)--
|
|
(-13.1496,55.7027,-82.0019)--
|
|
(-34.4262,63.8296,-68.8523)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[51]=
|
|
(34.4262,63.8296,-68.8523)--
|
|
(13.1496,55.7027,-82.0019)--
|
|
(26.2992,34.4262,-90.1289)--
|
|
(47.5758,42.5531,-76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[52]=
|
|
(47.5758,42.5531,76.9792)--
|
|
(26.2992,34.4262,90.1289)--
|
|
(13.1496,55.7027,82.0019)--
|
|
(34.4262,63.8296,68.8523)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[53]=
|
|
(-34.4262,63.8296,68.8523)--
|
|
(-13.1496,55.7027,82.0019)--
|
|
(-26.2992,34.4262,90.1289)--
|
|
(-47.5758,42.5531,76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[54]=
|
|
(-47.5758,-42.5531,76.9792)--
|
|
(-26.2992,-34.4262,90.1289)--
|
|
(-13.1496,-55.7027,82.0019)--
|
|
(-34.4262,-63.8296,68.8523)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[55]=
|
|
(34.4262,-63.8296,68.8523)--
|
|
(13.1496,-55.7027,82.0019)--
|
|
(26.2992,-34.4262,90.1289)--
|
|
(47.5758,-42.5531,76.9792)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[56]=
|
|
(13.1496,-98.2558,-13.1496)--
|
|
(13.1496,-98.2558,13.1496)--
|
|
(-13.1496,-98.2558,13.1496)--
|
|
(-13.1496,-98.2558,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[57]=
|
|
(13.1496,98.2558,13.1496)--
|
|
(13.1496,98.2558,-13.1496)--
|
|
(-13.1496,98.2558,-13.1496)--
|
|
(-13.1496,98.2558,13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[58]=
|
|
(-98.2558,-13.1496,13.1496)--
|
|
(-98.2558,13.1496,13.1496)--
|
|
(-98.2558,13.1496,-13.1496)--
|
|
(-98.2558,-13.1496,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[59]=
|
|
(98.2558,13.1496,13.1496)--
|
|
(98.2558,-13.1496,13.1496)--
|
|
(98.2558,-13.1496,-13.1496)--
|
|
(98.2558,13.1496,-13.1496)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[60]=
|
|
(13.1496,-13.1496,-98.2558)--
|
|
(-13.1496,-13.1496,-98.2558)--
|
|
(-13.1496,13.1496,-98.2558)--
|
|
(13.1496,13.1496,-98.2558)--
|
|
cycle;
|
|
|
|
greatRhombicosDodec[61]=
|
|
(13.1496,13.1496,98.2558)--
|
|
(-13.1496,13.1496,98.2558)--
|
|
(-13.1496,-13.1496,98.2558)--
|
|
(13.1496,-13.1496,98.2558)--
|
|
cycle;
|
|
greatRhombicosDodec=scale3(1/abs(point(greatRhombicosDodec[0],0)))*greatRhombicosDodec;
|
|
|
|
//*** end of greatRhombicosDodec ***
|