summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp89
1 files changed, 89 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp b/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp
new file mode 100644
index 00000000000..0dc5891171a
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp
@@ -0,0 +1,89 @@
+% mce-lng.mp
+% L. Nobre G.
+% 2009
+
+prologues := 1;
+
+beginfig(1);
+ numeric u, anga, angb, posa, posb, thic, marg, angm, stwo, rest;
+ numeric plac, n;
+ path pta, ptb, ptc, ptd, pte, ptf, ptfa, ptfb, pa, pb;
+ picture trib, half, unib;
+ transform ta, tb;
+ u = 10cm;
+ anga = 120;
+ angb = 135;
+ posa = 0.8;
+ posb = 0.23;
+ thic = 0.15;
+ marg = 0.07;
+ angm = 10;
+ plac = 0.5;
+ stwo = u*sqrt(2);
+ rest = u/sqrt(2);
+ z1 = u*(0,posa+marg);
+ z2 = u*(0,posa);
+ z3 = u*(0,posa-thic);
+ z4 = u*(0,posa-thic-marg);
+ z6 = u*(0,-posb+0.5*thic);
+ z7 = u*(0,-posb-0.5*thic);
+ z8 = (posb-0.5*thic)[(0,u),(u,0)];
+ z9 = (posb+0.5*thic)[(0,u),(u,0)];
+ z12 = posb[(0,u),(u,0)];
+ z11 = z12+rest*(marg,marg);
+ z13 = z12-rest*(thic,thic);
+ z14 = z12-rest*(marg+thic,marg+thic);
+ z22 = posa[(0,-u),(u,0)];
+ z21 = z22+rest*(marg,-marg);
+ z23 = z22-rest*(thic,-thic);
+ z24 = z22-rest*(marg+thic,-marg-thic);
+ z33 = (plac*x43,y43);
+ z34 = (plac*x43+stwo*marg,y43);
+ z32 = (plac*x43-stwo*thic,y43);
+ z31 = (plac*x43-stwo*(thic+marg),y43);
+ z43 = (posa-thic)[(0,-u),(u,0)];
+ pta = z6{dir(angb+0.5*angm-90)}..{dir(angb+0.5*angm-45)}z8;
+ ptb = z7{dir(angb-0.5*angm-90)}..{dir(angb-0.5*angm-45)}z9;
+ ptc = z4{dir(anga-angm-90)}..{dir(-45)}z14..{dir(-135)}z24..z34;
+ ptd = z3{dir(anga-angm-90)}..{dir(-45)}z13..{dir(-135)}z23..{up}z33
+ ..{dir(anga-angm-135)}z43;
+ pte = z2{dir(anga-90)}..{dir(-45)}z12..{dir(-135)}z22..{up}z32
+ ..{dir(anga-135)}z22;
+ ptf = z1{dir(anga-90)}..{dir(-45)}z11..{dir(-135)}z21..{up}z31;
+ ta = identity scaled (1/sqrt(2)) shifted (0,rest) rotated 45;
+ tb = identity scaled (1/sqrt(2)) shifted (0,-rest) rotated -45;
+ ptfa = ptf transformed ta;
+ ptfb = ptf transformed tb;
+ pa = buildcycle( pte, ptc, reverse ptd, reverse ptfa );
+% draw pta;
+% draw ptb;
+% draw ptc;
+% draw ptd;
+% draw pte;
+% draw ptf;
+% draw ptfb;
+ pb = buildcycle( pta, ptc, reverse ptb, reverse ptfb );
+ fill pa;
+ fill pb;
+% draw (0,-u)--(u,0)--(0,u)--cycle;
+ trib = currentpicture;
+ currentpicture := nullpicture;
+ drawoptions( shifted (u,0) );
+ draw trib;
+ draw trib transformed ta;
+ draw trib transformed tb;
+ drawoptions();
+ draw trib scaled 0.5 shifted (0.5u,0) rotated 90;
+ draw trib scaled 0.5 shifted (0.5u,0) rotated (-90);
+ half = currentpicture;
+ draw half rotated 180;
+ unib := currentpicture;
+ draw currentpicture scaled 0.5;
+ draw unib scaled 0.25;
+% draw currentpicture scaled 0.25;
+% draw unib scaled 0.0625 withcolor blue;
+% dotlabels.urt( 1,2,3,4,6,7,8,9,11,12,13,14,21,22,23,24,31,32,33,34,43);
+% dotlabels.urt(31,32,33,34,43);
+endfig;
+
+end. \ No newline at end of file