summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-04-16 22:46:29 +0000
committerKarl Berry <karl@freefriends.org>2012-04-16 22:46:29 +0000
commit76e16dc8afcc19ccbb1cc66be529411dfe41ce6e (patch)
tree5e79f4db9f36c7e53887264b98bf3b33d41daa5f /Master/texmf-dist/doc/metapost/featpost/example/CAT.mp
parent9d51929278483d4f1cbfe10dee38085f3ca4811c (diff)
featpost (16apr12)
git-svn-id: svn://tug.org/texlive/trunk@25991 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/CAT.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/CAT.mp45
1 files changed, 45 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp b/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp
new file mode 100644
index 00000000000..2afe9da095d
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp
@@ -0,0 +1,45 @@
+beginfig(1);
+ path pat[];
+ numeric i, a, sidel;
+ sidel = 2cm;
+ pickup pencircle scaled 3pt;
+ pair pa, pb, pc, pd;
+ for i=4 upto 10:
+ a := 360/i;
+ pa := origin+(i-4)*right*1.5*sidel;
+ pb := pa+right*sidel;
+ pd := pa+dir(a)*sidel;
+ pc := pb+dir(a)*sidel;
+ pat[i] = pa--pb--pc--pd--cycle;
+ endfor;
+ z0 = (0,2.5*sidel);
+ z1 = z0+2*right*sidel;
+ z2 = z0+2*dir(60)*sidel;
+ pat0 = z0--z1--z2--cycle;
+ z3 = z1+1.5*right*sidel;
+ z4 = z3+right*sidel;
+ z5 = z4+dir(60)*sidel;
+ z6 = z5+dir(120)*sidel;
+ z8 = z3+dir(120)*sidel;
+ z7 = z8+dir(60)*sidel;
+ pat1 = z3--z4--z5--z6--z7--z8--cycle;
+ z9 = z4+1.5*right*sidel;
+ z10= z9+right*sidel;
+ z11= z10+dir(60)*sidel;
+ z12= z11+dir(120)*sidel;
+ z14= z9+dir(60)*sidel;
+ z13= z14+dir(120)*sidel;
+ pat2 = z9--z10--z11--z12--z13--z14--cycle;
+ z15= z10+1.5*right*sidel;
+ z16= z15+right*sidel;
+ z17= z16+dir(60)*sidel;
+ z18= z15+2*dir(60)*sidel;
+ pat3 = z15--z16--z17--z18--cycle;
+ background := 0.85white;
+ for i = 0 upto 10:
+ unfill pat[i];
+ draw pat[i];
+ endfor;
+endfig;
+
+end. \ No newline at end of file