From 953f1c8e79e6ea3c3e5cff979e557d2db51bd87c Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Sun, 26 Jul 2020 21:02:26 +0000
Subject: mcf2graph (26jul20)

git-svn-id: svn://tug.org/texlive/trunk@55957 c570f23f-e606-0410-a88d-b1316a301751
---
 .../doc/metapost/mcf2graph/mcf_man_soc.mf          | 287 ++++++++++++---------
 1 file changed, 161 insertions(+), 126 deletions(-)

(limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf')

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
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-- 
cgit v1.2.3