summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/LED.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/LED.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/LED.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/LED.mp76
1 files changed, 76 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/LED.mp b/Master/texmf-dist/doc/metapost/featpost/example/LED.mp
new file mode 100644
index 00000000000..ef934bf3f12
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/LED.mp
@@ -0,0 +1,76 @@
+% LED.mp
+% L. Nobre G.
+% 2009
+
+prologues := 1;
+
+beginfig(1);
+ numeric u, hthick, vthick, lspace, espace, dspace, h, lbase, dbase;
+ numeric dinray, halfh, tp, scal, marg, dcorrection;
+ u = 1.5mm;
+ hthick = 20u;
+ vthick = 10u;
+% lspace = 15u;
+ lspace = 8u;
+ espace = 8u;
+ dspace = 8u;
+ h = 3*vthick+2*espace;
+% lbase = 38u;
+ lbase = 45u;
+% dbase = 16u;
+ dbase = 19u;
+ halfh = h/2;
+ dinray = halfh-vthick;
+ tp = 1.15;
+ dcorrection = 1.3u;
+ scal = (h-vthick-espace)/h;
+ marg = 4u;
+ z200 = (marg,vthick+espace-marg);
+ path pathl, pathe, pathd, pathu;
+ z0 = (0,0);
+ z1 = (lbase,0);
+ z2 = (lbase,vthick);
+ z3 = (hthick,vthick);
+ z4 = (hthick,h);
+ z5 = (0,h);
+ pathl = z0--z1--z2--z3--z4--z5--cycle;
+ z6 = (lbase+lspace,0);
+ z7 = z6 + (h,0);
+ z8 = z7 + (0,vthick);
+ z9 = z6 + (vthick,vthick);
+ z10= z9 + (0,espace);
+ z11= z10+ (vthick,0);
+ z12= z10+ (vthick,vthick);
+ z13= z6 + (0,2*vthick+espace);
+ pathe = z6--z7--z8--z9--z10--z11--z12--z13--cycle;
+ z14= z7 + (dspace,0);
+ z15= z14+ (dbase,0);
+ z16= z15+ (halfh,halfh+dcorrection);
+ z17= z15+ (dcorrection,h);
+ z18= z14+ (0,h);
+ z19= z18- (0,vthick);
+ z20= z19+ (dbase,0);
+ z21= z20+ (dinray,-dinray);
+ z22= z15+ (0,vthick);
+ z23= z14+ (0,vthick);
+ pathd = z14---z15..z16..tension tp..z17---z18--z19---z20..tension tp..z21..z22---z23--cycle;
+ z24= z6 + (0,h);
+ z25= z24+ (h,0);
+ z26= z25- (0,vthick);
+ z27= z24- (0,vthick);
+ pathu = z24--z25--z26--z27--cycle;
+% fill pathl withcolor 0.78red;
+% fill pathe;
+% fill pathd;
+% fill pathu;
+% dotlabels( 14,15,16,17,18,19,20,21,22,23 );
+ z100 = (0,-2h);
+ drawoptions( shifted z100 );
+ fill pathl withcolor 0.78red;
+ fill pathe shifted (-z6) scaled scal shifted z200;
+ fill pathd shifted (-z6) scaled scal shifted z200;
+ fill pathu shifted (-z6) scaled scal shifted z200;
+endfig;
+
+end.
+