summaryrefslogtreecommitdiff
path: root/Master/texmf/doc/asymptote/examples/truncatedIcosahedron.asy
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/doc/asymptote/examples/truncatedIcosahedron.asy')
-rw-r--r--Master/texmf/doc/asymptote/examples/truncatedIcosahedron.asy68
1 files changed, 0 insertions, 68 deletions
diff --git a/Master/texmf/doc/asymptote/examples/truncatedIcosahedron.asy b/Master/texmf/doc/asymptote/examples/truncatedIcosahedron.asy
deleted file mode 100644
index e4d07a49e5b..00000000000
--- a/Master/texmf/doc/asymptote/examples/truncatedIcosahedron.asy
+++ /dev/null
@@ -1,68 +0,0 @@
-import graph3;
-
-size(200);
-
-defaultrender.merge=true;
-
-real c=(1+sqrt(5))/2;
-
-triple[] z={(c,1,0),(-c,1,0),(-c,-1,0),(c,-1,0)};
-triple[] x={(0,c,1),(0,-c,1),(0,-c,-1),(0,c,-1)};
-triple[] y={(1,0,c),(1,0,-c),(-1,0,-c),(-1,0,c)};
-
-triple[][] Q={
- {(c,1,0),(1,0,-c),(0,c,-1),(0,c,1),(1,0,c),(c,-1,0)},
- {(-c,1,0),(0,c,1),(0,c,-1),(-1,0,-c),(-c,-1,0),(-1,0,c)},
- {(-c,-1,0),(-c,1,0),(-1,0,-c),(0,-c,-1),(0,-c,1),(-1,0,c)},
- {(c,-1,0),(c,1,0),(1,0,c),(0,-c,1),(0,-c,-1),(1,0,-c)},
- {(0,c,1),(0,c,-1),(-c,1,0),(-1,0,c),(1,0,c),(c,1,0)},
- {(0,-c,1),(0,-c,-1),(-c,-1,0),(-1,0,c),(1,0,c),(c,-1,0)},
- {(0,-c,-1),(0,-c,1),(c,-1,0),(1,0,-c),(-1,0,-c),(-c,-1,0)},
- {(0,c,-1),(0,c,1),(c,1,0),(1,0,-c),(-1,0,-c),(-c,1,0)},
- {(1,0,c),(-1,0,c),(0,-c,1),(c,-1,0),(c,1,0),(0,c,1)},
- {(1,0,-c),(-1,0,-c),(0,-c,-1),(c,-1,0),(c,1,0),(0,c,-1)},
- {(-1,0,-c),(1,0,-c),(0,c,-1),(-c,1,0),(-c,-1,0),(0,-c,-1)},
- {(-1,0,c),(1,0,c),(0,c,1),(-c,1,0),(-c,-1,0),(0,-c,1)}
-};
-
-real R=abs(interp(Q[0][0],Q[0][1],1/3));
-
-triple[][] P;
-for(int i=0; i < Q.length; ++i) {
- P[i]=new triple[] ;
- for(int j=0; j < Q[i].length; ++j) {
- P[i][j]=Q[i][j]/R;
- }
-}
-
-for(int i=0; i < P.length; ++i) {
- for(int j=1; j < P[i].length; ++j) {
- triple C=P[i][0];
- triple A=P[i][j];
- triple B=P[i][j % 5+1];
- triple[] sixout=new
- triple[] {interp(C,A,1/3),interp(C,A,2/3),interp(A,B,1/3),interp(A,B,2/3),
- interp(B,C,1/3),interp(B,C,2/3)};
- triple M=(sum(sixout))/6;
- triple[] sixin=sequence(new triple(int k) {
- return interp(sixout[k],M,0.1);
- },6);
- draw(surface(reverse(operator--(...sixout)--cycle)^^
- operator--(...sixin)--cycle,planar=true),magenta);
- }
-}
-
-for(int i=0; i < P.length; ++i) {
- triple[] fiveout=sequence(new triple(int k) {
- return interp(P[i][0],P[i][k+1],1/3);
- },5);
- triple M=(sum(fiveout))/5;
- triple[] fivein=sequence(new triple(int k) {
- return interp(fiveout[k],M,0.1);
- },5);
- draw(surface(reverse(operator--(...fiveout)--cycle)^^
- operator--(...fivein)--cycle,planar=true),cyan);
-}
-
-
-