diff options
| author | Karl Berry <karl@freefriends.org> | 2016-05-02 01:29:10 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2016-05-02 01:29:10 +0000 |
| commit | d3e81aa32097675b1270931f573e8c751ad6b493 (patch) | |
| tree | 4eb6d7284523c33e707739d79017d803ec1d40bc /Master/texmf-dist/metapost | |
| parent | 4e14934276fc70a5afc031af94c8fda6b003a388 (diff) | |
mcf2graph (30apr16)
git-svn-id: svn://tug.org/texlive/trunk@40823 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost')
| -rw-r--r-- | Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf b/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf index af64639b040..c923e973f3a 100644 --- a/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf +++ b/Master/texmf-dist/metapost/mcf2graph/mcf2graph.mf @@ -1,5 +1,5 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% mcf2graph ver 3.90 Copyright (c) 2013-2016 Akira Yamaji +% mcf2graph ver 3.91 Copyright (c) 2013-2016 Akira Yamaji % % Permission is hereby granted, free of charge, to any person obtaining a copy of this software % and associated documentation files (the "Software"), to deal in the Software without restriction, @@ -30,7 +30,7 @@ % Set output checklist : mpost -s ahlength=2 FILENAME %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% tracingstats:=1; -message " This is mcf2graph ver 3.9 2016.4"; +message " This is mcf2graph ver 3.9 2016.5"; %------------------------------------------------------------------------------------------------- pair posB[],posA[],pairT,Ls,Le,pairA; numeric angB[],angA[],br_ang[],sB[],eB[],f_FON[],atom_w[],atom_h[],atom_d[],strA[],stkB[],stkA[], @@ -38,8 +38,8 @@ numeric angB[],angA[],br_ang[],sB[],eB[],f_FON[],atom_w[],atom_h[],atom_d[],strA comMC[][],parMC[][],stock_p[],cntMC[],colorA[],colorB[],tblN[],tblB[][],wtA[],sumA[], CH[],NH[],NO[],SO[],CCl[],CF[],CBr[],?[],![],Ph[]; path pA,pB,pC,pT; -string info[],tblA[],com_str[],var[],tag[],cal_FM,mp_log_name,inf_EN,inf_JN,inf_FM,cal_MW_str, - inf_USE,inf_EXA,inf_EXB,inf_str,aux_delimiter; +string info[],tblA[],com_str[],var[],tag[],cal_FM,mp_log_name,inf_EN,inf_JN,inf_FM, + inf_CAS,inf_USE,inf_EXA,inf_EXB,inf_str,cal_MW_str,aux_delimiter; picture atom_font[],chem_structure,temp_picture; %------------------------------------------------------------------------------------------------- sw_numberA:=sw_numberB:=sw_mol_frame:=sw_auxout:=sw_solid:=sw_expand:=sw_start_vector:=0; @@ -107,7 +107,7 @@ def restore_par(text t)= nA:=0; enddef; %------------------------------------------------------------------------------------------------- def beginfont(text s)= - inf_EN:=inf_JN:=inf_FM:=inf_USE:=inf_EXA:=inf_EXB:=""; + inf_EN:=inf_JN:=inf_FM:=inf_CAS:=inf_USE:=inf_EXA:=inf_EXB:=""; len_x:=len_y:=cntA:=inf_num:=inf_MW:=f_beginchar:=0; store_par(parameter_list); stock_wd#:=font_wd#; stock_ht#:=font_ht#; ratio_bond_width:=1/30; @@ -117,6 +117,7 @@ def beginfont(text s)= elseif substring (0,2) of list="EN": inf_EN:=substring (3,length(list)) of list; elseif substring (0,2) of list="JN": inf_JN:=substring (3,length(list)) of list; elseif substring (0,2) of list="FM": inf_FM:=substring (3,length(list)) of list; + elseif substring (0,3) of list="CAS": inf_CAS:=substring (4,length(list)) of list; elseif substring (0,3) of list="USE": inf_USE:=substring (4,length(list)) of list; elseif substring (0,3) of list="EXA": inf_EXA:=substring (4,length(list)) of list; elseif substring (0,3) of list="EXB": inf_EXB:=substring (4,length(list)) of list; fi |