diff options
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.mf | 287 |
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 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |