summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-02-15 22:12:27 +0000
committerKarl Berry <karl@freefriends.org>2016-02-15 22:12:27 +0000
commit1bcffdf948f1e58b348b76c3faae232242d01da3 (patch)
tree3054812196a17eb83458cb746fdd6465b834cf9a /Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf
parentc83d372fcf897fdd6cda8a02c32295bed1bd5974 (diff)
mcf2graph (14feb16)
git-svn-id: svn://tug.org/texlive/trunk@39732 c570f23f-e606-0410-a88d-b1316a301751
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.mf44
1 files changed, 33 insertions, 11 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 f8c5c68f772..8b05f557ab1 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 2016.02.11
+% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2016.02.14
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
input mcf2graph.mf;
%------------------------------------------------------------------------
@@ -13,6 +13,20 @@ sw_expand:=0;
sw_start_vector:=0;
%%%%%sw_checklist:=1;
%***********************************************************************
+beginfont("NO:1","EN:Chlorophyll a","MW:893.49","FM:C55H72MgN4O5")
+ sw_info_weight:=sw_info_formula:=1;
+ font_wd#:=110mm#;
+ font_ht#:=40mm#;
+ MCf(<54,
+ {,``1,?5,$(2,5)d,4:N,3\,54~dl,|,?5,$(2,4)d,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,},
+ 4\`1.45,Mg,&17,-1*,&11~vb,-1*,&23~vb,
+ @(2,9,15,20~zf)/Me,8:/Et,14\,!~dr,
+ 21*,-6~wf,!2,//O,!,O,!2,!~dl,|,!13,@(1,5,9,13)/Me,
+ )
+endfont
+%***********************************************************************
beginfont("EN:Chain")
sw_numberB:=1;
max_bond_width:=0.20;
@@ -53,12 +67,12 @@ beginfont("EN:Branch")
MCf(<30,!6,3\,!)
endfont
%***********************************************************************
-beginfont("EN:Connect")
+beginfont("EN:Connect bond")
sw_numberA:=1;
max_bond_width:=0.20;
ratio_chain_ring:=1;
sw_start_vector:=1;
- MCf(<30,!6,3*,0,!,&5)
+ MCf(<30,!6,3\,-60,&5)
endfont
%***********************************************************************
beginfont("EN:ring")
@@ -79,7 +93,12 @@ endfont
%***********************************************************************
beginfont("EN:change bond 2")
ratio_chain_ring:=1;
- MCf(<30,!9,1=vf,2=vb,3=tm,4=dt,5=wv,@(7~bd^-45`2,9~ov^45`2)/Me)
+ MCf(<30,!5,1=vf,2=vb,3=tm,4=dt,5=wv)
+endfont
+%***********************************************************************
+beginfont("EN:change bond 3")
+ ratio_chain_ring:=1;
+ MCf(<30,!5,@(3~bd^-45`2,5~ov^45`2)/Me)
endfont
%***********************************************************************
beginfont("EN:change bond length1")
@@ -204,7 +223,7 @@ endfont
%***********************************************************************
beginfont("EN:substituent 3")
sw_start_vector:=1;
- MCf(<30,!`1,/Me~zf`2^30,!`1,/Me~zf`2^30,!2`1,*/Pr>lr,!2`1,*/Pr>rl,!`1)
+ MCf(<30,``1,!,/Me~zf`2^30,!,/Me~zf`2^30,!2,*/Pr>lr,!2,*/Pr>rl,!)
endfont
%***********************************************************************
beginfont("EN:substituent 3")
@@ -489,15 +508,16 @@ endfont
%***********************************************************************
beginfont("EN:Local setting")
sw_mol_frame:=1;
- MCd(1,.5)(0.0,0.5)(<30,Ph) endfont
-beginfont() MCd(1,.5)(0.5,0.5)(<30,Ph) endfont
-beginfont() MCd(1,.5)(1.0,0.5)(<30,Ph) endfont
+ MCd(1,.4)(0.0,0.5)(Ph)
+endfont
+beginfont() MCd(1,.4)(0.5,0.5)(Ph) endfont
+beginfont() MCd(1,.4)(1.0,0.5)(Ph) endfont
%***********************************************************************
sw_mol_frame:=1;
beginfont("EN:Global setting")
- MCd(1,.5)(0.0,0.5)(<30,Ph) endfont
-beginfont() MCd(1,.5)(0.5,0.5)(<30,Ph) endfont
-beginfont() MCd(1,.5)(1.0,0.5)(<30,Ph) endfont
+ MCd(1,.4)(0.0,0.5)(Ph) endfont
+beginfont() MCd(1,.4)(0.5,0.5)(Ph) endfont
+beginfont() MCd(1,.4)(1.0,0.5)(Ph) endfont
sw_mol_frame:=0;
%***********************************************************************
%% Output molecular infomation
@@ -581,3 +601,5 @@ beginfont("EN:Paclitaxel")
endfont
%***********************************************************************
bye
+**************
+bye