diff options
author | Karl Berry <karl@freefriends.org> | 2013-04-07 18:26:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-04-07 18:26:53 +0000 |
commit | b04c2e1a42573e9735547702356c7b9a769a6855 (patch) | |
tree | c0753443f39500a062d7698fe6b94359c813f871 /Master/texmf/doc/asymptote/examples/quilt.asy | |
parent | fb0bf13304a356f197bfc1add17f98c07e96f17b (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.asy | 44 |
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); |