From 4593763b43ad40700fc52e8126a547508ba41391 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 23 Aug 2015 21:43:38 +0000 Subject: mcf2graph (23aug15) git-svn-id: svn://tug.org/texlive/trunk@38188 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/metapost/mcf2graph/mcf_man_soc.mf | 192 ++++++++++++++++----- 1 file changed, 150 insertions(+), 42 deletions(-) (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf') 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 73c56ca6c5f..a54ac1373d1 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf @@ -1,5 +1,5 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2015.8.7 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2015.8.22 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% input mcf2graph.mf; %----------------------------------------------------------------------- @@ -8,7 +8,7 @@ font_ht#:=30mm#;% font height max_bond_width:=0.18; %----------------------------------------------------------------------- sw_logout:=0; -sw_frame:=0; +sw_mol_frame:=0; sw_expand:=0; sw_start_vector:=0; %%%%%sw_checklist:=1; @@ -217,43 +217,6 @@ beginfont("EN:Inline definition") MCf(^^30,!3,/'(!,/Me,!,OH),!3) endfont %*********************************************************************** -beginfont("EN:Switwch start vector") - sw_start_vector:=0; - MCd(.7,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F) - sw_start_vector:=1; - MCd(.7,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F) -endfont -%*********************************************************************** -beginfont("EN:Switwch numberingA") - sw_numberA:=1; - sw_start_vector:=1; - MCf(^^30,?6,-4=?6,-3\,!,?6,#10:/Et) -endfont -%*********************************************************************** -beginfont("EN:Switwch numberingB") - sw_numberB:=1; - sw_start_vector:=1; - MCf(^^30,?6,-4=?6,-3\,!,?6,#10:/Et) -endfont -%*********************************************************************** -beginfont("EN:Switwch Frame") - MCd(.7,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F) - sw_frame:=1; - MCd(.7,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F) -endfont -%*********************************************************************** -beginfont("EN:Switwch Solid ratio") - MCd(.7,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F) - sw_solid:=1; ratio_bond_width:=0.08; - MCd(.7,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F) -endfont -%*********************************************************************** -beginfont("EN:Switwch Expand") - MCd(.6,.6)(0, 0)(^^30,Ph,4:/COOH,3:/NH2) - sw_expand:=1; - MCd(.6,.6)(1, 1)(^^30,Ph,4:/COOH,3:/NH2) -endfont -%*********************************************************************** beginfont("EN:Ampicillin") MCf(^^45, ?4,2:N,2=??5,-1:S, @@ -291,13 +254,158 @@ beginfont("EN:Lycorine") ) endfont %*********************************************************************** -beginfont("EN:Gibberellin"); +beginfont("EN:Gibberellin A3"); MCf( ^^12,?6`1.3,3=??5,9=??7,12\^160`1.6,&8, 4\^155~zf`-1.2,O,55,//O^180`1,&2~zb, - 11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me, + 5=dl,11=wf,13=wb,7:/COOH,11://Me,1:*/OH,12:/*OH,2:*/Me, @(3^-60,9^60)*/H ) -endfont; +endfont +%*********************************************************************** +font_wd#:=30mm#;% +font_ht#:=20mm#;% +beginfont("EN:Font size") + sw_font_frame:=1; + MCf(^^30, + ?6,-4=??5,$(3,8)dl,@(2,6,7,9)N, + @(2,6,9)/Me,@(1,5)//O) +endfont +font_wd#:=60mm#; +font_ht#:=30mm#; +%*********************************************************************** +beginfont("EN:max_bond_width") + sw_mol_frame:=1; + max_bond_width:=0.10; + MCd(1,1)(0, .5)(^^30,Ph) + max_bond_width:=0.15; + MCd(1,1)(.33, .5)(^^30,Ph) + max_bond_width:=0.30; + MCd(1,1)(1, .5)(^^30,Ph) +endfont +%*********************************************************************** +beginfont("EN:ratio_thickness_bond") + ratio_thickness_bond:=0.005; + MCd(.6,.6)(0, .5)(^^30,Ph) + ratio_thickness_bond:=0.015; + MCd(.6,.6)(.5, .5)(^^30,Ph) + ratio_thickness_bond:=0.03; + MCd(.6,.6)(1, .5)(^^30,Ph) +endfont +%*********************************************************************** +beginfont("EN:ratio_char_bond") + ratio_char_bond:=1.0; + MCd(.6,.6)(0, .5)(^^30,?6,5:O,2:NH) + ratio_char_bond:=1.5; + MCd(.6,.6)(.5, .5)(^^30,?6,5:O,2:NH) + ratio_char_bond:=2.0; + MCd(.6,.6)(1, .5)(^^30,?6,5:O,2:NH) +endfont +%*********************************************************************** +beginfont("EN:ratio_bondgap_bond") + ratio_bondgap_bond:=0.10; + MCd(.6,.6)(0, .5)(^^30,Ph) + ratio_bondgap_bond:=0.15; + MCd(.6,.6)(.5, .5)(^^30,Ph) + ratio_bondgap_bond:=0.20; + MCd(.6,.6)(1, .5)(^^30,Ph) +endfont +%*********************************************************************** +beginfont("EN:ratio_atom_bond") + ratio_atom_bond:=0.25; + MCd(.6,.6)(0, .5)(^^30,?6,@(2,5)O) + ratio_atom_bond:=0.33; + MCd(.6,.6)(.5, .5)(^^30,?6,@(2,5)O) + ratio_atom_bond:=0.45; + MCd(.6,.6)(1, .5)(^^30,?6,@(2,5)O) +endfont +%*********************************************************************** +beginfont("EN:ratio_chain_ring") + ratio_chain_ring:= 0.4; + MCd(.6,.6)(0, .5)(^^30,?6,5:/Et) + ratio_chain_ring:= 0.66; + MCd(.6,.6)(.5, .5)(^^30,?6,5:/Et) + ratio_chain_ring:= 1; + MCd(.6,.6)(1, .5)(^^30,?6,5:/Et) +endfont +%*********************************************************************** +beginfont("EN:ratio_wedge_bond") + ratio_wedge_bond:=0.1; + MCd(.6,.6)(0, .5)(^^30,?6,5:*/Me) + ratio_wedge_bond:=0.15; + MCd(.6,.6)(.5, .5)(^^30,?6,5:*/Me) + ratio_wedge_bond:=0.2;; + MCd(.6,.6)(1, .5)(^^30,?6,5:*/Me) +endfont +%*********************************************************************** +beginfont("EN:ratio_zebra_gap") + ratio_zebra_gap:=0.06; + MCd(.6,.6)(0, .5)(^^30,Ph,5:/*Me`1) + ratio_zebra_gap:=0.12; + MCd(.6,.6)(.5, .5)(^^30,Ph,5:/*Me`1) + ratio_zebra_gap:=0.20; + MCd(.6,.6)(1, .5)(^^30,Ph,5:/*Me`1) +endfont +%*********************************************************************** +beginfont("EN:Switwch start vector") + sw_start_vector:=0; + MCd(.7,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F) + sw_start_vector:=1; + MCd(.7,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F) +endfont +%*********************************************************************** +beginfont("EN:Switwch numberingA") + sw_numberA:=1; + sw_start_vector:=1; + MCf(^^30,?6,-4=?6,-3\,!,?6,#10:/Et) +endfont +%*********************************************************************** +beginfont("EN:Switwch numberingB") + sw_numberB:=1; + sw_start_vector:=1; + MCf(^^30,?6,-4=?6,-3\,!,?6,#10:/Et) +endfont +%*********************************************************************** +beginfont("EN:Switwch font frame") + sw_font_frame:=1; + MCf(^^30,Ph,4:/Cl,3:/F) +endfont +%*********************************************************************** +beginfont("EN:Switwch molecular frame") + MCd(.7,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F) + sw_mol_frame:=1; + MCd(.7,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F) +endfont +%*********************************************************************** +%%beginfont("EN:Switwch atom frame") +%% sw_atom_frame:=1; +%% MCf(^^30,Ph,4:/COOH,3:/OH) +%%endfont +%*********************************************************************** +beginfont("EN:Switwch Solid ratio") + MCd(.7,.7)( 0, 0)(^^30,Ph,4:/Cl,3:/F) + sw_solid:=1; ratio_bond_width:=0.08; + MCd(.7,.7)( 1, 1)(^^30,Ph,4:/Cl,3:/F) +endfont +%*********************************************************************** +beginfont("EN:Switwch Expand") + MCd(.6,.6)(0, 0)(^^30,Ph,4:/COOH,3:/NH2) + sw_expand:=1; + MCd(.6,.6)(1, 1)(^^30,Ph,4:/COOH,3:/NH2) +endfont +%*********************************************************************** +beginfont("EN:MCd()") + sw_font_frame:=1; + sw_mol_frame:=1; + MCd(1,.8)(0.2,0.9)(^^30,Ph,2:/OH,5:/NH2) + sw_mol_frame:=1; + MCd(1,.8)(0.8,0.1)(^^30,Ph,2:/OH,5:/NH2) +endfont +%*********************************************************************** +beginfont("EN:MCf()") + sw_font_frame:=1; + sw_mol_frame:=1; + MCf(^^30,Ph,2:/OH,5:/NH2) +endfont %*********************************************************************** bye -- cgit v1.2.3