diff options
author | Karl Berry <karl@freefriends.org> | 2007-11-06 19:39:24 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-11-06 19:39:24 +0000 |
commit | 647ffa0224624c3d97c119efaef5191bdaff3067 (patch) | |
tree | d2103bd9f56be6d93b9f879e263380c802709a88 /Master/texmf-dist/metapost/blockdraw_mp/bonddemo.mp | |
parent | 59d409e3e827d1630055bbbb9a2606005b1f035c (diff) |
new metapost package blockdraw_mp (22jan07)
git-svn-id: svn://tug.org/texlive/trunk@5381 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/blockdraw_mp/bonddemo.mp')
-rw-r--r-- | Master/texmf-dist/metapost/blockdraw_mp/bonddemo.mp | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/blockdraw_mp/bonddemo.mp b/Master/texmf-dist/metapost/blockdraw_mp/bonddemo.mp new file mode 100644 index 00000000000..3f74bd9abe9 --- /dev/null +++ b/Master/texmf-dist/metapost/blockdraw_mp/bonddemo.mp @@ -0,0 +1,63 @@ +verbatimtex +%& latex +\documentclass[a4]{article} +\begin{document} +etex + +input bondgraph; +def pjunction(expr z ) = + junction( btex p etex, z ) +enddef; +def sjunction(expr z ) = + junction( btex s etex, z ) +enddef; +def tfjunction(expr z, arrowdir, lbl ) = + junctionlbl( btex TF etex, arrowdir, lbl, z, true ) +enddef; +def gyjunction(expr z, arrowdir, lbl ) = + junctionlbl( btex GY etex, arrowdir, lbl, z, false ) +enddef; + +beginfig( -1 ) + numeric u; + u := 2cm; + ahlength := 0.15*u; + + picture j[]; + j1 := sjunction( (1u,1u) ); + j2 := gyjunction( (2u,1u), to_rt, btex $\mu$ etex ); + j3 := sjunction( (3u,1u) ); + j4 := tfjunction( (4u,1u), to_rt, btex $r$ etex ); + j5 := pjunction( (5u,1u) ); + j6 := sjunction( (5u,-0.5u) ); + j7 := sjunction( (5u,2u) ); + + tbond( bgconnect( j1, j2 ) ); + hbond( bgconnect( j2, j3 ) ); + tbond( bgconnect( j3, j4 ) ); + tbond( bgconnect( j4, j5 ) ); + hbond( bgconnect( j5, j6 ) ); + tbond( bgconnect( j5, j7 ) ); + + tbond( terminalfr( j1, btex R: $\phi_{1}(\bullet)$ etex, (1u,0u) ) ); + hbond( terminalfr( j1, btex I: $m_{1}$ etex, (1u,2u) ) ); + hbond( terminalfr( j3, btex I: $m_{2}$ etex, (3u,2u) ) ); + tbond( terminalfr( j3, btex R: $R_{2}$ etex, (center j3)+1u*dir(-120) ) ); + tbond( terminalfr( j3, btex R: $R_{3}$ etex, (center j3)+1u*dir(-60) ) ); + + hbond( terminalto( j6, btex $S_{\mathrm{e}}$ etex, (center j6)+(-1u,0u) ) ); + hbond( terminalfr( j6, btex I: $m_{3}$ etex, (center j6)+(1u,0u) ) ); + + tbond( terminalfr( j7, btex C: $C_{1}$ etex, (4u,2u) ) ); + tbond( terminalfr( j7, btex R: $R_{1}$ etex, (6u,2u) ) ); + + path con; + picture lab; + + con := terminalto( j1, btex $S_{\mathrm{e}}$ etex, (0u,1u) ); + hbond( con ); + flowlabel( con, btex f etex ); + effortlabel( con, btex e etex ); + +endfig; +end; |