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.tex119
1 files changed, 0 insertions, 119 deletions
diff --git a/graphics/mcf2graph/mcf_exa_code.tex b/graphics/mcf2graph/mcf_exa_code.tex
deleted file mode 100644
index d55a0e5e79..0000000000
--- a/graphics/mcf2graph/mcf_exa_code.tex
+++ /dev/null
@@ -1,119 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Print out mcf data list by A.Yamaji 2023.01.09
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% ** mcf2graph.mf must be version 4.91
-% ** 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);
- fmargin:=(1mm,1mm);
- max_blength:=4mm;
- row_h:=3.8mm;
- header_h:=3.8mm;
- def make_frame=
- draw (0,0)--(185mm,0)--(185mm,h)--(0,h)--cycle wpcs thickness_frame;
- draw (w,h-header_h)--(185mm,h-header_h) wpcs thickness_frame;
- draw (w,h)--(w,0) wpcs thickness_frame;
- for col_w=75mm,105mm,130mm,155mm:
- draw (col_w,h)--(col_w,h-header_h) wpcs thickness_frame;
- endfor
- 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 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%
-\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))
- 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}\\
-%------------------------------------------------------------------------
-\ifx\EOF\one \CONT@false \fi%
-\message{[\the\fig@num:\EN]}%
-\ifCONT@ \repeat%
-%------------------------------------------------------------------------------
-\end{document}