diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf | 37 |
1 files changed, 16 insertions, 21 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf index b1675647755..65420533fc0 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf @@ -1,8 +1,8 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.02.11 +% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2021.02.21 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %%% it must be version 4.57 -message "* mcf_exa_soc 2021.02.11"; +input mcf2graph.mf; %%% it must be version 4.58 +message "* mcf_exa_soc 2021.02.21"; message ""; %------------------------------------------------------------------------- fsize:=(35mm,24mm); @@ -29,12 +29,7 @@ tag1:="F"; tag2:="C"; tag3:="fm"; tag4:="mw"; tag5:="EN"; tag6:="MW"; %%%% for i=nA step nA until w: draw(i,0)--(i,h); endfor %%%% for i=nA step nA until h: draw(0,i)--(w,i); endfor ); %--------------------------------------------------------------------------- -%%%%sw_calc:=1; -%%%%ext(defaultfont:="uhvr8r"; defaultscale:=.3; -%%%% label.lrt(decimal(char_num)&":"&inf_EN&" MW="&cal_MW -%%%% if (inf_MW<>"-")and(cen_MW<40): -%%%% &"("& decimal(num_MW-scantokens(inf_MW))&")" -%%%% else: &"(-)" fi ,(-2bp,1.5bp));) +%%%%ext(defaultfont:="uhvr8r"; defaultscale:=.3; label.lrt(mc,(-2bp,1.5bp));) %*************************************************************************** beginfont("EN:Adenine","MW:135.13") MC(<30,?6,3=?5,{1,3,5,9}=dl,{2,6,9}:N,5:/NH2,7:NH) @@ -116,8 +111,8 @@ endfont %*************************************************************************** beginfont("EN:Thiamine","MW:300.81") MC(<30,Ph,4:/NH2,@3,\`1,!,<-12,?5,{-1,-4}=dl,{1,5,8}:N,11:S,{6,9}:/_, - @-3,\,!2,OH,8:"+"^72) - MCat(.95,.75)(Cl,"-"^15) + @-3,\,!2,OH,8:p_^72) + MCat(.95,.75)(Cl,n_^15) endfont %************************************************************************** beginfont("EN:Gibberellin A3","MW:346.379"); @@ -183,8 +178,8 @@ beginfont("EN:Sudan red 1","MW:248.28") endfont %*************************************************************************** beginfont("EN:Basic blue 1","MW:319.86") - MC(<30,Ph,3=Ph,6=Ph,2:S,5:N,{8,13}:/N?!,2:"+") - MCat(1,.7)(Cl,"-"^15) + MC(<30,Ph,3=Ph,6=Ph,2:S,5:N,{8,13}:/N?!,2:p_) + MCat(1,.7)(Cl,n_^15) endfont %*************************************************************************** beginfont("EN:Disperse violet 1","MW:238.25") @@ -240,9 +235,9 @@ beginfont("EN:Halfenprox","MW:477.4") endfont %*************************************************************************** beginfont("EN:Paraquat","MW:257.16") - MC(Ph,@4,\,Ph,{1,10}:N!,1:"+"^-90,10:"+"^90) - MCat(1,.75)(Cl,"-"^15) - MCat(1,.60)(Cl,"-"^15) + MC(Ph,@4,\,Ph,{1,10}:N!,1:p_^-90,10:p_^90) + MCat(1,.75)(Cl,n_^15) + MCat(1,.60)(Cl,n_^15) endfont %*************************************************************************** beginfont("EN:Picolinafen","MW:376.331") @@ -484,9 +479,9 @@ endfont %*************************************************************************** beginfont("EN:Cefalonium","MW:458.5107") MC(<45,?4,-3=?6,-4=dl,2:N,8:S, - 3^45:/*H,1://O^15,@5,\*,//O,!,O,"-"^40, + 3^45:/*H,1://O^15,@5,\*,//O,!,O,n_^40, @4,*\^15,NH,!,//O,!2,?5,{-1,-3}=dl,-4:S, - @6,\,!,|,Ph,1:N,1:"+"^180,@4,\,//O,!,NH2) + @6,\,!,|,Ph,1:N,1:p_^180,@4,\,//O,!,NH2) endfont %*************************************************************************** beginfont("EN:Cefazorin","MW:454.51") @@ -498,9 +493,9 @@ endfont %*************************************************************************** beginfont("EN:Cefquinome","MW:528.6") MC(<45,?4,-3=?6,-4=dl,2:N,8:S, - 3^45:/*H,1://O^15,@5,\*,//O,!,O,"-"^40, + 3^45:/*H,1://O^15,@5,\*,//O,!,O,n_^40, @4,*\^15,NH,!,//O,!,//'(N,!,O,!),!,?5,{-2,-5}=dl,-3:S,-1:N,-2:/NH2, - @6,\,!,Ph,-2=?6,-10:N,-10:"+"^180) + @6,\,!,Ph,-2=?6,-10:N,-10:p_^180) endfont %*************************************************************************** beginfont("EN:Ceftiofur","MW:523.5626") @@ -803,7 +798,7 @@ beginfont("EN:illudin S","MW:264.3") endfont %*************************************************************************** beginfont("EN:Muscarine","MW:174.26") - MC(<18,?5,2:O,1:*/_,5:/*OH,@3,*\,48,N,??,"+"^180,!) + MC(<18,?5,2:O,1:*/_,5:/*OH,@3,*\,48,N,??,p_^180,!) endfont %*************************************************************************** beginfont("EN:Psilocybin","MW:284.248") |