summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_example.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2023-05-08 03:04:06 +0000
committerNorbert Preining <norbert@preining.info>2023-05-08 03:04:06 +0000
commit5a7a91f039bd6de20d95df710fc788298813679e (patch)
tree53d8d07cd0c5cd5a90bb441a942ae8fef35bbaae /graphics/mcf2graph/mcf_example.tex
parente2a7938bcd22a142fa92c5c5d91f038f7ae73231 (diff)
CTAN sync 202305080304
Diffstat (limited to 'graphics/mcf2graph/mcf_example.tex')
-rw-r--r--graphics/mcf2graph/mcf_example.tex119
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%
%------------------------------------------------------------------------------