summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
diff options
context:
space:
mode:
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.mf140
1 files changed, 70 insertions, 70 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 9db6bd3f491..835f45493fa 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_exa_soc.mf
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2015.9.05
+% Molecular Coding Format for mcf_example.tex by Akira Yamaji 2015.9.16
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;
%-------------------------------------------------------------------------
@@ -26,7 +26,7 @@ endfont
%***********************************************************************
beginfont("EN:Imidacloprid")
MCf(^^30,
- Ph1,1:N,6:/Cl,3\,!,?5,1:N,3:NH,2\\,!,NO2
+ Ph,1:N,6:/Cl,3\,!,|,?5,1:N,3:NH,2\\,!,NO2
)
endfont
%***********************************************************************
@@ -38,7 +38,7 @@ endfont
%***********************************************************************
beginfont("EN:Thiamethoxam")
MCf(^^30,
- ?6,@(4,6)N,2:O,6:/Me,5\\,!,NO2,4\,!,?5,$(1,3)d,3:N,5:S,4:/Cl
+ ?6,@(4,6)N,2:O,6:/Me,5\\,!,NO2,4\,!,|,?5,$(1,3)d,3:N,5:S,4:/Cl
)
endfont
%***********************************************************************
@@ -50,7 +50,7 @@ endfont
%***********************************************************************
beginfont("EN:Pyridaphenthion")
MCf(^^-30,
- !2,O,!,P,//S,/OEt^160>rl,!,O,!,?6,$(1,5)dl,@(2,3)N,4://O,3:/Ph
+ !2,O,!,P,//S,/OEt^160>rl,!,O,!,|,?6,$(1,5)dl,@(2,3)N,4://O,3:/Ph
)
endfont
%***********************************************************************
@@ -61,8 +61,7 @@ beginfont("EN:Fenitrothion")
endfont
%***********************************************************************
beginfont("EN:Permethrin")
- MCf(
- ^^-30,
+ MCf(^^-30,
?3,2^-35:*/Me,2^35:/*Me,1\,!~dl,/Cl,!,Cl,
3\,//O,!,O,!2,Ph,3\,O,-60,Ph
)
@@ -82,7 +81,7 @@ endfont
%***********************************************************************
beginfont("EN:Isoprothiolane")
MCf(^^30,
- !,/Me,!,O,!,//O,!2,//O,!,O,!,/Me,!,2\\,?5,@(2,5)S
+ !,/Me,!,O,!,//O,|,!2,//O,!,O,!,/Me,!,2\\,|,?5,@(2,5)S
)
endfont
%***********************************************************************
@@ -107,7 +106,7 @@ endfont
%***********************************************************************
beginfont("EN:Captan")
MCf(^^12,
- ?6,6=dl,3=??5,2:N,@(7,9)//O,8\,S,!,CCl3
+ ?6,6=dl,3=?5,2:N,@(7,9)//O,8\,S,!,CCl3
)
endfont
%***********************************************************************
@@ -119,13 +118,13 @@ endfont
%***********************************************************************
beginfont("EN:Tetraconazole")
MCf(^^-6,
- ?5,$(2,5)d,@(1,2,4)N,4\,!4,4:O,/F^35,/F^-35,!,CF2,#7\,Ph,@(4,6)/Cl
+ ?5,$(2,5)d,@(1,2,4)N,4\,!3,O,!,/F^35,/F^-35,!,CF2,#7\,Ph,@(4,6)/Cl
)
endfont
%***********************************************************************
beginfont("EN:Endosulfan");
MCf(^^30,
- ?6`1.3,3=??7,2*,210~wf`1.45,&5~wb,6=d,
+ ?6`1.3,3=?7,2*,210~wf`1.45,&5~wb,6=d,
@(1,2,5,6,12^-210,12^-150)/Cl,@(8,10)O,9:S,9://O
)
endfont;
@@ -138,7 +137,7 @@ endfont
%***********************************************************************
beginfont("EN:Propiconazole")
MCf(^^-6,
- ?5,$(2,5)d,@(1,3,4)N,4\,!2,Ph,@(4,6)/Cl,#7\,?5,@(2,5)O,3:/Bu^24
+ ?5,$(2,5)d,@(1,3,4)N,4\,!2,Ph,@(4,6)/Cl,#7\,|,?5,@(2,5)O,3:/Bu^24
)
endfont
%***********************************************************************
@@ -156,7 +155,7 @@ endfont
%***********************************************************************
beginfont("EN:Oxadixyl")
MCf(^^30,
- Ph,@(1,3)/Cl,4\,?5,2=dl,@(1,2)N,4:O,5://O,-3:/tBu,#6\,O,!2,!~tm
+ Ph,@(1,3)/Cl,4\,|,?5,2=dl,@(1,2)N,4:O,5://O,-3:/tBu,#6\,O,!2,!~tm
)
endfont
%***********************************************************************
@@ -168,13 +167,13 @@ endfont
%***********************************************************************
beginfont("EN:Cafenstrole")
MCf(^^30,
- Ph,@(2,4,6)/Me,3\,SOO,!,?5,$(2,5)d,@(2,4,5)N,4\,!,N,/Me,!2
+ Ph,@(2,4,6)/Me,3\,SOO,!,|,?5,$(2,5)d,@(2,4,5)N,4\,!,N,/Me,!2
)
endfont
%***********************************************************************
beginfont("EN:Cyclosulfamuron")
MCf(^^30,
- Ph,5\,//O,!,??3,4\,NH,!,SOO,!,NH,!,//O,!,NH,!,Ph,@(2,6)N,@(3,5)/OMe
+ Ph,5\,//O,!,?3,4\,NH,!,SOO,!,NH,!,//O,!,NH,!,Ph,@(2,6)N,@(3,5)/OMe
)
endfont
%***********************************************************************
@@ -210,7 +209,7 @@ endfont
%***********************************************************************
beginfont("EN:Trinexapac-ethyl")
MCf(^^30,
- ?6,@(2,4)//O,6:/COOEt,3\\,/OH,!,?3
+ ?6,@(2,4)//O,6:/COOEt,3\\,/OH,!,|,?3
)
endfont
%***********************************************************************
@@ -222,19 +221,19 @@ endfont
%***********************************************************************
beginfont("EN:Tricyclazole")
MCf(^^30,
- Ph,2:/Me,3=?5,1:N,3:S,2=?5,$(2,4)dl,@(2,3)N
+ Ph,2:/Me,|,-4=?5,1:N,3:S,|,-3=?5,$(2,4)dl,@(2,3)N
)
endfont
%***********************************************************************
beginfont("EN:Phthalide")
MCf(^^30,
- Ph,@(1,2,5,6)/Cl,3=?5,2:O,3://O
+ Ph,@(1,2,5,6)/Cl,|,-4=?5,2:O,3://O
)
endfont
%***********************************************************************
beginfont("EN:Probenazole")
MCf(^^12,
- Ph,3:dl,3=?5,1:SOO,2:N,3\,O,!2,!~dr
+ Ph,|,-4=?5,1:SOO,2:N,3\,O,!2,!~dr
)
endfont
%***********************************************************************
@@ -257,24 +256,24 @@ beginfont("EN:Bromobutide")
endfont
%***********************************************************************
beginfont("EN:Mefenacet")
- MCf(^^12,
- Ph,-4=?5,3=d,3:N,1:S,2\,O,!2,//O,!,N,/Me,!,Ph
+ MCf(^^0,
+ Ph,|,-4=?5,3=d,3:N,1:S,2\,O,!2,//O,!,N,/Me,!,Ph
)
endfont
%***********************************************************************
beginfont("EN:Rifampicin")
MCf(^^30,
- Ph,6:/Me^30,5:/OH,-6=?5,1:O,3://O,2:/*Me^60,#3=?6,@(2,4)d,@(1,4)/OH,
+ Ph,6:/Me^30,5:/OH,|,-6=?5,1:O,3://O,2:/*Me^60,|,#3=?6,@(2,4)d,@(1,4)/OH,
{,``1,-2\,NH,60,//O,-60,/Me,60~dl,60,60~dl,-60,
*/Me,60,/*OH,-60,/*Me,60,/*OH,60,*/Me^30,-60,
60,/*Me^30,-53,/*OMe,66,-53~dl,66`1.2,O,},&(#8),
- #11\,!~dr,N,!,?6,@(1,4)N,4:/Me
+ #11\,!~dr,N,!,|,?6,@(1,4)N,4:/Me
)
endfont
%***********************************************************************
beginfont("EN:Wortmanin")
MCf(^^30,
- ?6,$(-4,-2)??6,-4=??5,(2,7)=??5[3],
+ ?6,$(-4,-2)?6,-4=?5,(2,7)=?5[3],
6:O,1://O,$(7,10)dl,8://O,17://O,-3=d,-1:O,
@(4,12)*/Me^60,11:/*H^-60,
#5\*,60,O,!,#14\*^-25,//O,!,O,!
@@ -283,7 +282,7 @@ endfont
%***********************************************************************
beginfont("EN:Ampicillin")
MCf(^^45,
- ?4,-3=??5,2:N,7:S,
+ ?4,-3=?5,2:N,7:S,
@(3^45,4^-45)/*H,1://O^15,5:/*COOH^-18,@(6^35,6^-35)/Me,
,4\^75,NH,!,//O,!,NH,!,Ph,
)
@@ -292,8 +291,8 @@ endfont
beginfont("EN:Validamycin")
MCf(^^30,
?6,@(5,6)/OH,3\,-60,OH,
- #4\,O,-60,?6,2:O,@(3,4,5,6)/OH,
- #1\,NH,!,?6,2=d,@(4,5,6)/OH,-4\,!,OH
+ #4\,O,-60,|,?6,2:O,@(3,4,5,6)/OH,
+ #1\,NH,!,|,?6,2=d,@(4,5,6)/OH,-4\,!,OH
)
endfont
%**********************************************************************
@@ -306,24 +305,24 @@ endfont
beginfont("EN:Etyprostontromethamine")
MCf(^^0,
?5,@(2,5)/*OH,
- #3*\^6,!~dl,!3,O,0,Ph,#8*,?5,@(1,4)O,#4\*^-6,!,30~dl,30,!3,COOH
+ #3*\^6,!~dl,!3,O,0,Ph,#8*,|,?5,@(1,4)O,#4\*^-6,!,30~dl,30,!3,COOH
)
endfont
%***********************************************************************
beginfont("EN:Chlorophyll a")
MCf(^^54,
- {,``1,?5,$(2,5)dl,4:N,3\,54~dl,?5,$(2,4)dl,5:N,
- -2\,54~dl,?5,2=d,5:N,-2\~dl,54,?5,5=d,5:N,-2\~dl,&(#5),
+ {,``1,??5,$(2,5)dl,4:N,3\,54~dl,??5,$(2,4)dl,5:N,
+ -2\,54~dl,??5,2=d,5:N,-2\~dl,54,??5,5=d,5:N,-2\~dl,&(#5),
-1*,24,/*COOMe^15,72,//O,&(#1),},
@(2,9,15,20~zf)/Me,8:/Et,14\,!~dr,
#4\`1.45,Mg,&17,-1*,&11~vb,-1*,&23~vb,
- #21*,-6~wf,!2,//O,!,O,!2,!~dl,!13,@(1,5,9,13)/Me
+ #21*,-6~wf,!2,//O,!,O,!2,!~dl,|,!13,@(1,5,9,13)/Me
)
endfont
%**********************************************************************
beginfont("EN:Gibberellin A3");
MCf(^^12,
- ?6`1.3,3=??5,9=??7,12\^160`1.6,&8,
+ ?6`1.3,3=?5,9=?7,12\^160`1.6,&8,
4\^155~zf`1.2,O,55,//O^180`1,&2~zb,
5=dl,11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me,
@(3^-60,9^60)*/H
@@ -332,7 +331,7 @@ endfont;
%**********************************************************************
beginfont("EN:Cholesterol")
MCf(^^30,
- ?6,$(-4,-2)??6,-4=??5,7=dl,
+ ?6,$(-4,-2)?6,-4=?5,7=dl,
1:*/OH,@(4,12)*/Me^60,
10:/*H^180,@(11,-1)/*H^-60,9:*/H^60,
-1\^17,/*Me,!4,/Me,!
@@ -341,7 +340,7 @@ endfont
%***********************************************************************
beginfont("EN:Lycorine")
MCf(^^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
@@ -356,64 +355,64 @@ endfont
beginfont("EN:beta-Carotene")
MCf(^^30,
?6,3=dl,@(3,5^35,5^-35)/Me,
- 4\,!18,$(1,3,5,7,9,11,13,15,17)dr,@(3,7,12,16)/Me,
- ?6,6=dl,@(6,2^35,2^-35)/Me
+ 4\,|,!18,$(1,3,5,7,9,11,13,15,17)dr,@(3,7,12,16)/Me,
+ |,?6,6=dl,@(6,2^35,2^-35)/Me
)
endfont
%**********************************************************************
beginfont("EN:alfa-Tocopherol")
MCf(^^30,
- Ph,3=??6,7:O,@(1,2,5)/Me,8:/*Me^60,6:/OH,
- 8\,!12,@(4,8)/*Me,12:/Me
+ Ph,3=?6,7:O,@(1,2,5)/Me,8:/*Me^60,6:/OH,
+ 8\,|,!12,@(4,8)/*Me,12:/Me
)
endfont
%**********************************************************************
beginfont("EN:Qercetin")
MCf(^^30,
- Ph,3=??6,9\,ph,9=dl,10:O,7://O,@(2,6,8,13,14)/OH
+ Ph,3=?6,9\,ph,9=dl,10:O,7://O,@(2,6,8,13,14)/OH
)
endfont
%***********************************************************************
beginfont("EN:Limonin")
MCf(^^30,
- ?6,$(-3,-4)??6,-5=??3,-2=wf,-1=wb,6=??5,-4=??6,-5=wf,
+ ?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)/Me,@(1^60,5^180,16^60)/*H,
- 14\*,?5,$(1,4)dl,3:O
+ 14\*,|,?5,$(1,4)dl,3:O
)
endfont
%**********************************************************************
beginfont("EN:Cromolyn")
MCf(^^30,
- Ph,-1=?6,3:d,-4:O,-1://O,-3:/COOH,
- #2\,O,!2,/OH,!2,O,60,Ph,-5=?6,3=d,-1:O,-4://O,-2:/COOH
+ Ph,|,-1=?6,3:d,-4:O,-1://O,-3:/COOH,
+ #2\,O,!2,/OH,!2,O,60,Ph,|,-5=?6,3=d,-1:O,-4://O,-2:/COOH
)
endfont
%**********************************************************************
beginfont("EN:Emetine")
MCf(^^30,
- Ph,$(-4,-4)??6,8:N,@(1,6)/OMe,-2:/*Et,@(7^-60,12^-60)/*H,
- -3\,!~zb,^^-60,?6,5=d,2:NH,-6^-60:*/H,-2=?6,$(2,4)dl
+ Ph,$(-4,-4)?6,8:N,@(1,6)/OMe,-2:/*Et,@(7^-60,12^-60)/*H,
+ -3\,!~zb,^^-60,|,?6,5=d,2:NH,-6^-60:*/H,|,-2=?6,$(2,4)dl
)
endfont
%***********************************************************************
beginfont("EN:Colchicine")
MCf(^^30,
- Ph,@(1,2,6)/OMe,-4=?7,-5=?7,$(-1,-4,-6)dl,-2://O,-3:/OMe,
+ Ph,@(1,2,6)/OMe,|,-4=?7,|,-5=?7,$(-1,-4,-6)dl,-2://O,-3:/OMe,
#9\,NH,!,//O,!
)
endfont
%***********************************************************************
beginfont("EN:Caffeine")
MCf(^^30,
- ?6,3=d,@(2,6)N,@(2,6)/Me,@(1,5)//O,-4=?5,2=d,@(1,3)N,3:/Me
+ ?6,3=d,@(2,6)N,@(2,6)/Me,@(1,5)//O,|,-4=?5,2=dl,@(1,3)N,3:/Me
)
endfont
%**********************************************************************
beginfont("EN:Acronycine")
MCf(^^30,
- Ph,-4=?6,1:N,4://O,,1:/Me,-3=Ph2,-1:/OMe,
- -4=?6,2=d,4:O,-2^-35:/Me,-2^35:/Me
+ Ph,|,-4=?6,1:N,4://O,,1:/Me,-3=Ph2,-1:/OMe,
+ |,-4=?6,2=d,4:O,-2^-35:/Me,-2^35:/Me
)
endfont
%***********************************************************************
@@ -425,57 +424,58 @@ endfont
%**********************************************************************
beginfont("EN:Piperine")
MCf(^^30,
- Ph,-1=?5,@(1,3)O,#4\,!~dr,!,!~dr,!,//O,!,?6,1:N
+ Ph,|,-1=?5,@(1,3)O,#4\,!~dr,!,!~dr,!,//O,!,|,?6,1:N
)
endfont
%***********************************************************************
beginfont("EN:Febrifugine")
MCf(^^30,
- Ph,-4=?6,2=d,@(1,3)N,4://O,#9\,!,//O,!,!~zf,?6,2:NH,-1:*/OH
+ Ph,|,-4=?6,2=d,@(1,3)N,4://O,#9\,!,//O,!,!~zf,|,?6,2:NH,-1:*/OH
)
endfont
%***********************************************************************
beginfont("EN:Mitomycine C")
MCf(^^30,
- ?6,$(3,6)dl,@(2,5)//O,1:/Me,-4=?5,1:N,#6:/NH2,-3=?5,-2=?3,-1=wb,-2=wf,-1:NH,
+ ?6,$(3,6)dl,@(2,5)//O,1:/Me,|,-4=?5,1:N,
+ #6:/NH2,|,-3=?5,|,-2=?3,-1=wb,-2=wf,-1:NH,
#8:/*OMe^35,#9\`1^17.9,!,O,!,//O,!,NH2
)
endfont
%***********************************************************************
beginfont("EN:Podophyllotoxin");
MCf(^^0,
- ?5,@(2,5)O,-3=ph2,-3=??6,-3=??5,-2:O,-1=wb,-3://O,
+ ?5,@(2,5)O,-3=ph2,-3=?6,-3=?5,-2:O,-1=wb,-3://O,
10\*,Ph,@(-2,-3,-4)/OMe,#13:/*OH,@(#11~wf^-60,#12~zf^60)/H
)
endfont;
%***********************************************************************
beginfont("EN:Warfarin");
MCf(^^30,
- Ph,3=??6,10:O,7:/OH,9://O,8\,/Ph`1,60,!,//O,!
+ Ph,3=?6,10:O,7:/OH,9://O,8\,/Ph`1,60,!,//O,!
)
endfont;
%***********************************************************************
beginfont("EN:Genistein");
MCf(^^30,
- Ph,3=??6,10:O,@(2,6)/OH,9://O,8\,Ph,-3:/OH
+ Ph,3=?6,10:O,@(2,6)/OH,9://O,8\,Ph,-3:/OH
)
endfont;
%***********************************************************************
beginfont("EN:Baicalein");
MCf(^^30,
- Ph,3=??6,10:O,@(1,2,6)/OH,9://O,8\,Ph
+ Ph,3=?6,10:O,@(1,2,6)/OH,9://O,8\,Ph
)
endfont;
%***********************************************************************
beginfont("EN:Baicalein");
MCf(^^30,
- Ph,3=??6,9=d,10:O,@(1,2,6)/OH,7://O,-2\,Ph
+ Ph,3=?6,9=d,10:O,@(1,2,6)/OH,7://O,-2\,Ph
)
endfont;
%***********************************************************************
beginfont("EN:Reserpine");
MCf(^^30,
- Ph,-4=??5,-2=??6,-4=??6,-3=??6,9=dl,11:N,7:NH,10:*/H^-60,
+ Ph,-4=?5,-2=?6,-4=?6,-3=?6,9=dl,11:N,7:NH,10:*/H^-60,
@(15^-60,16^60)/*H,
#20*\,O,!,//O,!,Ph,@(-2,-3,-4)/OMe,@(#1,#19~zf>rl)/OMe,
#18*\,//O,!,O,!
@@ -484,7 +484,7 @@ endfont;
%***********************************************************************
beginfont("EN:Rotenone");
MCf(^^-60,
- ?5,$(-3,-2,-3,-4)??6,$(7,9,-2,-4)dl,$(3,17)dr,
+ ?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)/OMe,1*\,/Me,!~dl
)
@@ -493,7 +493,7 @@ endfont;
beginfont("EN:Pyrethrin I");
MCf(^^30,
?3,@(3^35~wf,3^-35~zf)/Me,1*\,!~dl,iPr,
- 2\*,//O,!,O,-36~zb,?5,-2=d,-1:/Me,-3://O,
+ 2\*,//O,!,O,-36~zb,|,?5,-2=d,-1:/Me,-3://O,
-2\,!4,$(-1,-3)dl
)
endfont;
@@ -503,8 +503,8 @@ MCf(^^30,
{,``1,^^-120,60,60,60,-60,60,60,-60,60,60,60,-60,60,60,},&1,
14:O,13:/*Et,@(1,9)//O,@(2,10)*/Me,@(4,6^-35,8,12^35)/*Me,
@(6^35,11,12^-35)*/OH,
- #3\*,O,30,?6`.7,2:O,@(3,5^35)/Me,4:/OH,5^-35:/OMe,
- #5\*^30`1.7,O,!,?6`.7,6:O,5:/Me,2:/OH,3:/NMeMe
+ #3\*,O,30,|,?6`.7,2:O,@(3,5^35)/Me,4:/OH,5^-35:/OMe,
+ #5\*^30`1.7,O,!,|,?6`.7,6:O,5:/Me,2:/OH,3:/NMeMe
)
endfont;
%**********************************************************************
@@ -521,23 +521,23 @@ endfont
%**********************************************************************
beginfont("EN:Mevastatin")
MCf(^^30,
- ?6,2=d,4:*/H^60,,3=?6,2=d,9:*/Me,
- #10*\,!,60~wb,?6,6:O,-2://O,-4:/*OH,
+ ?6,2=d,4:*/H^60,|,-4=?6,2=dl,9:*/Me,
+ #10*\,!,60~wb,|,?6,6:O,-2://O,-4:/*OH,
#5\*,O,60,//O,!,*/Me,!2
)
endfont
%***********************************************************************
beginfont("EN:Sesamine")
MCf(^^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
+ ?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
)
endfont
%**********************************************************************
beginfont("EN:Morphine")
MCf(^^30,
- Ph,2=??6,-4=??6,(#1,#12)=??5[2],-1:O,-1=zb,
+ Ph,2=?6,-4=?6,(#1,#12)=?5[2],-1:O,-1=zb,
7*,60~wf`0.75,70~ov`1.3,45,N,/Me,&9~wb,
15=d,6:/OH,8^180:*/H,12:/*OH
)
@@ -545,7 +545,7 @@ endfont
%**********************************************************************
beginfont("EN:Capsaicin")
MCf(^^30,
- Ph,1:/OH,6:/OMe,4\,!,NH,!,//O,!8,-3=dr,-1:/Me
+ Ph,1:/OH,6:/OMe,4\,!,NH,!,//O,|,!8,-3=dr,-1:/Me
)
endfont
%***********************************************************************
@@ -553,14 +553,14 @@ beginfont("EN:Quinine")
MCf(^^30,
Ph,3=ph,7:N,6:/OMe,
10\,*/OH,/H~zf^-60,!,
- ?6,2:N,1:*/H^60,4*\,!~dr,2*,165~zf,60,&5~zb
+ |,?6,2:N,1:*/H^60,4*\,!~dr,2*,165~zf,60,&5~zb
)
endfont
%***********************************************************************
beginfont("EN:Atoropin")
MCf(^^-30,
O,!,//O,!,!,Ph,
- #1\~zb^-120,?7`1.1,6*\^190`1.25,N,/Me,&3~wb,
+ #1\~zb^-120,|,?7`1.1,6*\^190`1.25,N,/Me,&3~wb,
#3\~wv,!,OH
)
endfont