summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_manual.tex
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mcf2graph/mcf_manual.tex')
-rw-r--r--graphics/mcf2graph/mcf_manual.tex1090
1 files changed, 511 insertions, 579 deletions
diff --git a/graphics/mcf2graph/mcf_manual.tex b/graphics/mcf2graph/mcf_manual.tex
index afe294451f..5debd57a43 100644
--- a/graphics/mcf2graph/mcf_manual.tex
+++ b/graphics/mcf2graph/mcf_manual.tex
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format manual by Akira Yamaji 2023.05.15
+% Molecular Coding Format manual by Akira Yamaji 2023.05.28
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% ** mcf2graph.mf must be version 5.01
+% ** mcf2graph.mf must be version 5.02
% ** use main_lib.mcf
% ** typeset by LuaLaTeX(luamplib)
%----------------------------------------------------------------------------
@@ -22,6 +22,7 @@
input mcf2graph;
\end{mplibcode}
%----------------------------------------------------------------------------
+\makeatletter%
\edef\fext{mps}%
\topmargin=-18mm
\textheight=254mm
@@ -36,7 +37,7 @@
\author{Akira Yamaji}
\date{\today}
\maketitle
-\begin{center} mcf2graph version 5.01 \end{center}
+\begin{center} mcf2graph version 5.02 \end{center}
\begin{center} Located at http://www.ctan.org/pkg/mcf2graph \end{center}
\begin{center} Suggestion or request mail to: mcf2graph@gmail.com \end{center}
%-----------------------------------------------------------------------------
@@ -53,79 +54,79 @@ fsize:=(40mm,24mm);
blength:=5mm;
sw_frame:=0;
% Glycine",
-beginfigm cv(<30,NH2,!2,COOH) endfigm
+beginfigm \(<30,NH2,!2,COOH) endfigm
% L-Alanine
-beginfigm cv(<30,NH2,!~wb,/_,!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/_,!,COOH) endfigm
% L-Valine
-beginfigm cv(<30,NH2,!~wb,/?!,!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/?!,!,COOH) endfigm
% L-Leucine
-beginfigm cv(<30,NH2,!~wb,/'(!,?!),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!,?!),!,COOH) endfigm
\end{mplibcode}
\\
\begin{mplibcode}
% L-Isoleucine
-beginfigm cv(<30,NH2,!~wb,/'(/*_,!2),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(/*_,!2),!,COOH) endfigm
% L-Serine
-beginfigm cv(<30,NH2,!~wb,/!OH,!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/!OH,!,COOH) endfigm
% L-Threonine
-beginfigm cv(<30,NH2,!~wb,/'(/_,!~wf,OH),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(/_,!~wf,OH),!,COOH) endfigm
% L-Cysteine
-beginfigm cv(<30,NH2,!~wb,/!SH,!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/!SH,!,COOH) endfigm
\end{mplibcode}
\\
\begin{mplibcode}
% L-Methionine
-beginfigm cv(<30,NH2,!~wb,/'(!2,S,!),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!2,S,!),!,COOH) endfigm
% L-Phenylalanine
-beginfigm cv(<30,NH2,!~wb,/!Ph,!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/!Ph,!,COOH) endfigm
% L-Tyrosine
-beginfigm cv(<30,NH2,!~wb,/'(!Ph,-3:/OH),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!Ph,-3:/OH),!,COOH) endfigm
% L-Triptophan
-beginfigm cv(<30,NH2,!~wb,!,COOH,@2,\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH) endfigm
+beginfigm \(<30,NH2,!~wb,!,COOH,@2,\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH) endfigm
\end{mplibcode}
\\
\begin{mplibcode}
% L-Prorine
-beginfigm cv(<18,?5,3:NH,4:*/COOH) endfigm
+beginfigm \(<18,?5,3:NH,4:*/COOH) endfigm
% L-Glutamine
-beginfigm cv(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!,//O,!,NH2) endfigm
+beginfigm \(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!,//O,!,NH2) endfigm
% L-Asparagine
-beginfigm cv(<30,NH2,!~wb,/'(!,//O,!,NH2),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!,//O,!,NH2),!,COOH) endfigm
% L-Aspartic acid
-beginfigm cv(<30,NH2,!~wb,/!COOH,!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/!COOH,!,COOH) endfigm
\end{mplibcode}
\\
\begin{mplibcode}
% L-Glutamic acid
-beginfigm cv(<30,NH2,!~wb,/'(!2,COOH),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!2,COOH),!,COOH) endfigm
% L-Lysine
-beginfigm cv(<30,NH2,!~wb,/'(!4,NH2),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!4,NH2),!,COOH) endfigm
% L-Arginine
-beginfigm cv(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!2,NH,!,//NH,!,NH2) endfigm
+beginfigm \(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!2,NH,!,//NH,!,NH2) endfigm
% L-Hystidine
-beginfigm cv(<30,NH2,!~wb,!,COOH,@2,\,!,|,?5,{1,3}=dl,3:N,5:NH) endfigm
+beginfigm \(<30,NH2,!~wb,!,COOH,@2,\,!,|,?5,{1,3}=dl,3:N,5:NH) endfigm
\end{mplibcode}
\\
\begin{mplibcode}
% L-DOPA
-beginfigm cv(<30,NH2,!~wb,!,COOH,@2,\,!,Ph,{-3,-4}:/OH) endfigm
+beginfigm \(<30,NH2,!~wb,!,COOH,@2,\,!,Ph,{-3,-4}:/OH) endfigm
% Ornithine
-beginfigm cv(<30,NH2,!~wb,/'(!3,NH2),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!3,NH2),!,COOH) endfigm
% Citrulline
-beginfigm cv(<30,NH2,!~wb,/'(!3,NH,!,//O,!,NH2),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!3,NH,!,//O,!,NH2),!,COOH) endfigm
% GABA
-beginfigm cv(<30,NH2,!4,COOH) endfigm
+beginfigm \(<30,NH2,!4,COOH) endfigm
\end{mplibcode}
\\
\begin{mplibcode}
% amino Levulinic acid
-beginfigm cv(<30,NH2,!2,//O,!3,COOH) endfigm
+beginfigm \(<30,NH2,!2,//O,!3,COOH) endfigm
% 4-amino benzoic acid
-beginfigm cv(<30,Ph,1:/NH2,4:/COOH) endfigm
+beginfigm \(<30,Ph,1:/NH2,4:/COOH) endfigm
% L-Carboxyl glutamic acid
-beginfigm cv(<30,NH2,!~wb,/'(!,/COOH,!,COOH),!,COOH) endfigm
+beginfigm \(<30,NH2,!~wb,/'(!,/COOH,!,COOH),!,COOH) endfigm
% L-Hydroxy Prorine
-beginfigm cv(<18,?5,1:/OH,3:NH,4:*/COOH) endfigm
+beginfigm \(<18,?5,1:/OH,3:NH,4:*/COOH) endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
\twocolumn
@@ -159,12 +160,12 @@ $n (0<=n<360): absolute angle
sw_frame:=Outside;
blength:=0;
beginfigm
- fsize:=(60mm,17mm);
+ #(60mm,17mm);
sw_numbering:=Bond;
numbering_end:=6;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- cv(<15,-30,45,-45,60,$300,$0,
+ \(<15,-30,45,-45,60,$300,$0,
{1^$15,2^$345,3^$30,4^$345}:/_~dt,{5,6}=vf,
)
add(
@@ -190,12 +191,12 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,17mm);
+ #(60mm,17mm);
sw_numbering:=Bond;
numbering_end:=6;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- cv(<-30,!6,
+ \(<-30,!6,
{1^-120,2^60,3^-60,4^60,5^-60,6^60}:/_~dt
)
add(
@@ -222,12 +223,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,16mm);
- fmargin:=(2mm,2mm);
+ #(60mm,16mm) #@(2mm,2mm)
sw_trimming:=1;
sw_numbering:=Atom;
ratio_chain_ring:=1;
- cv(<-30,!6,@3,0,!,@5,-30)
+ \(<-30,!6,@3,0,!,@5,-30)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -241,12 +241,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,16mm);
- fmargin:=(2mm,2mm);
+ #(60mm,16mm) #@(2mm,2mm)
sw_numbering:=Atom;
sw_trimming:=1;
ratio_chain_ring:=1;
- cv(<-30,!6,@3,\,!)
+ \(<-30,!6,@3,\,!)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -268,13 +267,12 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,16mm);
- fmargin:=(2mm,2mm);
+ #(60mm,16mm) #@(2mm,2mm)
sw_numbering:=Atom;
sw_trimming:=1;
numbering_end:=10;
ratio_chain_ring:=1;
- cv(<30,!10,@2,\,!,@4,*\,!,@6,\*,!,@8,\\,!,@10,*\*,!)
+ \(<30,!10,@2,\,!,@4,*\,!,@6,\*,!,@8,\\,!,@10,*\*,!)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -290,14 +288,13 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
- fmargin:=(2mm,2mm);
+ #(60mm,20mm) #@(2mm,2mm)
sw_trimming:=1;
sw_numbering:=Atom;
numbering_end:=7;
ratio_chain_ring:=1;
%-------------------------
- cv(<30,!6,@2,\~dr,!,@4,\`1.5,-90,@6,15,-60)
+ \(<30,!6,@2,\~dr,!,@4,\`1.5,-90,@6,15,-60)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -311,13 +308,12 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
- fmargin:=(2mm,2mm);
+ #(60mm,20mm) #@(2mm,2mm)
sw_trimming:=1;
sw_numbering:=Atom;
ratio_chain_ring:=1;
%----------------------------------
- cv(<-30,!6,@3,\,!3,&6~bd,@9,&4~bz)
+ \(<-30,!6,@3,\,!3,&6~bd,@9,&4~bz)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -331,12 +327,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
+ #(60mm,20mm) #@(2mm,3mm)
sw_trimming:=1;
- fmargin:=(2mm,3mm);
sw_numbering:=Bond;
%---------------------------
- cv(?6)
+ \(?6)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -350,15 +345,14 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
- fmargin:=(2mm,3mm);
+ #(60mm,20mm) #@(2mm,3mm)
sw_trimming:=1;
sw_numbering:=Bond;
ratio_chain_ring:=1;
numbering_end:=7;
defaultscale:=0.5;
labeloffset:=2bp;
- cv(#1,0,0,<90,0,<-90,0,<$315,0,<$90,0,<$0,0,{1:7}=vf,
+ \(#1,0,0,<90,0,<-90,0,<$315,0,<$90,0,<$0,0,{1:7}=vf,
{3,4^180}:/_~dt)
add(
drawarrow B8/*.7{B8left}..{B3left}B3/*.7; label.urt("90",B8/*.7);
@@ -394,11 +388,10 @@ tm : triple
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,10mm);
- fmargin:=(2mm,2mm);
+ #(70mm,10mm) #@(2mm,2mm)
sw_trimming:=0;
ratio_chain_ring:=1;
- cv(<-30,!~dm,!,!~dl,!,!~dr,!~db,!~db,!,!~tm)
+ \(<-30,!~dm,!,!~dl,!,!~dr,!~db,!~db,!,!~tm)
add(defaultscale:=0.6; labeloffset:=0;
label.rt("(dm)",A1+(0,-0.7l));
label.rt("(dl)",A3+(0,-0.7l));
@@ -434,11 +427,10 @@ vb:vector backward
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,10mm);
- fmargin:=(2mm,2mm);
+ #(70mm,10mm) #@(2mm,2mm)
sw_trimming:=0;
ratio_chain_ring:=1;
- cv(<-30,!~wf,!,!~wb,!,!~zf,!,!~zb,!,!~vf,!,!~vb)
+ \(<-30,!~wf,!,!~wb,!,!~zf,!,!~zb,!,!~vf,!,!~vb)
add(defaultscale:=0.6; labeloffset:=0;
label.rt("(wf)",A1+(0,-0.7l));
label.rt("(wb)",A3+(0,-0.7l));
@@ -468,12 +460,10 @@ bd : broad / bz : broad dotted
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,10mm);
- fmargin:=(2mm,2mm);
- blength:=9mm;
+ #(70mm,10mm) #@(2mm,2mm) |=(9mm)
sw_trimming:=1;
ratio_chain_ring:=1;
- cv(<-30,!7,1=dt,3=wv,5=bd,7=bz)
+ \(<-30,!7,1=dt,3=wv,5=bd,7=bz)
add(defaultscale:=0.6; labeloffset:=0;
label.rt("(dt)",A1+(0,-0.6l));
label.rt("(wv)",A3+(0,-0.6l));
@@ -513,9 +503,9 @@ dm_ : duble over line
\begin{mplibcode}
beginfigm
sw_trimming:=1;
- fsize:=(75mm,20mm);
+ #(75mm,20mm);
ratio_chain_ring:=1;
- cv(<30,!18,$90`1.5,90`15.5,
+ \(<30,!18,$90`1.5,90`15.5,
{2~si_,4~wf_,6~wb_,8~zf_,10~zb_,
12~bd_,14~dl_,16~dr_,18~dm_}:/_`2)
endfigm
@@ -537,16 +527,16 @@ wb_r : wedge backward (half width)
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(75mm,16mm);
- cvat(0.05,0.5)(#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##,
+ #(75mm,16mm);
+ @(0.05,0.5)\(#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##,
#.5,{1^$-90,2^$90,3^$-90,4^$90}:/OH,6^$90:/!OH)
defaultscale:=0.6;
- cvat(0.5,0.7)(0~wf_r) add(label.lft("wf_r:",A1);)
- cvat(0.5,0.2)(0~wf) add(label.lft("wf:",A1);)
- cvat(0.75,0.7)(0~bd_r) add(label.lft("bd_r:",A1);)
- cvat(0.75,0.2)(0~bd) add(label.lft("bd:",A1);)
- cvat(1,0.7)(0~wb_r) add(label.lft("wb_r:",A1);)
- cvat(1,0.2)(0~wb) add(label.lft("wb:",A1);)
+ @(0.5,0.7)\(0~wf_r) add(label.lft("wf_r:",A1);)
+ @(0.5,0.2)\(0~wf) add(label.lft("wf:",A1);)
+ @(0.75,0.7)\(0~bd_r) add(label.lft("bd_r:",A1);)
+ @(0.75,0.2)\(0~bd) add(label.lft("bd:",A1);)
+ @(1,0.7)\(0~wb_r) add(label.lft("wb_r:",A1);)
+ @(1,0.2)\(0~wb) add(label.lft("wb:",A1);)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -560,10 +550,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,8mm);
- fmargin:=(2mm,3mm);
+ #(60mm,8mm) #@(2mm,3mm)
ratio_chain_ring:=1;
- cv(<30,!9,{2,4,6,8'}=dl)
+ \(<30,!9,{2,4,6,8'}=dl)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -578,9 +567,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(55mm,8mm);
+ #(55mm,8mm);
sw_numbering:=Bond;
- cv(<-30,!2,!4`1.2,!2)
+ \(<-30,!2,!4`1.2,!2)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -595,9 +584,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(55mm,8mm);
+ #(55mm,8mm);
sw_numbering:=Bond;
- cv(<-30,!2,#1.2,!4,##,!2)
+ \(<-30,!2,#1.2,!4,##,!2)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -610,11 +599,10 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,16mm);
- fmargin:=(2mm,2mm);
+ #(60mm,16mm) #@(2mm,2mm)
sw_trimming:=1;
sw_numbering:=Bond;
- cv(?6,@4,\,?6`1.2)
+ \(?6,@4,\,?6`1.2)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -629,8 +617,8 @@ Insert hetero atom
\begin{mplibcode}
beginfigm
sw_trimming:=1;
- fsize:=(50mm,7mm);
- cv(<-30,!2,O,!2,N,!2)
+ #(50mm,7mm);
+ \(<-30,!2,O,!2,N,!2)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -645,16 +633,15 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,10mm);
- msize:=(0.48,1);
- cvat(0,0.5)(<30,!5,2:O,{3,4}:N)
+ #(70mm,10mm) ##(0.48,1)
+ @(0,0.5)\(<30,!5,2:O,{3,4}:N)
sw_numbering:=Atom;
- cvat(1,0.5)(<30,!5,2:O,{3,4}:N)
+ @(1,0.5)\(<30,!5,2:O,{3,4}:N)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
\subsubsection{Brock address}
-\index{\textbar}% |
+\index{\textbar}%
\begin{verbatim}
| : divide brock
@@ -663,17 +650,16 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,14mm);
- fmargin:=(3mm,1.5mm);
- cvat(0,.5)(?6,@4,\,|,?6,2:O)
+ #(70mm,14mm) #@(3mm,1.5mm)
+ @(0,.5)\(?6,@4,\,|,?6,2:O)
sw_numbering:=Atom;
- msize:=(1,.88);
- cvat(1,.5)(?6,@4,\,|,?6,2:O)
+ ##(1,.88)
+ @(1,.5)\(?6,@4,\,|,?6,2:O)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
\subsubsection{Reset brock address}
-\index{\textbar\textbar}% ||
+\index{\textbar\textbar}%
\begin{verbatim}
|| : reset brock adress
@@ -682,12 +668,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,14mm);
- fmargin:=(3mm,1.5mm);
- cvat(0,.5)(?6,@4,\,|,?6,||,2:N)
+ #(70mm,14mm) #@(3mm,1.5mm)
+ @(0,.5)\(?6,@4,\,|,?6,||,2:N)
sw_numbering:=Atom;
- msize:=(1,.88);
- cvat(1,.5)(?6,@4,\,|,?6,||,2:N)
+ ##(1,.88)
+ @(1,.5)\(?6,@4,\,|,?6,||,2:N)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -701,12 +686,11 @@ $2:N : change A$2 C to N **1<=n<=3095
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,14mm);
- fmargin:=(3mm,1.5mm);
- cvat(0,.5)(?6,@4,\,?6,$2:N)
+ #(70mm,14mm) #@(3mm,1.5mm)
+ @(0,.5)\(?6,@4,\,?6,$2:N)
sw_numbering:=Atom;
- msize:=(1,.88);
- cvat(1,.5)(?6,@4,\,?6,$2:N)
+ ##(1,.88)
+ @(1,.5)\(?6,@4,\,?6,$2:N)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -719,12 +703,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,14mm);
- fmargin:=(3mm,1.5mm);
- cvat(0,.5)(?6,@4,\,?6,-2:N)
+ #(70mm,14mm) #@(3mm,1.5mm)
+ @(0,.5)\(?6,@4,\,?6,-2:N)
sw_numbering:=Atom;
- msize:=(1,.88);
- cvat(1,.5)(?6,@4,\,?6,-2:N)
+ ##(1,.88)
+ @(1,.5)\(?6,@4,\,?6,-2:N)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -739,8 +722,8 @@ p_ : positive / n_ : negative
\begin{mplibcode}
beginfigm
sw_trimming:=1;
- fsize:=(60mm,12mm);
- cv(<-30,!2,N,??,p_,!2,S,n_^180,!6,7:N,7:??,9:S,7:p_,9:n_^180)
+ #(60mm,12mm);
+ \(<-30,!2,N,??,p_,!2,S,n_^180,!6,7:N,7:??,9:S,7:p_,9:n_^180)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -759,11 +742,10 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,18mm);
- fmargin:=(2mm,1.5mm);
+ #(60mm,18mm) #@(2mm,1.5mm)
sw_trimming:=1;
sw_numbering:=Bond;
- cv(<30,?6,3=?6,3=dt,{7:11}=bd_r)
+ \(<30,?6,3=?6,3=dt,{7:11}=bd_r)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -776,11 +758,10 @@ attached bond length
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,25mm);
- fmargin:=(2mm,2mm);
+ #(60mm,25mm) #@(2mm,2mm)
sw_trimming:=1;
sw_numbering:=Bond;
- cv(?6,@4,\,?6`1.2,5=?6,11=?6,
+ \(?6,@4,\,?6`1.2,5=?6,11=?6,
{14:23}=bd_r,{5,11}=dt)
endfigm
\end{mplibcode}
@@ -795,12 +776,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,18mm);
- fmargin:=(2mm,1.5mm);
+ #(60mm,18mm) #@(2mm,1.5mm)
margin_top_bottom:=1.5mm;
sw_numbering:=Bond;
sw_trimming:=1;
- cv(<30,?6,3=?6[13],3=dt,{7:11}=bd_r)
+ \(<30,?6,3=?6[13],3=dt,{7:11}=bd_r)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -811,11 +791,10 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,20mm);
- fmargin:=(2mm,2mm);
+ #(70mm,20mm) #@(2mm,2mm)
sw_numbering:=Bond;
sw_trimming:=1;
- cv(<30,?6,{-3,-4,-4,-2,-2,-4,-4}=?6,{4,8,13,20,25,28,33}=dt)
+ \(<30,?6,{-3,-4,-4,-2,-2,-4,-4}=?6,{4,8,13,20,25,28,33}=dt)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -834,17 +813,16 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(75mm,20mm);
- fmargin:=(2mm,2mm);
+ #(75mm,20mm) #@(2mm,2mm)
sw_numbering:=Bond;
- msize:=(1,.9);
- cvat( 0,.5)(<30,?6,{3,11--4}=?6,{11,4}=dt,{12:15}=bd_r)
+ ##(1,.9)
+ @( 0,.5)\(<30,?6,{3,11--4}=?6,{11,4}=dt,{12:15}=bd_r)
add(defaultscale:=0.4; label("(1)",p0);)
- msize:=(1,.9);
- cvat(.5,.5)(<30,?6,3=?6,{11--4}=?5,{11,4}=dt,{12:14}=bd_r)
+ ##(1,.9)
+ @(.5,.5)\(<30,?6,3=?6,{11--4}=?5,{11,4}=dt,{12:14}=bd_r)
add(defaultscale:=0.4; label("(2)",p0);)
- msize:=(1,.9);
- cvat( 1,.5)(<30,?6,3=?6,{11--4}=?4,{11,4}=dt,{12,13}=bd_r)
+ ##(1,.9)
+ @( 1,.5)\(<30,?6,3=?6,{11--4}=?4,{11,4}=dt,{12,13}=bd_r)
add(defaultscale:=0.4; label("(3)",p0);)
endfigm
\end{mplibcode}
@@ -864,12 +842,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
- fmargin:=(2mm,2mm);
+ #(60mm,20mm) #@(2mm,2mm)
sw_numbering:=Bond;
- cvat(0,1)(?6,{3,10}=?6,16---4=?6,{16,4}=dt,{17:19}=bd_r)
+ @(0,1)\(?6,{3,10}=?6,16---4=?6,{16,4}=dt,{17:19}=bd_r)
add(defaultscale:=0.4; label("(1)",p0);)
- cvat(1,0)(?6,{3,10}=?6,16---4=?5,{16,4}=dt,{17,18}=bd_r)
+ @(1,0)\(?6,{3,10}=?6,16---4=?5,{16,4}=dt,{17,18}=bd_r)
add(defaultscale:=0.4; label("(2)",p0);)
endfigm
\end{mplibcode}
@@ -887,10 +864,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
- fmargin:=(2mm,2mm);
+ #(60mm,20mm) #@(2mm,2mm)
sw_numbering:=Bond;
- cv(<-30,?6,{3,10,15}=?6,21----4=?6,{21,4}=dt,{22,23}=bd_r)
+ \(<-30,?6,{3,10,15}=?6,21----4=?6,{21,4}=dt,{22,23}=bd_r)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -903,11 +879,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(40mm,15mm);
+ #(40mm,15mm);
sw_numbering:=Atom;
numbering_end:=7;
ratio_chain_ring:=1;
- cv(<30,!6,@4,?5)
+ \(<30,!6,@4,?5)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -931,8 +907,8 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(75mm,18mm);
- cv(<30,!,/_,!2,/!,!2,/!,!4,/?!,!4,/??!,!2,/'(Ph`0.8)^-60,!)
+ #(75mm,18mm);
+ \(<30,!,/_,!2,/!,!2,/!,!4,/?!,!4,/??!,!2,/'(Ph`0.8)^-60,!)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -954,8 +930,8 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,14mm);
- cv(<30,!`1,//O,!2`1,*/H,!2`1,/*H,!2`1,*/*H,!2`1,**?3,!`1)
+ #(70mm,14mm);
+ \(<30,!`1,//O,!2`1,*/H,!2`1,/*H,!2`1,*/*H,!2`1,**?3,!`1)
add(defaultscale:=0.75;
label("//",A2-(0,0.45l));
label("*/",A4-(0,0.45l));
@@ -982,9 +958,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,16mm);
+ #(60mm,16mm);
sw_trimming:=1;
- cv(<-30,#1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!)
+ \(<-30,#1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -997,11 +973,10 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(75mm,25mm);
- fmargin:=(2mm,2mm);
+ #(75mm,25mm) #@(2mm,2mm)
sw_numbering:=Atom;
numbering_end:=17;
- cv(<30,!17,2:/_,3:/!,4:/!2,7:/iPr,8:/tBu,10:/'(Ph`0.6)^-15,
+ \(<30,!17,2:/_,3:/!,4:/!2,7:/iPr,8:/tBu,10:/'(Ph`0.6)^-15,
{11,12,13'}:*/_,{15,16,17'}:/*_)
endfigm
\end{mplibcode}
@@ -1015,11 +990,10 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,18mm);
+ #(60mm,18mm) #@(2mm,2mm)
sw_trimming:=1;
- fmargin:=(2mm,2mm);
sw_numbering:=Atom; numbering_end:=9;
- cv(<30,!8`1,{2~wf,4~zf,6^-30,8^$120}:/_)
+ \(<30,!8`1,{2~wf,4~zf,6^-30,8^$120}:/_)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1032,11 +1006,11 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,16mm);
+ #(60mm,16mm);
sw_trimming:=1;
sw_numbering:=Atom;
numbering_end:=8;
- cv(<-30,!7`1,3:/_`2^30,5:/!2>lr,7:/!2>rl)
+ \(<-30,!7`1,3:/_`2^30,5:/!2>lr,7:/!2>rl)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1058,10 +1032,10 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(50mm,25mm);
+ #(50mm,25mm);
sw_trimming:=1;
ratio_chain_ring:=1;
- cv(?4,{3^-90,3^-30,3^90}:/!3>hz,
+ \(?4,{3^-90,3^-30,3^90}:/!3>hz,
{1^-60,1,1^60}:/!3>vt
)
add(defaultscale:=0.5; labeloffset:=2bp;
@@ -1090,9 +1064,9 @@ endfigm
\begin{mplibcode}
beginfigm
%%%%% EN:Left-right_right-left
- fsize:=(40mm,20mm);
+ #(40mm,20mm);
sw_trimming:=1;
- cv(<30,!4,2:/!6>30,4:/!4>-45)
+ \(<30,!4,2:/!6>30,4:/!4>-45)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1109,9 +1083,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(40mm,20mm);
+ #(40mm,20mm);
sw_trimming:=1;
- cv(<30,!4,2:/!6>30,4:/!4>-45)
+ \(<30,!4,2:/!6>30,4:/!4>-45)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1124,9 +1098,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
+ #(60mm,20mm);
sw_trimming:=1;
- cv(<30,!6,6>'(90,-90,90,-90,90):/!5)
+ \(<30,!6,6>'(90,-90,90,-90,90):/!5)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1148,9 +1122,9 @@ SO : S,//O SOO : S,//O^35,//^-35
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
+ #(60mm,12mm);
sw_trimming:=1;
- cv(<-30,!2,NH,!2,N!,!2,N!2,!2,SO,!2,SOO,!)
+ \(<-30,!2,NH,!2,N!,!2,N!2,!2,SO,!2,SOO,!)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1168,9 +1142,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
+ #(60mm,12mm);
sw_trimming:=1;
- cv(<30,!9`1,?!,!,??,!,2:??,4:/?!,6:/??!,8:/N?!)
+ \(<30,!9`1,?!,!,??,!,2:??,4:/?!,6:/??!,8:/N?!)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1179,15 +1153,15 @@ endfigm
'(..) : user defined parts
iBuOH:='(!,/_,!,OH);
-cv(<30,?6,{4,6}:/iBuOH)
+\(<30,?6,{4,6}:/iBuOH)
\end{verbatim}
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,13mm);
+ #(60mm,13mm);
sw_trimming:=1;
iBuOH:='(!,/_,!,OH);
- cv(<30,?6,{4,6}:/iBuOH)
+ \(<30,?6,{4,6}:/iBuOH)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1198,10 +1172,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,13mm);
- fmargin:=(2mm,1mm);
+ #(60mm,13mm) #@(2mm,1mm)
sw_trimming:=1;
- cv(<30,!8,{2,6}:/'(!,/_,!,OH))
+ \(<30,!8,{2,6}:/'(!,/_,!,OH))
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1217,10 +1190,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,16mm);
- fmargin:=(2mm,1mm);
+ #(70mm,16mm) #@(2mm,1mm)
sw_trimming:=1;
- cv(<30,?6,@3,\,!3,//O,!,O,n_^60,@$(6,1),H,p_^15)
+ \(<30,?6,@3,\,!3,//O,!,O,n_^60,@$(6,1),H,p_^15)
add(drawdot A1 withpen pencircle scaled 2bp;
pickup pencircle scaled 0.1bp;
for i=0 upto 6:
@@ -1241,10 +1213,9 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(75mm,14mm);
- max_blength:=8mm;
+ #(75mm,14mm) |<(8mm)
sw_numbering:=Atom; numbering_end:=15;
- cv(<30,!14,{2,6:10,14}:/_~bd_r`0.5)
+ \(<30,!14,{2,6:10,14}:/_~bd_r`0.5)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1255,7 +1226,7 @@ endfigm
\index{green}%
\begin{verbatim}
beginfigm
- cv(
+ \(
<30,Ph,{2,5}:N,3:/NH2,4:/COOH,
%---------------------
2:red, % red A2
@@ -1268,9 +1239,8 @@ endfigm
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(50mm,20mm);
- max_blength:=8mm;
- cv(
+ #(50mm,20mm) |<(8mm)
+ \(
<30,Ph,{2,5}:N,3:/NH2,4:/COOH,
2:red,5:blue,3=green
)
@@ -1284,16 +1254,15 @@ beginfigm
%----------------
atomfont:="cmr8";
%----------------
- cv(<30,Ph,{2,5}:N,3:/NH2,4:/COOH)
+ \(<30,Ph,{2,5}:N,3:/NH2,4:/COOH)
endfigm
\end{verbatim}
%-----------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(50mm,20mm);
- max_blength:=8mm;
+ #(50mm,20mm) |<(8mm)
atomfont:="cmr8";
- cv(<30,Ph,{2,5}:N,3:/NH2,4:/COOH)
+ \(<30,Ph,{2,5}:N,3:/NH2,4:/COOH)
endfigm
\end{mplibcode}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -1304,30 +1273,32 @@ endfigm
\begin{verbatim}
mangle=0 ** default
-cvat(0.2,0.5)(Ph)
+@(0.2,0.5)\(Ph)
mangle:=30;
-cvat(0.8,0.5)(Ph)
+@(0.8,0.5)\(Ph)
\end{verbatim}
%-----------------------------------------
%% mangle
\begin{mplibcode}
beginfigm
- fsize:=(50mm,15mm);
- blength:=6mm;
+ #(50mm,15mm) |=(6mm)
mangle:=0;
- cvat(0.2,0.5)(Ph)
+ @(0.2,0.5)\(Ph)
add(drawarrow((A1 shifted (aw,0)) rotated A1ang..A1);)
mangle:=30;
- cvat(0.8,0.5)(Ph)
+ @(0.8,0.5)\(Ph)
add(drawarrow((A1 shifted (aw,0)) rotated A1ang..A1);)
endfigm
\end{mplibcode}
%------------------------------------------------------------------------------
\subsection{Size/Ratio parameter}
%-----------------------------------------------------------------------------
-\subsubsection{Bond length}
+\subsubsection{Bond length [ \textbar=() ]}
\index{blength}%
+\index{\textbar=()}%
\begin{verbatim}
+|=(n) : abbreviated form of blength:=n;
+
(fit to figure size)
blength=0 ** default
\end{verbatim}
@@ -1336,8 +1307,8 @@ blength=0 ** default
%%% blength=0
beginfigm
sw_frame:=Bothside;
- fsize:=(40mm,15mm);
- cv(<30,Ph)
+ #(40mm,15mm);
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1357,9 +1328,8 @@ blength=60mm(width)*0.1=6mm
%% 0<blength=<1
beginfigm
sw_frame:=Bothside;
- fsize:=(40mm,15mm);
- blength:=0.1;
- cv(<30,Ph)
+ #(40mm,15mm) |=(0.1)
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1379,9 +1349,8 @@ blength=9mm
%%%% blength>1
beginfigm
sw_frame:=Bothside;
- fsize:=(40mm,15mm);
- blength:=8mm;
- cv(<30,Ph)
+ #(40mm,15mm) |=(8mm)
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1393,17 +1362,18 @@ endfigm
%------------------------------------------------------------------------------
\subsubsection{Molecular size}
\index{msize}%
+\index{\#\#()}%
\begin{verbatim}
-msize=(1,1) ** default
+##(1,1) : msize=(1,1) ** default
+## p : abbreviated form of msize:=p;
\end{verbatim}
%---------------------------------------------
%% msize=(1)
\begin{mplibcode}
beginfigm
sw_frame:=Bothside+Mol;
- fsize:=(40mm,15mm);
- msize:=(1,1);
- cv(<30,Ph)
+ #(40mm,15mm) ##(1,1)
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1414,17 +1384,16 @@ endfigm
\end{mplibcode}
%-----------------------------------------------------------
\begin{verbatim}
-msize=(0.25,1)
-msize=40mm-4mm*0.25=9mm
+##(0.25,1) : msize=(0.25,1)
+** msize=(40mm-4mm)*0.25=9mm
\end{verbatim}
%---------------------------------------------
%% msize=(0.25,1)
\begin{mplibcode}
beginfigm
sw_frame:=Bothside+Mol;
- fsize:=(40mm,15mm);
- msize:=(0.25,1);
- cv(<30,Ph)
+ #(40mm,15mm) ##(0.25,1)
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1435,16 +1404,15 @@ endfigm
\end{mplibcode}
%-----------------------------------------------------------
\begin{verbatim}
-msize=(11mm,11mm)
+##(11mm,11mm) : msize=(11mm,11mm)
\end{verbatim}
%---------------------------------------------
%% msize=(11mm,11mm)
\begin{mplibcode}
beginfigm
sw_frame:=Bothside+Mol;
- fsize:=(40mm,15mm);
- msize:=(11mm,11mm);
- cv(<30,Ph)
+ #(40mm,15mm) ##(11mm,11mm)
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1457,46 +1425,42 @@ endfigm
\subsubsection{Molecular position}
\index{mposition}%
\begin{verbatim}
-mposition=(0.5,0.5) ** default
+@(0.5,0.5) : mposition=(0.5,0.5) **default
\end{verbatim}
%---------------------------------------------
%% mposition
\begin{mplibcode}
beginfigm
sw_frame:=Bothside+Mol;
- fsize:=(40mm,15mm);
- msize:=(1,0.8);
- mposition:=(0.5,0.5);
- cv(<30,Ph)
+ #(40mm,15mm) ##(1,0.8)
+ @(0.5,0.5);
+ \(<30,Ph)
endfigm
\end{mplibcode}
%--------------------------------------------------------------
\begin{verbatim}
-mposition=(1,0)
+@(1,0) : mposition=(1,0)
\end{verbatim}
%---------------------------------------------
%% mposition
\begin{mplibcode}
beginfigm
sw_frame:=Bothside+Mol;
- fsize:=(40mm,15mm);
- msize:=(1,0.8);
- mposition:=(1,0);
- cv(<30,Ph)
+ #(40mm,15mm) ##(1,0.8)
+ @(1,0);
+ \(<30,Ph)
endfigm
\end{mplibcode}
%--------------------------------------------------------------
\begin{verbatim}
-mposition=(10mm,4mm)
+@(10mm,4mm) : mposition=(10mm,4mm)
\end{verbatim}
%---------------------------------------------
\begin{mplibcode}
beginfigm
sw_frame:=sw_frame+Mol;
- fsize:=(40mm,15mm);
- msize:=(1,0.8);
- mposition:=(10mm,4mm);
- cv(<30,Ph)
+ #(40mm,15mm) ##(1,0.8) @(10mm,4mm)
+ \(<30,Ph)
ext(drawdot p1 withpen pencircle scaled 3pt;
pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
@@ -1509,21 +1473,23 @@ endfigm
%------------------------------------------------------------------------------
\subsection{Size parameter}
%-----------------------------------------------------------------------------
-\subsubsection{Figure size}
+\subsubsection{Figure size [ \#(){ }]}
\index{fsize}%
+\index{\#()}%
\begin{verbatim}
fsize=(figure width,figure height)
** default: (30mm,20mm)
+# p : abbreviated form of fsize:=p;
-fsize=(40mm,15mm)
+#(40mm,15mm) : fsize=(40mm,15mm)
\end{verbatim}
%---------------------------------------------
%% Figure size
\begin{mplibcode}
beginfigm
- fsize:=(40mm,12mm);
sw_frame:=Outside;
- cv(<30,Ph)
+ #(40mm,12mm);
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1533,22 +1499,23 @@ beginfigm
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
-\subsubsection{Figure margin}
+\subsubsection{Figure margin [ \#@(){ }]}
\index{fmargin}%
+\index{\#"@()}%
\begin{verbatim}
fmargin=(margin left rigth,top bottom)
** default: (0.4mm,0.4mm)
+#@ p : abbreviated form of fmargin:=p;
-fmargin=(10mm,2mm)
+#@(10mm,2mm) : fmargin=(10mm,2mm)
\end{verbatim}
%---------------------------------------------
%% fmargin
\begin{mplibcode}
beginfigm
- fsize:=(40mm,12mm);
sw_frame:=Bothside+Mol;
- fmargin:=(10mm,2mm);
- cv(<30,Ph)
+ #(40mm,12mm) #@(10mm,2mm)
+ \(<30,Ph)
ext(pickup pencircle scaled 0.2pt;
for i=0 upto w/mm: draw (i*mm,0)--(i*mm,-.5mm); endfor
for i=0 upto h/mm: draw (0,i*mm)--(-.5mm,i*mm); endfor
@@ -1568,10 +1535,10 @@ default: offset_thickness=0.2pt
%%offset_thickness
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- offset_thickness:=0.0pt; cvat(0.1,0.5)(<30,Ph)
- offset_thickness:=0.2pt; cvat(0.55,0.5)(<30,Ph)
- offset_thickness:=0.5pt; cvat(1,0.5)(<30,Ph)
+ #(60mm,12mm);
+ offset_thickness:=0.0pt; @(0.1,0.5)\(<30,Ph)
+ offset_thickness:=0.2pt; @(0.55,0.5)\(<30,Ph)
+ offset_thickness:=0.5pt; @(1,0.5)\(<30,Ph)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.0pt",(0,1bp));
label.urt("0.2pt",(0.36w,1bp));
@@ -1588,10 +1555,10 @@ default: offset_bond_gap=0.3pt
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- offset_bond_gap:=0.0pt; cvat(0.1, 0.5)(<30,Ph)
- offset_bond_gap:=0.3pt; cvat(0.55,0.5)(<30,Ph) %<<== default
- offset_bond_gap:=1.0pt; cvat(1, 0.5)(<30,Ph)
+ #(60mm,12mm);
+ offset_bond_gap:=0.0pt; @(0.1, 0.5)\(<30,Ph)
+ offset_bond_gap:=0.3pt; @(0.55,0.5)\(<30,Ph) %<<== default
+ offset_bond_gap:=1.0pt; @(1, 0.5)\(<30,Ph)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.0pt",(0,1bp));
label.urt("0.3pt",(0.36w,1bp));
@@ -1608,10 +1575,10 @@ default: offset_atom=0.8pt
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- offset_atom:=0.0pt; cvat(0.1, .5)(<30,?6,3:O)
- offset_atom:=0.8pt; cvat(.55, .5)(<30,?6,3:O) %<<== default
- offset_atom:=2.0pt; cvat(1, .5)(<30,?6,3:O)
+ #(60mm,12mm);
+ offset_atom:=0.0pt; @(0.1, .5)\(<30,?6,3:O)
+ offset_atom:=0.8pt; @(.55, .5)\(<30,?6,3:O) %<<== default
+ offset_atom:=2.0pt; @(1, .5)\(<30,?6,3:O)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.0pt",(0,1bp));
label.urt("0.8pt",(0.36w,1bp));
@@ -1628,10 +1595,10 @@ default: offset_wedge=0.4pt
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- offset_wedge:=0.0pt; cvat(0.1,0.5)(<30,?6,5:*/_)
- offset_wedge:=0.4pt; cvat(0.55,0.5)(<30,?6,5:*/_) %<<== default
- offset_wedge:=1.0pt; cvat(1, 0.5)(<30,?6,5:*/_)
+ #(60mm,12mm);
+ offset_wedge:=0.0pt; @(0.1,0.5)\(<30,?6,5:*/_)
+ offset_wedge:=0.4pt; @(0.55,0.5)\(<30,?6,5:*/_) %<<== default
+ offset_wedge:=1.0pt; @(1, 0.5)\(<30,?6,5:*/_)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.0pt",(0,1bp));
label.urt("0.4pt",(0.36w,1bp));
@@ -1640,23 +1607,25 @@ beginfigm
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
-\subsubsection{Max bond length}
+\subsubsection{Max bond length [ \textbar\textless=(){ }]}
\index{max\_blength}%
+\index{\textbar\textless()}%
\begin{verbatim}
+|<(n): abbreviated form of max_blength:=n;
default: max_blength=10mm
\end{verbatim}
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
+ #(60mm,12mm)
sw_frame:=sw_frame+Mol;
- max_blength:=5mm; cvat(0, .5)(<30,Ph)
- max_blength:=8mm; cvat(.4,.5)(<30,Ph)
- max_blength:=10mm; cvat(1, .5)(<30,Ph) %<<== default
+ |<(5mm) @(0, .5)\(<45,?4)
+ |<(8mm) @(.4,.5)\(<45,?4)
+ |<(10mm) @(1, .5)\(<45,?4) %<<== default
ext(defaultscale:=0.6; labeloffset:=1bp;
- label("5mm", (0.1w,0.5h));
+ label("5mm", (0.075w,0.5h));
label("8mm", (0.42w,0.5h));
- label("10mm",(0.82w,0.5h));
+ label("10mm",(0.88w,0.5h));
)
endfigm
\end{mplibcode}
@@ -1671,10 +1640,10 @@ default: ratio_thickness_bond=0.015
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- ratio_thickness_bond:=0.005; cvat(0.1,0.5)(<30,Ph)
- ratio_thickness_bond:=0.015; cvat(.55,0.5)(<30,Ph) %<<== default
- ratio_thickness_bond:=0.03; cvat(1, 0.5)(<30,Ph)
+ #(60mm,12mm);
+ ratio_thickness_bond:=0.005; @(0.1,0.5)\(<30,Ph)
+ ratio_thickness_bond:=0.015; @(.55,0.5)\(<30,Ph) %<<== default
+ ratio_thickness_bond:=0.03; @(1, 0.5)\(<30,Ph)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.005",(0,1bp));
label.urt("0.015",(0.36w,1bp));
@@ -1691,10 +1660,10 @@ default: ratio_char_bond=1.5
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- ratio_char_bond:=1.0; cvat(0, .5)(<30,?6,6:O,3:NH)
- ratio_char_bond:=1.5; cvat(.5, .5)(<30,?6,6:O,3:NH) %<<== default
- ratio_char_bond:=2.0; cvat( 1, .5)(<30,?6,6:O,3:NH)
+ #(60mm,12mm)
+ ratio_char_bond:=1.0; @(0, 0.5)\(<30,?6,6:O,3:NH)
+ ratio_char_bond:=1.5; @(.5,0.5)\(<30,?6,6:O,3:NH) %<<== default
+ ratio_char_bond:=2.0; @( 1,0.5)\(<30,?6,6:O,3:NH)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("1.0",(0,1bp));
label.urt("1.5",(0.36w,1bp));
@@ -1711,10 +1680,10 @@ default: ratio_bondgap_bond= 0.15
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- ratio_bondgap_bond:=0.10; cvat(0.1, .5)(<30,Ph)
- ratio_bondgap_bond:=0.15; cvat(.55, .5)(<30,Ph) %<<== default
- ratio_bondgap_bond:=0.20; cvat(1 , .5)(<30,Ph)
+ #(60mm,12mm);
+ ratio_bondgap_bond:=0.10; @(0.1,0.5)\(<30,Ph)
+ ratio_bondgap_bond:=0.15; @(.55,0.5)\(<30,Ph) %<<== default
+ ratio_bondgap_bond:=0.20; @(1 ,0.5)\(<30,Ph)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.10",(0,1bp));
label.urt("0.15",(0.36w,1bp));
@@ -1731,10 +1700,10 @@ default: ratio_atom_bond= 0.36
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,12mm);
- ratio_atom_bond:=0.25; cvat(0.1, .5)(<30,?6,3:O)
- ratio_atom_bond:=0.33; cvat(.55, .5)(<30,?6,3:O) %<<== default
- ratio_atom_bond:=0.45; cvat(1, .5)(<30,?6,3:O)
+ #(60mm,12mm);
+ ratio_atom_bond:=0.25; @(0.1,0.5)\(<30,?6,3:O)
+ ratio_atom_bond:=0.33; @(.55,0.5)\(<30,?6,3:O) %<<== default
+ ratio_atom_bond:=0.45; @(1, 0.5)\(<30,?6,3:O)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.25",(0,1bp));
label.urt("0.33",(0.36w,1bp));
@@ -1751,10 +1720,10 @@ default: ratio_wedge_bond=0.12
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,12mm);
- ratio_wedge_bond:=0.1; cvat(0.05,.5)(?6,4:*/_)
- ratio_wedge_bond:=0.12; cvat(.55, .5)(?6,4:*/_) %<<== default
- ratio_wedge_bond:=0.2; cvat(1 , .5)(?6,4:*/_)
+ #(70mm,12mm);
+ ratio_wedge_bond:=0.1; @(0.05,.5)\(?6,4:*/_)
+ ratio_wedge_bond:=0.12; @(.55, .5)\(?6,4:*/_) %<<== default
+ ratio_wedge_bond:=0.2; @(1 , .5)\(?6,4:*/_)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.10",(0,1bp));
label.urt("0.12",(0.36w,1bp));
@@ -1772,12 +1741,12 @@ default: ratio_atomgap_atom= 0.050
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- readm("<30,!2`0.5,2:O")
- fsize:=(70mm,12mm);
+ ''("<30,!2`0.5,2:O")
+ #(70mm,12mm)
sw_frame:=sw_frame+Atom;
- ratio_atomgap_atom:=0.00; cvat(0, .5)(scantokens(mc))
- ratio_atomgap_atom:=0.050; cvat(.5,.5)(scantokens(mc)) %<<== default
- ratio_atomgap_atom:=0.12; cvat(1, .5)(scantokens(mc))
+ ratio_atomgap_atom:=0.00; @(0, .5)\(scantokens(mc))
+ ratio_atomgap_atom:=0.050; @(.5,.5)\(scantokens(mc)) %<<== default
+ ratio_atomgap_atom:=0.12; @(1, .5)\(scantokens(mc))
ext(defaultscale:=0.75; labeloffset:=1bp;
label.urt("0.00",(0.05w,1bp));
label.urt("0.05",(0.45w,1bp));
@@ -1794,10 +1763,10 @@ default: ratio_chain_ring= 0.66
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,12mm);
- ratio_chain_ring:= 0.4; cvat(0.05,.5)(<30,?6,4:/!)
- ratio_chain_ring:= 0.66; cvat(.45, .5)(<30,?6,4:/!) %<<== default
- ratio_chain_ring:= 1; cvat(1, .5)(<30,?6,4:/!)
+ #(70mm,12mm);
+ ratio_chain_ring:= 0.4; @(0.05,.5)\(<30,?6,4:/!)
+ ratio_chain_ring:= 0.66; @(.45, .5)\(<30,?6,4:/!) %<<== default
+ ratio_chain_ring:= 1; @(1, .5)\(<30,?6,4:/!)
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.40",(0,1bp));
label.urt("0.66",(0.3w,1bp));
@@ -1814,11 +1783,11 @@ default: ratio_hashgap_bond=0.12
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- readm("<30,!2,2:/*_`1.5")
- fsize:=(70mm,15mm);
- ratio_hashgap_bond:=0.06; cvat(0.08,.5)(scantokens(mc))
- ratio_hashgap_bond:=0.12; cvat( .55,.5)(scantokens(mc)) %<<== default
- ratio_hashgap_bond:=0.20; cvat(1, .5)(scantokens(mc))
+ ''("<30,!2,2:/*_`1.5")
+ #(70mm,15mm)
+ ratio_hashgap_bond:=0.06; @(0.08,.5)\(scantokens(mc))
+ ratio_hashgap_bond:=0.12; @( .55,.5)\(scantokens(mc)) %<<== default
+ ratio_hashgap_bond:=0.20; @(1, .5)\(scantokens(mc))
ext(defaultscale:=0.6; labeloffset:=1bp;
label.urt("0.06",(0,1bp));
label.urt("0.12",(0.4w,1bp));
@@ -1843,15 +1812,15 @@ numbering_end:=8;
default: sw_numbering=0
sw_numbering:=Atom;
-cv(<-30,!9)
+\(<-30,!9)
\end{verbatim}
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,10mm);
+ #(60mm,10mm);
ratio_chain_ring:=1;
numbering_start:=3; numbering_end:=8;
- sw_numbering:=Atom; cv(<-30,!9)
+ sw_numbering:=Atom; \(<-30,!9)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1866,15 +1835,15 @@ numbering_end:=8;
default: sw_numbering=0
sw_numbering:=Bond;
-cv(<-30,!9)
+\(<-30,!9)
\end{verbatim}
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,10mm);
+ #(60mm,10mm);
ratio_chain_ring:=1;
numbering_start:=3; numbering_end:=8;
- sw_numbering:=Bond; cv(<-30,!9)
+ sw_numbering:=Bond; \(<-30,!9)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1882,53 +1851,52 @@ endfigm
\index{sw\_trimming}%
\begin{verbatim}
sw_trimming:=0; ** default
-msize:=(1,0.7);
-cvat(0.2,0.3)(Ph)
-cvat(0.8,0.7)(Ph)
+##(1,0.7)
+@(0.2,0.3)\(Ph)
+@(0.8,0.7)\(Ph)
\end{verbatim}
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
+ #(60mm,20mm) ##(1,.7)
sw_frame:=Bothside+Mol;
- msize:=(1,.7); cvat(.2,.3)(Ph)
- cvat(.8,.7)(Ph)
+ @(.2,.3)\(Ph)
+ @(.8,.7)\(Ph)
endfigm
\end{mplibcode}
%------------------------------------------------------
\begin{verbatim}
sw_trimming:=1;
-cvat(0.2,0.3)(Ph)
-cvat(0.8,0.7)(Ph)
+@(0.2,0.3)\(Ph)
+@(0.8,0.7)\(Ph)
\end{verbatim}
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,20mm);
+ #(60mm,20mm) ##(1,.7)
sw_frame:=Bothside+Mol;
sw_trimming:=1;
- msize:=(1,.7);
- cvat(.2,.3)(Ph)
- cvat(.8,.7)(Ph)
+ @(.2,.3)\(Ph)
+ @(.8,.7)\(Ph)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
\subsubsection{Expand mode}
\index{sw\_expand}%
\begin{verbatim}
-cvat(0, .5)(<30,Ph,4:/COOH,3:/NH2)
+@(0, .5)\(<30,Ph,4:/COOH,3:/NH2)
sw_expand:=1;
-cvat(1, .5)(<30,Ph,4:/COOH,3:/NH2)
+@(1, .5)\(<30,Ph,4:/COOH,3:/NH2)
** default: sw_expand=0
\end{verbatim}
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- readm("<30,Ph,4:/COOH,3:/NH2")
- fsize:=(60mm,20mm);
- cvat(0, .5)(scantokens(mc))
+ ''("<30,Ph,4:/COOH,3:/NH2")
+ #(60mm,20mm)
+ @(0, .5)\(scantokens(mc))
sw_expand:=1;
- cvat(1, .5)(scantokens(mc))
+ @(1, .5)\(scantokens(mc))
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1941,11 +1909,11 @@ endfigm
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- readm("<30,Ph,4:/Cl,3:/F")
- fsize:=(60mm,12mm);
- cvat(.15, .5)(scantokens(mc))
+ ''("<30,Ph,4:/Cl,3:/F")
+ #(60mm,12mm)
+ @(.15, .5)\(scantokens(mc))
sw_abbreviate:=Group;
- cvat(.85, .5)(scantokens(mc))
+ @(.85, .5)\(scantokens(mc))
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1958,11 +1926,11 @@ endfigm
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- readm("<30,Ph,4:/Cl,3:/F")
- fsize:=(60mm,12mm);
- cvat(.15, .5)(scantokens(mc))
+ ''("<30,Ph,4:/Cl,3:/F")
+ #(60mm,12mm)
+ @(.15, .5)\(scantokens(mc))
sw_abbreviate:=Bond;
- cvat(.85, .5)(scantokens(mc))
+ @(.85, .5)\(scantokens(mc))
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -1982,10 +1950,9 @@ sw_frame=Outside
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(30mm,10mm);
- fmargin:=(5mm,1.5mm);
+ #(30mm,10mm) #@(5mm,1.5mm)
sw_frame:=Outside;
- cv(<30,Ph)
+ \(<30,Ph)
endfigm
\end{mplibcode}
%------------------------------------------------------
@@ -1996,10 +1963,9 @@ sw_frame=Inside
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(30mm,10mm);
- fmargin:=(5mm,1.5mm);
+ #(30mm,10mm) #@(5mm,1.5mm)
sw_frame:=Inside;
- cv(<30,Ph)
+ \(<30,Ph)
endfigm
\end{mplibcode}
%------------------------------------------------------
@@ -2010,10 +1976,9 @@ sw_frame=Bothside=Inside+Outside
%------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(30mm,10mm);
- fmargin:=(5mm,1.5mm);
+ #(30mm,10mm) #@(5mm,1.5mm)
sw_frame:=Bothside;
- cv(<30,Ph)
+ \(<30,Ph)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2027,10 +1992,9 @@ sw_frame=Mol
\begin{mplibcode}
beginfigm
sw_frame:=Outside;
- fsize:=(40mm,11mm);
- msize:=(1,1);
+ #(40mm,11mm) ##(1,1)
sw_frame:=sw_frame+Mol;
- cv(<30,Ph)
+ \(<30,Ph)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2040,14 +2004,14 @@ endfigm
sw_frame=Atom
** default: sw_frame=0
-cv(<30,COOH,!,COOH)
+\(<30,COOH,!,COOH)
\end{verbatim}
%---------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(60mm,10mm);
+ #(60mm,10mm);
sw_frame:=sw_frame+Atom;
- cv(<30,COOH,!,COOH)
+ \(<30,COOH,!,COOH)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2057,16 +2021,16 @@ endfigm
\index{endfigm}%
\begin{verbatim}
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
beginfigm
%--------------------------
ratio_thickness_bond:=0.05;
%--------------------------
- cv(Ph)
+ \(Ph)
endfigm
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
\end{verbatim}
%------------------------------------------------------
@@ -2074,30 +2038,30 @@ endfigm
\begin{mplibcode}
fsize:=(15mm,12mm);
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
beginfigm
ratio_thickness_bond:=0.05;
- cv(Ph)
+ \(Ph)
endfigm
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
\subsubsection{Global parameter setting}
\begin{verbatim}
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
%--------------------------
ratio_thickness_bond:=0.05;
%--------------------------
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
\end{verbatim}
%----------------------------------------------------
@@ -2106,22 +2070,23 @@ endfigm
save_ratio:=ratio_thickness_bond;
fsize:=(15mm,12mm);
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
ratio_thickness_bond:=0.05;
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
beginfigm
- cv(Ph)
+ \(Ph)
endfigm
ratio_thickness_bond:=save_ratio;
\end{mplibcode}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\section{Command}
%-----------------------------------------------------------------------------
-\subsection{cv()}
-\index{cv()}%
+\subsection{drawm [ \textbackslash() ]}
+\index{drawm}%
+\index{\textbackslash()}%
\begin{verbatim}
(Draw molecule)
@@ -2132,104 +2097,102 @@ a: ratio molecular width/figure width
b: ratio molecular hight/figure hight
c: x axis position
d: y axis position
+\(): abbreviated form of drawm()
-beginfigm
- cv(<30,Ph,3:/F,4:/Cl)
-endfigm
+ drawm(<30,Ph,3:/F,4:/Cl)
+ \(<30,Ph,3:/F,4:/Cl)
\end{verbatim}
%------------------------------------------------
\begin{mplibcode}
beginfigm
- fmargin:=(0.5mm,0.5mm);
- fsize:=(40mm,15mm);
+ #(40mm,15mm) #@(0.5mm,0.5mm)
sw_frame:=Outside+Mol;
- cv(<30,Ph,4:/Cl,3:/F)
+ \(<30,Ph,4:/Cl,3:/F)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
-\subsection{cvat()}
-\index{cvat()}%
+\subsection{readm() [ ''() ]}
+\index{readm()}%
+\index{''}%
\begin{verbatim}
-(Draw molecule at mposition)
-cvat(c,d)(....) :
- mposition:=(c,d); cv(....)
- c: x axis position / d: y axis position
+readm(string1,string2, ...);
+** string = mcf code
+''(): abbreviated form of readm()
- cvat(0 ,0 )(?4)
- cvat(0.5,0.5)(?5)
- cvat(1 ,1 )(?6)
+(example)
+''("<30,Ph,{1,2,6}:/O!,{-4,-5}=?7,",
+ " {-1,-4,-6}=dl,-2://O,-3:/O!, ",
+ " @9,\,NH,!,//O,! ")
\end{verbatim}
-%---------------------------------------------
-\begin{mplibcode}
-beginfigm
- blength:=4mm;
- fsize:=(60mm,12mm);
- cvat(0 ,0 )(?4)
- cvat(0.5,0.5)(?5)
- cvat(1 ,1 )(?6)
-endfigm
-\end{mplibcode}
%-----------------------------------------------------------------------------
-\subsection{checkm()}
+\subsection{checkm() [ \textbackslash*(){ }]}
\index{checkm()}%
+\index{\textbackslash*()}%
\begin{verbatim}
+\*(): abbreviated form of checkm()
(immediately compile)
-beginfigm cv(<30,Ph,2:N) endfigm
+beginfigm \(<30,Ph,2:N) endfigm
(check mcf and compile)
beginfigm
- readm("<30,Ph,}2:N") % ** extra '}'
- if checkm(mc)=0: cv(scantokens(mc)) fi
+ ''("<30,Ph,}2:N") % ** extra '}'
+ if \*(mc)=0: \(scantokens(mc)) fi
endfigm
-** checkm(mc) : error count
+** \*(mc) : error count
\end{verbatim}
%-----------------------------------------------------
\quad
\begin{mplibcode}
beginfigm
- readm("<30,Ph,2:N")
+ ''("<30,Ph,2:N")
sw_trimming:=0;
- fsize:=(12mm,12mm);
- putm;
+ #(12mm,12mm);
+ \\
endfigm
beginfigm
- readm("<30,Ph,2):N")
+ ''("<30,Ph,2):N")
sw_trimming:=0;
- fsize:=(12mm,12mm);
- putm;
+ #(12mm,12mm);
+ \\
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
-\subsection{getm()}
+\subsection{getm() [ \$() ]}
\index{getm()}%
\index{ucount}%
+\index{\$()}%
\begin{verbatim}
-getm(number): number=numeric
-ucount: figure count
+getm(number)
+** number = numeric
+** ucount = molecular data unit count
+$() : abbreviated form of getm()
for i=1 upto ucount:
beginfigm
- getm(i); % get data unit no=i
- putm; % put figure
+ $(i) % get data unit no=i
+ \\ % put figure
endfigm
endfor
getm("name"): "name"=string
-loadm("EN<>*);
beginfigm
- getm("Adenine"); % get data EN="Adenine"
- putm; % put figure
+ $("Adenine") % get data EN="Adenine"
+ \\ % put figure
endfigm
\end{verbatim}
-\subsection{putm}
+%-------------------------------------------------------------------------------
+\subsection{putm [ \textbackslash\textbackslash{ }]}
\index{putm}%
+\index{\textbackslash\textbackslash}%
\begin{verbatim}
putm: put figure
+\\ : abbreviated form of putm
if op_row>=1: scantokens(op) fi
if mc_row>=1:
- if checkm(mc)=0: cv(scantokens(mc)) fi
+ if checkm(mc)=0: drawm(scantokens(mc))
+ fi
fi
if ad_row>=1: add(scantokens(ad)) fi
if ex_row>=1: ext(scantokens(ex)) fi
@@ -2316,11 +2279,9 @@ lonepair r: ':' rotated r
a /* b : point b of a
beginfigm
- fsize:=(70mm,40mm);
+ #(70mm,40mm) ##(.91,.9) |<(10mm)
sw_frame:=sw_frame+Atom+Mol;
- max_blength:=10mm;
- msize:=(.91,.9);
- cvat(.5,.85)(<30,?6,{2,5}:O)
+ @(.5,.85)\(<30,?6,{2,5}:O)
add(
defaultscale:=.8;
labeloffset:=.3aw;
@@ -2349,11 +2310,9 @@ endfigm
%------------------------------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,40mm);
+ #(70mm,40mm) ##(.91,.9) |<(10mm)
sw_frame:=sw_frame+Atom+Mol;
- max_blength:=10mm;
- msize:=(.91,.9);
- cvat(.5,.85)(<30,?6,{2,5}:O)
+ @(.5,.85)\(<30,?6,{2,5}:O)
add(
defaultscale:=.8;
labeloffset:=.3aw;
@@ -2382,10 +2341,9 @@ endfigm
%------------------------------------------------------------------------------
\begin{verbatim}
beginfigm
- fsize:=(60mm,20mm);
- msize:=(1,0.85);
+ #(60mm,20mm) ##(1,0.85)
%---------------------------------------
- cvat(0,0)(<30,Ph,3=dl,4:/NH2)
+ @(0,0)\(<30,Ph,3=dl,4:/NH2)
%---------------------------------------
add(
labeloffset:=.7aw;
@@ -2397,7 +2355,7 @@ beginfigm
B3m..A3+B2up**1.5aw..{A3down}A3;
)
%---------------------------------------
- cvat(1,0)(<30,?6,{1,5}=dl,4://NH2)
+ @(1,0)\(<30,?6,{1,5}=dl,4://NH2)
%---------------------------------------
add(
labeloffset:=.7aw;
@@ -2413,10 +2371,9 @@ endfigm
%-------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,20mm);
- msize:=(1,0.85);
+ #(70mm,20mm) ##(1,0.85)
%-------------------------------------------
- cvat(0,0)(<30,Ph,3=dl,4:/NH2)
+ @(0,0)\(<30,Ph,3=dl,4:/NH2)
%-------------------------------------------
add(labeloffset:=.7aw;
label.top(lonepair 90,A7);
@@ -2424,7 +2381,7 @@ beginfigm
drawarrow B3m..A3+B2up**1.5aw..{A3down}A3;
)
%-------------------------------------------
- cvat(1,0)(<30,?6,{1,5}=dl,4://NH2)
+ @(1,0)\(<30,?6,{1,5}=dl,4://NH2)
%-------------------------------------------
add(labeloffset:=.7aw;
label.top(plus,A7);
@@ -2465,10 +2422,9 @@ ratio_thickness_char:
pen thickness / char width
%----------------------------------------
beginfigm
- fsize:=(70mm,30mm;);
- blength:=0.065;
+ #(70mm,30mm) |=(0.065)
%---------------------------------------
- cvat(0.1,0.5)(
+ @(0.1,0.5)\(
<-210,60`1,60`1,60`1,{1,3}=dl,
1:/R1,4:/R2^-60
)
@@ -2476,12 +2432,12 @@ beginfigm
defaultscale:=0.6;
label.bot("Diene",p0+(0.5w,0));
)
- cvat(0.4,0.5)(
+ @(0.4,0.5)\(
<-30,-60`1,1=dl,1:/R3,2:/R4^60)
add(defaultscale:=0.6;
label.bot("Dienophile",p0+(.5w,0));
)
- cvat(0.9,0.5)(
+ @(0.9,0.5)\(
<30,?6,6=dl,2:/R2,3:/R4,4:/R3,5:/R1
)
%---------------------------------------
@@ -2499,10 +2455,9 @@ endfigm
%------------------------------------------------------------------------------
\begin{mplibcode}
beginfigm
- fsize:=(70mm,30mm);
- blength:=0.065;
+ #(70mm,30mm) |=(0.065)
%---------------------------------------
- cvat(0.1,0.5)(
+ @(0.1,0.5)\(
<-210,60`1,60`1,60`1,{1,3}=dl,
1:/R1,4:/R2^-60
)
@@ -2510,12 +2465,12 @@ beginfigm
defaultscale:=0.6;
label.bot("Diene",p0+(0.5w,0));
)
- cvat(0.4,0.5)(
+ @(0.4,0.5)\(
<-30,-60`1,1=dl,1:/R3,2:/R4^60)
add(defaultscale:=0.6;
label.bot("Dienophile",p0+(.5w,0));
)
- cvat(0.9,0.5)(
+ @(0.9,0.5)\(
<30,?6,6=dl,2:/R2,3:/R4,4:/R3,5:/R1
)
%---------------------------------------
@@ -2532,52 +2487,43 @@ endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
\subsubsection{Local ext() setting}
+\index{\_}%
\begin{verbatim}
+_s : abbreviated form of EN:=s;
+
beginfigm
- EN:="?3";
- cvat(0.5,1)(<30,?3)
+ _"?3"@(0.5,1)\(<30,?3)
endfigm
beginfigm
- EN:="?4";
- cvat(0.5,1)(?4)
+ _"?4"@(0.5,1)\(?4)
%-------------------------------
ext(label.top(EN,(0.5w,0));)
%-------------------------------
endfigm
beginfigm
- EN:="?5";
- cvat(0.5,1)(?5)
+ _"?5"@(0.5,1)\(?5)
endfigm
beginfigm
- EN:="?6";
- cvat(0.5,1)(?6)
+ _"?6"@(0.5,1)\(?6)
endfigm
\end{verbatim}
%----------------------------------------------------
\quad
\begin{mplibcode}
beginfigm
- fsize:=(12mm,15mm);
- EN:="?3";
- cvat(0.5,1)(<30,?3)
+ _"?3"#(12mm,15mm)@(0.5,1)\(<30,?3)
endfigm
beginfigm
- fsize:=(12mm,15mm);
- EN:="?4";
- cvat(0.5,1)(?4)
+ _"?4"#(12mm,15mm)@(0.5,1)\(?4)
%-------------------------------
ext(label.top(EN,(0.5w,0));)
%-------------------------------
endfigm
beginfigm
- fsize:=(12mm,15mm);
- EN:="?5";
- cvat(0.5,1)(?5)
+ _"?5"#(12mm,15mm)@(0.5,1)\(?5)
endfigm
beginfigm
- fsize:=(12mm,15mm);
- EN:="?6";
- cvat(0.5,1)(?6)
+ _"?6"#(12mm,15mm)@(0.5,1)\(?6)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2587,56 +2533,48 @@ endfigm
ext_clear: reset global ext()
beginfigm
- EN:="?3";
- cvat(0.5,1)(<30,?3)
+ _"?3"@(0.5,1)\(<30,?3)
endfigm
%-------------------------------
ext(label.top(EN,(0.5w,0));)
%-------------------------------
beginfigm
- EN:="?4";
- cvat(0.5,1)(?4)
+ _"?4"@(0.5,1)\(?4)
endfigm
beginfigm
- EN:="?5";
- cvat(0.5,1)(?5)
+ _"?5"@(0.5,1)\(?5)
endfigm
%---------
ext_clear;
%---------
beginfigm
- EN:="?6";
- cvat(0.5,1)(?6)
+ _"?6"@(0.5,1)\(?6)
endfigm
\end{verbatim}
%-------------------------------------
\quad
\begin{mplibcode}
beginfigm
- fsize:=(12mm,15mm);
- EN:="?3";
- cvat(0.5,1)(<30,?3)
+ _"?3"#(12mm,15mm)
+ @(0.5,1)\(<30,?3)
endfigm
%-------------------------------
ext(label.top(EN,(0.5w,0));)
%-------------------------------
beginfigm
- fsize:=(12mm,15mm);
- EN:="?4";
- cvat(0.5,1)(?4)
+ _"?4"#(12mm,15mm)
+ @(0.5,1)\(?4)
endfigm
beginfigm
- EN:="?5";
- fsize:=(12mm,15mm);
- cvat(0.5,1)(?5)
+ _"?5"#(12mm,15mm)
+ @(0.5,1)\(?5)
endfigm
%---------
ext_clear;
%---------
beginfigm
- fsize:=(12mm,15mm);
- EN:="?6";
- cvat(0.5,1)(?6)
+ _"?6"#(12mm,15mm)
+ @(0.5,1)\(?6)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2645,20 +2583,20 @@ endfigm
\onecolumn
\section{Example}
%-----------------------------------------------------------------------------
-\subsection{cv() example}
+\subsection{drawm() example}
\paragraph{(Luciferin)}
\begin{verbatim}
beginfigm
- fsize:=(50mm,15mm);
- cv(<30,Ph,3=?5,@8,\,?5,{9,16}=dl,{9,14}:N,{7,11}:S,1:/OH,-2:*/COOH)
+ #(50mm,15mm)
+ \(<30,Ph,3=?5,@8,\,?5,{9,16}=dl,{9,14}:N,{7,11}:S,1:/OH,-2:*/COOH)
endfigm
\end{verbatim}
%-------------------------------------------
\begin{mplibcode}
loadm("EN<>*");
beginfigm
- fsize:=(50mm,15mm);
- cv(<30,Ph,3=?5,@8,\,?5,{9,16}=dl,{9,14}:N,{7,11}:S,1:/OH,-2:*/COOH)
+ #(50mm,15mm)
+ \(<30,Ph,3=?5,@8,\,?5,{9,16}=dl,{9,14}:N,{7,11}:S,1:/OH,-2:*/COOH)
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2667,24 +2605,22 @@ endfigm
\paragraph{(Colchicine)}
\begin{verbatim}
beginfigm
- readm(
+ ''(
"<30,Ph,{1,2,6}:/O!,{-4,-5}=?7, ",
" {-1,-4,-6}=dl,-2://O,-3:/O!, ",
" @9,\,NH,!,//O,! ")
- fsize:=(40mm,20mm);
- putm;
+ #(40mm,20mm) \\
endfigm
\end{verbatim}
%---------------------------------------
% Colchicine MW:385.41
\begin{mplibcode}
beginfigm
- readm(
+ ''(
"<30,Ph,{1,2,6}:/O!,{-4,-5}=?7, ",
" {-1,-4,-6}=dl,-2://O,-3:/O!, ",
" @9,\,NH,!,//O,! ")
- fsize:=(40mm,20mm);
- putm;
+ #(40mm,20mm) \\
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
@@ -2698,7 +2634,7 @@ arc_br : arc bottom right
beginfigm
%"EN:Maltose","MW:342.3",
- readm(
+ ''(
%----------------------------------------------------
"#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##, ",
"#.5,{1^$-90,2^$90,3^$-90}:/OH,6^$90:/!OH, ",
@@ -2706,15 +2642,14 @@ beginfigm
"|,#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##, ",
"#.5,{2^$90,3^$-90,4^$-90}:/OH,6^$90:/!OH ")
%----------------------------------------------------
- fsize:=(50mm,20mm);
- putm;
+ #(50mm,20mm) \\
endfigm
\end{verbatim}
%-------------------------------------------------
\begin{mplibcode}
beginfigm
%"EN:Maltose","MW:342.3",
- readm(
+ ''(
%-------------------------------------------------------
"#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##, ",
"#.5,{1^$-90,2^$90,3^$-90}:/OH,6^$90:/!OH, ",
@@ -2722,17 +2657,17 @@ beginfigm
"|,#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##, ",
"#.5,{2^$90,3^$-90,4^$-90}:/OH,6^$90:/!OH ")
%-------------------------------------------------------
- fsize:=(50mm,20mm);
- putm;
+ #(50mm,20mm) \\
endfigm
\end{mplibcode}
%-----------------------------------------------------------------------------
+\newpage
\paragraph{(Erythromycin)}
\begin{verbatim}
beginfigm
- EN:="Erythromycin"; MW:="733.93";
- fsize:=(60mm,30mm); mposition:=(1,0.5);
- readm(
+ _"Erythromycin" MW:="733.93";
+ #(60mm,30mm) @(1,0.5)
+ ''(
%-----------------------------------------------------------------------
"<30,#1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,##,&1, ",
" 14:O,13:/*Et,{1,9}://O, ",
@@ -2741,7 +2676,7 @@ beginfigm
" @$3,\*,O,30~zb,|,?6`.7,6:O,#.5,{5~wf,3^35}:/_,4:/*OH,3^-35:/*O!,##, ",
" @$5,\*^30`1.7,O,!~zb,|,?6`.7,6:O,#.5,5:/*_,2:*/OH,3:/*N?! ")
%-----------------------------------------------------------------------
- putm;
+ \\
ext(defaultscale:=0.8;
label.lrt("EN: "&EN,(0,h));
label.lrt("fm: "&fm,(0,h-5mm));
@@ -2754,9 +2689,9 @@ endfigm;
%%%% EN:Erythromycin MW:733.93
\begin{mplibcode}
beginfigm
- EN:="Erythromycin"; MW:="733.93";
- fsize:=(60mm,30mm); mposition:=(1,0.5);
- readm(
+ _"Erythromycin" MW:="733.93";
+ #(60mm,30mm) @(1,0.5)
+ ''(
%-----------------------------------------------------------------------
"<30,#1,<-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,##,&1, ",
" 14:O,13:/*Et,{1,9}://O, ",
@@ -2765,7 +2700,7 @@ beginfigm
" @$3,\*,O,30~zb,|,?6`.7,6:O,#.5,{5~wf,3^35}:/_,4:/*OH,3^-35:/*O!,##, ",
" @$5,\*^30`1.7,O,!~zb,|,?6`.7,6:O,#.5,5:/*_,2:*/OH,3:/*N?! ")
%-----------------------------------------------------------------------
- putm;
+ \\
ext(defaultscale:=0.8;
label.lrt("EN: "&EN,(0,h));
label.lrt("fm: "&fm,(0,h-5mm));
@@ -2779,20 +2714,20 @@ endfigm;
\begin{verbatim}
beginfigm
% "EN:Paclitaxel","MW:853.918",
- readm(
+ ''(
%------------------------------------------------------------------
"?6,5=dl,@3,#1,36,45,45,45,45,##,&5,-4=?6,-4=?4,-1=wb,-3=wf,-1:O, ",
" 4:??,6:/_,{3^-60,15}:*/OH,8:/*H^-60,9:*/_^60,10://O, ",
" @1,\,O,!,//O,!,*/OH,!,/Ph,60~wf,NH,-60,//O,60,Ph, ",
" @7,\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr ")
%------------------------------------------------------------------
- fsize:=(140mm,30mm);
- if checkm(mc)=0:
- cvat(0,0.5)(scantokens(mc))
+ #(140mm,30mm)
+ if \*(mc)=0:
+ @(0,0.5)\(scantokens(mc))
sw_numbering:=Atom;
- cvat(0.6,0.5)(scantokens(mc))
+ @(0.6,0.5)\(scantokens(mc))
sw_numbering:=Bond;
- cvat(1,0.5)(scantokens(mc))
+ @(1,0.5)\(scantokens(mc))
fi
endfigm
\end{verbatim}
@@ -2800,17 +2735,17 @@ endfigm
\begin{mplibcode}
beginfigm
% "EN:Paclitaxel","MW:853.918",
- readm(
+ ''(
%-------------------------------------------------------------------
"?6,5=dl,@3,#1,36,45,45,45,45,##,&5,-4=?6,-4=?4,-1=wb,-3=wf,-1:O, ",
" 4:??,6:/_,{3^-60,15}:*/OH,8:/*H^-60,9:*/_^60,10://O, ",
" @1,\,O,!,//O,!,*/OH,!,/Ph,60~wf,NH,-60,//O,60,Ph, ",
" @7,\*,O,-45,//O,60,Ph,11:*/OCO!>rl,12:/*OCO!^-15>lr ")
%-------------------------------------------------------------------
- fsize:=(160mm,40mm);
- if checkm(mc)=0: cvat(0, 0.5)(scantokens(mc))
- sw_numbering:=Atom; cvat(0.5,0.5)(scantokens(mc))
- sw_numbering:=Bond; cvat(1, 0.5)(scantokens(mc))
+ #(160mm,40mm)
+ if \*(mc)=0: @(0, 0.5)\(scantokens(mc))
+ sw_numbering:=Atom; @(0.5,0.5)\(scantokens(mc))
+ sw_numbering:=Bond; @(1, 0.5)\(scantokens(mc))
fi
endfigm
\end{mplibcode}
@@ -2891,10 +2826,10 @@ MI : monoisotopic mass from data USE : the use
\noindent%
\begin{verbatim}
beginfigm
- getm("Chlorophyll a");
+ $("Chlorophyll a")
sw_output:=Fig+Calc+Mcode;
- fsize:=(80mm,30mm);
- cv(scantokens(mc))
+ #(80mm,30mm)
+ \(scantokens(mc))
VerbatimTeX("\gdef\EN{"&EN&"}\gdef\MW{"&MW&"}");
VerbatimTeX("\gdef\mw{"&mw&"}\gdef\fm{"&fm&"}");
endfigm
@@ -2905,10 +2840,10 @@ endfigm
%------------------------------------------------------------------------------------
\begin{mplibcode}
beginfigm
- getm("Chlorophyll a");
+ $("Chlorophyll a")
sw_output:=Fig+Calc+Mcode;
- fsize:=(80mm,30mm);
- cv(scantokens(mc))
+ #(80mm,30mm)
+ \(scantokens(mc))
VerbatimTeX("\gdef\EN{"&EN&"}\gdef\MW{"&MW&"}");
VerbatimTeX("\gdef\mw{"&mw&"}\gdef\fm{"&fm&"}");
endfigm
@@ -2920,12 +2855,12 @@ endfigm
\noindent%
\begin{verbatim}
beginfigm
- getm("Okadaic acid");
- readm(",38:*/_,65=red") %%%% add methyl group (color red) %%%%
+ $("Okadaic acid")
+ ''(",38:*/_,65=red") %%%% add methyl group (color red) %%%%
sw_output:=Fig+Calc+Mcode; %%%% output temp-mc.aux %%%%
- EN:="Dinophysistoxin-1"; MW:="819";
- fsize:=(90mm,20mm);
- if checkm(mc)=0: cv(scantokens(mc))
+ _"Dinophysistoxin-1" #(90mm,20mm)
+ MW:="819";
+ if \*(mc)=0: \(scantokens(mc))
VerbatimTeX("\gdef\EN{"&EN&"}\gdef\MW{"&MW&"}");
VerbatimTeX("\gdef\mw{"&mw&"}\gdef\fm{"&fm&"}");
fi
@@ -2937,12 +2872,12 @@ endfigm;
%----------------------------------------------------------------------------
\begin{mplibcode}
beginfigm
- getm("Okadaic acid");
- readm(",38:*/_,65=red") %%%% add methyl group (color red) %%%%
+ $("Okadaic acid")
+ ''(",38:*/_,65=red") %%%% add methyl group (color red) %%%%
sw_output:=Fig+Calc+Mcode; %%%% output temp-mc.aux %%%%
- EN:="Dinophysistoxin-1"; MW:="819";
- fsize:=(90mm,20mm);
- if checkm(mc)=0: cv(scantokens(mc))
+ MW:="819";
+ _"Dinophysistoxin-1" #(90mm,20mm);
+ if \*(mc)=0: \(scantokens(mc))
VerbatimTeX("\gdef\EN{"&EN&"}\gdef\MW{"&MW&"}");
VerbatimTeX("\gdef\mw{"&mw&"}\gdef\fm{"&fm&"}");
fi
@@ -2960,12 +2895,10 @@ endfigm;
%--------------------------------------------------------------------------------
\begin{mplibcode}
beginfigm
- getm("Maitotoxin");
+ $("Maitotoxin") #(150mm,80mm) #@(3mm,3mm)
sw_output:=Fig+Calc+Mcode; %%%% output temp-mc.aux %%%%
- fsize:=(150mm,80mm);
- fmargin:=(3mm,3mm);
sw_frame:=Outside;
- if checkm(mc)=0: cv(scantokens(mc))
+ if \*(mc)=0: \(scantokens(mc))
VerbatimTeX("\gdef\EN{"&EN&"}\gdef\MW{"&MW&"}");
VerbatimTeX("\gdef\mw{"&mw&"}\gdef\fm{"&fm&"}");
fi
@@ -2978,10 +2911,10 @@ endfigm;
%--------------------------------------------------------------------------------
\begin{mplibcode}
beginfigm
- getm("Maitotoxin");
+ $("Maitotoxin") #(150mm,80mm) #@(3mm,3mm)
sw_output:=Fig+Calc+Mcode;
- fsize:=(150mm,80mm); fmargin:=(3mm,3mm); sw_frame:=Outside; %% mc_length:=40;
- if checkm(mc)=0: cv(scantokens(mc))
+ sw_frame:=Outside; %% mc_length:=40;
+ if \*(mc)=0: \(scantokens(mc))
VerbatimTeX("\gdef\EN{"&EN&"}\gdef\MW{"&MW&"}");
VerbatimTeX("\gdef\mw{"&mw&"}\gdef\fm{"&fm&"}");
fi
@@ -2992,25 +2925,24 @@ endfigm;
%--------------------------------------------------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newpage
-\subsection{cvat() example}
+\subsection{User define parts example}
\noindent%
\begin{mplibcode}
beginfigm
-fsize:=(160mm,75mm);
-max_blength:=5mm;
+#(160mm,75mm) |<(5mm)
%--------------------------------------------------------------------------------
COOH:='(//O,!,OH);
HOCO:='(OH,!,//O,);
-cvat(0.33, 1)(<30,HOCO,!,//O,!2,COOH) % Oxaloacetate
-cvat(0.66, 1)(<30,HOCO,!4,COOH,@-4`1,\,COOH,4:/OH^-165) % Citrate
-cvat(1, 1)(<30,HOCO,!2,!~dr,!,COOH,@-4`1,\,COOH) % cis-Aconitate
-cvat(1, 0.58)(<30,HOCO,!4,COOH,@-4,\`1,COOH,5:/OH) % Isocitrate
-cvat(1, 0.05)(<30,HOCO,!3,//O,!,COOH,@-4,\`1,COOH) % Oxalosuccinate
-cvat(0.66,0.05)(<30,HOCO,!3,//O,!,COOH) % alfa-Ketoglutarate
-cvat(0.33,0.05)(<30,HOCO,!3,//O,!,"{S-CoA}") % Succinyl-CoA
-cvat(0, 0.05)(<30,HOCO,!3,COOH) % Succinate
-cvat(0, 0.55)(<30,HOCO,!,!~dr,!,COOH) % Fumarate
-cvat(0, 1)(<30,HOCO,!3,COOH,3:/OH) % L-Malate
+@(0.33, 1)\(<30,HOCO,!,//O,!2,COOH) % Oxaloacetate
+@(0.66, 1)\(<30,HOCO,!4,COOH,@-4`1,\,COOH,4:/OH^-165) % Citrate
+@(1, 1)\(<30,HOCO,!2,!~dr,!,COOH,@-4`1,\,COOH) % cis-Aconitate
+@(1, 0.58)\(<30,HOCO,!4,COOH,@-4,\`1,COOH,5:/OH) % Isocitrate
+@(1, 0.05)\(<30,HOCO,!3,//O,!,COOH,@-4,\`1,COOH) % Oxalosuccinate
+@(0.66,0.05)\(<30,HOCO,!3,//O,!,COOH) % alfa-Ketoglutarate
+@(0.33,0.05)\(<30,HOCO,!3,//O,!,"{S-CoA}") % Succinyl-CoA
+@(0, 0.05)\(<30,HOCO,!3,COOH) % Succinate
+@(0, 0.55)\(<30,HOCO,!,!~dr,!,COOH) % Fumarate
+@(0, 1)\(<30,HOCO,!3,COOH,3:/OH) % L-Malate
%--------------------------------------------------------------------------------
ext(
defaultfont:="uhvr8r"; defaultscale:=0.75;
@@ -3064,19 +2996,19 @@ endfigm
%------------------------------------------------------------------------
\begin{verbatim}
beginfigm
-fsize:=(160mm,75mm);
-max_blength:=5mm;
-COOH:='(//O,!,OH); HOCO:='(OH,!,//O,);
-cvat(0.33, 1)(<30,HOCO,!,//O,!2,COOH) % Oxaloacetate
-cvat(0.66, 1)(<30,HOCO,!4,COOH,@-4`1,\,COOH,4:/OH^-165) % Citrate
-cvat(1, 1)(<30,HOCO,!2,!~dr,!,COOH,@-4`1,\,COOH) % cis-Aconitate
-cvat(1, 0.58)(<30,HOCO,!4,COOH,@-4,\`1,COOH,5:/OH) % Isocitrate
-cvat(1, 0.05)(<30,HOCO,!3,//O,!,COOH,@-4,\`1,COOH) % Oxalosuccinate
-cvat(0.66,0.05)(<30,HOCO,!3,//O,!,COOH) % alfa-Ketoglutarate
-cvat(0.33,0.05)(<30,HOCO,!3,//O,!,"{S-CoA}") % Succinyl-CoA
-cvat(0, 0.05)(<30,HOCO,!3,COOH) % Succinate
-cvat(0, 0.55)(<30,HOCO,!,!~dr,!,COOH) % Fumarate
-cvat(0, 1)(<30,HOCO,!3,COOH,3:/OH) % L-Malate
+#(160mm,75mm) |<(5mm)
+COOH:='(//O,!,OH); % define COOH
+HOCO:='(OH,!,//O,); % define HOCO
+@(0.33, 1)\(<30,HOCO,!,//O,!2,COOH) % Oxaloacetate
+@(0.66, 1)\(<30,HOCO,!4,COOH,@-4`1,\,COOH,4:/OH^-165) % Citrate
+@(1, 1)\(<30,HOCO,!2,!~dr,!,COOH,@-4`1,\,COOH) % cis-Aconitate
+@(1, 0.58)\(<30,HOCO,!4,COOH,@-4,\`1,COOH,5:/OH) % Isocitrate
+@(1, 0.05)\(<30,HOCO,!3,//O,!,COOH,@-4,\`1,COOH) % Oxalosuccinate
+@(0.66,0.05)\(<30,HOCO,!3,//O,!,COOH) % alfa-Ketoglutarate
+@(0.33,0.05)\(<30,HOCO,!3,//O,!,"{S-CoA}") % Succinyl-CoA
+@(0, 0.05)\(<30,HOCO,!3,COOH) % Succinate
+@(0, 0.55)\(<30,HOCO,!,!~dr,!,COOH) % Fumarate
+@(0, 1)\(<30,HOCO,!3,COOH,3:/OH) % L-Malate
ext(
defaultfont:="uhvr8r"; defaultscale:=0.75;
ext_setup;
@@ -3108,7 +3040,7 @@ endfigm
\subsection{MetaPost souce file}
\index{mcf2graph.mp}%
\index{sw\_output}%
-\index{cv()}%
+\index{\textbackslash()}%
\index{plus}%
\index{getm()}%
\index{putm}%
@@ -3120,42 +3052,42 @@ input mcf2graph; > input main macro
sw_output:=Info; % aux(information) file output on > global setting
%%%% sw_output:=Report; > report output
%%%% sw_output:=MOL2000; > MOL file output
-fsize:=(60mm,40mm); % (figure width,figure height) >
+#(60mm,40mm); % (figure width,figure height) >
outputformat:="png"; hppp:=vppp:=0.1; > PNG output
outputtemplate:="c%3c-%{EN_}.png"; >
%------------------------------------------------------------------------------
beginfigm
% EN:Ampicillin MW:349.405
- cv(<45,?4,-3=?5,2:N,7:S, > immediately compile
+ \(<45,?4,-3=?5,2:N,7:S, > immediately compile
3^45:/*H,1://O^15,5:/*COOH^-18,6:??, >
@4,*\^15,NH,!,//O,!,/*NH2,!,Ph) >
endfigm >
%------------------------------------------------------------------------------
beginfigm
% EN:Cholesterol MW:386.65
- readm( > read Mcode
- ": <30,?6,{-4,-2}=?6,-4=?5,7=dl, ", > mc1
- ": 10:/*H^180,11:/*H^-60,17:/*H^-54, ", > mc2
- ": {4,12}:*/_^60, ", > mc3
- ": @-1,18,/*_,-60,!3,?! ") > mc4
- putm; > put figure
+ ''( > read Mcode
+ "<30,?6,{-4,-2}=?6,-4=?5,7=dl, ", > mc1
+ "10:/*H^180,11:/*H^-60,17:/*H^-54, ", > mc2
+ "{4,12}:*/_^60, ", > mc3
+ "@-1,18,/*_,-60,!3,?! ") > mc4
+ \\ > put figure
endfigm >
%------------------------------------------------------------------------------
loadm("EN<>*); > load all unit
beginfigm
- getm("Adenine"); > get EN=Adenine
- putm; > ** put figure
+ $("Adenine") > get EN=Adenine
+ \\ > ** put figure
endfigm >
%------------------------------------------------------------------------------
beginfigm
- getm(4); > select No.4
- putm; > put figure
+ $(4) > select No.4
+ \\ > put figure
endfigm >
%------------------------------------------------------------------------------
for i=1 upto ucount: > figure count
beginfigm
- getm(i); > select No.i
- putm; > put figure
+ $(i) > select No.i
+ \\ > put figure
endfigm
endfor
%------------------------------------------------------------------------------
@@ -3425,11 +3357,11 @@ M END
defaultsize:=8bp;
defaultscale:=1;
%--------------------------------------------------------
- fsize:=(50mm,50mm);
EN:="Limonin";
MW="470.51";
beginfigm
- readm(
+ #(50mm,50mm)
+ ''(
%---------------------------------------
"<30,?6,{-3,-4}=?6, ",
" -5=?3,-2=wf,-1=wb,6=?5,-4=?6,-5=wf, ",
@@ -3438,23 +3370,23 @@ M END
" {1^60,5^180,16^60}:/*H, ",
" @14,\*,|,?5,{1,4}=dl,3:O ")
%---------------------------------------
- putm;
+ \\
endfigm
\end{mplibcode}\\
%--------------------------------------------------------------------
\begin{mplibcode}
- fsize:=(80mm,50mm);
EN:="beta-carotene";
MW:="536.87";
beginfigm
- readm(
+ #(80mm,50mm)
+ ''(
%-----------------------------------------
"<30,?6,3=dl,{3,5^35,5^-35}:/_, ",
" @4,\,|,!18,{1,3,5,7,9,11,13,15,17}=dr,",
" {3,7,12,16}:/_, ",
" |,?6,6=dl,{6,2^35,2^-35}:/_ ")
%-----------------------------------------
- putm;
+ \\
endfigm
\end{mplibcode}\\
%--------------------------------------------------------------------