summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_exa_soc.mf
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/mcf2graph/mcf_exa_soc.mf')
-rw-r--r--graphics/mcf2graph/mcf_exa_soc.mf37
1 files changed, 16 insertions, 21 deletions
diff --git a/graphics/mcf2graph/mcf_exa_soc.mf b/graphics/mcf2graph/mcf_exa_soc.mf
index b167564775..65420533fc 100644
--- a/graphics/mcf2graph/mcf_exa_soc.mf
+++ b/graphics/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")