summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex
blob: d4344c996ab7917de9912f3eafa92f90a1c02fd0 (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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Example of MCF typeset by LaTeX   mcf_examples.tex    by A.Yamaji  2016.4.4
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass[a4paper]{article}
\usepackage{graphicx}
\pagestyle{empty}
\topmargin=-20mm
\oddsidemargin=-12mm
\textwidth=190mm
\textheight=280mm
\parindent=0mm
\setlength\columnsep{8mm}
%-------------------------------------------------------------------------------
\makeatletter%
\newbox \@stringbox%
\newcount \fontnum%
\newcount \tnum%
\newif\ifCONT@%
\newread\@auxf%
%-------------------------------------------------------------------------------
\def\mol@sel#1{%
\if#1\empty\relax\else%
  \edef\@fst{\expandafter\@fst@param#1;}%
  \edef\@sec{\expandafter\@sec@param#1;}%
  \ifx\@fst\@F\edef\MOLfile{\@sec}\fi    \ifx\@fst\@C\edef\MOLchar{\@sec}\fi%
  \ifx\@fst\@Lx\edef\MOLlenx{\@sec}\fi   \ifx\@fst\@Ly\edef\MOLleny{\@sec}\fi%
  \ifx\@fst\@EN\edef\MOLnameE{\@sec}\fi  \ifx\@fst\@JN\edef\MOLnameJ{\@sec}\fi%
  \ifx\@fst\@CAS\edef\MOLcas{\@sec}\fi   \ifx\@fst\@USE\edef\MOLuse{\@sec}\fi%
  \ifx\@fst\@FM\edef\MOLfm{\@sec}\fi     \ifx\@fst\@FMc\edef\CALfm{\@sec}\fi%
  \ifx\@fst\@MW\edef\MOLmw{\@sec}\fi     \ifx\@fst\@MWc\edef\CALmw{\@sec}\fi%
  \ifx\@fst\@logP\edef\MOLlogP{\@sec}\fi \ifx\@fst\@EXA\edef\MOLextA{\@sec}\fi%
  \ifx\@fst\@EXB\edef\MOLextB{\@sec}\fi  \ifx\@fst\@NO\edef\MOLnum{\@sec}\fi\fi}%
%-------------------------------------------------------------------------------
\def\@F{F}\def\@C{C}\def\@EN{EN}\def\@JN{JN}\def\@CAS{CAS}%
\def\@MW{MW}\def\@MWc{MWc}\def\@FM{FM}\def\@FMc{FMc}\def\@Lx{Lx}\def\@Ly{Ly}%
\def\@NO{NO}\def\@USE@{USE}\def\@logP@{logP}\def\@EXA@{EXA}\def\@EXB@{EXB}%
%-------------------------------------------------------------------------------
\def\@fst@param#1:#2;{#1}\def\@sec@param#1:#2;{#2}%
\def\@stru#1[#2]{\font\@strufont=#1\relax\hbox{\@strufont\char#2}}%
%-------------------------------------------------------------------------------
\def\put@char{%
  \unitlength=0.01mm\relax \@tempcnta=3300\relax \@tempcntb=3750\relax%
  \begin{picture}(\@tempcntb,\@tempcnta)%
     \advance\@tempcnta -300\relax%
     \put(20,\@tempcnta){\tiny\bf [\the\fontnum] \MOLnameE}%
     \put( 0,0){\makebox(\@tempcntb,\@tempcnta){\@stru{\MOLfile}[\MOLchar]}}%
  \end{picture}%
  \advance\fontnum\@ne\relax\advance\tnum\@ne\relax%
  \ifnum\tnum=5 \\ \tnum=0\relax \fi%
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% copied from ltcntrl.dtx [2014/04/21 v1.0h LaTeX Kernel (program control)]
% modify  @for (separater=",") to @for@semi (separater=";") 
%--------------------------------------------------------------------------------
\def\@for@semi#1:=#2\do#3{\expandafter\def\expandafter\@for@tmp\expandafter{#2}%
 \ifx\@for@tmp\@empty \else \expandafter\@for@loop#2;\@nil;\@nil\@@#1{#3}\fi}%
\def\@for@loop#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
 #5\def#4{#2}\ifx #4\@nnil \else#5\@ifor@loop #3\@@#4{#5}\fi\fi}%
\def\@ifor@loop#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
 \expandafter\@for@noop \else #4\relax\expandafter\@ifor@loop\fi#2\@@#3{#4}}%
\def\@for@noop#1\@@#2#3{}%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\inputINFOS#1{\openin\@auxf=#1\CONT@true%
\loop
\read\@auxf to \temp@info%
\ifeof\@auxf\CONT@false\else%
\@for@semi\@temp:=\temp@info\do{\mol@sel\@temp}%
\put@char\fi%
\ifCONT@ \repeat
\closein\@auxf}%
%-------------------------------------------------------------------------------
\makeatother
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{document}
\begin{center}
 {\LARGE\bf Molecular Coding Format examples}\vspace{5mm}\\
 Author : Akira Yamaji \quad Date : \today\\
 Located at : http://www.ctan.org/pkg/mcf2graph\vspace{7mm}\\
\end{center}
\fontnum=1%
\noindent%
%------------------------------------------------------------------------
\inputINFOS{mcf_exa_soc-info.aux}%
%------------------------------------------------------------------------
\end{document}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%