summaryrefslogtreecommitdiff
path: root/graphics/mcf2graph/mcf_man_soc.mf
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-02-12 03:01:11 +0000
committerNorbert Preining <norbert@preining.info>2021-02-12 03:01:11 +0000
commitb787936c705583d07b90f96b1dbd90265937a80f (patch)
tree94045ee50adb3a5cbad26411f3d8a4bfbd66faa6 /graphics/mcf2graph/mcf_man_soc.mf
parentc455604f3592fd679d4b97637366bc9b5a5fef50 (diff)
CTAN sync 202102120301
Diffstat (limited to 'graphics/mcf2graph/mcf_man_soc.mf')
-rw-r--r--graphics/mcf2graph/mcf_man_soc.mf97
1 files changed, 45 insertions, 52 deletions
diff --git a/graphics/mcf2graph/mcf_man_soc.mf b/graphics/mcf2graph/mcf_man_soc.mf
index 84b9fc6bee..0f99177e28 100644
--- a/graphics/mcf2graph/mcf_man_soc.mf
+++ b/graphics/mcf2graph/mcf_man_soc.mf
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.01.31
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.02.11
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-input mcf2graph.mf; %% it must be version 4.56 or later
+input mcf2graph.mf; %% it must be version 4.57
message "mcf_man_soc 2021.01.31"; message "";
%------------------------------------------------------------------------
sw_mframe:=0;
@@ -12,7 +12,7 @@ sw_expand:=0;
%***********************************************************************
fsize:=(40mm,25mm);
blength:=6mm;
-%***************************************************************************
+%***********************************************************************
beginfont("EN:Glycine")
MC(<30,NH2,!2,COOH)
endfont
@@ -58,7 +58,7 @@ beginfont("EN:L-Tyrosine")
endfont
%***********************************************************************
beginfont("EN:L-Triptophan")
- MC(<30,NH2,!~wb,!,COOH,2:\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH)
+ MC(<30,NH2,!~wb,!,COOH,@2,\,!,<24,|,?5,-4=Ph,2=dr,5=dl,4:NH)
endfont
%***********************************************************************
beginfont("EN:L-Prorine")
@@ -66,7 +66,7 @@ beginfont("EN:L-Prorine")
endfont
%***********************************************************************
beginfont("EN:L-Glutamine")
- MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!,//O,!,NH2)
+ MC(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!,//O,!,NH2)
endfont
%***********************************************************************
beginfont("EN:L-Asparagine")
@@ -86,15 +86,15 @@ beginfont("EN:L-Lysine")
endfont
%***********************************************************************
beginfont("EN:L-Arginine")
- MC(<30,NH2,!~wb,!,COOH,2:\`1,!`1,!2,NH,!,//NH,!,NH2)
+ MC(<30,NH2,!~wb,!,COOH,@2,\`1,!`1,!2,NH,!,//NH,!,NH2)
endfont
%***********************************************************************
beginfont("EN:L-Hystidine")
- MC(<30,NH2,!~wb,!,COOH,2:\,!,|,?5,{1,3}=dl,3:N,5:NH)
+ MC(<30,NH2,!~wb,!,COOH,@2,\,!,|,?5,{1,3}=dl,3:N,5:NH)
endfont
%***********************************************************************
beginfont("EN:L-DOPA")
- MC(<30,NH2,!~wb,!,COOH,2:\,!,Ph,{-3,-4}:/OH)
+ MC(<30,NH2,!~wb,!,COOH,@2,\,!,Ph,{-3,-4}:/OH)
endfont
%***********************************************************************
beginfont("EN:Ornithine")
@@ -183,7 +183,7 @@ beginfont("EN:Jump and Branch")
sw_numberA:=1;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- MC(<-30,!6,3:@,0,!,5:@,-30)
+ MC(<-30,!6,@3,0,!,@5,-30)
endfont
%***********************************************************************
beginfont("EN:Jump and Branch")
@@ -193,7 +193,7 @@ beginfont("EN:Jump and Branch")
sw_trimming:=1;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- MC(<-30,!6,3:\,!)
+ MC(<-30,!6,@3,\,!)
endfont
%***********************************************************************
beginfont("EN:branch1")
@@ -204,7 +204,7 @@ beginfont("EN:branch1")
numberA_end:=10;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- MC(<30,!10,2:\,!,4:*\,!,6:\*,!,8:\\,!,10:*\*,!)
+ MC(<30,!10,@2,\,!,@4,*\,!,@6,\*,!,@8,\\,!,@10,*\*,!)
endfont
%***********************************************************************
beginfont("EN:branch2")
@@ -215,7 +215,7 @@ beginfont("EN:branch2")
numberA_end:=7;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- MC(<30,!6,2:\~dr,!,4:\`1.5,-90,6:@,15,-60)
+ MC(<30,!6,@2,\~dr,!,@4,\`1.5,-90,@6,15,-60)
endfont
%***********************************************************************
beginfont("EN:Connect atom")
@@ -225,7 +225,7 @@ beginfont("EN:Connect atom")
sw_numberA:=1;
ratio_chain_ring:=1;
%----------------------------------------------------------------------
- MC(<-30,!6,3:\,!3,6:#~bd,9@#4~bz)
+ MC(<-30,!6,@3,\,!3,&6~bd,@9,&4~bz)
endfont
%***********************************************************************
beginfont("EN:ring")
@@ -246,7 +246,7 @@ beginfont("EN:rotate 1")
numberB_end:=5;
defaultscale:=0.5;
labeloffset:=2bp;
- MC(``1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf,
+ MC(#1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf,
{3,4^180}:/_~dt)
add(
drawarrow B6/*.7{B6left}..{B3left}B3/*.7; label.urt("90",B6/*.7);
@@ -309,15 +309,15 @@ beginfont("EN:over line")
endfont
%***********************************************************************
beginfont("EN:change bond length1")
- fsize:=(60mm,12mm);
+ fsize:=(75mm,10mm);
sw_numberB:=1;
- MC(<-30,!2,!2`1.2,!2)
+ MC(<-30,!2,!4`1.2,!2)
endfont
%***********************************************************************
beginfont("EN:change bond length2")
- fsize:=(60mm,12mm);
+ fsize:=(75mm,10mm);
sw_numberB:=1;
- MC(<-30,!2,``1.2,!4)
+ MC(<-30,!2,#1.2,!4,##,!2)
endfont
%***********************************************************************
beginfont("EN:change ring length")
@@ -325,7 +325,7 @@ beginfont("EN:change ring length")
fmargin:=(2mm,2mm);
sw_trimming:=1;
sw_numberB:=1;
- MC(?6,4:\,?6`1.2)
+ MC(?6,@4,\,?6`1.2)
endfont
%***********************************************************************
beginfont("EN:Insert atom")
@@ -343,40 +343,40 @@ endfont
%***********************************************************************
beginfont("EN:change atom brock address 1")
fsize:=(70mm,15mm);
- MCat(0,.5)(?6,4:\,|,?6,2:O)
+ MCat(0,.5)(?6,@4,\,|,?6,2:O)
sw_numberA:=1;
msize:=(1,.88);
- MCat(1,.5)(?6,4:\,?6)
+ MCat(1,.5)(?6,@4,\,?6)
endfont
%***********************************************************************
beginfont("EN:change atom brock address 2")
fsize:=(70mm,15mm);
- MCat(0,.5)(?6,4:\,|,?6,||,2:N)
+ MCat(0,.5)(?6,@4,\,|,?6,||,2:N)
sw_numberA:=1;
msize:=(1,.88);
- MCat(1,.5)(?6,4:\,?6)
+ MCat(1,.5)(?6,@4,\,?6)
endfont
%***********************************************************************
beginfont("EN:change atom absolute address")
fsize:=(70mm,15mm);
- MCat(0,.5)(?6,4:\,?6,$2:N)
+ MCat(0,.5)(?6,@4,\,?6,$2:N)
sw_numberA:=1;
msize:=(1,.88);
- MCat(1,.5)(?6,4:\,?6)
+ MCat(1,.5)(?6,@4,\,?6)
endfont
%***********************************************************************
beginfont("EN:change atom relative adress")
fsize:=(70mm,15mm);
- MCat(0,.5)(?6,4:\,?6,-2:N)
+ MCat(0,.5)(?6,@4,\,?6,-2:N)
sw_numberA:=3;
msize:=(1,.88);
- MCat(1,.5)(?6,4:\,?6)
+ MCat(1,.5)(?6,@4,\,?6)
endfont
%***********************************************************************
beginfont("EN:Charged atom")
sw_trimming:=1;
- fsize:=(60mm,15mm);
- MC(<-30,!2,N[1],!2,O[-1],!2,&"-",!2,N,&"+"^180,!)
+ fsize:=(60mm,12mm);
+ MC(<-30,!2,N,??,"+",!2,S,"-"^180,!6,7:N,7:??,9:S,7:"+",9:"-"^180)
endfont
%***********************************************************************
beginfont("EN:fused ring")
@@ -392,7 +392,7 @@ beginfont("EN:change ring length")
fmargin:=(2mm,2mm);
sw_trimming:=1;
sw_numberB:=1;
- MC(?6,4:\,?6`1.2,5=?6,11=?6,
+ MC(?6,@4,\,?6`1.2,5=?6,11=?6,
{14,15,16,17,18,19,20,21,22,23}=bd,{5,11}=dt)
endfont
%-----------------------------------------------------------------------
@@ -443,7 +443,7 @@ beginfont("EN:Spiro ring ")
sw_numberA:=1;
numberA_end:=7;
ratio_chain_ring:=1;
- MC(<30,!6,4:@,?5)
+ MC(<30,!6,@4,?5)
endfont
%***********************************************************************
beginfont("EN:group 1")
@@ -461,7 +461,7 @@ endfont
beginfont("EN:group 3")
fsize:=(60mm,18mm);
sw_trimming:=1;
- MC(<-30,``1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!)
+ MC(<-30,#1,!2,/_`2^30,!2,/!2>lr,!2,/!2>rl,!)
endfont
%***********************************************************************
beginfont("EN:group 3")
@@ -532,13 +532,6 @@ beginfont("EN:methyl*2,isopropyl,tert-butyl")
MC(<30,!9`1,?!,!,??,!,2:??,4:/?!,6:/??!,8:/N?!)
endfont
%***********************************************************************
-beginfont("EN:Make brock")
- fsize:=(60mm,10mm);
-% sw_trimming:=1;
- sw_numberB:=1;
- MC(<-30,!2,|=1.2,!4,=|,!2)
-endfont
-%***********************************************************************
beginfont("EN:User definition")
fsize:=(60mm,15mm);
sw_trimming:=1;
@@ -1107,7 +1100,7 @@ defaultsize:=save_defaultsize;
beginfont("EN:Luciferin","MW:280.33")
fsize:=(60mm,20mm);
MC(
- <30,Ph,3=?5,8:\,?5,{9,16}=dl,
+ <30,Ph,3=?5,@8,\,?5,{9,16}=dl,
{9,14}:N,{7,11}:S,1:/OH,-2:*/COOH
)
endfont
@@ -1116,19 +1109,19 @@ beginfont("EN:Colchicine","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,!
+ @9,\,NH,!,//O,!
)
endfont
%***************************************************************************
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,||,
+ ?6,5=dl,@3,#1,36,45,45,45,45,##,
+ &($5),-4=?6,-4=?4,-1=wb,-3=wf,-1:O,||,
4:??,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
+ @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
%***************************************************************************
@@ -1144,9 +1137,9 @@ endfont
beginfont("EN:Gibberellin A3","MW:346.37");
fsize:=(60mm,20mm);
MC(
- <18,?5,3=?7,5=?6[12],8:@,160`1.3,3:#,
+ <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:#,
+ @5,40~zf`1,O,50,//O^180,&14~zb,
2:/COOH,7://_,13:*/OH,8:/*OH,
14:*/_,{1,4}:*/H^60
)
@@ -1156,9 +1149,9 @@ beginfont("EN:Quinine","MW:324.42")
fsize:=(60mm,25mm);
MC(
<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:#
+ @2,165~zf,60,&5~zb
)
endfont
%***************************************************************************
@@ -1189,7 +1182,7 @@ beginfont("EN:Ampicillin","MW:349.405")
fsize:=(60mm,90mm);
MCat(0.5,1)(<45,?4,-3=?5,2:N,7:S,
{3^45,4^-45}:/*H,1://O^15,5:/*COOH^-18,6:??,
- 4:*\^75,NH,!,//O,!,/*NH2,!,Ph)
+ @4,*\^75,NH,!,//O,!,/*NH2,!,Ph)
endfont
%***************************************************************************
beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65")
@@ -1198,7 +1191,7 @@ beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65")
<30,?6,{-4,-2}=?6,-4=?5,7=dl,
1:*/OH,{4,12}:*/_^60,9:*/H^60,
10:/*H^180,11:/*H^-60,17:/*H^-54,
- -1:@,18,/*_,-60,!3,?!
+ @-1,18,/*_,-60,!3,?!
)
endfont
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%