From 5a993557f8f849481525f4d473d6c9f1da51981d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 26 May 2019 21:24:42 +0000 Subject: mcf2graph (26may19) git-svn-id: svn://tug.org/texlive/trunk@51227 c570f23f-e606-0410-a88d-b1316a301751 --- .../doc/metapost/mcf2graph/mcf_man_soc.mf | 141 ++++++++++++++------- 1 file changed, 97 insertions(+), 44 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 f0b051ade6b..65e65761a6d 100644 --- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf +++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_man_soc.mf @@ -1,7 +1,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2019.05.11 +% Molecular Coding Format file for mcf_manual.tex by Akira.Yamaji 2019.05.26 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -input mcf2graph.mf; %% it must be version 4.41 or later +input mcf2graph.mf; %% it must be version 4.42 or later %------------------------------------------------------------------------ sw_mframe:=0; sw_expand:=0; @@ -114,18 +114,12 @@ beginfont("EN:Chain 1") add( defaultscale:=0.5; labeloffset:=2bp; - drawarrow .7[B7s,B7e]{dir(B7dir-90)}..{dir(B1dir-90)}.7[B1s,B1e]; - label.ulft("-30",.7[B7s,B7e]); - drawarrow .7[B8s,B8e]{dir(B8dir+90)}..{dir(B2dir+90)}.7[B2s,B2e]; - label.llft("45",.7[B8s,B8e]); - drawarrow .7[B9s,B9e]{dir(B9dir-90)}..{dir(B3dir-90)}.7[B3s,B3e]; - label.ulft("-45",.7[B9s,B9e]); - drawarrow .7[B10s,B10e]{dir(B10dir+90)}..{dir(B4dir+90)}.7[B4s,B4e]; - label.llft("30",.7[B10s,B10e]); - drawarrow .7[B11s,B11e]{dir(B11dir-90)}..{dir(B5dir-90)}.7[B5s,B5e]; - label.ulft("-30",.7[B11s,B11e]); - drawarrow .7[B12s,B12e]{dir(B12dir+90)}..{dir(B6dir+90)}.7[B6s,B6e]; - label.llft("60",.7[B12s,B12e]); + drawarrow B7/*.7{B7right}..{B1right}B1/*.7; label.ulft("-30",B7/*.7); + drawarrow B8/*.7{B8left}..{B2left}B2/*.7; label.llft("45",B8/*.7); + drawarrow B9/*.7{B9right}..{B3right}B3/*.7; label.ulft("-45",B9/*.7); + drawarrow B10/*.7{B10left}..{B4left}B4/*.7; label.llft("30",B10/*.7); + drawarrow B11/*.7{B11right}..{B5right}B5/*.7; label.ulft("-30",B11/*.7); + drawarrow B12/*.7{B12left}..{B6left}B6/*.7; label.llft("60",B12/*.7); ) endfont %*********************************************************************** @@ -141,18 +135,12 @@ beginfont("EN:Chain 2") add( defaultscale:=0.5; labeloffset:=2bp; - drawarrow .7[B7s,B7e]{dir(B7dir-90)}..{dir(B1dir-90)}.7[B1s,B1e]; - label.ulft("-60",.7[B7s,B7e]); - drawarrow .7[B8s,B8e]{dir(B8dir+90)}..{dir(B2dir+90)}.7[B2s,B2e]; - label.llft("60",.7[B8s,B8e]); - drawarrow .7[B9s,B9e]{dir(B7dir-90)}..{dir(B3dir-90)}.7[B3s,B3e]; - label.ulft("-60",.7[B9s,B9e]); - drawarrow .7[B10s,B10e]{dir(B10dir+90)}..{dir(B4dir+90)}.7[B4s,B4e]; - label.llft("60",.7[B10s,B10e]); - drawarrow .7[B11s,B11e]{dir(B11dir-90)}..{dir(B5dir-90)}.7[B5s,B5e]; - label.ulft("-60",.7[B11s,B11e]); - drawarrow .7[B12s,B12e]{dir(B12dir+90)}..{dir(B6dir+90)}.7[B6s,B6e]; - label.llft("60",.7[B12s,B12e]); + drawarrow B7/*.7{B7right}..{B1right}B1/*.7; label.ulft("-60",B7/*.7); + drawarrow B8/*.7{B8left}..{B2left}B2/*.7; label.llft("60",B8/*.7); + drawarrow B9/*.7{B7right}..{B3right}B3/*.7; label.ulft("-60",B9/*.7); + drawarrow B10/*.7{B10left}..{B4left}B4/*.7; label.llft("60",B10/*.7); + drawarrow B11/*.7{B11right}..{B5right}B5/*.7; label.ulft("-60",B11/*.7); + drawarrow B12/*.7{B12left}..{B6left}B6/*.7; label.llft("60",B12/*.7); ) endfont %*********************************************************************** @@ -229,10 +217,8 @@ beginfont("EN:rotate 1") MC(``1,0,0,<90,0,<-90,0,0,{1,2,3,4,5}=vf, {3,4^180}:/_~dt) add( - drawarrow .7[B6s,B6e]{dir(B6dir+90)}..{dir(B3dir+90)}.7[B3s,B3e]; - label.urt("90",.7[B6s,B6e]); - drawarrow .7[B7s,B7e]{dir(B7dir-90)}..{dir(B4dir-90)}.7[B4s,B4e]; - label.urt("-90",.7[B7s,B7e]); + drawarrow B6/*.7{B6left}..{B3left}B3/*.7; label.urt("90",B6/*.7); + drawarrow B7/*.7{B7right}..{B4right}B4/*.7; label.urt("-90",B7/*.7); ) endfont %*********************************************************************** @@ -554,10 +540,10 @@ beginfont("EN:mangle") blength:=6mm; mangle:=0; MCat(0.2,0.5)(Ph) - add(drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);) + add(drawarrow((A1 shifted (aw,0)) rotated A1ang..A1);) mangle:=30; MCat(0.8,0.5)(Ph) - add(drawarrow((A1 shifted (aw,0)) rotated A1dir..A1);) + add(drawarrow((A1 shifted (aw,0)) rotated A1ang..A1);) endfont %*********************************************************************** beginfont("EN:blength=0") @@ -967,7 +953,7 @@ beginfont("EN:MCat()") for j=0 step 0.25 until 1: MCat(j,i)(Ph,4:N) add( - drawarrow((A1 shifted (aw,0)) rotated A1dir..A1); + drawarrow((A1+A1up**aw)..A1); label(decimal(mangle),p0+(0.5w,0.5h)); ) mangle:=mangle+15; @@ -976,19 +962,20 @@ beginfont("EN:MCat()") endfont %*********************************************************************** beginfont("EN:add()") - fsize:=(50mm,20mm); - msize:=(1,0.7); MCat(0,0.5)(<30,?6,3=dl,4:/CH3) - add( - label.top("+",A7); - drawarrow B3{dir(B3dir-90)}.. - {dir(B7dir+90)}0.4[B7s,B7e]; + fsize:=(70mm,20mm); + msize:=(1,0.85); MCat(0,0)(<30,Ph,3=dl,4:/NH2) + add(labeloffset:=.7aw; + label.top(lonepair 90,A7); + drawarrow (A7+up**1.2aw){A7left}..{B7right}B7/*0.3; + drawarrow B3m{B3right}..A3+(1.5aw,.5aw)..{A3down}A3; ) - msize:=(1,0.7); MCat(1,0.5)(<30,?6,4://CH3) - add( - labeloffset:=0bp; - label.lrt("+",A3); + MCat(1,0)(<30,?6,{1,5}=dl,4://NH2) + add(labeloffset:=.7aw; + label.top(plus,A7); + label.urt(minus,A3); + label(lonepair A3ang,A3+A3up**.7aw); ) - ext(drawdblarrow (0.4w,0.5h)..(0.55w,0.5h);) + ext(drawdblarrow (0.4w,0.4h)..(0.55w,0.4h);) endfont %*********************************************************************** beginfont("EN:ext()") @@ -1142,3 +1129,69 @@ beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") endfont %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% bye +%%%%%%%%%%%%%%%%%%% +bye +bye +5}:/_, + 4:*\^75,NH,!,//O,!,/*NH2,!,Ph) +endfont +%*************************************************************************** +beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") + fsize:=(60mm,15mm); + MC( + <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,/_,!, + ) +endfont +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +bye +%%%%%%%%%%%%%%%%%%% +bye +bye +12:\*^-15,O,60,//O,-60) +endfont +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +beginfont("EN:Ampicillin","MW:349.405") + fsize:=(60mm,15mm); + MC(<45,?4,-3=?5,2:N,7:S, + {3^45,4^-45}:/*H,1://O^15,5:/*COOH^-18,{6^35,6^-35}:/_, + 4:*\^75,NH,!,//O,!,/*NH2,!,Ph) +endfont +%*************************************************************************** +beginfont("EN:Cholesterol","CAS:57-88-5","FM:C27H46O","MW:386.65") + fsize:=(60mm,15mm); + MC( + <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,/_,!, + ) +endfont +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +bye +%%%%%%%%%%%%%%%%%%% +bye +bye + +bye +bye +bye +%%% +bye +bye +%%%%%%%%%%%%%%% +bye +bye +:@,18,/*_,-60,!3,/_,!, + ) +endfont +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +bye +%%%%%%%%%%%%%%%%%%% +bye +bye +%%%%%%% +bye +bye -- cgit v1.2.3