diff options
author | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
commit | 97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch) | |
tree | bc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/lasermachine.mp | |
parent | a2c8654f8955a0d35c8b0c2d1752a506a426681b (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.mp | 27 |
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. |