diff options
author | Karl Berry <karl@freefriends.org> | 2015-07-30 21:59:50 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-07-30 21:59:50 +0000 |
commit | b6f4cf0741ace7ba3bc432bead24db36b84985af (patch) | |
tree | 61116ed575f3bae2ab0891b5e9ebd69c33eb7be8 /Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex | |
parent | 6dc0ccac671319a03fa217782f7cbd746556c426 (diff) |
mcf2graph (30jul15)
git-svn-id: svn://tug.org/texlive/trunk@38004 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex | 149 |
1 files changed, 149 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex new file mode 100644 index 00000000000..ba0d89e3ad9 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex @@ -0,0 +1,149 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% MCF Lualatex(luamplib) Example by A.Yamaji 2015.7.30 +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\documentclass{article} +\usepackage{luamplib} +\usepackage{fancyvrb} +\pagestyle{empty} +\topmargin=-25mm +\oddsidemargin=0mm +\textwidth=180mm +\textheight=280mm +\unitlength=1mm +%------------------------------------------------------------------------------------ +\begin{document} +% +{\LARGE MCF example for LuaLaTeX(luamplib) }% + \hspace{20mm}by Akira Yamaji 2015.7.30\vspace{8mm}\\ +% +\everymplib{verbatimtex \leavevmode etex; input mcf2graph.mf; input temp_file.aux;}% +%------------------------------------------------------------------------------------ +\rlap{\raisebox{35mm}{No.1 Chlorophyll a}}% +\begin{VerbatimOut}{temp_file.aux} + font_wd:=100mm; + font_ht:=50mm; + beginfont("NO:1","EN:Chlorophyll a","MW:893.49") + MCf(^^54, + {,``1,?5,$(2,5)d,4:N,3\,54~dl,?5,$(2,4)d,5:N, + -2\,54~dl,?5,2=d,5:N,-2\~dl,54,?5,5=d,5:N,-2\~dl,&(#5), + -1*,24,/*COOMe^15,72,//O,&(#1),}, + 4\`1.45,Mg,&17,-1*,&11~vb,-1*,&23~vb, + @(2,9,15,20~zf)/Me,8:/Et,14\,!~dr, + 21*,-6~wf,!2,//O,!,O,!2,!~dl,!13,@(1,5,9,13)/Me, + ) + endfont +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}% +\hspace{8mm}% +%---------------------------------------------------------------------------- +\rlap{\raisebox{38mm}{No.2 Limonin}}% +\begin{VerbatimOut}{temp_file.aux} + font_wd:=60mm; + font_ht:=40mm; + beginfont("NO:2","EN:Limonin") + MCf(^^30, + ?6,$(-3,-4)??6,-5=??3,-2=wf,-1=wb,6=??5,-4=??6,-5=wf, + @(13,15,17,20,25)O,@(3,12,21)//O, + @(4~wf^60,8~zf^60,18^35,18^-35)/Me,@(1^60,5^180,16^60)/*H, + 14\*,?5,$(1,4)d + ) + endfont +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}\vspace{8mm}\\% +%---------------------------------------------------------------------------- +\rlap{\raisebox{25mm}{No.3 beta-Carotene}}% +\begin{VerbatimOut}{temp_file.aux} + font_wd:=90mm; + font_ht:=30mm; + beginfont("NO:3","EN:beta-Carotene") + MCf(^^30, + ?6,3:d,@(3,5^35,5^-35)/Me, + 4\,!18,$(1,3,5,7,9,11,13,15,17)dr,@(3,7,12,16)/Me, + ?6,6:d,@(6,2^35,2^-35)/Me + ) + endfont +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}\hspace{8mm}% +%---------------------------------------------------------------------------- +\rlap{\raisebox{25mm}{No.4 Gibberellin}}% +\begin{VerbatimOut}{temp_file.aux} +font_wd:=50mm; +font_ht:=40mm; +beginfont("NO:4","EN:Gibberellin"); + MCf( + ^^12,?6`1.3,3=??5,9=??7,12\^160`1.6,&8, + 4\^155~zf`-1.2,O,55,//O^180`1,&2~zb, + 3=dr,11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me, + @(3^-60,9^60)*/H + ) +endfont; +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}\vspace{10mm}\\% +%---------------------------------------------------------------------------- +\rlap{\raisebox{55mm}{No.5 Erythromycin}}% +\begin{VerbatimOut}{temp_file.aux} +font_wd:=60mm; +font_ht:=70mm; +beginfont("NO:5","EN:Erythromycin"); +MCf(^^30, + {,``1,^^-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,},&1, + 14:O,13:/*Et,@(1,9)//O,@(2,10)*/Me,@(4,6^-35,8,12^35)/*Me, + @(6^35,11,12^-35)*/OH, + #3\*,O,30,?6`.7,2:O,@(3,5^35)/Me,4:/OH,5^-35:/OMe, + #5\*^30`1.7,O,!,?6`.7,6:O,5:/Me,2:/OH,3:/NMeMe +) +endfont; +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}\hspace{8mm}% +%---------------------------------------------------------------------------- +\rlap{\raisebox{70mm}{No.6 Vancomycin}}% +\begin{VerbatimOut}{temp_file.aux} +font_wd:=100mm; +font_ht:=70mm; +beginfont("NO:6","EN:Vancomycin"); + MCf(^^30, + {,``1,!12,$(1,3,12)zf,7=wf,/H^-60,60,*/OH,60, + Ph,-4:/Cl,-3\,O,!,Ph,-4\,O,!,Ph,-1^15:/Cl,-3\,/*OH,*/H^-60,&(#1), + #7*,&(#26),#1\^120,//O,60,NH,60,/*H,*/COOH^180,-60, + Ph,@(-2,-4)/OH,-1\,Ph,-5:/OH,-2*,&(#4),}, + @(3^40,6,9,12)//O,@(2,5,8,11)NH, + @(1^180,4^180)*/H,@(7^-60,10^60,14^60)/*H, + #10*\^-60,60,//O,!,NH2, + #13*\,NH,!,//O,!,/'(!,iPr)^-35>60,*/H^60,!~zf,NH,!, + #23\,O,!,{,``.7,?6,2:O,3^10:/'(!,OH),@(4,5)/OH,}, + -1\,O,!,{,``.7,?6,6:O,@(3^35,5)/Me,3^-35:/NH2,4:/OH,} + ) +endfont; +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}\vspace{8mm}\\% +%---------------------------------------------------------------------------- +\rlap{\raisebox{50mm}{No.7 Maitotoxin}}% +\begin{VerbatimOut}{temp_file.aux} + font_wd:=160mm; + font_ht:=90mm; + beginfont("NO:7","EN:Maitotoxin") + MCf(^^55.8, + ?6,-4=??7 ,$(-4,-3,-3,-3)??6,-3\,!!3,??6,$(-4,-3,-3,-3)??6, + -3\,??6,-3=??6,-3\,!!3,60,^^-30,??6,-3=??6, + -3\^30,^^30,??6,$(-3,-3)??6,-3=??7,$(-4,-3,-3)??6, + -2\,??6,-3=??6,-3=??7,$(-3,-3)??6,-3=??8,-3=dl,$(-5,-3,-3,-3)??6, + @(5,7,15,16,23,24,32,40,41,48,49,58,59,72,73,82,83,90,91,99, + 100,107,113,114,122,123,130,131,140,141,148,149)O, + @(1^60,2,26,28,29,51,54,61,63,68,75^60,78,109)*/OH, + @(11,20,35,45,52,55,65,69,86)/*OH,@(^^60,47,57,71)/*H, + @(3,8,13,17,21,33,38,42,56,70,84,92,101,106,111,128,138,142,146,150)/*H^-60, + @(4,14,22,34,39,43,81,89,98,102,116,121,125,129,133)*/H^60, + @(6,46,50,53,60,67,74)*/H^-60, + @(9,18,85,93,112,139,143,147)*/Me`1^60, + @(80,88,97,115,120,124)/*Me`1^-60,108:*/Me`1^-60, + @(36~zf^-45>30)/'(O,!,SOO,!,"O{Na}"), + #6\,!11,60~dr,-60,60,OH,2:/*OH,@(7,10)*/OH,@(1,3)*/Me,@(8~zf,11~dm,12)/Me, + @(6>30)/'(O,!,SOO,!,"O{Na}"), + #150\,!7,@(1,2)/*OH,4:*/Me,5:/*Me,7=dl + ) + endfont +\end{VerbatimOut} +\begin{mplibcode}\end{mplibcode}\\% +%---------------------------------------------------------------------------- +% +\end{document} |