diff options
author | Norbert Preining <norbert@preining.info> | 2023-05-08 03:04:06 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2023-05-08 03:04:06 +0000 |
commit | 5a7a91f039bd6de20d95df710fc788298813679e (patch) | |
tree | 53d8d07cd0c5cd5a90bb441a942ae8fef35bbaae /graphics/mcf2graph/mcf_example.tex | |
parent | e2a7938bcd22a142fa92c5c5d91f038f7ae73231 (diff) |
CTAN sync 202305080304
Diffstat (limited to 'graphics/mcf2graph/mcf_example.tex')
-rw-r--r-- | graphics/mcf2graph/mcf_example.tex | 119 |
1 files changed, 44 insertions, 75 deletions
diff --git a/graphics/mcf2graph/mcf_example.tex b/graphics/mcf2graph/mcf_example.tex index 76eae436e4..adc419a67f 100644 --- a/graphics/mcf2graph/mcf_example.tex +++ b/graphics/mcf2graph/mcf_example.tex @@ -1,7 +1,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Example of MCF Typeset with LuaLaTeX(luamplib) by A.Yamaji 2023.01.29 +% Example of MCF Typeset with LuaLaTeX(luamplib) by A.Yamaji 2023.05.07 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% ** mcf2graph.mf must be version 4.92 +% ** mcf2graph.mf must be version 5.00 % ** use mcf_library.mcf % ** typeset by LuaLaTeX(luamplib) %------------------------------------------------------------------------- @@ -11,12 +11,6 @@ \mplibcodeinherit{enable} \mplibnumbersystem{double} \mpliblegacybehavior{disabled} -\begin{mplibcode} - input mcf2graph; - sw_output:=Fig+Calc; - fsize:=(35mm,24mm); - max_blength:=4mm; -\end{mplibcode} %------------------------------------------------------------------------- \pagestyle{empty} \topmargin=-24mm @@ -36,7 +30,7 @@ Located at : http://www.ctan.org/pkg/mcf2graph \end{center} {\small *typeset with LuaLaTeX \quad - *use molecular library file 'mcf\_library.mcf' \\ + *use molecular library file 'main\_lib.mcf' \\ ** FM(fm):molecular formula (calculated) \quad * MW(mw):molecular weight (calculated)} \vspace{3mm} \\ \fi% @@ -50,48 +44,53 @@ \fig@num=0% \col@num=0% \unitlength=0.01mm% -\edef\zero{0}% \noindent% %------------------------------------------------------------------------- \newif\ifCONT@% \CONT@true% +%------------------------------------------------------------------------- +\begin{mplibcode} + input mcf2graph; + sw_output:=Fig+Calc; + fsize:=(35mm,24mm); + max_blength:=4mm; + loadm("EXA>=1","EXA<=2","a:EXA"); +\end{mplibcode} +%------------------------------------------------------------------------- \loop% \advance\fig@num\@ne\relax% \advance\col@num\@ne\relax% +\ifnum\fig@num=156 \CONT@false% +\else% \sbox{\fig@box}{% \begin{mplibcode} - beginfigm("t:EXA","v+:1") - if mc_check(mc)=0: - MC(scantokens(mc)) - VerbatimTeX("\gdef\EN{"&inf_EN&"}"); - VerbatimTeX("\gdef\MW{"&inf_MW&"}"); - VerbatimTeX("\gdef\mw{"&cal_MW&"}"); - VerbatimTeX("\gdef\fm{"&cal_FM&"}"); - fi + beginfigm + getm(fig_num); + if checkm(mc)=0: + cv(scantokens(mc)) + VerbatimTeX("\gdef\EN{"&EN&"}"); + VerbatimTeX("\gdef\MW{"&MW&"}"); + VerbatimTeX("\gdef\mw{"&mw&"}"); + VerbatimTeX("\gdef\fm{"&fm&"}"); + fi endfigm - VerbatimTeX("\gdef\EOF{"&decimal(f_EOF)&"}"); \end{mplibcode} }% %------------------------------------------------------------------------ -\ifx\EOF\zero% + \message{[\the\fig@num:\EN]}% \begin{picture}(3750,3350)% \put(20,3000){\footnotesize\bf \EN}% - \put(20,2750){\labelM mw:\mw { / }fm:\fm}% - \put(20,2530){\labelM MW:\MW { / }[\the\fig@num]}% + \put(20,2750){\labelM MW:\MW { / }fm:\fm}% + \put(20,2530){\labelM mw:\mw { / }[\the\fig@num]}% \put(0,0){\makebox(3750,2530){\usebox{\fig@box}}}% \end{picture}% \ifnum\col@num=5 \\ \col@num=\z@ \fi% -\else% - \CONT@false% \fi% %------------------------------------------------------------------------ -\message{[\the\fig@num:\EN]}% -\ifCONT@ \repeat% -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% MCF example with Mcode +\ifCONT@\repeat% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \begin{mplibcode} - fsize:=(35mm,34mm); + fsize:=(50mm,34mm); fmargin:=(1mm,1mm); max_blength:=4mm; row_h:=3.8mm; @@ -106,61 +105,32 @@ enddef; \end{mplibcode} %------------------------------------------------------------------------- -\newcount \fig@num% -\edef\one{1}% -\fig@num=0% -%------------------------------------------------------------------------- \noindent% -\begin{mplibcode} - beginfigm(":<0,0~nb") - if mc_check(mc)=0: - MC(scantokens(mc)) - ext( - defaultfont:="cmtt9"; - label.lrt("[(No)]",(0,h)); - label.llft("(EXA)",(w,h)); - label.lrt("(Structure)",(8mm,18mm)); - label.lrt("(Name)",(w,h)); - label.lrt("(Category)",(75mm,h)); - label.lrt("(MW)*1",(105mm,h)); - label.lrt("(mw)*2",(130mm,h)); - label.lrt("(fm)*3",(155mm,h)); - label.lrt("(Molecular_Coding_Format)",(46mm,18mm)); - label.lrt("*1_(MW):Molecular_weight(data)",(105mm,26mm)); - label.lrt("*2_(mw):Molecular_weight(calculated)",(105mm,21mm)); - label.lrt("*3_(fm):Molecular_formula(calculated)",(105mm,16mm)); - make_frame; - ) - fi - endfigm - fig_num:=0; -\end{mplibcode}\vspace{-1.2pt}\\ -%------------------------------------------------------------------------ \CONT@true% \loop% \advance\fig@num\@ne\relax% +\ifnum\fig@num=165 \CONT@false% +\else% \begin{mplibcode}% -%%%%%% beginfigm("t:EXA","v+:*") -%%%%%% beginfigm("t:EXA","v+:1") -%%%%%% beginfigm("t:EXA","v+:9") - beginfigm("t:EXA","v+:2") - if mc_check(mc)=0: - MC(scantokens(mc)) + beginfigm + getm(fig_num); + if checkm(mc)=0: + cv(scantokens(mc)) ext( defaultfont:="cmtt9"; label.lrt("["&decimal(fig_num)&"]",(0,h)); - label.llft(inf_EXA,(w,h)); - if length(inf_EN)>23: + label.llft(EXA,(w,h)); + if length(EN)>23: nA:=defaultscale; - defaultscale:=23/length(inf_EN); label.lrt(inf_EN, (w,h)); + defaultscale:=23/length(EN); label.lrt(EN, (w,h)); defaultscale:=nA; else: - label.lrt(inf_EN, (w,h)); + label.lrt(EN, (w,h)); fi - label.lrt(inf_Cat,(75mm,h)); - label.lrt(inf_MW,(105mm,h)); - label.lrt(cal_MW,(130mm,h)); - label.lrt(cal_FM,(155mm,h)); + label.lrt(CAT,(75mm,h)); + label.lrt(MW,(105mm,h)); + label.lrt(mw,(130mm,h)); + label.lrt(fm,(155mm,h)); make_frame; if mc_row>12: defaultscale:=0.6; row_h:=5.25; ef mc_row>8: defaultscale:=0.8; row_h:=6.5; @@ -170,13 +140,12 @@ label.lrt(mc[i],(w+mc_indent[i]*4.25,h-(i-1)*row_h-11.5)); endfor ) - VerbatimTeX("\gdef\EN{"&inf_EN&"}"); + VerbatimTeX("\gdef\EN{"&EN&"}"); fi endfigm - VerbatimTeX("\gdef\EOF{"&decimal(f_EOF)&"}"); \end{mplibcode}\vspace{-1.2pt}\\ %------------------------------------------------------------------------ -\ifx\EOF\one \CONT@false \fi% +\fi% \message{[\the\fig@num:\EN]}% \ifCONT@ \repeat% %------------------------------------------------------------------------------ |