summaryrefslogtreecommitdiff
path: root/Master/texmf/doc/asymptote/examples/quilt.asy
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-07 18:26:53 +0000
committerKarl Berry <karl@freefriends.org>2013-04-07 18:26:53 +0000
commitb04c2e1a42573e9735547702356c7b9a769a6855 (patch)
treec0753443f39500a062d7698fe6b94359c813f871 /Master/texmf/doc/asymptote/examples/quilt.asy
parentfb0bf13304a356f197bfc1add17f98c07e96f17b (diff)
texmf -> texmf-dist: doc
git-svn-id: svn://tug.org/texlive/trunk@29714 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/doc/asymptote/examples/quilt.asy')
-rw-r--r--Master/texmf/doc/asymptote/examples/quilt.asy44
1 files changed, 0 insertions, 44 deletions
diff --git a/Master/texmf/doc/asymptote/examples/quilt.asy b/Master/texmf/doc/asymptote/examples/quilt.asy
deleted file mode 100644
index 7a84017762c..00000000000
--- a/Master/texmf/doc/asymptote/examples/quilt.asy
+++ /dev/null
@@ -1,44 +0,0 @@
-import math;
-
-int n=8, skip=3;
-
-pair r(int k) { return unityroot(n,k); }
-
-pen col=blue, col2=purple;
-
-guide square=box((1,1),(-1,-1));
-
-guide step(int mult)
-{
- guide g;
- for(int k=0; k<n; ++k)
- g=g--r(mult*k);
- g=g--cycle;
- return g;
-}
-
-guide oct=step(1), star=step(skip);
-
-guide wedge(pair z, pair v, real r, real a)
-{
- pair w=expi(a/2.0);
- v=unit(v)*r;
- return shift(z)*((0,0)--v*w--v*conj(w)--cycle);
-}
-
-filldraw(square, col);
-filldraw(oct, yellow);
-
-// The interior angle of the points of the star.
-real intang=pi*(1-((real)2skip)/((real)n));
-
-for(int k=0; k<n; ++k) {
- pair z=midpoint(r(k)--r(k+1));
- guide g=wedge(z,-z,1,intang);
- filldraw(g,col2);
-}
-
-fill(star,yellow);
-filldraw(star,evenodd+col);
-
-size(5inch,0);