diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex | 267 |
1 files changed, 135 insertions, 132 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex index 8c50cf9dc56..8fdb87a1527 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_manual.tex @@ -1,5 +1,5 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format manual by Akira Yamaji 2017.03.26 +% Molecular Coding Format manual by Akira Yamaji 2017.06.04 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \documentclass[a4paper]{article} %%%%\usepackage{graphicx} @@ -111,40 +111,40 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ %----------------------------------------------------------------------------- \subsubsection{Jump and branch bond} \begin{verbatim} - n* : Jump to An + n:@ : Jump to An ** An: atom number(-999<=n<=4095) - <30,!6,3*,0,!,5*,-30 + <30,!6,3:@,0,!,5:@,-30 \end{verbatim} \MCFstructure %------------------------------------ \begin{verbatim} - 3\ : 3*,0 + 3:\ : 3:@,0 - <30,!6,3\,! + <30,!6,3:\,! \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsubsection{Branch bond} \begin{verbatim} - 2\ : 2*,0 - 4*\ : 4*,0~wf - 6\* : 6*,0~zf - 8\\ : 8*,0~dm + 2:\ : 2:@,0 + 4:*\ : 4:@,0~wf + 6:\* : 6:@,0~zf + 8:\\ : 8:@,0~dm - <30,!8,2\,!,4*\,!,6\*,!,8\\,! + <30,!8,2:\,!,4:*\,!,6:\*,!,8:\\,! \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \begin{verbatim} - 2\~dr : 2*,0~dr - 4\`1.5 : 4*,0`1.5 - 6\^15 : 6*,0^15 + 2:\~dr : 2:@,0~dr + 4:\`1.5 : 4:@,0`1.5 + 6:\^15 : 6:@,0^15 <-30,!6, - 2\~dr,!, - 4\`1.5,-90, - 6\^15,-60 + 2:\~dr,!, + 4:\`1.5,-90, + 6:\^15,-60 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -152,7 +152,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \begin{verbatim} &n : Connect to An - <30,!6,3\,!,&5 + <30,!6,3:\,!,&5 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -168,7 +168,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \begin{verbatim} <angle : rotate current angle - 0,0,<90,0,<-90,0,0,$(1,2,3,4,5)vf + 0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -245,9 +245,9 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ %----------------------------------------------------------------------------- \subsubsection{Change multi bond type} \begin{verbatim} - $(2,4,6)dr : 2=dr,4=dr,6=dr + {2,4,6}=dr : 2=dr,4=dr,6=dr - <30,!7,$(2,4,6)dr + <30,!7,{2,4,6}=dr \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -259,7 +259,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ bd_ : broad over line <-30,!8,!,60,90`8, - @(2~si_,4~wf_,6~wb_,8~bd_)/_`2 + {2~si_,4~wf_,6~wb_,8~bd_}:/_`2 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -285,7 +285,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \begin{verbatim} ?n`length : change ring length - ?6,4\,?6`1.2 + ?6,4:\,?6`1.2 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -302,9 +302,9 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \subsubsection{Addressed atom} \begin{verbatim} 2:O : change A2 C to O - @(3,5)N : change A3,A5 C to N + {3,5}:N : change A3,A5 C to N - <30,!6,2:O,@(3,5)N + <30,!6,2:O,{3,5}:N \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -312,14 +312,14 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \begin{verbatim} | : divide brock - ?6,4\,|,?6,2:O + ?6,4:\,|,?6,2:O \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \begin{verbatim} || : reset brock adress - ?6,4\,|,?6,||,2:N + ?6,4:\,|,?6,||,2:N \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -328,7 +328,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ #2:N : change A#2 C to N ** #n : (1<=n<=3095) - ?6,4\,|,?6,#2:N + ?6,4:\,|,?6,#2:N \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -337,7 +337,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ -2:N : change A(-2) C to N ** -n : (1<=n<=999) - ?6,4\,?6,-2:N + ?6,4:\,?6,-2:N \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -355,7 +355,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ ** fused ring size depend on attached bond length - ?6,4\,?6`1.2,5=?6,11=?6 + ?6,4:\,?6`1.2,5=?6,11=?6 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -369,8 +369,8 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \MCFstructure %----------------------------------------------------------------------------- \begin{verbatim} - ?6,$(-3,-4,-4,-2,-2,-4,-4)?6 - ?6,$(4,8,13,20,25,28,33)?6 + ?6,{-3,-4,-4,-2,-2,-4,-4}=?6 + ?6,{4,8,13,20,25,28,33}=?6 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -397,8 +397,8 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ (16,4)=?5[2] : fuse 2/5 ring to B16..B4 ** ?m[n] (5<=m<=6,n=m-3) -1:MCd(1,.55)(0,0)(?6,$(3,10)?6,(16,4)=?6[3]) -2:MCd(1,.55)(1,0)(?6,$(3,10)?6,(16,4)=?5[2]) +1:MCd(1,.55)(0,0)(?6,{3,10}=?6,(16,4)=?6[3]) +2:MCd(1,.55)(1,0)(?6,{3,10}=?6,(16,4)=?5[2]) \end{verbatim} \MCFstructure \vspace{-3mm}% @@ -410,7 +410,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ \begin{verbatim} (21,4)=?6[2] : fuse 2/6 ring to B21..B4 - MCf(<-30,?6,$(3,10,15)?6,(21,4)=?6[2]) + MCf(<-30,?6,{3,10,15}=?6,(21,4)=?6[2]) ** ?m[n] (m=6,n=2) \end{verbatim} @@ -418,11 +418,11 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ %----------------------------------------------------------------------------- \subsubsection{Spiro ring} \begin{verbatim} - 4*,?5 : add ?5(5 membered ring) at A4 + 4:@,?5 : add ?5 at A4 - <30,!6,4*,?5 + <30,!6,4:@,?5 - An* : jump to An + An:@ : jump to An \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -477,7 +477,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ ~,^,` : change type,angle,length <-30,!6, - @(2~wf,4~zf,6^-30)/_ + {2~wf,4~zf,6^-30}:/_ \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -496,8 +496,8 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ >hz : horizontal enviroment (default) >vt : vertical enviroment - ?4,@(3^-90,3^-30,3^90)/'(!3,"{hz}")>hz, - @(1^-60,1`2,1^60)/'(!2,"{vt}")>vt + ?4,{3^-90,3^-30,3^90}:/'(!3,"{hz}")>hz, + {1^-60,1`2,1^60}:/'(!2,"{vt}")>vt \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -507,8 +507,8 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ >rl : right-left enviroment <30,!6, - @(3^-30,3,3^30)/'(!3,"{lr}")>lr, - @(5^-30,5,5^30)/'(!3,"{rl}")>rl + {3^-30,3,3^30}:/'(!3,"{lr}")>lr, + {5^-30,5,5^30}:/'(!3,"{rl}")>rl \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -517,8 +517,8 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ >45 : fixed angle enviroment >'(-90,90,-90) : multi angle enviroment - <-30,!6,@(2>45)/'(!3,"{45}"), - @(6>'(-90,90,-90))/'(!3,"{(-90,90,-90)}") + <-30,!6,2>45:/'(!3,"{45}"), + {6>'(-90,90,-90)}:/'(!3,"{(-90,90,-90)}") \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -536,11 +536,11 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ %----------------------------------------------------------------------------- \subsubsection{Change color} \begin{verbatim} - @(5)green : change color of A5 green - $(3)red : change color of B3 red + 5:green : change color of A5 green + 3=red : change color of B3 red ** METAFONT ignore color command - <30,Ph,@(2,5)N,2:red,5:blue,3=green + <30,Ph,{2,5}:N,2:red,5:blue,3=green \end{verbatim} %%%%\MCFstructure % for Metafont \includegraphics{mcf_man_soc-064.eps}% for dvipdfmx @@ -573,7 +573,7 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ iBuOH : user defined substructure iBuOH:='(!,/_,!,OH) - MCf(<30,?6,@(4,6)/iBuOH) + MCf(<30,?6,{4,6}:/iBuOH) \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -594,8 +594,8 @@ pk font,PNG,SVG,EPS or MDL MOL file(V2000).\\ beginfont("EN:Caffeine") font_wd:=30mm; %<==font width font_ht:=20mm; %<==font height - MCf(<30,?6,-4=?5,$(3,8)dl,@(2,6,7,9)N, - @(2,6,9)/_,@(1,5)//O) endfont + MCf(<30,?6,-4=?5,{3,8}=dl,{2,6,7,9}:N, + {2,6,9}:/_,{1,5}://O) endfont \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -1045,7 +1045,7 @@ beginfont() sw_solid:=1; %--------------------------------------- MCd(1,1)(0.1,0.5) - (<-210,60`1,60`1,60`1,$(1,3)dl, + (<-210,60`1,60`1,60`1,{1,3}=dl, 1:/R1,4:/R2^-60) ext( defaultscale:=0.6; @@ -1089,7 +1089,9 @@ endfont A[m]: atom position A[m]bra: branch angle of A[m] Bn: bond number - B[m]: bond position + B[m]: bond position(0.5[Bs[m],Be[m]]) + Bs[m]: bond start position + Be[m]: bond end position B[m]ang: bond angle %---------------------------------------- @@ -1100,7 +1102,8 @@ beginfont() MCd(1,0.7)(0,0.5)(<30,?6,3=dl,4:/CH3) ext( label.top("+",A7); - drawarrow B3..((B7-B3) scaled 0.7 + B7:=0.37[Bs7,Be7]; + drawarrow B3..((B7-B3) scaled 0.6 rotated -45 shifted B3)..B7; ) %--------------------------------------- @@ -1135,7 +1138,7 @@ drawarrow & drawdblarrow: \subsection{Acetamiprid} \begin{verbatim} <30,Ph,2:N,1:/Cl, - 4\,!,N,/_,!,/_,!!,N,!,CN + 4:\,!,N,/_,!,/_,!!,N,!,CN \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -1149,24 +1152,24 @@ drawarrow & drawdblarrow: \subsection{Permethrin} \begin{verbatim} <-30,?3,2^-35:*/_,2^35:/*_, - 1\,!!,/Cl,!,Cl, - 3\,//O,!,O,!2,|,Ph, - 3\,O,-60,Ph + 1:\,!!,/Cl,!,Cl, + 3:\,//O,!,O,!2,Ph, + -4:\,O,-60,Ph \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Endosulfan} \begin{verbatim} - <26,?7,7=?6[13],11*,208~wf`1.45,&8~wb, - 10=d,@(3,5)O,4:S,4://O, - @(8,9,10,11,12^-210,12^-150)/Cl + <26,?7,7=?6[13],11:@,208~wf`1.45,&8~wb, + 10=d,{3,5}:O,4:S,4://O, + {8,9,10,11,12^-210,12^-150}:/Cl \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Luciferin} \begin{verbatim} - <30,Ph,3=?5,8\,?5,$(9,16)d, - @(9,14)N,@(7,11)S, + <30,Ph,3=?5,8:\,?5,{9,16}=dl, + {9,14}:N,{7,11}:S, 1:/OH,-2:*/COOH \end{verbatim} \MCFstructure @@ -1175,36 +1178,36 @@ drawarrow & drawdblarrow: \begin{verbatim} <30,Ph,3=?6,8=dl, 10:O,7:/OH,9://O, - 8\,/Ph`1,60,!,//O,! + 8:\,/Ph`1,60,!,//O,! \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Limonin} \begin{verbatim} - <30,?6,$(-3,-4)?6,-5=?3, + <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 + {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 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Sesamine} \begin{verbatim} <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 + {4,7}:O,{1^-54,2^54}:*/H, + 5:*\^-12,Ph,-3=?5,{-1,-3}:O, + 8:*\^-12,Ph,-3=?5,{-1,-3}:O \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Colchicine} \begin{verbatim} - <30,Ph,@(1,2,6)/O!, + <30,Ph,{1,2,6}:/O!, -4=?7,-5=?7, - $(-1,-4,-6)dl,-2://O,-3:/O!, - 9\,NH,!,//O,! + {-1,-4,-6}=dl,-2://O,-3:/O!, + 9:\,NH,!,//O,! \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -1213,7 +1216,7 @@ drawarrow & drawdblarrow: <30,Ph, -4=?6,-2=?6,6=?5,(9,12)=?5[3], 13=dl, - 8:N,@(15,17)O, + 8:N,{15,17}:O, 9:/*H^180,10:*/H^60, 13:*/OH,14:/*OMe \end{verbatim} @@ -1222,68 +1225,68 @@ drawarrow & drawdblarrow: \subsection{Gibberellin} \begin{verbatim} <18,?5,3=?7,5=?6[12], - 8*,160`1.3,&3, + 8:@,160`1.3,&3, 13=dl,6=wf,8=wb, - 5*,40~zf`1,O,60,//O^180,&14~zb, + 5:@,40~zf`1,O,60,//O^180,&14~zb, 2:/COOH,7://_,13:*/OH,8:/*OH, - 14:*/_,@(1^60,4^60)*/H + 14:*/_,{1^60,4^60}:*/H \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Quinine} \begin{verbatim} <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 + 4:*\,!!, + 2:@,165~zf,60,&5~zb \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Atoropin} \begin{verbatim} <-30,O,!,//O,!,!,Ph, - #1\~zb^-120, - |,?7,6*\^190`1.02,N,/_,&3~wb, - #3\~wv,!,OH + #1:@,-120~zb, + |,?7,6:*\^190`1.02,N,/_,&3~wb, + #3:\~wv,!,OH \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Rotenone} \begin{verbatim} - <-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*\,/_,!! + <-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:*\,/_,!! \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Pyrethrin I} \begin{verbatim} - <30,?3,@(3^35~wf,3^-35~zf)/_, - 1*\,!!,iPr,2\*,//O,!,O,-36~zb,|, - ?5,-2=d,-1:/_,-3://O,-2\,!4,$(-1,-3)dl + <30,?3,{3^35~wf,3^-35~zf}:/_, + 1:*\,!!,iPr,2:\*,//O,!,O,-36~zb,|, + ?5,-2=d,-1:/_,-3://O,-2\,!4,{-1,-3}=dl \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Validamycin} \begin{verbatim} - <30,?6,@(5,6)/OH,3:/!OH>rl, - #4\,O,-60,|,?6,2:O,@(3,4,5)/OH,6:/!OH, - #1\,NH,!,|,?6,2=dl,@(4,5,6)/OH,3:/!OH + <30,?6,{5,6}:/OH,3:/!OH>rl, + #4:\,O,-60,|,?6,2:O,{3,4,5}:/OH,6:/!OH, + #1:\,NH,!,|,?6,2=dl,{4,5,6}:/OH,3:/!OH \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- \subsection{Paclitaxel} \begin{verbatim} - ?6,5=d,3*,|<,``1,36,45,45,45,45,>|,, + ?6,5=d,3:@,|<,``1,36,45,45,45,45,>|,, -4=?6,-4=?4,-1=wb,-3=wf,-1:O,||, - @(4^35,4^-35,6)/_,@(3^-60,15)*/OH, + {4^35,4^-35,6}:/_,{3^-60,15}:*/OH, 8:/*H^-60,9:*/_^60,10://O, - 1\,O,!,//O,!,*/OH,!,/Ph, + 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 + 7:\*,O,-45,//O,60,Ph,11:*\,O,-60,//O,60, + 12:\*^-15,O,60,//O,-60 \end{verbatim} \MCFstructure %----------------------------------------------------------------------------- @@ -1295,8 +1298,8 @@ drawarrow & drawdblarrow: input mcf2graph.mf; % input macro %------------------------------------------------------------------------- sw_auxout:=1; % aux(information) file output on > Gloval setting -font_wd:=60mm; % font width > -font_ht:=40mm; % font height > +font_wd:=60mm; % font width > +font_ht:=40mm; % font height > var3:="cal_MW"; tag3:="cMW"; > AUX file table var4:="cal_FM"; tag4:="cFM"; > %%%% sw_report:=1; > Report output @@ -1306,40 +1309,40 @@ outputtemplate:="%j-%3c.png"; > %------------------------------------------------------------------------- beginfont("NO:1","EN:Ampicillin") > begin font(information) MCf(<45,?4,2:N,2=?5,-1:S, > begin MCF (1) - @(3^45,4^-45)/*H,1://O^15,5:/*COOH^-18, > - @(6^35,6^-35)/_, > - 4\^75,NH,!,//O,!,/*NH,!,Ph) > end MCF + {3^45,4^-45}:/*H,1://O^15,5:/*COOH^-18, > + {6^35,6^-35}:/_, > + 4:@,75,NH,!,//O,!,/*NH,!,Ph) > end MCF endfont > end font %------------------------------------------------------------------------ beginfont("NO:2","EN:Cholesterol") > begin font(information) - MCf(<30,?6,$(-4,-2)?6,-4=?5,7=dl, > begin MCF (2) - 1:*/OH,@(4,12)*/_^60,9:*/H^60, > - 10:/*H^180,@(11,-1)/*H^-60, > - -1\^17,/*_,!4,/_,!) > end MCF + MCf(<30,?6,{-4,-2}=?6,-4=?5,7=dl, > begin MCF (2) + 1:*/OH,{4,12}:*/_^60,9:*/H^60, > + 10:/*H^180,{11,-1}:/*H^-60, > + -1:@,17,/*_,!4,/_,!) > end MCF endfont > end font %------------------------------------------------------------------------ beginfont("NO:3","EN:Limonin") > begin font(information) - MCf(<30,?6,$(-3,-4)?6, > begin MCF (3) + MCf(<30,?6,{-3,-4}=?6, > begin MCF (3) -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) > end MCF + {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) > end MCF endfont > end font %------------------------------------------------------------------------ beginfont("NO:4","EN:beta-carotene) > begin font(information) - MCf(<30,?6,3=dl,@(3,5^35,5^-35)/_, > begin MCF (4) - 4\,|,!18,$(1,3,5,7,9,11,13,15,17)dr, > - @(3,7,12,16)/_, > - |,?6,6=dl,@(6,2^35,2^-35)/_) > end MCF + MCf(<30,?6,3=dl,{3,5^35,5^-35}:/_, > begin MCF (4) + 4:\,|,!18,{1,3,5,7,9,11,13,15,17}=dr, > + {3,7,12,16}:/_, > + |,?6,6=dl,{6,2^35,2^-35}:/_) > end MCF endfont > end font %------------------------------------------------------------------------ beginfont("NO:5","EN:Gibberellin A3"); > begin font(information) MCf(<18,?5,3=?7,5=?6[12], > begin MCF (5) - 8*,160`1.3,&3,13=dl,6=wf,8=wb, > - 5*,40~zf`1,O,60,//O^180,&14~zb, > + 8:@,160`1.3,&3,13=dl,6=wf,8=wb, > + 5:@,40~zf`1,O,60,//O^180,&14~zb, > 2:/COOH,7://_,13:*/OH,8:/*OH, > - 14:*/_,@(1^60,4^60)*/H) > end MCF + 14:*/_,{1^60,4^60}:*/H) > end MCF endfont; > end font %------------------------------------------------------------------------ bye @@ -1546,12 +1549,12 @@ M END font_wd:=50mm; font_ht:=50mm; beginfont("NO:2","EN:Limonin","MW:470.51") MCf(<30, - ?6,$(-3,-4)?6, + ?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 + {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 ) endfont \end{mplibcode}\\ @@ -1560,10 +1563,10 @@ M END font_wd:=80mm; font_ht:=50mm; beginfont("NO:3","EN:beta-carotene","MW:536.87") MCf(<30, - ?6,3=dl,@(3,5^35,5^-35)/_, - 4\,|,!18,$(1,3,5,7,9,11,13,15,17)dr, - @(3,7,12,16)/_, - |,?6,6=dl,@(6,2^35,2^-35)/_ + ?6,3=dl,{3,5^35,5^-35}:/_, + 4:\,|,!18,{1,3,5,7,9,11,13,15,17}=dr, + {3,7,12,16}:/_, + |,?6,6=dl,{6,2^35,2^-35}:/_ ) endfont \end{mplibcode}\\ @@ -1572,10 +1575,10 @@ M END font_wd:=50mm; font_ht:=50mm; beginfont("NO:4","EN:Gibberellin A3","MW:346.37"); MCf(<18,?5,3=?7,5=?6[12], - 8*,160`1.3,&3,13=dl,6=wf,8=wb, - 5*,40~zf`1,O,60,//O^180,&14~zb, + 8:@,160`1.3,&3,13=dl,6=wf,8=wb, + 5:@,40~zf`1,O,60,//O^180,&14~zb, 2:/COOH,7://_,13:*/OH,8:/*OH, - 14:*/_,@(1^60,4^60)*/H + 14:*/_,{1^60,4^60}:*/H ) endfont; \end{mplibcode}\\ |