From d4c47140de27cad1436dd90b4363fb001354b34c Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 20 Feb 2022 21:13:58 +0000 Subject: mcf2graph (20feb22) git-svn-id: svn://tug.org/texlive/trunk@62101 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/metapost/mcf2graph/mcf_man_soc.mp | 176 ++++++++------------- 1 file changed, 70 insertions(+), 106 deletions(-) (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mp') diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mp b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mp index 5c53bc8fb4f..219f78c5a93 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mp +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mp @@ -1,9 +1,9 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2022.01.22 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2022.02.20 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph; %% it must be version 4.79 +input mcf2graph; %% it must be version 4.80 % ** use data base file 'mcf_data_base.mcf' -message "mcf_man_soc 2022.01.22"; message ""; +message "mcf_man_soc 2022.02.20"; message ""; %------------------------------------------------------------------------ sw_mframe:=0; sw_expand:=0; @@ -358,48 +358,48 @@ beginfigm("EN:Insert atom") MC(<-30,!2,O,!2,N,!2) endfigm %*********************************************************************** -beginfigm("EN:change atom") +beginfigm("EN:change atom",":<30,!5,2:O,{3:5}:N") fsize:=(70mm,10mm); msize:=(0.48,1); - MCat(0,0.5)(<30,!5,2:O,{3:5}:N) + MCat(0,0.5)(scantokens(mc)) sw_numbering:=Atom; - MCat(1,0.5)(<30,!5,2:O,{3:5}:N) + MCat(1,0.5)(scantokens(mc)) endfigm %*********************************************************************** -beginfigm("EN:change atom brock address 1") +beginfigm("EN:change atom brock address 1",":?6,@4,\,|,?6,2:O") fsize:=(70mm,14mm); fmargin:=(3mm,1.5mm); - MCat(0,.5)(?6,@4,\,|,?6,2:O) + MCat(0,.5)(scantokens(mc)) sw_numbering:=Atom; msize:=(1,.88); - MCat(1,.5)(?6,@4,\,?6) + MCat(1,.5)(scantokens(mc)) endfigm %*********************************************************************** -beginfigm("EN:change atom brock address 2") +beginfigm("EN:change atom brock address 2",":?6,@4,\,|,?6,||,2:N") fsize:=(70mm,14mm); fmargin:=(3mm,1.5mm); - MCat(0,.5)(?6,@4,\,|,?6,||,2:N) + MCat(0,.5)(scantokens(mc)) sw_numbering:=Atom; msize:=(1,.88); - MCat(1,.5)(?6,@4,\,?6) + MCat(1,.5)(scantokens(mc)) endfigm %*********************************************************************** -beginfigm("EN:change atom absolute address") +beginfigm("EN:change atom absolute address",":?6,@4,\,?6,$2:N") fsize:=(70mm,14mm); fmargin:=(3mm,1.5mm); - MCat(0,.5)(?6,@4,\,?6,$2:N) + MCat(0,.5)(scantokens(mc)) sw_numbering:=Atom; msize:=(1,.88); - MCat(1,.5)(?6,@4,\,?6) + MCat(1,.5)(scantokens(mc)) endfigm %*********************************************************************** -beginfigm("EN:change atom relative adress") +beginfigm("EN:change atom relative adress",":?6,@4,\,?6,-2:N") fsize:=(70mm,14mm); fmargin:=(3mm,1.5mm); - MCat(0,.5)(?6,@4,\,?6,-2:N) + MCat(0,.5)(scantokens(mc)) sw_numbering:=Atom; msize:=(1,.88); - MCat(1,.5)(?6,@4,\,?6) + MCat(1,.5)(scantokens(mc)) endfigm %*********************************************************************** beginfigm("EN:Charged atom") @@ -770,11 +770,11 @@ beginfigm("EN:fmargin") ) endfigm %*********************************************************************** -beginfigm("EN:offset_thickness") +beginfigm("EN:offset_thickness",":<30,Ph") fsize:=(60mm,12mm); - offset_thickness:=0.0pt; MCat(0.1,0.5)(<30,Ph) - offset_thickness:=0.2pt; MCat(0.55,0.5)(<30,Ph) - offset_thickness:=0.5pt; MCat(1,0.5)(<30,Ph) + offset_thickness:=0.0pt; MCat(0.1,0.5)(scantokens(mc)) + offset_thickness:=0.2pt; MCat(0.55,0.5)(scantokens(mc)) + offset_thickness:=0.5pt; MCat(1,0.5)(scantokens(mc)) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.0pt",(0,1bp)); label.urt("0.2pt",(0.36w,1bp)); @@ -782,14 +782,11 @@ beginfigm("EN:offset_thickness") ) endfigm %*********************************************************************** -beginfigm("EN:offset_bond_gap") +beginfigm("EN:offset_bond_gap",":<30,Ph") fsize:=(60mm,12mm); - offset_bond_gap:=0.0pt; - MCat(0.1, .5)(<30,Ph) - offset_bond_gap:=0.3pt; %<<== default - MCat(.55, .5)(<30,Ph) - offset_bond_gap:=1.0pt; - MCat(1, .5)(<30,Ph) + offset_bond_gap:=0.0pt; MCat(0.1, 0.5)(scantokens(mc)) + offset_bond_gap:=0.3pt; MCat(0.55,0.5)(scantokens(mc)) %<<== default + offset_bond_gap:=1.0pt; MCat(1, 0.5)(scantokens(mc)) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.0pt",(0,1bp)); label.urt("0.3pt",(0.36w,1bp)); @@ -799,12 +796,9 @@ endfigm %*********************************************************************** beginfigm("EN:offset_atom") fsize:=(60mm,12mm); - offset_atom:=0.0pt; - MCat(0.1, .5)(<30,?6,3:O) - offset_atom:=0.8pt; %<<== default - MCat(.55, .5)(<30,?6,3:O) - offset_atom:=2.0pt; - MCat(1, .5)(<30,?6,3:O) + offset_atom:=0.0pt; MCat(0.1, .5)(<30,?6,3:O) + offset_atom:=0.8pt; MCat(.55, .5)(<30,?6,3:O) %<<== default + offset_atom:=2.0pt; MCat(1, .5)(<30,?6,3:O) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.0pt",(0,1bp)); label.urt("0.8pt",(0.36w,1bp)); @@ -814,12 +808,9 @@ endfigm %*********************************************************************** beginfigm("EN:offset_wedge") fsize:=(60mm,12mm); - offset_wedge:=0.0pt; - MCat(0.1,0.5)(<30,?6,5:*/_) - offset_wedge:=0.4pt; %<<== default - MCat(0.55,0.5)(<30,?6,5:*/_) - offset_wedge:=1.0pt; - MCat(1, 0.5)(<30,?6,5:*/_) + offset_wedge:=0.0pt; MCat(0.1,0.5)(<30,?6,5:*/_) + offset_wedge:=0.4pt; MCat(0.55,0.5)(<30,?6,5:*/_) %<<== default + offset_wedge:=1.0pt; MCat(1, 0.5)(<30,?6,5:*/_) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.0pt",(0,1bp)); label.urt("0.4pt",(0.36w,1bp)); @@ -830,12 +821,9 @@ endfigm beginfigm("EN:max_blength") fsize:=(60mm,20mm); sw_frame:=sw_frame+Mol; - max_blength:=5mm; - MCat(0, .5)(<30,Ph) - max_blength:=8mm; - MCat(.4,.5)(<30,Ph) - max_blength:=10mm; - MCat(1, .5)(<30,Ph) %<<== default + max_blength:=5mm; MCat(0, .5)(<30,Ph) + max_blength:=8mm; MCat(.4,.5)(<30,Ph) + max_blength:=10mm; MCat(1, .5)(<30,Ph) %<<== default ext(defaultscale:=0.6; labeloffset:=1bp; label("5mm", (0.1w,0.5h)); label("8mm", (0.42w,0.5h)); @@ -845,12 +833,9 @@ endfigm %*********************************************************************** beginfigm("EN:ratio_thickness_bond") fsize:=(60mm,12mm); - ratio_thickness_bond:=0.005; - MCat(0.1,0.5)(<30,Ph) - ratio_thickness_bond:=0.015; %<<== default - MCat(.55,0.5)(<30,Ph) - ratio_thickness_bond:=0.03; - MCat(1, 0.5)(<30,Ph) + ratio_thickness_bond:=0.005; MCat(0.1,0.5)(<30,Ph) + ratio_thickness_bond:=0.015; MCat(.55,0.5)(<30,Ph) %<<== default + ratio_thickness_bond:=0.03; MCat(1, 0.5)(<30,Ph) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.005",(0,1bp)); label.urt("0.015",(0.36w,1bp)); @@ -860,12 +845,9 @@ endfigm %*********************************************************************** beginfigm("EN:ratio_char_bond") fsize:=(60mm,12mm); - ratio_char_bond:=1.0; - MCat(0, .5)(<30,?6,6:O,3:NH) - ratio_char_bond:=1.5; %<<== default - MCat(.5, .5)(<30,?6,6:O,3:NH) - ratio_char_bond:=2.0; - MCat( 1, .5)(<30,?6,6:O,3:NH) + ratio_char_bond:=1.0; MCat(0, .5)(<30,?6,6:O,3:NH) + ratio_char_bond:=1.5; MCat(.5, .5)(<30,?6,6:O,3:NH) %<<== default + ratio_char_bond:=2.0; MCat( 1, .5)(<30,?6,6:O,3:NH) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("1.0",(0,1bp)); label.urt("1.5",(0.36w,1bp)); @@ -875,12 +857,9 @@ endfigm %*********************************************************************** beginfigm("EN:ratio_bondgap_bond") fsize:=(60mm,12mm); - ratio_bondgap_bond:=0.10; - MCat(0.1, .5)(<30,Ph) - ratio_bondgap_bond:=0.15; %<<== default - MCat(.55, .5)(<30,Ph) - ratio_bondgap_bond:=0.20; - MCat(1 , .5)(<30,Ph) + ratio_bondgap_bond:=0.10; MCat(0.1, .5)(<30,Ph) + ratio_bondgap_bond:=0.15; MCat(.55, .5)(<30,Ph) %<<== default + ratio_bondgap_bond:=0.20; MCat(1 , .5)(<30,Ph) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.10",(0,1bp)); label.urt("0.15",(0.36w,1bp)); @@ -890,12 +869,9 @@ endfigm %*********************************************************************** beginfigm("EN:ratio_atom_bond") fsize:=(60mm,12mm); - ratio_atom_bond:=0.25; - MCat(0.1, .5)(<30,?6,3:O) - ratio_atom_bond:=0.33; %<<== default - MCat(.55, .5)(<30,?6,3:O) - ratio_atom_bond:=0.45; - MCat(1, .5)(<30,?6,3:O) + ratio_atom_bond:=0.25; MCat(0.1, .5)(<30,?6,3:O) + ratio_atom_bond:=0.33; MCat(.55, .5)(<30,?6,3:O) %<<== default + ratio_atom_bond:=0.45; MCat(1, .5)(<30,?6,3:O) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.25",(0,1bp)); label.urt("0.33",(0.36w,1bp)); @@ -905,12 +881,9 @@ endfigm %*********************************************************************** beginfigm("EN:ratio_wedge_bond") fsize:=(70mm,12mm); - ratio_wedge_bond:=0.1; - MCat(0.05, .5)(?6,4:*/_) - ratio_wedge_bond:=0.12; %<<== default - MCat(.55, .5)(?6,4:*/_) - ratio_wedge_bond:=0.2;; - MCat(1 , .5)(?6,4:*/_) + ratio_wedge_bond:=0.1; MCat(0.05,.5)(?6,4:*/_) + ratio_wedge_bond:=0.12; MCat(.55, .5)(?6,4:*/_) %<<== default + ratio_wedge_bond:=0.2; MCat(1 , .5)(?6,4:*/_) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.10",(0,1bp)); label.urt("0.12",(0.36w,1bp)); @@ -918,15 +891,12 @@ beginfigm("EN:ratio_wedge_bond") ) endfigm %*********************************************************************** -beginfigm("EN:ratio_atomgap_atom") +beginfigm("EN:ratio_atomgap_atom",":<30,!2`0.5,2:O") fsize:=(70mm,12mm); sw_frame:=sw_frame+Atom; - ratio_atomgap_atom:=0.00; - MCat(0, .5)(<30,!2`0.5,2:O) - ratio_atomgap_atom:=0.050; %<<== default - MCat(.5,.5)(<30,!2`0.5,2:O) - ratio_atomgap_atom:=0.12; - MCat(1, .5)(<30,!2`0.5,2:O) + ratio_atomgap_atom:=0.00; MCat(0, .5)(scantokens(mc)) + ratio_atomgap_atom:=0.050; MCat(.5,.5)(scantokens(mc)) %<<== default + ratio_atomgap_atom:=0.12; MCat(1, .5)(scantokens(mc)) ext(defaultscale:=0.75; labeloffset:=1bp; label.urt("0.00",(0.05w,1bp)); label.urt("0.05",(0.45w,1bp)); @@ -936,12 +906,9 @@ endfigm %*********************************************************************** beginfigm("EN:ratio_chain_ring") fsize:=(70mm,12mm); - ratio_chain_ring:= 0.4; - MCat(0.05, .5)(<30,?6,4:/!) - ratio_chain_ring:= 0.66; %<<== default - MCat(.45, .5)(<30,?6,4:/!) - ratio_chain_ring:= 1; - MCat(1, .5)(<30,?6,4:/!) + ratio_chain_ring:= 0.4; MCat(0.05,.5)(<30,?6,4:/!) + ratio_chain_ring:= 0.66; MCat(.45, .5)(<30,?6,4:/!) %<<== default + ratio_chain_ring:= 1; MCat(1, .5)(<30,?6,4:/!) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.40",(0,1bp)); label.urt("0.66",(0.3w,1bp)); @@ -949,14 +916,11 @@ beginfigm("EN:ratio_chain_ring") ) endfigm %*********************************************************************** -beginfigm("EN:ratio_hashgap_bond") +beginfigm("EN:ratio_hashgap_bond",":<30,!2,2:/*_`1.5") fsize:=(70mm,15mm); - ratio_hashgap_bond:=0.06; - MCat(0.08, .5)(<30,!2,2:/*_`1.5) - ratio_hashgap_bond:=0.12; %<<== default - MCat( .55, .5)(<30,!2,2:/*_`1.5) - ratio_hashgap_bond:=0.20; - MCat(1, .5)(<30,!2,2:/*_`1.5) + ratio_hashgap_bond:=0.06; MCat(0.08,.5)(scantokens(mc)) + ratio_hashgap_bond:=0.12; MCat( .55,.5)(scantokens(mc)) %<<== default + ratio_hashgap_bond:=0.20; MCat(1, .5)(scantokens(mc)) ext(defaultscale:=0.6; labeloffset:=1bp; label.urt("0.06",(0,1bp)); label.urt("0.12",(0.4w,1bp)); @@ -994,25 +958,25 @@ beginfigm("EN:Switwch trimming") MCat(.8,.7)(Ph) endfigm %*********************************************************************** -beginfigm("EN:Switwch Expand") +beginfigm("EN:Switwch Expand",":<30,Ph,4:/COOH,3:/NH2") fsize:=(60mm,20mm); - MCat(0, .5)(<30,Ph,4:/COOH,3:/NH2) + MCat(0, .5)(scantokens(mc)) sw_expand:=1; - MCat(1, .5)(<30,Ph,4:/COOH,3:/NH2) + MCat(1, .5)(scantokens(mc)) endfigm %*********************************************************************** -beginfigm("EN:Switwch abbreviate group") +beginfigm("EN:Switwch abbreviate group",":<30,Ph,4:/Cl,3:/F") fsize:=(60mm,12mm); - MCat(.15, .5)(<30,Ph,4:/Cl,3:/F) + MCat(.15, .5)(scantokens(mc)) sw_abbreviate:=Group; - MCat(.85, .5)(<30,Ph,4:/Cl,3:/F) + MCat(.85, .5)(scantokens(mc)) endfigm %*********************************************************************** -beginfigm("EN:Switwch abbreviate bondtype") +beginfigm("EN:Switwch abbreviate bondtype",":<30,Ph,4:/Cl,3:/F") fsize:=(60mm,12mm); - MCat(.15, .5)(<30,Ph,4:/Cl,3:/F) + MCat(.15, .5)(scantokens(mc)) sw_abbreviate:=Bond; - MCat(.85, .5)(<30,Ph,4:/Cl,3:/F) + MCat(.85, .5)(scantokens(mc)) endfigm %*********************************************************************** beginfigm("EN:Switwch font frame 1") -- cgit v1.2.3