From fcf03a2973004ba816be26780ea00d9b790948fc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 11 Feb 2021 22:54:29 +0000 Subject: mcf2graph (11feb21) git-svn-id: svn://tug.org/texlive/trunk@57714 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/metapost/mcf2graph/mcf_man_soc.mf | 97 ++++++++++------------ 1 file changed, 45 insertions(+), 52 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 84b9fc6bee6..0f99177e283 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf @@ -1,7 +1,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.01.31 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.02.11 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %% it must be version 4.56 or later +input mcf2graph.mf; %% it must be version 4.57 message "mcf_man_soc 2021.01.31"; message ""; %------------------------------------------------------------------------ sw_mframe:=0; @@ -12,7 +12,7 @@ sw_expand:=0; %*********************************************************************** fsize:=(40mm,25mm); blength:=6mm; -%*************************************************************************** +%*********************************************************************** beginfont("EN:Glycine") MC(<30,NH2,!2,COOH) endfont @@ -58,7 +58,7 @@ beginfont("EN:L-Tyrosine") endfont %*********************************************************************** beginfont("EN:L-Triptophan") - MC(<30,NH2,!~wb,!,COOH,2:\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH) + MC(<30,NH2,!~wb,!,COOH,@2,\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH) endfont %*********************************************************************** beginfont("EN:L-Prorine") @@ -66,7 +66,7 @@ beginfont("EN:L-Prorine") endfont %*********************************************************************** beginfont("EN:L-Glutamine") - MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!,//O,!,NH2) + MC(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!,//O,!,NH2) endfont %*********************************************************************** beginfont("EN:L-Asparagine") @@ -86,15 +86,15 @@ beginfont("EN:L-Lysine") endfont %*********************************************************************** beginfont("EN:L-Arginine") - MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!2,NH,!,//NH,!,NH2) + MC(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!2,NH,!,//NH,!,NH2) endfont %*********************************************************************** beginfont("EN:L-Hystidine") - MC(<30,NH2,!~wb,!,COOH,2:\,!,|,?5,{1,3}=dl,3:N,5:NH) + MC(<30,NH2,!~wb,!,COOH,@2,\,!,|,?5,{1,3}=dl,3:N,5:NH) endfont %*********************************************************************** beginfont("EN:L-DOPA") - MC(<30,NH2,!~wb,!,COOH,2:\,!,Ph,{-3,-4}:/OH) + MC(<30,NH2,!~wb,!,COOH,@2,\,!,Ph,{-3,-4}:/OH) endfont %*********************************************************************** beginfont("EN:Ornithine") @@ -183,7 +183,7 @@ beginfont("EN:Jump and Branch") sw_numberA:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- - MC(<-30,!6,3:@,0,!,5:@,-30) + MC(<-30,!6,@3,0,!,@5,-30) endfont %*********************************************************************** beginfont("EN:Jump and Branch") @@ -193,7 +193,7 @@ beginfont("EN:Jump and Branch") sw_trimming:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- - MC(<-30,!6,3:\,!) + MC(<-30,!6,@3,\,!) endfont %*********************************************************************** beginfont("EN:branch1") @@ -204,7 +204,7 @@ beginfont("EN:branch1") numberA_end:=10; ratio_chain_ring:=1; %---------------------------------------------------------------------- - MC(<30,!10,2:\,!,4:*\,!,6:\*,!,8:\\,!,10:*\*,!) + MC(<30,!10,@2,\,!,@4,*\,!,@6,\*,!,@8,\\,!,@10,*\*,!) endfont %*********************************************************************** beginfont("EN:branch2") @@ -215,7 +215,7 @@ beginfont("EN:branch2") numberA_end:=7; ratio_chain_ring:=1; %---------------------------------------------------------------------- - MC(<30,!6,2:\~dr,!,4:\`1.5,-90,6:@,15,-60) + MC(<30,!6,@2,\~dr,!,@4,\`1.5,-90,@6,15,-60) endfont %*********************************************************************** beginfont("EN:Connect atom") @@ -225,7 +225,7 @@ beginfont("EN:Connect atom") sw_numberA:=1; ratio_chain_ring:=1; %---------------------------------------------------------------------- - MC(<-30,!6,3:\,!3,6:#~bd,9@#4~bz) + MC(<-30,!6,@3,\,!3,&6~bd,@9,&4~bz) endfont %*********************************************************************** beginfont("EN:ring") @@ -246,7 +246,7 @@ beginfont("EN:rotate 1") numberB_end:=5; defaultscale:=0.5; labeloffset:=2bp; - MC(``1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf, + MC(#1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf, {3,4^180}:/_~dt) add( drawarrow B6/*.7{B6left}..{B3left}B3/*.7; label.urt("90",B6/*.7); @@ -309,15 +309,15 @@ beginfont("EN:over line") endfont %*********************************************************************** beginfont("EN:change bond length1") - fsize:=(60mm,12mm); + fsize:=(75mm,10mm); sw_numberB:=1; - MC(<-30,!2,!2`1.2,!2) + MC(<-30,!2,!4`1.2,!2) endfont %*********************************************************************** beginfont("EN:change bond length2") - fsize:=(60mm,12mm); + fsize:=(75mm,10mm); sw_numberB:=1; - MC(<-30,!2,``1.2,!4) + MC(<-30,!2,#1.2,!4,##,!2) endfont %*********************************************************************** beginfont("EN:change ring length") @@ -325,7 +325,7 @@ beginfont("EN:change ring length") fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberB:=1; - MC(?6,4:\,?6`1.2) + MC(?6,@4,\,?6`1.2) endfont %*********************************************************************** beginfont("EN:Insert atom") @@ -343,40 +343,40 @@ endfont %*********************************************************************** beginfont("EN:change atom brock address 1") fsize:=(70mm,15mm); - MCat(0,.5)(?6,4:\,|,?6,2:O) + MCat(0,.5)(?6,@4,\,|,?6,2:O) sw_numberA:=1; msize:=(1,.88); - MCat(1,.5)(?6,4:\,?6) + MCat(1,.5)(?6,@4,\,?6) endfont %*********************************************************************** beginfont("EN:change atom brock address 2") fsize:=(70mm,15mm); - MCat(0,.5)(?6,4:\,|,?6,||,2:N) + MCat(0,.5)(?6,@4,\,|,?6,||,2:N) sw_numberA:=1; msize:=(1,.88); - MCat(1,.5)(?6,4:\,?6) + MCat(1,.5)(?6,@4,\,?6) endfont %*********************************************************************** beginfont("EN:change atom absolute address") fsize:=(70mm,15mm); - MCat(0,.5)(?6,4:\,?6,$2:N) + MCat(0,.5)(?6,@4,\,?6,$2:N) sw_numberA:=1; msize:=(1,.88); - MCat(1,.5)(?6,4:\,?6) + MCat(1,.5)(?6,@4,\,?6) endfont %*********************************************************************** beginfont("EN:change atom relative adress") fsize:=(70mm,15mm); - MCat(0,.5)(?6,4:\,?6,-2:N) + MCat(0,.5)(?6,@4,\,?6,-2:N) sw_numberA:=3; msize:=(1,.88); - MCat(1,.5)(?6,4:\,?6) + MCat(1,.5)(?6,@4,\,?6) endfont %*********************************************************************** beginfont("EN:Charged atom") sw_trimming:=1; - fsize:=(60mm,15mm); - MC(<-30,!2,N[1],!2,O[-1],!2,&"-",!2,N,&"+"^180,!) + fsize:=(60mm,12mm); + MC(<-30,!2,N,??,"+",!2,S,"-"^180,!6,7:N,7:??,9:S,7:"+",9:"-"^180) endfont %*********************************************************************** beginfont("EN:fused ring") @@ -392,7 +392,7 @@ beginfont("EN:change ring length") fmargin:=(2mm,2mm); sw_trimming:=1; sw_numberB:=1; - MC(?6,4:\,?6`1.2,5=?6,11=?6, + MC(?6,@4,\,?6`1.2,5=?6,11=?6, {14,15,16,17,18,19,20,21,22,23}=bd,{5,11}=dt) endfont %----------------------------------------------------------------------- @@ -443,7 +443,7 @@ beginfont("EN:Spiro ring ") sw_numberA:=1; numberA_end:=7; ratio_chain_ring:=1; - MC(<30,!6,4:@,?5) + MC(<30,!6,@4,?5) endfont %*********************************************************************** beginfont("EN:group 1") @@ -461,7 +461,7 @@ endfont beginfont("EN:group 3") fsize:=(60mm,18mm); sw_trimming:=1; - MC(<-30,``1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!) + MC(<-30,#1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!) endfont %*********************************************************************** beginfont("EN:group 3") @@ -532,13 +532,6 @@ beginfont("EN:methyl*2,isopropyl,tert-butyl") MC(<30,!9`1,?!,!,??,!,2:??,4:/?!,6:/??!,8:/N?!) endfont %*********************************************************************** -beginfont("EN:Make brock") - fsize:=(60mm,10mm); -% sw_trimming:=1; - sw_numberB:=1; - MC(<-30,!2,|=1.2,!4,=|,!2) -endfont -%*********************************************************************** beginfont("EN:User definition") fsize:=(60mm,15mm); sw_trimming:=1; @@ -1107,7 +1100,7 @@ defaultsize:=save_defaultsize; beginfont("EN:Luciferin","MW:280.33") fsize:=(60mm,20mm); MC( - <30,Ph,3=?5,8:\,?5,{9,16}=dl, + <30,Ph,3=?5,@8,\,?5,{9,16}=dl, {9,14}:N,{7,11}:S,1:/OH,-2:*/COOH ) endfont @@ -1116,19 +1109,19 @@ beginfont("EN:Colchicine","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,! + @9,\,NH,!,//O,! ) endfont %*************************************************************************** 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,||, + ?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:*\,O,-60,//O,60, - 12:\*^-15,O,60,//O,-60 + @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 %*************************************************************************** @@ -1144,9 +1137,9 @@ endfont beginfont("EN:Gibberellin A3","MW:346.37"); fsize:=(60mm,20mm); MC( - <18,?5,3=?7,5=?6[12],8:@,160`1.3,3:#, + <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:#, + @5,40~zf`1,O,50,//O^180,&14~zb, 2:/COOH,7://_,13:*/OH,8:/*OH, 14:*/_,{1,4}:*/H^60 ) @@ -1156,9 +1149,9 @@ beginfont("EN:Quinine","MW:324.42") fsize:=(60mm,25mm); MC( <30,Ph,3=Ph,7:N,6:/O!, - 10:\,*/OH,/H~zf^-60,!, + @10,\,*/OH,/H~zf^-60,!, |,?6,2:N,1:*/H^60,4:*/!!, - 2:@,165~zf,60,5~zb:# + @2,165~zf,60,&5~zb ) endfont %*************************************************************************** @@ -1189,7 +1182,7 @@ beginfont("EN:Ampicillin","MW:349.405") fsize:=(60mm,90mm); MCat(0.5,1)(<45,?4,-3=?5,2:N,7:S, {3^45,4^-45}:/*H,1://O^15,5:/*COOH^-18,6:??, - 4:*\^75,NH,!,//O,!,/*NH2,!,Ph) + @4,*\^75,NH,!,//O,!,/*NH2,!,Ph) endfont %*************************************************************************** beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") @@ -1198,7 +1191,7 @@ beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") <30,?6,{-4,-2}=?6,-4=?5,7=dl, 1:*/OH,{4,12}:*/_^60,9:*/H^60, 10:/*H^180,11:/*H^-60,17:/*H^-54, - -1:@,18,/*_,-60,!3,?! + @-1,18,/*_,-60,!3,?! ) endfont %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -- cgit v1.2.3