summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_code.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mcf2graph/mcf_exa_code.tex')
-rw-r--r--graphics/mcf2graph/mcf_exa_code.tex118
1 files changed, 118 insertions, 0 deletions
diff --git a/graphics/mcf2graph/mcf_exa_code.tex b/graphics/mcf2graph/mcf_exa_code.tex
new file mode 100644
index 0000000000..90096a0f34
--- /dev/null
+++ b/graphics/mcf2graph/mcf_exa_code.tex
@@ -0,0 +1,118 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Print out mcf data list (LuaLaTeX) by A.Yamaji 2022.03.13
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% ** mcf2graph.mf must be version 4.82
+% ** use mcf_library.mcf
+% ** typeset by LuaLaTeX(luamplib)
+\documentclass{article}
+\usepackage{luamplib}%
+\usepackage[T1]{fontenc}%
+\mplibcodeinherit{enable}%
+\mplibnumbersystem{double}%
+\mpliblegacybehavior{disabled}%
+%-------------------------------------------------------------------------
+\everymplib{%
+ if unknown Ph1:
+ input mcf2graph;
+ outputformat:="eps";
+ sw_output:=Fig+Calc;
+ fsize:=(35mm,34mm);
+ max_blength:=4mm;
+ row_h:=3.8mm;
+ def make_frame=
+ draw (0,0)--(185mm,0)--(185mm,h)--(0,h)--cycle wpcs thickness_frame;
+ draw (w,h-row_h)--(185mm,h-row_h) wpcs thickness_frame;
+ draw (w,h)--(w,0) wpcs thickness_frame;
+ draw ( 75mm,h)--( 75mm,h-row_h) wpcs thickness_frame;
+ draw (105mm,h)--(105mm,h-row_h) wpcs thickness_frame;
+ draw (130mm,h)--(130mm,h-row_h) wpcs thickness_frame;
+ draw (155mm,h)--(155mm,h-row_h) wpcs thickness_frame;
+ enddef;
+ fi
+}%
+%-------------------------------------------------------------------------
+\pagestyle{empty}
+\topmargin=-25mm
+\oddsidemargin=-12mm
+\textwidth=192mm
+\textheight=280mm
+\parindent=0mm
+\makeatletter
+%-------------------------------------------------------------------------
+\newcount \fig@num%
+\newif\ifCONT@%
+\edef\one{1}%
+\fig@num=0%
+%-------------------------------------------------------------------------
+\begin{document}
+\noindent%
+\begin{mplibcode}
+ beginfigm(":<0,0~nb")
+ if 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%
+\begin{mplibcode}%
+%%%%%% beginfigm("t:EXA","v+:*")
+%%%%%% beginfigm("t:EXA","v+:1")
+ beginfigm("t:EXA","v+:2")
+ if check(mc)=0:
+ MC(scantokens(mc))
+ ext(
+ defaultfont:="cmtt9";
+ label.lrt("["&decimal(fig_num)&"]",(0,h));
+ label.llft(inf_EXA,(w,h));
+ if length(inf_EN)>23:
+ nA:=defaultscale; defaultscale:=23/length(inf_EN);
+ label.lrt(inf_EN, (w,h));
+ defaultscale:=nA;
+ else:
+ label.lrt(inf_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));
+ make_frame;
+ if mc_row>12: defaultscale:=0.6; row_h:=5.25;
+ ef mc_row>8: defaultscale:=0.8; row_h:=6.5;
+ else: row_h:=10;
+ fi
+ for i=1 upto mc_row:
+ label.lrt(mc[i],(w+mc_indent[i]*4.25,h-(i-1)*row_h-11.5));
+ endfor
+ )
+ VerbatimTeX("\gdef\EN{"&inf_EN&"}");
+ fi
+ endfigm
+ VerbatimTeX("\gdef\EOF{"&decimal(f_EOF)&"}");
+\end{mplibcode}\vspace{-1.2pt}\\
+%------------------------------------------------------------------------
+%%%%%%%\ifnum\fig@num=10 \CONT@false \fi%
+\ifx\EOF\one \CONT@false \fi%
+\message{[\the\fig@num:\EN]}%
+\ifCONT@ \repeat%
+%------------------------------------------------------------------------------
+\end{document}