blob: c07aa1aa1cf46884dc27c4831571a906562e36ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Example of MCF Typeset with LuaLaTeX(luamplib) by A.Yamaji 2022.01.17
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ** mcf2graph.mf must be version 4.78
% ** use mcf_data_base.mcf
% ** typeset by LuaLaTeX(luamplib)
\documentclass{article}
\usepackage{luamplib}%
\usepackage[T1]{fontenc}%
\mplibcodeinherit{enable}%
\mplibnumbersystem{double}%
\mpliblegacybehavior{disabled}%
%-------------------------------------------------------------------------
\everymplib{%
if unknown Ph1: input mcf2graph; fi
outputformat:="eps";
sw_output:=Fig+Calc;
fsize:=(35mm,24mm);
max_blength:=4mm;
defaultfont:="uhvr8r";
defaultsize:=8bp;
defaultscale:=1;
}%
%-------------------------------------------------------------------------
\pagestyle{empty}
\topmargin=-24mm
\oddsidemargin=-12mm
\textwidth=192mm
\textheight=280mm
\parindent=0mm
%-------------------------------------------------------------------------
\begin{document}
\begin{center}
{\Huge\sf Molecular Coding Format examples} \vspace{5mm} \\
Author : Akira Yamaji \quad Date : \today \\
Located at : http://www.ctan.org/pkg/mcf2graph
\end{center}
{\small *typeset with LuaLaTeX \quad
*use molecular data base file 'mcf\_data\_base.mcf' \\
** FM(fm):molecular formula (calculated) \quad
* MW(mw):molecular weight (calculated)} \vspace{3mm} \\
%-------------------------------------------------------------------------
\noindent%
\makeatletter
\newbox \f@box%
\newcount \f@num%
\newcount \t@num%
\font\labelM=cmtt8 at 6pt\relax%
%-------------------------------------------------------------------------
\f@num=0%
\t@num=0%
\unitlength=0.01mm%
\noindent%
%-------------------------------------------------------------------------
\newif\ifCONT@%
\CONT@true%
\loop%
\sbox{\f@box}{%
\begin{mplibcode}
beginfigm("t:EXA","v+:1")
if 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
endfigm
\end{mplibcode}
}%
%------------------------------------------------------------------------
\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\f@num]}%
\put(0,0){\makebox(3750,2530){\usebox{\f@box}}}%
\end{picture}%
%------------------------------------------------------------------------
\advance\f@num\@ne\relax%
\advance\t@num\@ne\relax%
\ifnum\t@num=5 \\ \t@num=\z@ \fi%
\ifnum\f@num=155 \CONT@false \fi%
\ifCONT@ \repeat%
%------------------------------------------------------------------------------
\end{document}
|