summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-05-02 01:29:10 +0000
committerKarl Berry <karl@freefriends.org>2016-05-02 01:29:10 +0000
commitd3e81aa32097675b1270931f573e8c751ad6b493 (patch)
tree4eb6d7284523c33e707739d79017d803ec1d40bc /Master/texmf-dist/metapost
parent4e14934276fc70a5afc031af94c8fda6b003a388 (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.mf11
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