summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/barr/diagxy.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/barr/diagxy.tex')
-rw-r--r--Master/texmf-dist/tex/generic/barr/diagxy.tex30
1 files changed, 25 insertions, 5 deletions
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]%
}%