// 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-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 ***