summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
diff options
context:
space:
mode:
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.tex61
1 files changed, 30 insertions, 31 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
index fdce25becf4..fdcc5d97980 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
@@ -1,47 +1,46 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2015.8.7
+% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2015.8.14
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{article}
%-------------------------------------------------------------------------------
\usepackage{luamplib}%
\mplibcodeinherit{enable}%
\mplibverbatim{enable}%
-\everymplib{if unknown Ph1: input mcf2graph.mf; sw_logout:=1;%
+\everymplib{if unknown Ph1: input mcf2graph.mf; sw_logout:=1; sw_info_lenx:=1;%
mp_log_name:="temp-info.aux"; fi}%
\everyendmplib{write EOF to mp_log_name;}%
%-------------------------------------------------------------------------------
\makeatletter%
\newdimen \MOLwidth%
%-------------------------------------------------------------------------------
+\def\@fst@param#1:#2;{#1}\def\@sec@param#1:#2;{#2}%
\def\mol@sel#1{%
- \if#1\empty\relax\else%
- \edef\@first{\expandafter\@first@param#1;}%
- \edef\@second{\expandafter\@second@param#1;}%
- \ifx\@first\@EN@ \edef\MOLnameE{\@second}\fi%
- \ifx\@first\@JN@ \edef\MOLnameJ{\@second}\fi%
- \ifx\@first\@NO@ \edef\MOLnumber{\@second}\fi%
- \ifx\@first\@CAS@ \edef\MOLcas{\@second}\fi%
- \ifx\@first\@MW@ \edef\MOLmw{\@second}\fi%
- \ifx\@first\@FM@ \edef\MOLfomura{\@second}\fi%
- \ifx\@first\@USE@ \edef\MOLuse{\@second}\fi%
- \ifx\@first\@XLogP@ \edef\MOLXLogP{\@second}\fi%
- \ifx\@first\@EXA@ \edef\MOLextA{\@second}\fi%
- \ifx\@first\@EXB@ \edef\MOLextB{\@second}\fi\fi}%
+\if#1\empty\relax\else%
+ \edef\@fst{\expandafter\@fst@param#1;}%
+ \edef\@sec{\expandafter\@sec@param#1;}%
+ \ifx\@fst\@F\edef\MOLfile{\@sec}\fi \ifx\@fst\@C\edef\MOLchar{\@sec}\fi%
+ \ifx\@fst\@Lx\edef\MOLlenx{\@sec}\fi \ifx\@fst\@Ly\edef\MOLleny{\@sec}\fi%
+ \ifx\@fst\@EN\edef\MOLnameE{\@sec}\fi \ifx\@fst\@JN\edef\MOLnameJ{\@sec}\fi%
+ \ifx\@fst\@CAS\edef\MOLcas{\@sec}\fi \ifx\@fst\@MW\edef\MOLmw{\@sec}\fi%
+ \ifx\@fst\@FM\edef\MOLfomura{\@sec}\fi \ifx\@fst\@USE\edef\MOLuse{\@sec}\fi%
+ \ifx\@fst\@logP\edef\MOLlogP{\@sec}\fi \ifx\@fst\@EXA\edef\MOLextA{\@sec}\fi%
+ \ifx\@fst\@EXB\edef\MOLextB{\@sec}\fi \ifx\@fst\@NO\edef\MOLnum{\@sec}\fi\fi}%
%-------------------------------------------------------------------------------
-\def\@first@param#1:#2;{#1}\def\@second@param#1:#2;{#2}%
-\def\@EN@{EN}\def\@JN@{JN}\def\@CAS@{CAS}\def\@NO@{NO}\def\@MW@{MW}\def\@FM@{FM}%
-\def\@USE@{USE}\def\@XLogP@{XLogP}\def\@EXA@{EXA}\def\@EXB@{EXB}%
-\def\MOL@info@aux#1#2#3{\mol@sel{#1}\mol@sel{#2}\mol@sel{#3}}%
-\def\MOLinfo#1#2#3#4#5#6#7#8#9{% %%%% max item number = 12 %%%%
- \edef\MOLnameE{}\edef\MOLnameJ{}\edef\MOLnumber{}\edef\MOLcas{}\edef\MOLmw{}%
- \edef\MOLfomura{}\edef\MOLuse{}\edef\MOLXLogP{}\edef\MOLextA{}\edef\MOLextB{}%
- \mol@sel{#1}\mol@sel{#2}\mol@sel{#3}\mol@sel{#4}\mol@sel{#5}\mol@sel{#6}%
- \mol@sel{#7}\mol@sel{#8}\mol@sel{#9}\MOL@info@aux}%
+\def\@F{F}\def\@C{C}\def\@EN{EN}\def\@JN{JN}\def\@CAS{CAS}\def\@MW{MW}%
+\def\@FM{FM}\def\@Lx{Lx}\def\@Ly{Ly}\def\@NO{NO}\def\@USE@{USE}\def\@logP@{logP}%
+\def\@EXA@{EXA}\def\@EXB@{EXB}%
+%-------------------------------------------------------------------------------
+\newdimen\MOLwidth%
+\def\INFO#1{%
+ \edef\MOLnum{}\edef\MOLnameE{}\edef\MOLlenx{}\edef\MOLmw{}%
+ \@tfor\@temp:=#1\do{\mol@sel{\@temp}}
+}%
%--------------------------------------------------------------------------------
-\def\MCFinfo#1#2#3#4#5#6#7#8#9{\MOLwidth#4pt\relax}%
-\def\MOLcaption#1#2{\input temp-info.aux\relax\advance\MOLwidth -#1\relax%
+\def\MOLcaption#1#2{\input temp-info.aux\relax %
+\MOLwidth=\MOLlenx pt%
+\advance\MOLwidth -#1\relax%
\llap{\makebox[\MOLwidth][l]{\raisebox{#2}%
-{\sf NO.\MOLnumber{ }\MOLnameE{ }\tiny (MW:\MOLmw)}}}}%
+{\sf NO.\MOLnum{ }\MOLnameE{ }\tiny (MW:\MOLmw)}}}}%
\makeatother%
%------------------------------------------------------------------------------------
\pagestyle{empty}
@@ -53,7 +52,7 @@
%------------------------------------------------------------------------------------
\begin{document}
{\LARGE MCF example for luamplib(LuaLaTeX) }%
- \hspace{20mm}by Akira Yamaji 2015.8.7\vspace{8mm}\\
+ \hspace{20mm}by Akira Yamaji 2015.8.14\vspace{8mm}\\
%------------------------------------------------------------------------------------
\begin{mplibcode}
font_wd:=100mm; font_ht:=50mm;
@@ -101,8 +100,8 @@
\begin{mplibcode}
font_wd:=50mm; font_ht:=40mm;
beginfont("NO:4","EN:Gibberellin","MW:346.37");
- MCf(
- ^^12,?6`1.3,3=??5,9=??7,12\^160`1.6,&8,
+ 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
@@ -158,7 +157,7 @@ endfont;
@(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,
+ @(11,20,35,45,52,55,65,69,86)/*OH,@(47,57,71)/*H^60,
@(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,