summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_code.tex
blob: d55a0e5e7904e34cdd4a096a9c9a51eb95b2e906 (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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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}