From c66cf7e6ffaf1b7a6db25c8828d69b4b9a8577fb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 27 Sep 2015 21:27:13 +0000 Subject: barr (diagxy) (27sep15) git-svn-id: svn://tug.org/texlive/trunk@38479 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/barr/diagxy.tex | 30 ++++++++++++++++++++++----- 1 file changed, 25 insertions(+), 5 deletions(-) (limited to 'Master/texmf-dist/tex/generic/barr') diff --git a/Master/texmf-dist/tex/generic/barr/diagxy.tex b/Master/texmf-dist/tex/generic/barr/diagxy.tex index ad94c880851..255be7888c5 100644 --- a/Master/texmf-dist/tex/generic/barr/diagxy.tex +++ b/Master/texmf-dist/tex/generic/barr/diagxy.tex @@ -30,7 +30,7 @@ % you must have that package installed to load this one. \def\dated#1{\def\thedate{#1}}% -\dated{2011-06-18}% +\dated{2015-09-26}% \newcount\atcode \atcode=\catcode`\@% \catcode`\@=12% \input xy @@ -46,7 +46,7 @@ \wd\zerodotbox@=\z@ \ht\zerodotbox@=\z@ \dp\zerodotbox@=\z@ \catcode`\@=12 - +\newdir{ >>}{{}*!/-2.6667\jot/\dir{>>}} \newdir{ >}{{ }*!/-.9em/@{>}}% % \newdir{ (}{{ }*!/-.5em/@{(}}% \newdir^{ (}{{ }*!/-.5em/@^{(}}% @@ -54,7 +54,7 @@ \newdir{) }{!/.9em/@^{)}*{ }}% \newdir{ (}{{ }*!/-.5em/@^{(}}% \newdir{d}{\object{.}} -\newdir{into}{{ }*!/-.5em/@^{(}}% Usage: into-> +\newdir{into}{{ }*!/-1em/@^{(}}% Usage: into-> \newdimen\high% \newdimen\ul% @@ -1105,11 +1105,30 @@ {\iiixiipppppp(#1)|#2|/#3/<#4>{#5}}% {\iiixiipppppp(#1)|#2|/#3/<#4>{#5}<400>}}% + % \def\node#1(#2,#3)[#4]{% + % \expandafter\gdef\csname x@#1\endcsname{#2}% + % \expandafter\gdef\csname y@#1\endcsname{#3}% + % \expandafter\gdef\csname ob@#1\endcsname{#4}% + % \ignorespaces}% + % + % \newcount\xfinish% + % \newcount\yfinish% + % \def\arrow{\ifnextchar|{\arrowp}{\arrowp|a|}}% + % \def\arrowp|#1|{\ifnextchar/{\arrowpp|#1|}{\arrowpp|#1|/>/}}% + % \def\arrowpp|#1|/#2/[#3`#4;#5]{% + % \xfinish=\csname x@#4\endcsname% + % \yfinish=\csname y@#4\endcsname% + % \advance\xfinish by -\csname x@#3\endcsname% + % \advance\yfinish by -\csname y@#3\endcsname% + % \morphism(\csname x@#3\endcsname,\csname y@#3\endcsname)|#1|/{#2}/% + % <\xfinish,\yfinish>[\csname ob@#3\endcsname`\csname ob@#4\endcsname;#5]% + % }% + \def\node#1(#2,#3)[#4]{% \expandafter\gdef\csname x@#1\endcsname{#2}% \expandafter\gdef\csname y@#1\endcsname{#3}% \expandafter\gdef\csname ob@#1\endcsname{#4}% -\ignorespaces}% +\place(#2,#3)[#4]\ignorespaces}% \newcount\xfinish% \newcount\yfinish% @@ -1121,7 +1140,8 @@ \advance\xfinish by -\csname x@#3\endcsname% \advance\yfinish by -\csname y@#3\endcsname% \morphism(\csname x@#3\endcsname,\csname y@#3\endcsname)|#1|/{#2}/% -<\xfinish,\yfinish>[\csname ob@#3\endcsname`\csname ob@#4\endcsname;#5]% +<\xfinish,\yfinish>[\phantom{\csname ob@#3\endcsname}`\phantom{\csname +ob@#4\endcsname};#5]% }% -- cgit v1.2.3