summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf')
-rw-r--r--Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf287
1 files changed, 161 insertions, 126 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
index b13b6cc12ba..dfc1cdc1a77 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
@@ -1,97 +1,129 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2020.07.09
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2020.07.26
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf; %% it must be version 4.49 or later
+input mcf2graph.mf; %% it must be version 4.50 or later
%------------------------------------------------------------------------
sw_mframe:=0;
sw_expand:=0;
%%%%sw_aux_out:=0;
%%%%sw_rep_out:=1;
+%ext(defaultscale:=.5; label.bot(decimal(char_num)&":"&inf_EN,(.5w,0));)
%***********************************************************************
-fsize:=(35mm,25mm);
+fsize:=(40mm,25mm);
blength:=6mm;
-%-------------------------------------------------------------------------
-%ext(defaultscale:=.5; label.bot(decimal(char_num)&":"&inf_EN,(.5w,0));)
%***********************************************************************
beginfont("EN:Glycine")
MC(<30,NH2,!2,COOH)
endfont
%***********************************************************************
-beginfont("EN:Alanine")
- MC(<30,NH2,!,/_,!,COOH)
+beginfont("EN:L-Alanine")
+ MC(<30,NH2,!~wb,/_,!,COOH)
+endfont
+%***********************************************************************
+beginfont("EN:L-Valine")
+ MC(<30,NH2,!~wb,/iPr,!,COOH)
+endfont
+%***********************************************************************
+beginfont("EN:L-Leucine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,/_,!)
+endfont
+%***********************************************************************
+beginfont("EN:L-Isoleucine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,/*_,!2)
endfont
%***********************************************************************
-beginfont("EN:Valine")
- MC(<30,NH2,!,/iPr,!,COOH)
+beginfont("EN:L-Serine")
+ MC(<30,NH2,!~wb,!,COOH,2:/!OH)
endfont
%***********************************************************************
-beginfont("EN:Leucine")
- MC(<30,NH2,!2,COOH,2:\,!,/_,!)
+beginfont("EN:L-Threonine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,/_,!~wf,OH)
endfont
%***********************************************************************
-beginfont("EN:Isoleucine")
- MC(<30,NH2,!2,COOH,2:\,/_,!2)
+beginfont("EN:L-Cysteine")
+ MC(<30,NH2,!~wb,!,COOH,2:/!SH)
endfont
%***********************************************************************
-beginfont("EN:Serine")
- MC(<30,NH2,!2,COOH,2:/!OH)
+beginfont("EN:L-Methionine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!2,SMe)
endfont
%***********************************************************************
-beginfont("EN:Threonine")
- MC(<30,NH2,!2,COOH,2:\,/_,!,OH)
+beginfont("EN:L-Phenylalanine")
+ MC(<30,NH2,!~wb,!,COOH,2:/!Ph)
endfont
%***********************************************************************
-beginfont("EN:Cysteine")
- MC(<30,NH2,!2,COOH,2:/!SH)
+beginfont("EN:L-Tyrosine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,Ph,-3:/OH)
endfont
%***********************************************************************
-beginfont("EN:Methionine")
- MC(<30,NH2,!2,COOH,2:\,!2,SMe)
+beginfont("EN:L-Triptophan")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH)
endfont
%***********************************************************************
-beginfont("EN:Phenylalanine")
- MC(<30,NH2,!2,COOH,2:/!Ph)
+beginfont("EN:L-Prorine")
+ MC(<18,?5,3:NH,4:*/COOH)
endfont
%***********************************************************************
-beginfont("EN:Tyrosine")
- MC(<30,NH2,!2,COOH,2:\,!,Ph,-3:/OH)
+beginfont("EN:L-Glutamine")
+ MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!,//O,!,NH2)
endfont
%***********************************************************************
-beginfont("EN:Triptophan")
- MC(<30,NH2,!2,COOH,2:\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH)
+beginfont("EN:L-Asparagine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,//O,!,NH2)
endfont
%***********************************************************************
-beginfont("EN:Prorine")
- MC(<18,?5,3:NH,4:/COOH)
+beginfont("EN:L-Aspartic acid")
+ MC(<30,NH2,!~wb,/!COOH,!,COOH)
endfont
%***********************************************************************
-beginfont("EN:Glutamine")
- MC(<30,NH2,!2,COOH,2:\`1,-45,-45,//O,!,NH2)
+beginfont("EN:L-Glutamic acid")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!2,COOH)
endfont
%***********************************************************************
-beginfont("EN:Asparagine")
- MC(<30,NH2,!2,COOH,2:\,!,//O,!,NH2)
+beginfont("EN:L-Lysine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!4,NH2)
endfont
%***********************************************************************
-beginfont("EN:Aspartic acid")
- MC(<30,NH2,!,/!COOH,!,COOH)
+beginfont("EN:L-Arginine")
+ MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!2,NH,!,//NH,!,NH2)
endfont
%***********************************************************************
-beginfont("EN:Glutamic acid")
- MC(<30,NH2,!2,COOH,2:\,!2,COOH)
+beginfont("EN:L-Hystidine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,|,?5,{1,3}=dl,3:N,5:NH)
endfont
%***********************************************************************
-beginfont("EN:Lysine")
- MC(<30,NH2,!2,COOH,2:\,!4,NH2)
+beginfont("EN:L-DOPA")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,Ph,{-3,-4}:/OH)
endfont
%***********************************************************************
-beginfont("EN:Arginine")
- MC(<30,NH2,!2,COOH,2:\,-45,-45,60,NH,!,//NH,!,NH2)
+beginfont("EN:Ornithine")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!3,NH2)
endfont
%***********************************************************************
-beginfont("EN:Hystidine")
- MC(<30,NH2,!2,COOH,2:\,!,|,?5,{1,3}=dl,3:N,5:NH)
+beginfont("EN:Citrulline")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!3,NH,!,//O,!,NH2)
endfont
+%***********************************************************************
+beginfont("EN:GABA")
+ MC(<30,NH2,!4,COOH)
+endfont
+%***********************************************************************
+beginfont("EN:amino Levulinic acid")
+ MC(<30,NH2,!2,//O,!3,COOH)
+endfont
+%***********************************************************************
+beginfont("EN:4-amino benzoic acid")
+ MC(<30,Ph,1:/NH2,4:/COOH)
+endfont
+%***********************************************************************
+beginfont("EN:L-Carboxyl glutamic acid")
+ MC(<30,NH2,!~wb,!,COOH,2:\,!,/COOH,!,COOH)
+endfont
+%***********************************************************************
+beginfont("EN:L-Hydroxy Prorine")
+ MC(<18,?5,1:/OH,3:NH,4:*/COOH)
+endfont
+%***********************************************************************
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
fsize:=(60mm,35mm);
blength:=0mm;
@@ -102,7 +134,7 @@ sw_fframe:=1;
fmargin:=(2mm,1mm);
%***********************************************************************
beginfont("EN:Chain 1")
- fsize:=(60mm,20mm);
+ fsize:=(60mm,18mm);
sw_numberB:=1;
numberB_end:=6;
ratio_chain_ring:=1;
@@ -123,7 +155,7 @@ beginfont("EN:Chain 1")
endfont
%***********************************************************************
beginfont("EN:Chain 2")
- fsize:=(60mm,20mm);
+ fsize:=(60mm,18mm);
sw_numberB:=1;
numberB_end:=6;
ratio_chain_ring:=1;
@@ -144,7 +176,7 @@ beginfont("EN:Chain 2")
endfont
%***********************************************************************
beginfont("EN:Jump and Branch")
- fsize:=(60mm,20mm);
+ fsize:=(60mm,18mm);
fmargin:=(2mm,2mm);
sw_trimming:=1;
sw_numberA:=1;
@@ -154,7 +186,7 @@ beginfont("EN:Jump and Branch")
endfont
%***********************************************************************
beginfont("EN:Jump and Branch")
- fsize:=(60mm,20mm);
+ fsize:=(60mm,18mm);
fmargin:=(2mm,2mm);
sw_numberA:=1;
sw_trimming:=1;
@@ -164,7 +196,7 @@ beginfont("EN:Jump and Branch")
endfont
%***********************************************************************
beginfont("EN:branch1")
- fsize:=(60mm,20mm);
+ fsize:=(60mm,18mm);
fmargin:=(2mm,2mm);
sw_numberA:=1;
sw_trimming:=1;
@@ -454,12 +486,12 @@ beginfont("EN:group 5")
endfont
%***********************************************************************
beginfont("EN:chain strech direction mode 1")
- fsize:=(60mm,27mm);
+ fsize:=(60mm,45mm);
sw_trimming:=1;
ratio_chain_ring:=1;
MC(
?4,{3^-90,3^-30,3^90}:/'(!3,"{hz}")>hz,
- {1^-60,1`1.5,1^60}:/'(!2,"{vt}")>vt
+ {1^-60,1,1^60}:/'(!3,"{vt}")>vt
)
endfont
%***********************************************************************
@@ -474,12 +506,17 @@ beginfont("EN:chain strech direction mode 2")
endfont
%***********************************************************************
beginfont("EN:chain strech direction mode 3")
+ fsize:=(40mm,25mm);
+ sw_trimming:=1;
+ ratio_chain_ring:=1;
+ MC(<30,!6,6>45:/!3)
+endfont
+%***********************************************************************
+beginfont("EN:chain strech direction mode 4")
fsize:=(60mm,25mm);
sw_trimming:=1;
ratio_chain_ring:=1;
- MC(<30,!6,{6>45}:/'(!3,"{45}"),
- {3>'(90,-90,90)}:/'(!3,"{'(90,-90,90)}")
- )
+ MC(<30,!6,6>'(90,-90,90,-90,90):/!5)
endfont
%***********************************************************************
beginfont("EN:change atom and group")
@@ -488,24 +525,11 @@ beginfont("EN:change atom and group")
MC(<-30,!2,NH,!2,SO,!2,SOO,!)
endfont
%***********************************************************************
-beginfont("EN:Change color,font")
- fsize:=(75mm,20mm);
- sw_label:=1;
- defaultfont:="cmtt10";
- defaultsize:=10bp;
- fmargin:=(3mm,1mm);
- MCat(0.25,0)(<30,Ph,{2,5}:N,3:/NH2,2:red,5:blue,3=green)
- add(label.lft("(draw)",p0+(0,.9h));)
- atomfont:="cmr8";
- MCat(1,0)(<30,Ph,{2,5}:N,3:/NH2)
- add(label.lft("(cmr8)",p0+(0,.9h));)
-endfont
-%***********************************************************************
beginfont("EN:Make brock")
- fsize:=(60mm,8mm);
- sw_trimming:=1;
+ fsize:=(60mm,15mm);
+% sw_trimming:=1;
sw_numberB:=1;
- MC(<-30,!2,|=1.2,!2,=|,!2)
+ MC(<-30,!2,|=1.2,!4,=|,!2)
endfont
%***********************************************************************
beginfont("EN:User definition")
@@ -519,7 +543,7 @@ beginfont("EN:Inline definition")
fsize:=(60mm,20mm);
fmargin:=(2mm,1mm);
sw_trimming:=1;
- MC(<30,!3,/'(!,/_,!,OH),!3)
+ MC(<30,!8,{2,6}:/'(!,/_,!,OH))
endfont
%***********************************************************************
beginfont("EN:mangle")
@@ -771,7 +795,7 @@ beginfont("EN:ratio_wedge_bond")
endfont
%***********************************************************************
beginfont("EN:ratio_atomgap_atom")
- fsize:=(60mm,8mm);
+ fsize:=(60mm,15mm);
sw_aframe:=1;
ratio_atomgap_atom:=0.00;
MCat(0, .5)(<30,!2,2:O)
@@ -948,7 +972,36 @@ beginfont("EN:MCat()")
endfor
endfont
%***********************************************************************
-beginfont("EN:add()")
+beginfont("EN:add() 1")
+ fsize:=(70mm,43mm);
+ sw_aframe:=sw_mframe:=1;
+ max_blength:=12mm;
+ msize:=(.91,.9);
+ MCat(.5,.85)(<30,?6,{2,5}:O)
+ add(
+ defaultscale:=.8;
+ labeloffset:=.3aw;
+ dotlabel.lft("p0",p0);
+ dotlabel.rt( "p0+(w,h)",p0+(w,h));
+ dotlabel.ulft("A1",A1);
+ drawarrow A1..A1+(l,0)<<A1ang;
+ dotlabel.lrt( "B3s",B3s);
+ dotlabel.rt("B3m",B3m);
+ drawarrow B3m..B3m+(l,0)<<(B3ang+90);
+ dotlabel.ulft("A6",A6);
+ drawarrow A1{A1down}..A6;
+ dotlabel.urt( "B3e",B3e);
+ label.rt("An="&decimal(An)&" / "&
+ "Bn="&decimal(Bn),p0+(-w,-1.5em));
+ label.rt("aw="&decimal(aw),p0+(w,-1.5em));
+ label.rt("em="&decimal(em),p0+(0,-1.5em));
+ label.rt("w="&decimal(w),p0+(-w,-3em));
+ label.rt("h="&decimal(h),p0+(0,-3em));
+ label.rt("l="&decimal(l),p0+(w,-3em));
+ )
+endfont
+%***********************************************************************
+beginfont("EN:add() 2")
fsize:=(70mm,20mm);
msize:=(1,0.85); MCat(0,0)(<30,Ph,3=dl,4:/NH2)
add(labeloffset:=.7aw;
@@ -1039,78 +1092,60 @@ defaultsize:=save_defaultsize;
%***************************************************************************
beginfont("EN:Luciferin","MW:280.33")
fsize:=(60mm,20mm);
- MC(<30,Ph,3=?5,8:\,?5,{9,16}=dl,
- {9,14}:N,{7,11}:S,1:/OH,-2:*/COOH)
-endfont
-%***************************************************************************
-beginfont("EN:Limonin")
- fsize:=(60mm,30mm);
- MC(<30,?6,{-3,-4}=?6,-5=?3,-2=wf,-1=wb,6=?5,-4=?6,-5=wf,
- {13,15,17,20}:O,{3,12,21}://O,
- {4~wf^60,8~zf^60,18^35,18^-35}:/_,{1^60,5^180,16^60}:/*H,
- 14:\*,|,?5,{1,4}=dl,3:O)
+ MC(
+ <30,Ph,3=?5,8:\,?5,{9,16}=dl,
+ {9,14}:N,{7,11}:S,1:/OH,-2:*/COOH
+ )
endfont
%***************************************************************************
-beginfont("EN:Sesamine")
+beginfont("EN:Colchicine","MW:385.41")
fsize:=(60mm,25mm);
- MC(<54,?5,1=?5,{4,7}:O,{1^-54,2^54}:*/H,
- $5:*\^-12,Ph,-3=?5,{-1,-3}:O,8:*\^-12,Ph,-3=?5,{-1,-3}:O)
+ MC(
+ <30,Ph,{1,2,6}:/O!,|,-4=?7,
+ |,-5=?7,{-1,-4,-6}=dl,-2://O,-3:/O!,
+ $9:\,NH,!,//O,!
+ )
endfont
%***************************************************************************
-beginfont("EN:Colchicine","CAS:477-27-0","FM:C21H23NO6","MW:385.41")
- fsize:=(60mm,25mm);
- MC(<30,Ph,{1,2,6}:/O!,|,-4=?7,
- |,-5=?7,{-1,-4,-6}=dl,-2://O,-3:/O!,
- $9:\,NH,!,//O,!)
+beginfont("EN:Paclitaxel","MW:853.91")
+ MC(
+ ?6,5=dl,3:@,|=1,36,45,45,45,45,=|,
+ $5:#,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||,
+ {4^35,4^-35,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:*\,O,-60,//O,60,
+ 12:\*^-15,O,60,//O,-60
+ )
endfont
%***************************************************************************
-beginfont("EN:Lycorine","CAS:476-28-8","FM:C16H17NO4","MW:287.31")
+beginfont("EN:Lycorine","MW:287.31")
fsize:=(60mm,25mm);
MC(<30,
- Ph,-4=?6,-2=?6,6=?5,(9,12)=?5[3],13=dl,8:N,{15,17}:O,
+ Ph,-4=?6,-2=?6,6=?5,(9,12)=?5[3],
+ 13=dl,8:N,{15,17}:O,
9:/*H^180,10:*/H^60,13:*/OH,14:/*OH
)
endfont
%***********************************************************************
-beginfont("EN:Gibberellin A3","CAS:77-06-5","FM:C19H22O6","MW:346.37");
+beginfont("EN:Gibberellin A3","MW:346.37");
fsize:=(60mm,20mm);
- MC(<18,?5,3=?7,5=?6[12],8:@,160`1.3,3:#,13=dl,6=wf,8=wb,
- 5:@,40~zf`1,O,50,//O^180,14~zb:#,
- 2:/COOH,7://_,13:*/OH,8:/*OH,14:*/_,{1,4}:*/H^60)
+ MC(
+ <18,?5,3=?7,5=?6[12],8:@,160`1.3,3:#,
+ 13=dl,6=wf,8=wb,
+ 5:@,40~zf`1,O,50,//O^180,14~zb:#,
+ 2:/COOH,7://_,13:*/OH,8:/*OH,
+ 14:*/_,{1,4}:*/H^60
+ )
endfont
%***************************************************************************
-beginfont("EN:Quinine","CAS:130-95-0","FM:C20H24N2O2","MW:324.42")
+beginfont("EN:Quinine","MW:324.42")
fsize:=(60mm,25mm);
- MC(<30,Ph,3=Ph,7:N,6:/O!,
- 10:\,*/OH,/H~zf^-60,!,|,?6,2:N,1:*/H^60,4:*\,!!,2:@,165~zf,60,5~zb:#)
-endfont
-%***************************************************************************
-beginfont("EN:Atoropin","CAS:51-55-8","FM:C17H23NO3","MW:289.37")
- fsize:=(60mm,22mm);
- MC(<30,O,!,//O,!,!,Ph,
- $1:@,-60~zb,|,?7,6:*\^190`1.12,N,/_,3~wb:#,$3:*\*,!,OH)
-endfont
-%***************************************************************************
-beginfont("EN:Rotenone");
- fsize:=(60mm,30mm);
- MC(<-60,?5,{-3,-2,-3,-4}=?6,{7,9,-2,-4}=dl,{3,17}=dr,
- {2,13,16}=O,10://O,{11^-60,12^60}:*/H,{-2,-3}:/O!,1:*\,/_,!!)
-endfont;
-%***************************************************************************
-beginfont("EN:Pyrethrin I");
- MC(<30,?3,{3^35~wf,3^-35~zf}:/_,1:*\,!!,iPr,
- 2:\*,//O,!,O,-36~zb,|,?5,-2=dl,-1:/_,-3://O,-2:\,!4,{-1,-3}=dl)
-endfont;
-%***************************************************************************
-beginfont("EN:Paclitaxel","CAS:33069-62-4","FM:C47H51NO14","MW:853.91")
MC(
- ?6,5=dl,3:@,|=1,36,45,45,45,45,=|,
- $5:#,-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||,
- {4^35,4^-35,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:*\,O,-60,//O,60,
- 12:\*^-15,O,60,//O,-60
+ <30,Ph,3=Ph,7:N,6:/O!,
+ 10:\,*/OH,/H~zf^-60,!,
+ |,?6,2:N,1:*/H^60,4:*\,!!,
+ 2:@,165~zf,60,5~zb:#
)
endfont
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%