summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-12-03 16:47:39 +0000
committerKarl Berry <karl@freefriends.org>2011-12-03 16:47:39 +0000
commit97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch)
treebc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp
parenta2c8654f8955a0d35c8b0c2d1752a506a426681b (diff)
featpost (17nov11)
git-svn-id: svn://tug.org/texlive/trunk@24738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp27
1 files changed, 27 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp b/Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp
new file mode 100644
index 00000000000..eb9c18fd5d4
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp
@@ -0,0 +1,27 @@
+% lasermachine.mp
+% L. Nobre G.
+% 2006
+
+input featpost3Dplus2D;
+
+beginfig(1);
+ numeric devi;
+ devi = 0.1;
+ path hart, it;
+ numeric u, abot, atop, delta, i;
+ u = 1in;
+ abot = 60;
+ atop = 145;
+ delta = 23;
+ z1 = ( 0, 2u);
+ z2 = ( -1u, 1.25u );
+ z3 = ( 1u, 1.25u );
+ hart = origin{dir(abot-delta)}
+ ...z3...{dir(-atop)}z1{dir(atop)}
+ ...z2...{dir(-abot)}cycle;
+ it = hart yscaled 0.85;
+ for i=4 downto -6:
+ fill lasermachine( it, devi*u*i, 0.3 ) withcolor uniformdeviate(1)*red;
+ endfor;
+endfig;
+end.