diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf')
-rw-r--r-- | Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf | 49 |
1 files changed, 20 insertions, 29 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf index 1561ec3b647..179f38de432 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf @@ -1,9 +1,9 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.07.18 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2021.08.01 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %% it must be version 4.69 +input mcf2graph.mf; %% it must be version 4.70 % ** use data base file 'mcf_data_base.mcf' -message "mcf_man_soc 2021.07.18"; message ""; +message "mcf_man_soc 2021.08.01"; message ""; %------------------------------------------------------------------------ sw_mframe:=0; sw_expand:=0; @@ -591,7 +591,7 @@ beginfont("EN:Move position") fsize:=(70mm,16mm); fmargin:=(2mm,1mm); sw_trimming:=1; - MC(<30,?6,@3,\,!3,//O,!,O,n_^60,@(6,1),H,p_^15) + MC(<30,?6,@3,\,!3,//O,!,O,n_^60,@$(6,1),H,p_^15) add(drawdot A1 withpen pencircle scaled 2bp; pickup pencircle scaled 0.1bp; for i=0 upto 6: @@ -1269,35 +1269,26 @@ beginfont("EN:Paclitaxel","MW:853.91", if check(mc)=0: MC(scantokens(mc)) fi endfont %*************************************************************************** -beginfont("EN:Lycorine","MW:287.31", - %----------------------------------------- - ": <30,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 ") - %----------------------------------------- +beginfont("EN:Maltose","MW:342.3", + %------------------------------------------------------ + ": #1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##, ", + ": {1^$-90,2^$90,3^$-90}:/OH`-.5,6^$90:/!OH`-.5, ", + ": @4,$-50~arc_lb`1,O,$50~arc_br`1,<$0, ", + ": |,#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##,", + ": {2^$90,3^$-90,4^$-90}:/OH`-.5,6^$90:/!OH`-.5 ") + %------------------------------------------------------ fsize:=(50mm,20mm); if check(mc)=0: MC(scantokens(mc)) fi endfont %*********************************************************************** -beginfont("EN:Gibberellin A3","MW:346.37", - %---------------------------------------- - ": <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, ", - ": 2:/COOH,7://_,13:*/OH,8:/*OH, ", - ": 14:*/_,{1,4}:*/H^60 ") - %---------------------------------------- - fsize:=(50mm,18mm); - if check(mc)=0: MC(scantokens(mc)) fi -endfont -%*************************************************************************** -beginfont("EN:Quinine","MW:324.42", - %---------------------------------------- - ": <30,Ph,3=Ph,7:N,6:/O!, ", - ": @10,\,*/OH,/H~zf^-60,!, ", - ": |,?6,2:N,1:*/H^60,4:*/!!, ", - ": @2,165~zf,60,&5~zb ") - %---------------------------------------- +beginfont("EN:Cellobiose","MW:342.3", + %------------------------------------------------------ + ": #1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##, ", + ": {1^$-90,2^$90,3^$-90}:/OH`-.5,6^$90:/!OH`-.5, ", + ": @4,$0~arc_ltr,O,$0~arc_lbr, ", + ": |,#1.25,-30~wf_r,30~bd_r`1,30~wb_r,120,O,30,&1,##,", + ": {2^$90,3^$-90,4^$-90}:/OH`-.5,6^$90:/!OH`-.5 ") + %------------------------------------------------------ fsize:=(50mm,20mm); if check(mc)=0: MC(scantokens(mc)) fi endfont |