From 4a23fdac9e5766745b1a5af526e474f05e801fc4 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 18 Feb 2020 22:30:45 +0000 Subject: dynkin-diagrams (18feb20) git-svn-id: svn://tug.org/texlive/trunk@53832 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/latex/dynkin-diagrams/README | 13 +- .../doc/latex/dynkin-diagrams/dynkin-diagrams.pdf | Bin 753222 -> 754077 bytes .../doc/latex/dynkin-diagrams/dynkin-diagrams.tex | 146 +- .../tex/latex/dynkin-diagrams/dynkin-diagrams.sty | 2232 +++++++++++++------- 4 files changed, 1498 insertions(+), 893 deletions(-) diff --git a/Master/texmf-dist/doc/latex/dynkin-diagrams/README b/Master/texmf-dist/doc/latex/dynkin-diagrams/README index ea0e6117c26..f9466ebdab2 100644 --- a/Master/texmf-dist/doc/latex/dynkin-diagrams/README +++ b/Master/texmf-dist/doc/latex/dynkin-diagrams/README @@ -1,11 +1,6 @@ -___________________________________ - - Dynkin diagrams - - v3.1415926535 - - 2 February 2020 -___________________________________ +Dynkin diagrams +v3.14159265358 +18 February 2020 Authors : Ben McKay Maintainer: Ben McKay @@ -13,8 +8,6 @@ E-mail : b.mckay@ucc.ie Licence : Released under the LaTeX Project Public License v1.3c or later, see http://www.latex-project.org/lppl.txt ----------------------------------------------------------------------- - Draws Dynkin, Coxeter, and Satake diagrams in LaTeX documents, using the TikZ package. diff --git a/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.pdf b/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.pdf index 6c5a374c378..c6b4dd5ee4d 100644 Binary files a/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.pdf and b/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.pdf differ diff --git a/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.tex b/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.tex index 22d55fdbd5d..f8809d567d4 100644 --- a/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.tex +++ b/Master/texmf-dist/doc/latex/dynkin-diagrams/dynkin-diagrams.tex @@ -1,6 +1,7 @@ \documentclass{amsart} \title[The Dynkin diagrams package]% -{The Dynkin diagrams package \\ Version 3.1415926535} +{The Dynkin diagrams package \\ +Version 3.14159265358} %% My name: \makeatletter \DeclareRobustCommand{\scotsMc}{\scotsMcx{c}} @@ -19,7 +20,7 @@ \author{Ben \scotsMc{}Kay} \address{School of Mathematical Sciences, University College Cork, Cork, Ireland} \email{b.mckay@ucc.ie} -\date{2 February 2020} +\date{18 February 2020} \usepackage{etex} \usepackage[T1]{fontenc} \usepackage[utf8]{inputenx} @@ -572,7 +573,10 @@ E6{1,1,1,1,1,1}{1,2,3,5,,4}, \dynkin[ edge/.style={blue!50,thick}, */.style=blue!50!red, - arrow color=red]{F}{4} + arrow style=red]{F}{4} +\end{tcblisting} +\begin{tcblisting}{title={Arrow shapes}} +\dynkin[arrow shape/.style={-{Stealth[blue,width=3mm]}}] F4 \end{tcblisting} \begin{tcblisting}{title={Edge lengths}} The Dynkin diagram of \(A_3\) is \dynkin[edge length=1.2]A3 @@ -1730,65 +1734,6 @@ The environment syntax is \verb!\begin{dynkinDiagram}! followed by the same para \multicolumn{2}{c}{continued \dots}\\ \endfoot \endlastfoot -\optionLabel{ceref}{\typ{true or false}}{false} -& whether to draw roots in a ``ceref'' style. \\ -\optionLabel{edge length}{\typ{number}cm}{.35cm} -& distance between nodes in the Dynkin diagram \\ -\optionLabel{edge/.style}{TikZ style data}{solid,draw=black,fill=white,thin} -& style of edges in the Dynkin diagram \\ -\optionLabel{edge label/.style}{TikZ style data}{text height=0,text depth=0,label distance=-2pt} -& style of edge labels in the Dynkin diagram, as found, for example, on some Coxeter diagrams \\ -\optionLabel{Kac}{\typ{true or false}}{false} -& whether to draw in the style of \cite{Kac:1990} \\ -\optionLabel{name}{\typ{string}}{anonymous} -& A name for the Dynkin diagram, with \texttt{anonymous} treated as a blank; see section~\ref{section:name}. \\ -\optionLabel{parabolic}{\typ{integer}}{0} -& A parabolic subgroup with specified integer, where the integer -is computed as \(n=\sum 2^{i-1} a_i\), \(a_i=0\) or \(1\), to say that root \(i\) is crossed, i.e. a noncompact root. \\ -\optionLabel{root radius}{\typ{number}cm}{.05cm} -& size of the dots and of the crosses in the Dynkin diagram \\ -\optionLabel{text style}{\typ{TikZ style data}}{scale=.7} -& Style for any labels on the roots. \\ -\optionLabel{mark}{\typ{o,O,t,x,X,*}}{*} -& default root mark \\ -\optionLabel{affine mark}{o,O,t,x,X,*}{*} -& default root mark for root zero in an affine Dynkin diagram \\ -\optionLabel{label}{true or false}{false} -& whether to label the roots according to the current labelling scheme. \\ -\optionLabel{label macro}{\typ{1-parameter \TeX{} macro}}{\texttt{\#1}} -& the current labelling scheme for roots. \\ -\optionLabel{label macro*}{\typ{1-parameter \TeX{} macro}}{\texttt{\#1}} -& the current labelling scheme for alternate roots. \\ -\optionLabel{label height}{\typ{1-parameter \TeX{} macro}}{b} -& the current maximal height of text labels for the roots, set by giving mathematics text of that height. \\ -\optionLabel{label depth}{\typ{1-parameter \TeX{} macro}}{g} -& the current maximal depth of text labels for the roots, set by giving mathematics text of that depth. \\ -\optionLabel{make indefinite edge}{\typ{edge pair \(i\)-\(j\) or list of such}}{\{\}} -& edge pair or list of edge pairs to treat as having indefinitely many roots on them. \\ -\optionLabel{indefinite edge ratio}{\typ{float}}{1.6} -& ratio of indefinite edge lengths to other edge lengths. \\ -\optionLabel{indefinite edge/.style}{\typ{TikZ style data}}{solid,draw=black,fill=white,thin,densely dotted} -& style of the dotted or dashed middle third of each indefinite edge. \\ -\optionLabel{backwards}{\typ{true or false}}{false} -& whether to reverse right to left. \\ -\optionLabel{upside down}{\typ{true or false}}{false} -& whether to reverse up to down. \\ -\optionLabel{arrows}{\typ{true or false}}{true} -& whether to draw the arrows that arise along the edges. \\ -\optionLabel{reverse arrows}{\typ{true or false}}{true} -& whether to reverse the direction of the arrows that arise along the edges. \\ -\optionLabel{fold}{\typ{true or false}}{true} -& whether, when drawing Dynkin diagrams, to draw them 2-ply. \\ -\optionLabel{ply}{\typ{0,1,2,3,4}}{0} -& how many roots get folded together, at most. \\ -\optionLabel{fold left}{\typ{true or false}}{true} -& whether to fold the roots on the left side of a Dynkin diagram. \\ -\optionLabel{fold right}{\typ{true or false}}{true} -& whether to fold the roots on the right side of a Dynkin diagram. \\ -\optionLabel{fold radius}{\typ{length}}{.3cm} -& the radius of circular arcs used in curved edges of folded Dynkin diagrams. \\ -\optionLabel{fold style/.style}{\typ{TikZ style data}}{solid,draw=black!40,fill=none,line width=radius} -& when drawing folded diagrams, style for the fold indicators. \\ \optionLabel{*/.style}{\typ{TikZ style data}}{solid,draw=black,fill=black} & style for roots like \dynkin{A}{*} \\ \optionLabel{o/.style}{\typ{TikZ style data}}{solid,draw=black,fill=white} @@ -1801,10 +1746,20 @@ is computed as \(n=\sum 2^{i-1} a_i\), \(a_i=0\) or \(1\), to say that root \(i\ & style for roots like \dynkin{A}{x} \\ \optionLabel{X/.style}{\typ{TikZ style data}}{solid,draw=black,thick,line cap=round} & style for roots like \dynkin{A}{X} \\ -\optionLabel{fold left style/.style}{\typ{TikZ style data}}{} -& style to override the \texttt{fold} style when folding roots together on the left half of a Dynkin diagram \\ -\optionLabel{fold right style/.style}{\typ{TikZ style data}}{} -& style to override the \texttt{fold} style when folding roots together on the right half of a Dynkin diagram \\ +\optionLabel{affine mark}{o,O,t,x,X,*}{*} +& default root mark for root zero in an affine Dynkin diagram \\ +\optionLabel{arrow shape/.style}{TikZ style data}{-\{Computer Modern Rightarrow[black]\}} +& shape of arrow heads for most Dynkin diagrams that have arrows.\\ +\optionLabel{arrow style}{TikZ style data}{black} +& set to override the default style for the arrows in nonsimply laced Dynkin diagrams, including length, width, line width and color \\ +\optionLabel{arrows}{\typ{true or false}}{true} +& whether to draw the arrows that arise along the edges. \\ +\optionLabel{backwards}{\typ{true or false}}{false} +& whether to reverse right to left. \\ +\optionLabel{ceref}{\typ{true or false}}{false} +& whether to draw roots in a ``ceref'' style. \\ +\optionLabel{Coxeter}{\typ{true or false}}{false} +& whether to draw a Coxeter diagram, rather than a Dynkin diagram. \\ \optionLabel{double edges}{\typ{}}{not set} & set to override the \texttt{fold} style when folding roots together in a Dynkin diagram, so that the foldings are indicated with double edges (like those of an \(F_4\) Dynkin diagram without arrows). \\ @@ -1820,12 +1775,63 @@ are indicated with double edges (like those of an \(F_4\) Dynkin diagram without \optionLabel{double fold right}{\typ{}}{not set} & set to override the \texttt{fold} style when folding roots together at the right side of a Dynkin diagram, so that the foldings are indicated with double edges (like those of an \(F_4\) Dynkin diagram without arrows), but filled in solidly. \\ -\optionLabel{arrow color}{\typ{}}{black} -& set to override the default color for the arrows in nonsimply laced Dynkin diagrams. \\ -\optionLabel{Coxeter}{\typ{true or false}}{false} -& whether to draw a Coxeter diagram, rather than a Dynkin diagram. \\ +\optionLabel{edge label/.style}{TikZ style data}{text height=0,text depth=0,label distance=-2pt} +& style of edge labels in the Dynkin diagram, as found, for example, on some Coxeter diagrams \\ +\optionLabel{edge length}{\typ{number}cm}{.35cm} +& distance between nodes in the Dynkin diagram \\ +\optionLabel{edge/.style}{TikZ style data}{solid,draw=black,fill=white,thin} +& style of edges in the Dynkin diagram \\ +\optionLabel{fold}{\typ{true or false}}{true} +& whether, when drawing Dynkin diagrams, to draw them 2-ply. \\ +\optionLabel{fold left}{\typ{true or false}}{true} +& whether to fold the roots on the left side of a Dynkin diagram. \\ +\optionLabel{fold radius}{\typ{length}}{.3cm} +& the radius of circular arcs used in curved edges of folded Dynkin diagrams. \\ +\optionLabel{fold right}{\typ{true or false}}{true} +& whether to fold the roots on the right side of a Dynkin diagram. \\ +\optionLabel{fold left style/.style}{\typ{TikZ style data}}{} +& style to override the \texttt{fold} style when folding roots together on the left half of a Dynkin diagram \\ +\optionLabel{fold right style/.style}{\typ{TikZ style data}}{} +& style to override the \texttt{fold} style when folding roots together on the right half of a Dynkin diagram \\ +\optionLabel{fold style/.style}{\typ{TikZ style data}}{solid,draw=black!40,fill=none,line width=radius} +& when drawing folded diagrams, style for the fold indicators. \\ +\optionLabel{indefinite edge ratio}{\typ{float}}{1.6} +& ratio of indefinite edge lengths to other edge lengths. \\ +\optionLabel{indefinite edge/.style}{\typ{TikZ style data}}{solid,draw=black,fill=white,thin,densely dotted} +& style of the dotted or dashed middle third of each indefinite edge. \\ +\optionLabel{Kac}{\typ{true or false}}{false} +& whether to draw in the style of \cite{Kac:1990} \\ +\optionLabel{label}{true or false}{false} +& whether to label the roots according to the current labelling scheme. \\ +\optionLabel{label macro}{\typ{1-parameter \TeX{} macro}}{\texttt{\#1}} +& the current labelling scheme for roots. \\ +\optionLabel{label macro*}{\typ{1-parameter \TeX{} macro}}{\texttt{\#1}} +& the current labelling scheme for alternate roots. \\ +\optionLabel{label height}{\typ{1-parameter \TeX{} macro}}{b} +& the current maximal height of text labels for the roots, set by giving mathematics text of that height. \\ +\optionLabel{label depth}{\typ{1-parameter \TeX{} macro}}{g} +& the current maximal depth of text labels for the roots, set by giving mathematics text of that depth. \\ +\optionLabel{make indefinite edge}{\typ{edge pair \(i\)-\(j\) or list of such}}{\{\}} +& edge pair or list of edge pairs to treat as having indefinitely many roots on them. \\ +\optionLabel{mark}{\typ{o,O,t,x,X,*}}{*} +& default root mark \\ +\optionLabel{name}{\typ{string}}{anonymous} +& A name for the Dynkin diagram, with \texttt{anonymous} treated as a blank; see section~\ref{section:name}. \\ \optionLabel{ordering}{\typ{Adams, Bourbaki, Carter, Dynkin, Kac}}{Bourbaki} & which ordering of the roots to use in exceptional root systems as in section~\ref{section:order}. \\ +\optionLabel{parabolic}{\typ{integer}}{0} +& A parabolic subgroup with specified integer, where the integer +is computed as \(n=\sum 2^{i-1} a_i\), \(a_i=0\) or \(1\), to say that root \(i\) is crossed, i.e. a noncompact root. \\ +\optionLabel{ply}{\typ{0,1,2,3,4}}{0} +& how many roots get folded together, at most. \\ +\optionLabel{reverse arrows}{\typ{true or false}}{true} +& whether to reverse the direction of the arrows that arise along the edges. \\ +\optionLabel{root radius}{\typ{number}cm}{.05cm} +& size of the dots and of the crosses in the Dynkin diagram \\ +\optionLabel{text style}{\typ{TikZ style data}}{scale=.7} +& Style for any labels on the roots. \\ +\optionLabel{upside down}{\typ{true or false}}{false} +& whether to reverse up to down. \\ \end{longtable} \par\noindent{}All other options are passed to TikZ. diff --git a/Master/texmf-dist/tex/latex/dynkin-diagrams/dynkin-diagrams.sty b/Master/texmf-dist/tex/latex/dynkin-diagrams/dynkin-diagrams.sty index 4a5f69c3acd..f408a1658e8 100644 --- a/Master/texmf-dist/tex/latex/dynkin-diagrams/dynkin-diagrams.sty +++ b/Master/texmf-dist/tex/latex/dynkin-diagrams/dynkin-diagrams.sty @@ -1,23 +1,20 @@ +% The Dynkin Diagrams package. % -% The Dynkin Diagrams package. -% -% Version 3.1415926535 -% -% -% This package draws Dynkin diagrams in LaTeX documents, using the TikZ package. -% Please see the file dynkin-diagrams.tex for examples of use of this package. -% -% Benjamin McKay -% b.mckay@ucc.ie -% -% Released under the LaTeX Project Public License v1.3c or later, see -% http://www.latex-project.org/lppl.txt -% +% Version 3.14159265358 % +% This package draws Dynkin diagrams in LaTeX +% documents, using the TikZ package. +% Please see the file dynkin-diagrams.tex +% for examples of use of this package. % +% Benjamin McKay +% b.mckay@ucc.ie % +% Released under the LaTeX Project Public License v1.3c or later, see +% http://www.latex-project.org/lppl.txt \NeedsTeXFormat{LaTeX2e}[1994/06/01] -\ProvidesPackage{dynkin-diagrams}[2020/02/02 Dynkin diagrams] +\ProvidesPackage{dynkin-diagrams}[2020/02/18 Dynkin diagrams] +\RequirePackage{etex} \RequirePackage{tikz} \RequirePackage{xstring} \RequirePackage{xparse} @@ -42,22 +39,15 @@ %%% Application programming interface: %%% See dynkin-diagrams.tex file for examples of use. %%% - - \ifx\draw@lie@hasse@root\undefined \pgfdeclarelayer{background} \pgfdeclarelayer{Dynkin behind} -%\pgfdeclarelayer{Dynkin middle} -%\pgfdeclarelayer{Dynkin above} -\pgfsetlayers{background,Dynkin behind,%Dynkin middle,Dynkin above, -main} +\pgfsetlayers{background,Dynkin behind,main} \fi - \newif\ifold@dynkin@is@backwards \newif\ifold@dynkin@is@upsidedown \newif\ifold@dynkin@is@extended \newif\ifold@dynkin@label@the@roots - \NewDocumentCommand\dynkin@save{}% {% \xdef\dynkin@ply@value{1}% @@ -67,7 +57,6 @@ main} {\global\dynkin@is@twistedfalse}% \ifdynkin@label@the@roots\global\old@dynkin@label@the@rootstrue\else\global\old@dynkin@label@the@rootsfalse\fi% }% - \NewDocumentCommand\dynkin@restore{}% {% \ifold@dynkin@is@backwards\global\dynkin@is@backwardstrue\else\global\dynkin@is@backwardsfalse\fi% @@ -75,7 +64,6 @@ main} \ifold@dynkin@is@extended\global\dynkin@is@extendedtrue\else\global\dynkin@is@extendedfalse\fi% \ifold@dynkin@label@the@roots\global\dynkin@label@the@rootstrue\else\global\dynkin@label@the@rootsfalse\fi% }% - \NewDocumentEnvironment{dynkinDiagram}{O{}mO{0}m}% {% \dynkin@save{}% @@ -231,9 +219,7 @@ main} {7}{\xdef\dynkin@label@direction{below right}}% }% }% - -\newcount\rpo% - +\newcount\dynkin@rpo% \NewDocumentCommand\drlap{m}% {% \IfStrEq{\dynkin@label@direction}{left}% @@ -250,8 +236,6 @@ main} }% }% }% - - %% \dynkinLabelRoot{}{} or \dynkinLabelRoot*{}{} %% Prints the label string on the Dynkin diagram at root number , in the current ordering convention. %% Starred form uses the alternate label location. @@ -270,14 +254,14 @@ main} {% }% {% - \rpo=#2\relax% - \advance\rpo by 1\relax% + \dynkin@rpo=#2\relax% + \advance\dynkin@rpo by 1\relax% \IfBooleanTF{#1}% {% - \StrMid{\dynkin@label@directions@star}{\the\rpo}{\the\rpo}[\dynkin@direction@letter]% + \StrMid{\dynkin@label@directions@star}{\the\dynkin@rpo}{\the\dynkin@rpo}[\dynkin@direction@letter]% }% {% - \StrMid{\dynkin@label@directions}{\the\rpo}{\the\rpo}[\dynkin@direction@letter]% + \StrMid{\dynkin@label@directions}{\the\dynkin@rpo}{\the\dynkin@rpo}[\dynkin@direction@letter]% }% \dynkin@translate@direction{\dynkin@direction@letter}% \IfBooleanTF{#1}% @@ -303,8 +287,6 @@ main} }% }% }% - - \newcounter{dynkinRootNo} \NewDocumentCommand\@dynkinLabelThisRoot{m}% {% @@ -316,8 +298,6 @@ main} \stepcounter{dynkinRootNo}% \dynkinLabelRoot*{\arabic{dynkinRootNo}}{#1}% }% - - \NewDocumentCommand\dynkinLabelRoots{sm}% {% \ifdefined\filldraw\else\dynkin@error@not@in@tikz\fi% @@ -350,23 +330,38 @@ main} \NewDocumentCommand\dynkinBrace{somm}%[text]{start}{end} {% \ifdefined\filldraw\else\dynkin@error@not@in@tikz\fi% + \IfBooleanTF{#1}% + {% + \xdef\braceYshift{1mm}% + }% + {% + \xdef\braceYshift{-1mm}% + }% \draw[% decoration=% {% brace, - \IfBooleanF{#1}{mirror}, - raise=0.05cm, - },% + \IfBooleanF{#1}{mirror}, + raise=0.05cm, + },% decorate]% - ($(root #3)-({\dynkin@root@radius},\IfBooleanTF{#1}{{-\dynkin@root@radius}}{{\dynkin@root@radius}})$) + ($(root #3)-({\dynkin@root@radius}, + \IfBooleanTF{#1}% + {{-\dynkin@root@radius}}% + {{\dynkin@root@radius}}% + )$) -- - ($(root #4)+({\dynkin@root@radius},\IfBooleanTF{#1}{{\dynkin@root@radius}}{{-\dynkin@root@radius}})$) + ($(root #4)+({\dynkin@root@radius}, + \IfBooleanTF{#1}% + {{\dynkin@root@radius}}% + {{-\dynkin@root@radius}}% + )$) node% [% - pos=0.5,% + pos=0.5,% anchor=\IfBooleanTF{#1}{south}{north},% - yshift=\IfBooleanTF{#1}{1mm}{-1mm},% - /Dynkin diagram/text style% + yshift=\braceYshift,% + /Dynkin diagram/text style% ]% {\IfValueT{#2}{\(#2\)}};% }% @@ -431,7 +426,7 @@ main} \(\pgfkeys{/Dynkin diagram/label macro*=#3}\)% }% ] - at ($.5*(\dynkin@root@name \the\@fromRoot)+.5*(\dynkin@root@name \the\@toRoot)$) + at ($.5*(\dynkin@root@name \the\@dynkin@from@root)+.5*(\dynkin@root@name \the\@dynkin@to@root)$) {}; }% @@ -459,9 +454,9 @@ main} \convertRootNumber{#3}% }% {% - \RootNumber=#3\relax% + \dynkin@Root@Number=#3\relax% }% - \dynkinDrawCrossRootMark[#2]{\dynkin@root@name \the\RootNumber}% + \dynkinDrawCrossRootMark[#2]{\dynkin@root@name \the\dynkin@Root@Number}% }% %% \dynkinHeavyCrossRootMark{} @@ -475,16 +470,16 @@ main} \convertRootNumber{#3}% }% {% - \RootNumber=#3\relax% + \dynkin@Root@Number=#3\relax% }% \draw[/Dynkin diagram,X,#2]% - ($(\dynkin@root@name \the\RootNumber)+(\dynkin@root@radius,\dynkin@root@radius)$)% + ($(\dynkin@root@name \the\dynkin@Root@Number)+(\dynkin@root@radius,\dynkin@root@radius)$)% --% - ($(\dynkin@root@name \the\RootNumber)-(\dynkin@root@radius,\dynkin@root@radius)$);% + ($(\dynkin@root@name \the\dynkin@Root@Number)-(\dynkin@root@radius,\dynkin@root@radius)$);% \draw[/Dynkin diagram,X,#2]% - ($(\dynkin@root@name \the\RootNumber)+(-\dynkin@root@radius,\dynkin@root@radius)$)% + ($(\dynkin@root@name \the\dynkin@Root@Number)+(-\dynkin@root@radius,\dynkin@root@radius)$)% --% - ($(\dynkin@root@name \the\RootNumber)+(\dynkin@root@radius,-\dynkin@root@radius)$);% + ($(\dynkin@root@name \the\dynkin@Root@Number)+(\dynkin@root@radius,-\dynkin@root@radius)$);% }% @@ -499,9 +494,9 @@ main} \convertRootNumber{#3}% }% {% - \RootNumber=#3\relax% + \dynkin@Root@Number=#3\relax% }% - \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\RootNumber) circle (\dynkin@root@radius);% + \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\dynkin@Root@Number) circle (\dynkin@root@radius);% }% %% \dynkinDoubleHollowRootMark{} @@ -515,10 +510,10 @@ main} \convertRootNumber{#3}% }% {% - \RootNumber=#3\relax% + \dynkin@Root@Number=#3\relax% }% - \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\RootNumber) circle (2*\dynkin@root@radius);% - \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\RootNumber) circle (\dynkin@root@radius);% + \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\dynkin@Root@Number) circle (2*\dynkin@root@radius);% + \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\dynkin@Root@Number) circle (\dynkin@root@radius);% }% \NewDocumentCommand\dynkinDrawSolidRootMark{O{}m}% @@ -538,10 +533,10 @@ main} \convertRootNumber{#3}% }% {% - \RootNumber=#3\relax% + \dynkin@Root@Number=#3\relax% }% - \dynkinDrawSolidRootMark[#2]{\dynkin@root@name \the\RootNumber}% -% \fill[/Dynkin diagram,*,#2] (\dynkin@root@name \the\RootNumber) circle (\dynkin@root@radius);% + \dynkinDrawSolidRootMark[#2]{\dynkin@root@name \the\dynkin@Root@Number}% +% \fill[/Dynkin diagram,*,#2] (\dynkin@root@name \the\dynkin@Root@Number) circle (\dynkin@root@radius);% }% %% \dynkinTensorRootMark{} @@ -555,17 +550,17 @@ main} \convertRootNumber{#3}% }% {% - \RootNumber=#3\relax% + \dynkin@Root@Number=#3\relax% }% - \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\RootNumber) circle ({\dynkin@root@radius});% + \fill[/Dynkin diagram,o,#2] (\dynkin@root@name \the\dynkin@Root@Number) circle ({\dynkin@root@radius});% \draw[/Dynkin diagram,t,#2]% - ($(\dynkin@root@name \the\RootNumber)+({\dynkin@root@radius/sqrt(2)},{\dynkin@root@radius/sqrt(2)})$)% + ($(\dynkin@root@name \the\dynkin@Root@Number)+({\dynkin@root@radius/sqrt(2)},{\dynkin@root@radius/sqrt(2)})$)% --% - ($(\dynkin@root@name \the\RootNumber)-({\dynkin@root@radius/sqrt(2)},{\dynkin@root@radius/sqrt(2)})$);% + ($(\dynkin@root@name \the\dynkin@Root@Number)-({\dynkin@root@radius/sqrt(2)},{\dynkin@root@radius/sqrt(2)})$);% \draw[/Dynkin diagram,t,#2]% - ($(\dynkin@root@name \the\RootNumber)+({-\dynkin@root@radius/sqrt(2)},{\dynkin@root@radius/sqrt(2)})$)% + ($(\dynkin@root@name \the\dynkin@Root@Number)+({-\dynkin@root@radius/sqrt(2)},{\dynkin@root@radius/sqrt(2)})$)% --% - ($(\dynkin@root@name \the\RootNumber)+({\dynkin@root@radius/sqrt(2)},{-\dynkin@root@radius/sqrt(2)})$);% + ($(\dynkin@root@name \the\dynkin@Root@Number)+({\dynkin@root@radius/sqrt(2)},{-\dynkin@root@radius/sqrt(2)})$);% }% % \dynkinRootMark{}{} @@ -619,14 +614,14 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,#2] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) -- - ($(\dynkin@root@name \the\@toRoot)$);% + ($(\dynkin@root@name \the\@dynkin@to@root)$);% \end{pgfonlayer}% }% @@ -642,22 +637,22 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,#2] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) -- - (${(2/3)}*(\dynkin@root@name \the\@fromRoot)+{(1/3)}*(\dynkin@root@name \the\@toRoot)$);% + (${(2/3)}*(\dynkin@root@name \the\@dynkin@from@root)+{(1/3)}*(\dynkin@root@name \the\@dynkin@to@root)$);% \draw[/Dynkin diagram,indefinite edge,#2] - (${(2/3)}*(\dynkin@root@name \the\@fromRoot)+{(1/3)}*(\dynkin@root@name \the\@toRoot)$) + (${(2/3)}*(\dynkin@root@name \the\@dynkin@from@root)+{(1/3)}*(\dynkin@root@name \the\@dynkin@to@root)$) -- - (${(1/3)}*(\dynkin@root@name \the\@fromRoot)+{(2/3)}*(\dynkin@root@name \the\@toRoot)$);% + (${(1/3)}*(\dynkin@root@name \the\@dynkin@from@root)+{(2/3)}*(\dynkin@root@name \the\@dynkin@to@root)$);% \draw[/Dynkin diagram,edge,#2] - (${(1/3)}*(\dynkin@root@name \the\@fromRoot)+{(2/3)}*(\dynkin@root@name \the\@toRoot)$) + (${(1/3)}*(\dynkin@root@name \the\@dynkin@from@root)+{(2/3)}*(\dynkin@root@name \the\@dynkin@to@root)$) -- - ($(\dynkin@root@name \the\@toRoot)$);% + ($(\dynkin@root@name \the\@dynkin@to@root)$);% \end{pgfonlayer}% }% @@ -702,15 +697,15 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% -% \convertRootPair{\@fromRoot}{\@toRoot}% +% \convertRootPair{\@dynkin@from@root}{\@dynkin@to@root}% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram/fold style,#2] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) to - ($(\dynkin@root@name \the\@toRoot)$); + ($(\dynkin@root@name \the\@dynkin@to@root)$); \end{pgfonlayer}% }% @@ -726,12 +721,12 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:0:\dynkin@fold@radius);% \end{pgfonlayer}% }% @@ -747,10 +742,10 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \node (center) at ($(\dynkin@root@name \the\@fromRoot)-(0,\dynkin@fold@radius)$) {};% + \node (center) at ($(\dynkin@root@name \the\@dynkin@from@root)-(0,\dynkin@fold@radius)$) {};% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2] (center) @@ -778,12 +773,12 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (-90:0:\dynkin@fold@radius);% \end{pgfonlayer}% }% @@ -799,10 +794,10 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \node (center) at ($(\dynkin@root@name \the\@fromRoot)+(0,\dynkin@fold@radius)$) {};% + \node (center) at ($(\dynkin@root@name \the\@dynkin@from@root)+(0,\dynkin@fold@radius)$) {};% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2] (center) @@ -831,12 +826,12 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:180:\dynkin@fold@radius);% \end{pgfonlayer}% }% @@ -852,10 +847,10 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \node (center) at ($(\dynkin@root@name \the\@fromRoot)-(0,\dynkin@fold@radius)$) {};% + \node (center) at ($(\dynkin@root@name \the\@dynkin@from@root)-(0,\dynkin@fold@radius)$) {};% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2] (center) @@ -883,12 +878,12 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}% \draw[/Dynkin diagram,edge,fill=none,#2] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) arc (-90:-180:\dynkin@fold@radius);% \end{pgfonlayer}% }% @@ -904,10 +899,10 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \node (center) at ($(\dynkin@root@name \the\@fromRoot)+(0,\dynkin@fold@radius)$) {};% + \node (center) at ($(\dynkin@root@name \the\@dynkin@from@root)+(0,\dynkin@fold@radius)$) {};% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,fill=none,#2] (center) @@ -936,12 +931,12 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,fill=none,#2] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) arc (90:-90:\dynkin@fold@radius);% \end{pgfonlayer}% }% @@ -957,10 +952,10 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \node (center) at ($(\dynkin@root@name \the\@fromRoot)-(0,\dynkin@fold@radius)$) {};% + \node (center) at ($(\dynkin@root@name \the\@dynkin@from@root)-(0,\dynkin@fold@radius)$) {};% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,fill=none,#2] (center) @@ -989,23 +984,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:0:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[ + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (0:45:{\dynkin@fold@radius});% \else% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[ + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:45:{\dynkin@fold@radius});% \fi% \fi% @@ -1025,21 +1022,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (180:90:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]},tips] - ($(\dynkin@root@name \the\@toRoot)$)% + \path[% + /Dynkin diagram/arrow shape, + tips] + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (90:135:{\dynkin@fold@radius});% \else% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]},tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + \path[ + /Dynkin diagram/arrow shape, + tips] + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (180:135:{\dynkin@fold@radius});% \fi% \fi% @@ -1059,23 +1060,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (0:90:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (90:45:{\dynkin@fold@radius});% \else% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (0:45:{\dynkin@fold@radius});% \fi% \fi% @@ -1097,25 +1100,27 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% -- - ($(\dynkin@root@name \the\@toRoot)+(-\dynkin@fold@radius,\dynkin@fold@radius)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)+(-\dynkin@fold@radius,\dynkin@fold@radius)$)% arc (-180:-90:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (-90:-135:{\dynkin@fold@radius});% \else% - \path[-{Computer Modern Rightarrow [\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (180:225:{\dynkin@fold@radius});% \fi% \fi% @@ -1135,23 +1140,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (270:360:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (0:-45:\dynkin@fold@radius);% \else% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (270:315:\dynkin@fold@radius);% \fi% \fi% @@ -1170,24 +1177,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:180:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (180:{180-45}:{\dynkin@fold@radius});% \else% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:135:{\dynkin@fold@radius});% \fi% \fi% @@ -1207,25 +1215,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (360:270:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (-90:-45:{\dynkin@fold@radius});% \else% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (360:315:{\dynkin@fold@radius});% \fi% \fi% @@ -1246,24 +1254,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (-90:-180:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% - \path[-{Computer Modern Rightarrow[\dynkin@arrow@color]}, + \path[% + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (-180:-135:\dynkin@fold@radius);% \else% \path[, - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (-90:-135:\dynkin@fold@radius);% \fi% \fi% @@ -1283,25 +1292,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:-90:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (-90:0:\dynkin@fold@radius);% \else% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:0:\dynkin@fold@radius);% \fi% \fi% @@ -1311,10 +1320,10 @@ main} -%% \dynkinDefiniteTripleDownRightSemiCircle{

}{} -%% Draws a semi circle from root

to root on the current Dynkin diagram in the current label ordering -%% as a triple path. -%% The starred form accepts

and in the Bourbaki ordering. +%%% \dynkinDefiniteTripleDownRightSemiCircle{

}{} +%%% Draws a semi circle from root

to root on the current Dynkin diagram in the current label ordering +%%% as a triple path. +%%% The starred form accepts

and in the Bourbaki ordering. \NewDocumentCommand\dynkinDefiniteTripleDownRightSemiCircle{sO{}mm}% {% \ifdefined\filldraw\else\dynkin@error@not@in@tikz\fi% @@ -1323,8 +1332,8 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram, @@ -1334,23 +1343,23 @@ main} fill=none, {Straight Barb[length=1pt]}-{Straight Barb[length=1pt]}, #2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:-90:{\dynkin@fold@radius});% \draw[/Dynkin diagram,edge,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:-90:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (-90:0:\dynkin@fold@radius);% \else% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (90:0:\dynkin@fold@radius);% \fi% \fi% @@ -1372,25 +1381,25 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,double,fill=none,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (-90:90:{\dynkin@fold@radius});% \ifdynkin@arrows% \ifdynkin@reverse@arrows% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% arc (90:0:\dynkin@fold@radius);% \else% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, ,tips] - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% arc (-90:0:\dynkin@fold@radius);% \fi% \fi% @@ -1408,11 +1417,13 @@ main} \IfBooleanTF{#1}% {% \convertRootPair{#4}{#5}% - \dynkin@is@edge@indefinite{\@fromRoot}{\@toRoot}% + \dynkin@is@edge@indefinite{\@dynkin@from@root}{\@dynkin@to@root}% \ifdynkin@is@indefinite@edge% - \csname dynkinIndefinite#3\endcsname[#2]{\@fromRoot}{\@toRoot}% + \csname dynkinIndefinite#3\endcsname[#2]% + {\@dynkin@from@root}{\@dynkin@to@root}% \else% - \csname dynkinDefinite#3\endcsname[#2]{\@fromRoot}{\@toRoot}% + \csname dynkinDefinite#3\endcsname[#2]% + {\@dynkin@from@root}{\@dynkin@to@root}% \fi% }% {% @@ -1437,68 +1448,106 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \begin{pgfonlayer}{Dynkin behind}%% \ifdynkin@reverse@arrows% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, tips] - ($(\dynkin@root@name \the\@toRoot)$) + ($(\dynkin@root@name \the\@dynkin@to@root)$) -- - ($.3*(\dynkin@root@name \the\@toRoot)+.7*(\dynkin@root@name \the\@fromRoot)$);% + ($.3*(\dynkin@root@name \the\@dynkin@to@root)% + +.7*(\dynkin@root@name \the\@dynkin@from@root)$);% \else% \path[ - -{Computer Modern Rightarrow[\dynkin@arrow@color]}, + /Dynkin diagram/arrow shape, tips] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) -- - ($.3*(\dynkin@root@name \the\@fromRoot)+.7*(\dynkin@root@name \the\@toRoot)$);% + ($.3*(\dynkin@root@name \the\@dynkin@from@root)+% + .7*(\dynkin@root@name \the\@dynkin@to@root)$);% \fi% \end{pgfonlayer}%% \fi% }% - \NewDocumentCommand\dynkinKacDoubleArrow{O{}mm}% {% - \draw[arrows = {-{Triangle Cap[length=.8mm,fill=white]}},% - /Dynkin diagram,edge,double=white,fill=white,double distance=1.8pt,#1]% + \draw[ + arrows = {-{Triangle Cap[length=.8mm,fill=white]}},% + /Dynkin diagram, + edge, + double=white, + fill=white, + double distance=1.8pt, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% - \draw[arrows = {-{Classical TikZ Rightarrow[length=1mm]}},% - /Dynkin diagram,edge,double distance=1.8pt,#1]% + \draw[ + arrows = {-{Classical TikZ Rightarrow[length=1mm]}},% + /Dynkin diagram, + edge, + double distance=1.8pt, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% }% - \NewDocumentCommand\dynkinKacTripleArrow{O{}mm}% {% - \draw[arrows = {-{Triangle Cap[length=.8mm,fill=white]}},% - /Dynkin diagram,edge,double=white,fill=white,double distance=1.8pt,#1]% + \draw[ + arrows = {-{Triangle Cap[length=.8mm,fill=white]}},% + /Dynkin diagram, + edge, + double=white, + fill=white, + double distance=1.8pt, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% - \draw[arrows = {-{Classical TikZ Rightarrow[length=1mm]}},% - /Dynkin diagram,edge,double distance=1.8pt,#1]% + \draw[ + arrows = {-{Classical TikZ Rightarrow[length=1mm]}},% + /Dynkin diagram, + edge, + double distance=1.8pt, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% - \draw[/Dynkin diagram,edge,shorten >=1.1mm,#1]% + \draw[ + /Dynkin diagram, + edge, + shorten >=1.1mm, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% }% - \NewDocumentCommand\dynkinKacQuadrupleArrow{O{}mm}% {% - \draw[arrows = {-{Triangle Cap[length=1.127mm,fill=white]}},% - /Dynkin diagram,edge,double=white,fill=white,shorten >=1mm,shorten <=1mm, double distance=3.6pt,#1]% + \draw[ + arrows = {-{Triangle Cap[length=1.127mm,fill=white]}},% + /Dynkin diagram, + edge, + double=white, + fill=white, + shorten >=1mm, + shorten <=1mm, + double distance=3.6pt, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% - \draw[arrows = {-{Classical TikZ Rightarrow[length=1.2mm]}},% - /Dynkin diagram,edge,double distance=3.6pt,shorten <=.83mm,#1]% + \draw[ + arrows = {-{Classical TikZ Rightarrow[length=1.2mm]}},% + /Dynkin diagram, + edge, + double distance=3.6pt, + shorten <=.83mm, + #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% - \draw[arrows = {-{Classical TikZ Rightarrow[length=1.2mm]}},% - /Dynkin diagram,edge,double distance=1.2pt,shorten <= .83mm, + \draw[ + arrows = {-{Classical TikZ Rightarrow[length=1.2mm]}},% + /Dynkin diagram, + edge, + double distance=1.2pt, + shorten <= .83mm, #1]% (\dynkin@root@name \the#2)--(\dynkin@root@name \the#3);% }% - -\newcount\onesbit% -\newcount\twosbit% - +\newcount\dynkin@onesbit% +\newcount\dynkin@twosbit% %% \dynkinDefiniteDoubleEdge{

}{} %% Draws an oriented double line from root

to root on the current Dynkin diagram. %% The starred form accepts

and in the Bourbaki ordering. @@ -1510,68 +1559,77 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \StrChar{\dynkin@roots}{\the\@fromRoot}[\my@root@marker]% + \StrChar{\dynkin@roots}{\the\@dynkin@from@root}[\my@root@marker]% \IfStrEq{\my@root@marker}{x}% {% - \global\onesbit=1\relax% + \global\dynkin@onesbit=1\relax% }% {% - \global\onesbit=0\relax% + \global\dynkin@onesbit=0\relax% }% - \StrChar{\dynkin@roots}{\the\@toRoot}[\my@root@marker]% + \StrChar{\dynkin@roots}{\the\@dynkin@to@root}[\my@root@marker]% \IfStrEq{\my@root@marker}{x}% {% - \global\twosbit=1\relax% + \global\dynkin@twosbit=1\relax% }% {% - \global\twosbit=0\relax% + \global\dynkin@twosbit=0\relax% }% \ifdynkin@Kac@arrows \begin{pgfonlayer}{Dynkin behind}%% \ifdynkin@arrows% \ifdynkin@reverse@arrows \ifdynkin@is@backwards - \dynkinKacDoubleArrow[#2]{\@fromRoot}{\@toRoot} + \dynkinKacDoubleArrow[#2]% + {\@dynkin@from@root}{\@dynkin@to@root} \else% - \dynkinKacDoubleArrow[#2]{\@toRoot}{\@fromRoot} + \dynkinKacDoubleArrow[#2]% + {\@dynkin@to@root}{\@dynkin@from@root} \fi% \else% \ifdynkin@is@backwards - \dynkinKacDoubleArrow[#2]{\@toRoot}{\@fromRoot} + \dynkinKacDoubleArrow[#2]% + {\@dynkin@to@root}{\@dynkin@from@root} \else% - \dynkinKacDoubleArrow[#2]{\@fromRoot}{\@toRoot} + \dynkinKacDoubleArrow[#2]% + {\@dynkin@from@root}{\@dynkin@to@root} \fi% \fi% \else% \draw[/Dynkin diagram,edge,double distance=3pt,#2]% - (\dynkin@root@name \the\@fromRoot)% + (\dynkin@root@name \the\@dynkin@from@root)% --% - (\dynkin@root@name \the\@toRoot);% + (\dynkin@root@name \the\@dynkin@to@root);% \fi% \end{pgfonlayer}%% \else \def\LL{.5*\dynkin@root@radius} \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% --% - +({\the\onesbit*\LL},{\LL})% + +({\the\dynkin@onesbit*\LL},{\LL})% --% - ($(\dynkin@root@name \the\@toRoot)+(-\the\twosbit*\LL,\LL)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)% + +(-\the\dynkin@twosbit*\LL,\LL)$)% --% - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% --% - ($(\dynkin@root@name \the\@toRoot)-(\the\twosbit*\LL,\LL)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)% + -(\the\dynkin@twosbit*\LL,\LL)$)% --% - ($(\dynkin@root@name \the\@fromRoot)+(\the\onesbit*\LL,-\LL)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)% + +(\the\dynkin@onesbit*\LL,-\LL)$)% --% cycle;% \end{pgfonlayer}%% \ifdynkin@arrows% - \dynkinEdgeArrow[#2]{\the\@fromRoot}{\the\@toRoot}% + \dynkinEdgeArrow[#2]% + {\the\@dynkin@from@root}% + {\the\@dynkin@to@root}% \fi% \fi% }% @@ -1587,75 +1645,84 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% - \StrChar{\dynkin@roots}{\the\@fromRoot}[\my@root@marker]% + \StrChar{\dynkin@roots}{\the\@dynkin@from@root}[\my@root@marker]% \IfStrEq{\my@root@marker}{x}% {% - \global\onesbit=1\relax% + \global\dynkin@onesbit=1\relax% }% {% - \global\onesbit=0\relax% + \global\dynkin@onesbit=0\relax% }% - \StrChar{\dynkin@roots}{\the\@toRoot}[\my@root@marker]% + \StrChar{\dynkin@roots}{\the\@dynkin@to@root}[\my@root@marker]% \IfStrEq{\my@root@marker}{x}% {% - \global\twosbit=1\relax% + \global\dynkin@twosbit=1\relax% }% {% - \global\twosbit=0\relax% + \global\dynkin@twosbit=0\relax% }% \ifdynkin@Kac@arrows \begin{pgfonlayer}{Dynkin behind}%% \ifdynkin@arrows% \ifdynkin@reverse@arrows \ifdynkin@is@backwards - \dynkinKacTripleArrow[#2]{\@fromRoot}{\@toRoot} + \dynkinKacTripleArrow[#2]{\@dynkin@from@root}{\@dynkin@to@root} \else% - \dynkinKacTripleArrow[#2]{\@toRoot}{\@fromRoot} + \dynkinKacTripleArrow[#2]{\@dynkin@to@root}{\@dynkin@from@root} \fi% \else% \ifdynkin@is@backwards - \dynkinKacTripleArrow[#2]{\@toRoot}{\@fromRoot} + \dynkinKacTripleArrow[#2]{\@dynkin@to@root}{\@dynkin@from@root} \else% - \dynkinKacTripleArrow[#2]{\@fromRoot}{\@toRoot} + \dynkinKacTripleArrow[#2]{\@dynkin@from@root}{\@dynkin@to@root} \fi% \fi% \else% \draw[/Dynkin diagram,edge,double distance=3pt,#2]% - (\dynkin@root@name \the\@fromRoot)% + (\dynkin@root@name \the\@dynkin@from@root)% --% - (\dynkin@root@name \the\@toRoot);% + (\dynkin@root@name \the\@dynkin@to@root);% \draw[/Dynkin diagram,edge,#2]% - (\dynkin@root@name \the\@fromRoot)% + (\dynkin@root@name \the\@dynkin@from@root)% --% - (\dynkin@root@name \the\@toRoot);% + (\dynkin@root@name \the\@dynkin@to@root);% \fi% \end{pgfonlayer}%% \else \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,#2]% - ($(\dynkin@root@name \the\@fromRoot)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)$)% --% - +({\the\onesbit*\dynkin@root@radius},{\dynkin@root@radius})% + +({\the\dynkin@onesbit*\dynkin@root@radius},% + {\dynkin@root@radius})% --% - ($(\dynkin@root@name \the\@toRoot)+(-\twosbit*\dynkin@root@radius,\dynkin@root@radius)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)% + +(-\dynkin@twosbit*\dynkin@root@radius,% + \dynkin@root@radius)$)% --% - ($(\dynkin@root@name \the\@toRoot)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)$)% --% - ($(\dynkin@root@name \the\@toRoot)-(\twosbit*\dynkin@root@radius,\dynkin@root@radius)$)% + ($(\dynkin@root@name \the\@dynkin@to@root)% + -(\dynkin@twosbit*\dynkin@root@radius,% + \dynkin@root@radius)$)% --% - ($(\dynkin@root@name \the\@fromRoot)+(\onesbit*\dynkin@root@radius,-\dynkin@root@radius)$)% + ($(\dynkin@root@name \the\@dynkin@from@root)% + +(\dynkin@onesbit*\dynkin@root@radius,% + -\dynkin@root@radius)$)% --% cycle;% \draw[/Dynkin diagram,edge,#2] - ($(\dynkin@root@name \the\@fromRoot)$) + ($(\dynkin@root@name \the\@dynkin@from@root)$) -- - ($(\dynkin@root@name \the\@toRoot)$);% + ($(\dynkin@root@name \the\@dynkin@to@root)$);% \end{pgfonlayer}%% \ifdynkin@arrows% - \dynkinEdgeArrow[#2]{\the\@fromRoot}{\the\@toRoot}% + \dynkinEdgeArrow[#2]% + {\the\@dynkin@from@root}% + {\the\@dynkin@to@root}% \fi% \fi% }% @@ -1673,53 +1740,67 @@ main} \convertRootPair{#3}{#4}% }% {% - \@fromRoot=#3\relax% - \@toRoot=#4\relax% + \@dynkin@from@root=#3\relax% + \@dynkin@to@root=#4\relax% }% \ifdynkin@Kac@arrows \begin{pgfonlayer}{Dynkin behind}%% \ifdynkin@arrows% \ifdynkin@reverse@arrows \ifdynkin@is@backwards - \dynkinKacQuadrupleArrow[#2]{\@fromRoot}{\@toRoot} + \dynkinKacQuadrupleArrow[#2]% + {\@dynkin@from@root}{\@dynkin@to@root} \else% - \dynkinKacQuadrupleArrow[#2]{\@toRoot}{\@fromRoot} + \dynkinKacQuadrupleArrow[#2]% + {\@dynkin@to@root}{\@dynkin@from@root} \fi% \else% \ifdynkin@is@backwards - \dynkinKacQuadrupleArrow[#2]{\@toRoot}{\@fromRoot} + \dynkinKacQuadrupleArrow[#2]% + {\@dynkin@to@root}{\@dynkin@from@root} \else% - \dynkinKacQuadrupleArrow[#2]{\@fromRoot}{\@toRoot} + \dynkinKacQuadrupleArrow[#2]% + {\@dynkin@from@root}{\@dynkin@to@root} \fi% \fi% \else% \draw[/Dynkin diagram,edge,double distance=3pt,#2]% - (\dynkin@root@name \the\@fromRoot)% + (\dynkin@root@name \the\@dynkin@from@root)% --% - (\dynkin@root@name \the\@toRoot);% + (\dynkin@root@name \the\@dynkin@to@root);% \draw[/Dynkin diagram,edge,#2]% - (\dynkin@root@name \the\@fromRoot)% + (\dynkin@root@name \the\@dynkin@from@root)% --% - (\dynkin@root@name \the\@toRoot);% + (\dynkin@root@name \the\@dynkin@to@root);% \fi% \end{pgfonlayer}%% \else \begin{pgfonlayer}{Dynkin behind}%% \draw[/Dynkin diagram,edge,#2]% - ($(\dynkin@root@name \the\@fromRoot)+(0,\dynkin@root@radius)$)--% - ($(\dynkin@root@name \the\@toRoot)+(0,\dynkin@root@radius)$)--% - ($(\dynkin@root@name \the\@toRoot)+(0,-\dynkin@root@radius)$)--% - ($(\dynkin@root@name \the\@fromRoot)+(0,-\dynkin@root@radius)$)--% + ($(\dynkin@root@name \the\@dynkin@from@root)% + +(0,\dynkin@root@radius)$)--% + ($(\dynkin@root@name \the\@dynkin@to@root)% + +(0,\dynkin@root@radius)$)--% + ($(\dynkin@root@name \the\@dynkin@to@root)% + +(0,-\dynkin@root@radius)$)--% + ($(\dynkin@root@name \the\@dynkin@from@root)% + +(0,-\dynkin@root@radius)$)--% cycle; \draw[/Dynkin diagram,edge,#2]% - ($(\dynkin@root@name \the\@fromRoot)+(0,\dynkin@root@radius/3)$)--% - ($(\dynkin@root@name \the\@toRoot)+(0,\dynkin@root@radius/3)$)--% - ($(\dynkin@root@name \the\@toRoot)+(0,-\dynkin@root@radius/3)$)--% - ($(\dynkin@root@name \the\@fromRoot)+(0,-\dynkin@root@radius/3)$)--% + ($(\dynkin@root@name \the\@dynkin@from@root)% + +(0,\dynkin@root@radius/3)$)--% + ($(\dynkin@root@name \the\@dynkin@to@root)% + +(0,\dynkin@root@radius/3)$)--% + ($(\dynkin@root@name \the\@dynkin@to@root)% + +(0,-\dynkin@root@radius/3)$)--% + ($(\dynkin@root@name \the\@dynkin@from@root)% + +(0,-\dynkin@root@radius/3)$)--% cycle; \end{pgfonlayer}%% \ifdynkin@arrows% - \dynkinEdgeArrow[#2]{\the\@fromRoot}{\the\@toRoot}% + \dynkinEdgeArrow[#2]% + {\the\@dynkin@from@root}% + {\the\@dynkin@to@root}% \fi% \fi% }% @@ -1772,93 +1853,67 @@ main} % \dynkin{A}{3} passes the string A, % \dynkin{A2}{*o*} passes the string A2, % \dynkin{E2}{} passes the string E2. - \def\dynkin@user@string{} % Control string passed from user. % For example: % \dynkin{A}{3} passes the string 3, % \dynkin{A}{*o*} passes the string *o*, % \dynkin{A}{III} passes the string III. - \def\dynkin@string{} % \dynkin@user@string{} with some modifications to it to expand it out. - \def\dynkin@series{A} % Which series of root system: A,B,C,D,E,F,G - \def\dynkin@label@list{} % List of labels for the roots. - \def\dynkin@label@list@star{} % List of alternate labels for the roots. - -\newcount\dynkin@rank +\newcount\dynkin@rank% +\newcount\dynkin@rank@minus@one% +\newcount\dynkin@rank@minus@two% +\newcount\dynkin@rank@minus@three% % Which rank of root system: 1,2,... - \newcount\dynkin@nodes % How many nodes (besides the zero node for affine diagrams) are there? - \newif\ifdynkin@is@backwards % Are we drawing this thing in a reverse direction? - \newif\ifdynkin@is@upsidedown % Are we drawing this thing in a reverse direction? - \newif\ifdynkin@is@extended % Is this an extended extended root system? - \newif\ifdynkin@is@twisted % Is this a twisted extended root system? - \def\dynkin@twisted@series{0} % Which Kac series? 0=finite, 1,2,3->infinite - \newif\ifdynkin@label@the@roots % Should we label the roots by the current root ordering convention? - \newif\ifdynkin@reverse@arrows % Should we reverse the directions of all arrows? - \newif\ifdynkin@arrows % Should we draw arrows on Dynkin diagrams? - \newif\ifdynkin@left@fold % Is the left side of the Dynkin diagram folded? - \newif\ifdynkin@right@fold % Is the right side of the Dynkin diagram folded? - \newif\ifdynkin@Coxeter % Should we draw Coxeter diagrams? - \newif\ifdynkin@Kac@arrows % Should we draw arrows following Kac? - \newif\ifdynkin@odd % For twisted A series diagrams, is the rank odd? - \newcount\dynkin@ply % Maximum number of nodes arranged vertically in the folding of the Dynkin diagram - \def\dynkin@ply@value{1} % Default maximum number of nodes arranged vertically in the folding of the Dynkin diagram - \def\dynkin@label@directions{} % List of directions in which to draw the labels attached to the roots. - \def\dynkin@label@directions@star{} % List of directions in which to draw the labels attached to the roots, for alternate labels. - \def\dynkin@current@location{(0,0)} - -\def\dynkin@arrow@color{} - +\def\dynkin@arrow@style{length=1.5*\dynkin@root@radius} \def\dynkin@horizontal@shift{0pt} \def\dynkin@vertical@shift{.5ex} % Shift applied to all Dynkin diagrams - \NewDocumentCommand\regurgitate{m}{#1} - \pgfkeys{ /Dynkin diagram/.is family, /Dynkin diagram, @@ -1866,9 +1921,13 @@ main} affinemark/.forward to = /Dynkin diagram/affine mark, affine-mark/.forward to = /Dynkin diagram/affine mark, affine-mark = o, - arrow color/.estore in = \dynkin@arrow@color, - arrow-color/.forward to=/Dynkin diagram/arrow color, - arrowcolor/.forward to=/Dynkin diagram/arrow color, + arrow color/.estore in = /Dynkin diagram/arrow style, + arrow-color/.forward to=/Dynkin diagram/arrow style, + arrowcolor/.forward to=/Dynkin diagram/arrow style, + arrow shape/.style={-{Computer Modern Rightarrow[\dynkin@arrow@style]}}, + arrow style/.estore in = \dynkin@arrow@style, + arrow-style/.forward to=/Dynkin diagram/arrow style, + arrowstyle/.forward to=/Dynkin diagram/arrow style, arrows/.is if = dynkin@arrows, arrows = true, at/.estore in = \dynkin@current@location, @@ -1987,7 +2046,13 @@ main} indefinite-edge-ratio/.forward to = /Dynkin diagram/indefinite edge ratio, indefiniteedgeratio/.forward to = /Dynkin diagram/indefinite edge ratio, indefinite edge ratio = 1.6, - indefinite edge/.style={solid,draw=black,fill=white,thin,densely dotted}, + indefinite edge/.style={ + solid, + draw=black, + fill=white, + thin, + densely dotted + }, indefinite-edge/.forward to=/Dynkin diagram/indefinite edge/.style, indefiniteedge/.forward to=/Dynkin diagram/indefinite edge/.style, Kac arrows/.is if = dynkin@Kac@arrows, @@ -2000,14 +2065,38 @@ main} root radius=.05cm, edge length=.66cm, indefinite edge ratio = 3, - edge/.style={solid,draw=black,fill=white,thin,shorten <=1mm,shorten >=1mm}, - fold style/.style = {solid,draw=black!40,fill=none,line width=\dynkin@root@radius,shorten <=1mm,shorten >=1mm}, + edge/.style={ + solid, + draw=black, + fill=white, + thin, + shorten <=1mm, + shorten >=1mm + }, + fold style/.style = { + solid, + draw=black!40, + fill=none, + line width=\dynkin@root@radius, + shorten <=1mm, + shorten >=1mm + }, mark=o, - indefinite edge/.style={solid,draw=black,fill=none,thin,loosely dotted}, + indefinite edge/.style={ + solid, + draw=black, + fill=none, + thin, + loosely dotted + }, }, label/.is if = dynkin@label@the@roots, label = false, - label depth/.style={/tikz/every label/.append style={text depth={depth("#1"}}}, + label depth/.style={ + /tikz/every label/.append style={ + text depth={depth("#1"} + } + }, label depth/.default=g, label depth, label-depth/.forward to = /Dynkin diagram/label depth, @@ -2068,12 +2157,14 @@ main} verticalshift/.forward to=/Dynkin diagram/vertical shift, x shift in edge lengths/.code=% {% - \pgfmathsetlengthmacro\dynkin@horizontal@shift% + \pgfmathsetlengthmacro% + \dynkin@horizontal@shift% {(#1*\dynkin@edge@length)+\dynkin@horizontal@shift}% },% y shift in edge lengths/.code=% {% - \pgfmathsetlengthmacro\dynkin@vertical@shift% + \pgfmathsetlengthmacro% + \dynkin@vertical@shift% {(#1*\dynkin@edge@length)+\dynkin@vertical@shift}% },% */.style = { @@ -2124,28 +2215,46 @@ main} draw=black, fill=white, thin, - double copy shadow={draw=black!90,fill=none,thin,shadow xshift=.1pt, shadow yshift=-.15pt}, + double copy shadow={ + draw=black!90, + fill=none, + thin, + shadow xshift=.1pt, + shadow yshift=-.15pt + }, }, */.style={ yscale=1.2, solid, draw=black, fill=gray, - double copy shadow={fill=black,shadow xshift=0.1pt, shadow yshift=-0.15pt}, + double copy shadow={ + fill=black, + shadow xshift=0.1pt, + shadow yshift=-0.15pt + }, }, o/.style={ yscale=1.2, solid, draw=black, fill=white, - double copy shadow={fill=black,shadow xshift=0.1pt, shadow yshift=-0.15pt}, + double copy shadow={ + fill=black, + shadow xshift=0.1pt, + shadow yshift=-0.15pt + }, }, O/.style={ yscale=1.2, solid, draw=black, fill=white, - double copy shadow={fill=green,shadow xshift=0.1pt, shadow yshift=-0.15pt}, + double copy shadow={ + fill=green, + shadow xshift=0.1pt, + shadow yshift=-0.15pt + }, } t/.style={ yscale=1.2, @@ -2156,65 +2265,126 @@ main} }, .search also={/tikz}, } - \ProcessPgfPackageOptions{/Dynkin diagram}\relax - -\newcount\drpo% +\newcount\dynkin@drpo% \newcount\dynkin@where% - %% \dynkin@put@direction{}{}{} %% Assigns to \dynkin@label@directions or \dynkin@label@directions@star the direction that the label of root (in default ordering) should sit from the root node location, =0,1,2,3,4,5,6,7 to indicate direction in multiples of 45 degrees \NewDocumentCommand\dynkin@put@direction{smm}% {% - \drpo=\the\dynkin@nodes\relax% - \advance\drpo by 1\relax% + \dynkin@drpo=\the\dynkin@nodes\relax% + \advance\dynkin@drpo by 1\relax% \dynkin@where=#2\relax% \IfBooleanTF{#1}% {% - \StrMid{\dynkin@label@directions@star}{1}{\the\dynkin@where}[\dynkin@start]% + \StrMid{\dynkin@label@directions@star}% + {1}{\the\dynkin@where}[\dynkin@start]% \advance\dynkin@where by 2\relax% - \StrMid{\dynkin@label@directions@star}{\the\dynkin@where}{\the\drpo}[\dynkin@end]% + \StrMid{\dynkin@label@directions@star}% + {\the\dynkin@where}{\the\dynkin@drpo}[\dynkin@end]% \IfStrEqCase{#3}{% - {right}{\xdef\dynkin@label@directions@star{\dynkin@start 0\dynkin@end}}% - {above right}{\xdef\dynkin@label@directions@star{\dynkin@start 1\dynkin@end}}% - {above}{\xdef\dynkin@label@directions@star{\dynkin@start 2\dynkin@end}}% - {above left}{\xdef\dynkin@label@directions@star{\dynkin@start 3\dynkin@end}}% - {left}{\xdef\dynkin@label@directions@star{\dynkin@start 4\dynkin@end}}% - {below left}{\xdef\dynkin@label@directions@star{\dynkin@start 5\dynkin@end}}% - {below}{\xdef\dynkin@label@directions@star{\dynkin@start 6\dynkin@end}}% - {below right}{\xdef\dynkin@label@directions@star{\dynkin@start 7\dynkin@end}}% + {right}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 0\dynkin@end}% + }% + {above right}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 1\dynkin@end}% + }% + {above}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 2\dynkin@end}% + }% + {above left}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 3\dynkin@end}% + }% + {left}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 4\dynkin@end}% + }% + {below left}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 5\dynkin@end}% + }% + {below}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 6\dynkin@end}% + }% + {below right}% + {% + \xdef\dynkin@label@directions@star% + {\dynkin@start 7\dynkin@end}% + }% }% [\ClassError{Dynkin diagrams}% {Unrecognized direction: ``#2'' in Dynkin diagram \dynkin@user@series{\dynkin@user@string}}{}]% }% {% - \StrMid{\dynkin@label@directions}{1}{\the\dynkin@where}[\dynkin@start]% + \StrMid{\dynkin@label@directions}{1}% + {\the\dynkin@where}[\dynkin@start]% \advance\dynkin@where by 2\relax% - \StrMid{\dynkin@label@directions}{\the\dynkin@where}{\the\drpo}[\dynkin@end]% + \StrMid{\dynkin@label@directions}{\the\dynkin@where}% + {\the\dynkin@drpo}[\dynkin@end]% \IfStrEqCase{#3}{% - {right}{\xdef\dynkin@label@directions{\dynkin@start 0\dynkin@end}}% - {above right}{\xdef\dynkin@label@directions{\dynkin@start 1\dynkin@end}}% - {above}{\xdef\dynkin@label@directions{\dynkin@start 2\dynkin@end}}% - {above left}{\xdef\dynkin@label@directions{\dynkin@start 3\dynkin@end}}% - {left}{\xdef\dynkin@label@directions{\dynkin@start 4\dynkin@end}}% - {below left}{\xdef\dynkin@label@directions{\dynkin@start 5\dynkin@end}}% - {below}{\xdef\dynkin@label@directions{\dynkin@start 6\dynkin@end}}% - {below right}{\xdef\dynkin@label@directions{\dynkin@start 7\dynkin@end}}% + {right}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 0\dynkin@end}% + }% + {above right}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 1\dynkin@end}% + }% + {above}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 2\dynkin@end}% + }% + {above left}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 3\dynkin@end}% + }% + {left}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 4\dynkin@end}% + }% + {below left}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 5\dynkin@end}% + }% + {below}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 6\dynkin@end}% + }% + {below right}% + {% + \xdef\dynkin@label@directions% + {\dynkin@start 7\dynkin@end}% + }% }% [\ClassError{Dynkin diagrams}% {Unrecognized direction: ``#2'' in Dynkin diagram \dynkin@user@series{\dynkin@user@string}}{}]% }% }% - - -%\xdef\replace@DR{} -% % \expand@Dynkin@Roots@By@Char{}, % for example if is the letter x, expands out any expression like % x7 in \dynkin@string into 7 copies of the letter x. \NewDocumentCommand\expand@Dynkin@Roots@By@Char{m}% {% - \xdef\replace@DR{} + \xdef\replace@DR{}% \foreach \i in {0,...,9}% {% \StrSubstitute[0]{\dynkin@string}{#1\i}{\replace@DR}[\temp@DR]% @@ -2222,11 +2392,10 @@ main} \xdef\replace@DR{\replace@DR #1}% }% }% - % \expand@Dynkin@Roots@Digits{} expands out any expression like x7 in \dynkin@roots into 7 copies of the letter x, and so on for any letter which is not a digit. \NewDocumentCommand\expand@Dynkin@Roots@Digits{}% {% - \edef\current@string{\dynkin@string} + \edef\current@string{\dynkin@string}% \StrLen{\current@string}[\string@len] \foreach \j in {1,...,\string@len}% {% @@ -2238,7 +2407,6 @@ main} }% }% }% - % \dynkin@integer@rank{} expands a \dynkin@string 3 into ***, i.e. % writes the given number of copies of the default root mark into the string \dynkin@string. \NewDocumentCommand\dynkin@integer@rank{}% @@ -2250,7 +2418,7 @@ main} {% {A}% {% - \divide\dynkin@nodes by 2% + \divide\dynkin@nodes by 2\relax% \ifodd\dynkin@rank% \global\dynkin@oddtrue% \advance\dynkin@nodes by 1\relax% @@ -2299,34 +2467,30 @@ main} \fi% \xdef\dynkin@string{\repeatCharacter{\the\dynkin@nodes}{\dynkin@root@mark}}% }% - \NewDocumentCommand\dynkin@clear@indefinite@edge@list{}% {% \xdef\dynkin@indefinite@edge@list{}% }% % - -\newcount\first% -\newcount\second% - +\newcount\dynkin@first@root@no% +\newcount\dynkin@second@root@no% \NewDocumentCommand\dynkin@set@edge@indefinite{mm}% {% - \first=#1\relax% - \second=#2\relax% - \ifnum\the\first<\the\second% - \listxadd\dynkin@indefinite@edge@list{\the\first,\the\second}% + \dynkin@first@root@no=#1\relax% + \dynkin@second@root@no=#2\relax% + \ifnum\the\dynkin@first@root@no<\the\dynkin@second@root@no% + \listxadd\dynkin@indefinite@edge@list{\the\dynkin@first@root@no,\the\dynkin@second@root@no}% \else% - \listxadd\dynkin@indefinite@edge@list{\the\second,\the\first}% + \listxadd\dynkin@indefinite@edge@list{\the\dynkin@second@root@no,\the\dynkin@first@root@no}% \fi% }% -\NewDocumentCommand\dynkin@set@edge@indefinite@pair{>{\SplitArgument{1}{-}}m}% +\NewDocumentCommand\dynkin@set@edge@indefinite@pair% +{>{\SplitArgument{1}{-}}m}% {% \dynkin@set@edge@indefinite#1% }% - -\newif\ifdynkin@is@indefinite@edge - +\newif\ifdynkin@is@indefinite@edge% \NewDocumentCommand\dynkin@typeout@indefinite@edge@list{}% {% \renewcommand*{\do}[1]{\typeout{##1}}% @@ -2344,34 +2508,31 @@ main} \convertRootPair{#2}{#3}% }% {% - \@fromRoot=#2\relax% - \@toRoot=#3\relax% + \@dynkin@from@root=#2\relax% + \@dynkin@to@root=#3\relax% }% % Next we sort the order, since edges are stored as undirected edges. - \global\first=\@fromRoot\relax% - \global\second=\@toRoot\relax% - \ifnum\the\second<\the\first% - \global\first=\@toRoot\relax% - \global\second=\@fromRoot\relax% + \global\dynkin@first@root@no=\@dynkin@from@root\relax% + \global\dynkin@second@root@no=\@dynkin@to@root\relax% + \ifnum\the\dynkin@second@root@no<\the\dynkin@first@root@no% + \global\dynkin@first@root@no=\@dynkin@to@root\relax% + \global\dynkin@second@root@no=\@dynkin@from@root\relax% \fi% \global\dynkin@is@indefinite@edgefalse\relax% \renewcommand*{\do}[1]{% - \IfStrEq{##1}{\the\first,\the\second}% + \IfStrEq{##1}{\the\dynkin@first@root@no,\the\dynkin@second@root@no}% {\global\dynkin@is@indefinite@edgetrue\listbreak}% {}}% \dolistloop{\dynkin@indefinite@edge@list}% }% - - -\newcount\rootnum -\newcount\dynkin@string@length -\newcount\rootnumpo% - +\newcount\dynkin@Root@Numbr% +\newcount\dynkin@string@length% +\newcount\dynkin@Root@Numbrpo% % \dynkin@grok@indefinite@edges{} reads the input string found when you write \dynkin{}{}, and % interprets it to say which edges are indefinite edges. \NewDocumentCommand\dynkin@grok@indefinite@edges{}% {% - \rootnum=1\relax + \dynkin@Root@Numbr=1\relax \StrLen{\dynkin@string}[\temp]% \dynkin@string@length=\temp\relax% \foreach \i in {2,...,\the\dynkin@string@length}% @@ -2379,36 +2540,30 @@ main} \StrChar{\dynkin@string}{\i}[\c]% \IfStrEq{\c}{.}% {% - \rootnumpo=\rootnum\relax% - \advance\rootnumpo by 1\relax% - \ifnum\the\rootnum<\the\dynkin@nodes% - \dynkin@set@edge@indefinite{\rootnum}{\rootnumpo}% + \dynkin@Root@Numbrpo=\dynkin@Root@Numbr\relax% + \advance\dynkin@Root@Numbrpo by 1\relax% + \ifnum\the\dynkin@Root@Numbr<\the\dynkin@nodes% + \dynkin@set@edge@indefinite{\dynkin@Root@Numbr}{\dynkin@Root@Numbrpo}% \fi% }% {% - \global\advance\rootnum by 1\relax% + \global\advance\dynkin@Root@Numbr by 1\relax% }% }% }% - -\xdef\spacy{ } - +\xdef\dynkin@spacy{ } \NewDocumentCommand\dynkin@clear@label@directions{}% {% \xdef\dynkin@label@directions{}% \xdef\dynkin@label@directions@star{}% }% - - \NewDocumentCommand\dynkin@set@default@label@directions{}% {% -% \newcount\drpo% - \drpo=\the\dynkin@nodes\relax% - \advance\drpo by 1\relax% - \xdef\dynkin@label@directions{\repeatCharacter{\the\drpo}{?}}% - \xdef\dynkin@label@directions@star{\repeatCharacter{\the\drpo}{?}}% + \dynkin@drpo=\the\dynkin@nodes\relax% + \advance\dynkin@drpo by 1\relax% + \xdef\dynkin@label@directions{\repeatCharacter{\the\dynkin@drpo}{?}}% + \xdef\dynkin@label@directions@star{\repeatCharacter{\the\dynkin@drpo}{?}}% }% - \newlength{\defaultpgflinewidth}% % % @@ -2446,10 +2601,10 @@ main} \xdef\dynkin@series{#2}% \IfStrEq{\dynkin@diagram@name}{anonymous}% {% - \xdef\dynkin@root@name{root\spacy}% + \xdef\dynkin@root@name{root\dynkin@spacy}% }% {% - \xdef\dynkin@root@name{\dynkin@diagram@name\spacy root\spacy}% + \xdef\dynkin@root@name{\dynkin@diagram@name\dynkin@spacy root\dynkin@spacy}% }% \dynkin@grok@series% \IfSubStr{ABCDEFGHI}{\dynkin@series}{}{\dynkin@error@series}% @@ -2510,9 +2665,9 @@ main} {% {A}% {% - \multiply\dynkin@rank by 2% + \global\multiply\dynkin@rank by 2% \ifdynkin@odd% - \advance\dynkin@rank by -1\relax% + \global\advance\dynkin@rank by -1\relax% \fi% }% {D}% @@ -2521,24 +2676,28 @@ main} {% {2} {% - \advance\dynkin@rank by 1\relax% + \global\advance\dynkin@rank by 1\relax% }% {3} {% - \advance\dynkin@rank by 2\relax% + \global\advance\dynkin@rank by 2\relax% }% }% }% {E}% {% - \advance\dynkin@rank by 2\relax% + \global\advance\dynkin@rank by 2\relax% }% }% \fi% -}% - -\newcount\dynkin@lenny - + \global\dynkin@rank@minus@one\the\dynkin@rank\relax% + \global\advance\dynkin@rank@minus@one by -1\relax% + \global\dynkin@rank@minus@two\the\dynkin@rank@minus@one\relax% + \global\advance\dynkin@rank@minus@two by -1\relax% + \global\dynkin@rank@minus@three\the\dynkin@rank@minus@two\relax% + \global\advance\dynkin@rank@minus@three by -1\relax% +}% +\newcount\dynkin@lenny% %% \dynkin@grok@series %% Interprets the dynkin@series, to see if it is extended, twisted, and what twisted series it is. \NewDocumentCommand\dynkin@grok@series{}% @@ -2573,10 +2732,7 @@ main} }% [\dynkin@error@series]% }% - - -\newif\ifdynkin@Satake@diagram - +\newif\ifdynkin@Satake@diagram% \NewDocumentCommand\dynkin@grok@Satake@codes{}% {% \ifdynkin@is@extended% @@ -2592,14 +2748,46 @@ main} {% \IfStrEqCase{\dynkin@string}% {% - {even}{\gdef\dynkin@string{ddd.ddd}\global\dynkin@oddfalse\global\dynkin@Satake@diagramfalse}% - {odd}{\gdef\dynkin@string{dddd.ddd}\global\dynkin@oddtrue\global\dynkin@Satake@diagramfalse}% - {}{\gdef\dynkin@string{dd.dd}\global\dynkin@Satake@diagramfalse}% - {I}{ \gdef\dynkin@string{oo.oo}}% - {II}{\gdef\dynkin@string{*o*.o*}}% - {IIIa}{\global\dynkin@ply=2\relax\gdef\dynkin@string{oo.o**.**o.oo}}% - {IIIb}{\global\dynkin@ply=2\relax\gdef\dynkin@string{oo.ooo.oo}}% - {IV} {\global\dynkin@ply=2\relax\gdef\dynkin@string{o*.*o}}% + {even}% + {% + \gdef\dynkin@string{ddd.ddd}% + \global\dynkin@oddfalse% + \global\dynkin@Satake@diagramfalse% + }% + {odd}% + {% + \gdef\dynkin@string{dddd.ddd}% + \global\dynkin@oddtrue% + \global\dynkin@Satake@diagramfalse% + }% + {}% + {% + \gdef\dynkin@string{dd.dd}% + \global\dynkin@Satake@diagramfalse% + }% + {I} + {% + \gdef\dynkin@string{oo.oo}% + }% + {II}% + {% + \gdef\dynkin@string{*o*.o*}% + }% + {IIIa}% + {% + \global\dynkin@ply=2\relax% + \gdef\dynkin@string{oo.o**.**o.oo}% + }% + {IIIb}% + {% + \global\dynkin@ply=2\relax% + \gdef\dynkin@string{oo.ooo.oo}% + }% + {IV}% + {% + \global\dynkin@ply=2\relax% + \gdef\dynkin@string{o*.*o}% + }% }% [\global\dynkin@Satake@diagramfalse]% }% @@ -2747,7 +2935,6 @@ main} \xdef\dynkin@string{\temp}% \fi% }% - \NewDocumentCommand\dynkin@error@not@in@tikz{} {% \ClassError% @@ -2755,8 +2942,6 @@ main} {Dynkin diagram macros called outside of tikz environment}% {}% }% - - \NewDocumentCommand\dynkin@error@root@ordering{} {% \ClassError% @@ -2765,16 +2950,14 @@ main} in Dynkin diagram \dynkin@user@series{\dynkin@user@string}}% {}% }% - \NewDocumentCommand\dynkin@error@rank{}% {% \ClassError% {Dynkin diagrams}% - {Unrecognized \dynkin@user@series\spacy series rank: + {Unrecognized \dynkin@user@series\dynkin@spacy series rank: ``\the\dynkin@rank'' in Dynkin diagram \dynkin@user@series{\dynkin@user@string}}% {}% }% - \NewDocumentCommand\dynkin@error@series{}% {% \ClassError% @@ -2783,8 +2966,6 @@ main} in Dynkin diagram \dynkin@user@series{\dynkin@user@string}}% {}% }% - - \NewDocumentCommand\dynkin@error@ply{} {% \ClassError% @@ -2793,8 +2974,6 @@ main} in Dynkin diagram \dynkin@user@series{\dynkin@user@string}}% {}% }% - - %% \check@Dynkin@Roots %% Raises error messages for erroneous input in the list of Dynkin roots. \NewDocumentCommand\check@Dynkin@Roots{}% @@ -2832,7 +3011,6 @@ main} {Unrecognized label ordering: ``#1'' }% {}]% }% - %% \check@Dynkin@diagram %% Raises error messages for erroneous inputs. \NewDocumentCommand\check@Dynkin@diagram{}% @@ -2897,35 +3075,29 @@ main} %% in Bourbaki ordering. We store the roots in the current ordering. %% So when we draw edges, we need to convert from the Bourbaki ordering each time. %% We store the conversions here. -\newcount\RootNumber -\newcount\@fromRoot -\newcount\@toRoot -\newcount\drmo - +\newcount\dynkin@Root@Number% +\newcount\@dynkin@from@root% +\newcount\@dynkin@to@root% %% \swapRootIfInLastTwoRoots{} -%% If the input root is one of the last two roots, then put the other in \RootNumber, otherwise -%% let \RootNumber be . +%% If the input root is one of the last two roots, then put the other in \dynkin@Root@Number, otherwise +%% let \dynkin@Root@Number be . \NewDocumentCommand\swapRootIfInLastTwoRoots{m}% {% \ifnum\dynkin@rank>1% - \drmo=\dynkin@rank\relax% - \advance\drmo by -1\relax% \ifnum\dynkin@rank=#1% - \global\RootNumber=\the\drmo\relax% + \global\dynkin@Root@Number=\the\dynkin@rank@minus@one\relax% \else% - \ifnum\drmo=#1% - \global\RootNumber=\the\dynkin@rank\relax% + \ifnum\dynkin@rank@minus@one=#1% + \global\dynkin@Root@Number=\the\dynkin@rank\relax% \else% - \global\RootNumber=#1\relax% + \global\dynkin@Root@Number=#1\relax% \fi% \fi% \else% - \global\RootNumber=#1\relax% + \global\dynkin@Root@Number=#1\relax% \fi% }% - - -\newcount\dynkin@r +\newcount\dynkin@r% \NewDocumentCommand\swap@if@in@last@two{mm}% {% \global\dynkin@r=#2\relax% @@ -2940,9 +3112,7 @@ main} \fi% \the\dynkin@r% }% - -\newcount\dynkin@root@no - +\newcount\dynkin@root@no% \NewDocumentCommand\dynkinOrderToBourbaki{mmmmm}% %% \dynkinOrderToBourbaki{series}{rank}{from order}{root}{counter to store result} %% Stores the number of root in Bourbaki order which corresponds to @@ -2992,54 +3162,101 @@ main} \ifnum#2=6% \IfStrEqCase{#3}% {% - {Adams}{\global#5=% - \stringCharacterInPosition{135426}{#4}% - \relax}% - {Carter}{\global#5=% - \stringCharacterInPosition{134256}{#4}% - \relax}% - {Dynkin}{\global#5=% - \stringCharacterInPosition{134562}{#4}% - \relax}% - {Kac}{\global#5=% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition% + {135426}{#4}% + \relax% + }% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition% + {134256}{#4}% + \relax% + }% + {Dynkin}% + {% + \global#5=% \stringCharacterInPosition{134562}{#4}% - \relax}% + \relax% + }% + {Kac}% + {% + \global#5=% + \stringCharacterInPosition% + {134562}{#4}% + \relax% + }% }% [\global#5=#4\relax]% \else% \ifnum#2=7% \IfStrEqCase{#3}% {% - {Adams}{\global#5=% - \stringCharacterInPosition{6524317}{#4}% - \relax}% - {Carter}{\global#5=% - \stringCharacterInPosition{7654231}{#4}% - \relax}% - {Dynkin}{\global#5=% - \stringCharacterInPosition{1345672}{#4}% - \relax}% - {Kac}{\global#5=% - \stringCharacterInPosition{1245672}{#4}% - \relax}% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition% + {6524317}{#4}% + \relax% + }% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition% + {7654231}{#4}% + \relax% + }% + {Dynkin}% + {% + \global#5=% + \stringCharacterInPosition% + {1345672}{#4}% + \relax% + }% + {Kac}% + {% + \global#5=% + \stringCharacterInPosition% + {1245672}{#4}% + \relax% + }% }% [\global#5=#4\relax]% \else% \ifnum#2=8% \IfStrEqCase{#3}% {% - {Adams}{\global#5=% - \stringCharacterInPosition{13245678}{#4}% - \relax}% - {Carter}{\global#5=% - \stringCharacterInPosition{87654231}{#4}% - \relax}% - {Dynkin}{\global#5=% - \stringCharacterInPosition{13456782}{#4}% - \relax}% - {Kac}{\global#5=% - \stringCharacterInPosition{87654312}{#4}% - \relax}% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition% + {13245678}{#4}% + \relax% + }% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition% + {87654231}{#4}% + \relax% + }% + {Dynkin}% + {% + \global#5=% + \stringCharacterInPosition% + {13456782}{#4}% + \relax% + }% + {Kac}% + {% + \global#5=% + \stringCharacterInPosition% + {87654312}{#4}% + \relax% + }% }% [\global#5=#4\relax]% \else% @@ -3075,8 +3292,6 @@ main} [\global#5=#4\relax]% }% }% - - \NewDocumentCommand\dynkinOrderFromBourbaki{mmmmm}% %% \dynkinOrderFromBourbaki{series}{rank}{root}{to order}{count to store result} %% Stores the number of root in which corresponds to @@ -3126,30 +3341,98 @@ main} \ifnum#2=6% \IfStrEqCase{#4}% {% - {Adams}{\global#5=\stringCharacterInPosition{152436}{#3}\relax}% - {Carter}{\global#5=\stringCharacterInPosition{142356}{#3}\relax}% - {Dynkin}{\global#5=\stringCharacterInPosition{162345}{#3}\relax}% - {Kac}{\global#5=\stringCharacterInPosition{162345}{#3}\relax}% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition% + {152436}{#3}% + \relax% + }% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition% + {142356}{#3}% + \relax% + }% + {Dynkin}% + {% + \global#5=% + \stringCharacterInPosition% + {162345}{#3}% + \relax% + }% + {Kac}% + {% + \global#5=% + \stringCharacterInPosition% + {162345}{#3}% + \relax% + }% }% [\global#5=#3\relax]% \else% \ifnum#2=7% \IfStrEqCase{#4}% {% - {Adams}{\global#5=\stringCharacterInPosition{6354217}{#3}\relax}% - {Carter}{\global#5=\stringCharacterInPosition{7564321}{#3}\relax}% - {Dynkin}{\global#5=\stringCharacterInPosition{1723456}{#3}\relax}% - {Kac}{\global#5=\stringCharacterInPosition{1723456}{#3}\relax}% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition{6354217}{#3}% + \relax% + }% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition{7564321}{#3}% + \relax% + }% + {Dynkin}% + {% + \global#5=% + \stringCharacterInPosition{1723456}{#3}% + \relax% + }% + {Kac}% + {% + \global#5=% + \stringCharacterInPosition{1723456}{#3}% + \relax% + }% }% [\global#5=#3\relax]% \else% \ifnum#2=8% \IfStrEqCase{#4}% {% - {Adams}{\global#5=\stringCharacterInPosition{13245678}{#3}\relax}% - {Carter}{\global#5=\stringCharacterInPosition{86754321}{#3}\relax}% - {Dynkin}{\global#5=\stringCharacterInPosition{18234567}{#3}\relax}% - {Kac}{\global#5=\stringCharacterInPosition{78654321}{#3}\relax}% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition% + {13245678}{#3}% + \relax% + }% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition% + {86754321}{#3}% + \relax% + }% + {Dynkin}% + {% + \global#5=% + \stringCharacterInPosition% + {18234567}{#3}% + \relax% + }% + {Kac}% + {% + \global#5=% + \stringCharacterInPosition% + {78654321}{#3}% + \relax% + }% }% [\global#5=#3\relax]% \else% @@ -3163,7 +3446,13 @@ main} {% \IfStrEqCase{#4}% {% - {Adams}{\global#5=\stringCharacterInPosition{4321}{#3}\relax}% + {Adams}% + {% + \global#5=% + \stringCharacterInPosition% + {4321}{#3}% + \relax% + }% }% [\global#5=#3\relax]% }% @@ -3171,8 +3460,18 @@ main} {% \IfStrEqCase{#4}% {% - {Carter}{\global#5=\stringCharacterInPosition{21}{#3}\relax}% - {Dynkin}{\global#5=\stringCharacterInPosition{21}{#3}\relax}% + {Carter}% + {% + \global#5=% + \stringCharacterInPosition{21}{#3}% + \relax% + }% + {Dynkin}% + {% + \global#5=% + \stringCharacterInPosition{21}{#3}% + \relax% + }% }% [\global#5=#3\relax]% }% @@ -3180,10 +3479,8 @@ main} [\global#5=#3\relax]% }% }% - -\newcount\dynkin@order@temp -\newcount\dynkin@order@temp@b - +\newcount\dynkin@order@temp% +\newcount\dynkin@order@temp@b% \NewDocumentCommand\dynkinOrder{mmD.:{Bourbaki}r:-D>.{Bourbaki}m}% %% \dynkinOrder .::->. %% Example: \newcount\r\dynkinOrder D7.Carter::7->Bourbaki.{\r} @@ -3195,20 +3492,18 @@ main} %% \typeDynkinOrder .::->. %% Example: \typeDynkinOrder D7.Carter::7->Bourbaki. -\newcount\tempDynkinReorder +\newcount\tempDynkinReorder% \NewDocumentCommand\typeDynkinOrder{mmD.:{Bourbaki}r:-D>.{Bourbaki}}% {% \dynkinOrder{#1}{#2}.#3::#4->#5.{\tempDynkinReorder}\the\tempDynkinReorder% }% - - %% \convertRootNumber{} -%% Converts from Bourbaki ordering to the current ordering, storing the result in a count called \RootNumber. +%% Converts from Bourbaki ordering to the current ordering, storing the result in a count called \dynkin@Root@Number. \NewDocumentCommand\convertRootNumber{m}% {% \IfStrEq{#1}{0}% {% - \global\RootNumber=0\relax% + \global\dynkin@Root@Number=0\relax% }% {% \IfStrEqCase{\dynkin@series}% @@ -3219,14 +3514,14 @@ main} {% {TestOrder}% {% - \global\RootNumber=#1\relax% - \global\advance\RootNumber by 1\relax% - \ifnum\RootNumber>\the\dynkin@rank% - \global\RootNumber=1\relax% + \global\dynkin@Root@Number=#1\relax% + \global\advance\dynkin@Root@Number by 1\relax% + \ifnum\dynkin@Root@Number>\the\dynkin@rank% + \global\dynkin@Root@Number=1\relax% \fi% }% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% }% {D}% {% @@ -3236,53 +3531,53 @@ main} {Dynkin}{\swapRootIfInLastTwoRoots{#1}}% {Kac}{% \ifdynkin@is@twisted - \global\RootNumber=#1\relax% + \global\dynkin@Root@Number=#1\relax% \else \ifdynkin@is@extended - \global\RootNumber=#1\relax% + \global\dynkin@Root@Number=#1\relax% \else \swapRootIfInLastTwoRoots{#1} \fi \fi}% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% }% {E}% {% \ifdynkin@is@twisted% - \global\RootNumber=#1\relax% + \global\dynkin@Root@Number=#1\relax% \else% \ifnum\dynkin@rank=6% \IfStrEqCase{\dynkin@ordering}% {% - {Adams}{\global\RootNumber=\stringCharacterInPosition{152436}{#1}\relax}% - {Carter}{\global\RootNumber=\stringCharacterInPosition{142356}{#1}\relax}% - {Dynkin}{\global\RootNumber=\stringCharacterInPosition{162345}{#1}\relax}% - {Kac}{\global\RootNumber=\stringCharacterInPosition{162345}{#1}\relax}% + {Adams}{\global\dynkin@Root@Number=\stringCharacterInPosition{152436}{#1}\relax}% + {Carter}{\global\dynkin@Root@Number=\stringCharacterInPosition{142356}{#1}\relax}% + {Dynkin}{\global\dynkin@Root@Number=\stringCharacterInPosition{162345}{#1}\relax}% + {Kac}{\global\dynkin@Root@Number=\stringCharacterInPosition{162345}{#1}\relax}% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% \else% \ifnum\dynkin@rank=7% \IfStrEqCase{\dynkin@ordering}% {% - {Adams}{\global\RootNumber=\stringCharacterInPosition{6354217}{#1}\relax}% - {Carter}{\global\RootNumber=\stringCharacterInPosition{7564321}{#1}\relax}% - {Dynkin}{\global\RootNumber=\stringCharacterInPosition{1723456}{#1}\relax}% - {Kac}{\global\RootNumber=\stringCharacterInPosition{1723456}{#1}\relax}% + {Adams}{\global\dynkin@Root@Number=\stringCharacterInPosition{6354217}{#1}\relax}% + {Carter}{\global\dynkin@Root@Number=\stringCharacterInPosition{7564321}{#1}\relax}% + {Dynkin}{\global\dynkin@Root@Number=\stringCharacterInPosition{1723456}{#1}\relax}% + {Kac}{\global\dynkin@Root@Number=\stringCharacterInPosition{1723456}{#1}\relax}% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% \else% \ifnum\dynkin@rank=8% \IfStrEqCase{\dynkin@ordering}% {% - {Adams}{\global\RootNumber=\stringCharacterInPosition{13245678}{#1}\relax}% - {Carter}{\global\RootNumber=\stringCharacterInPosition{86754321}{#1}\relax}% - {Dynkin}{\global\RootNumber=\stringCharacterInPosition{18234567}{#1}\relax}% - {Kac}{\global\RootNumber=\stringCharacterInPosition{78654321}{#1}\relax}% + {Adams}{\global\dynkin@Root@Number=\stringCharacterInPosition{13245678}{#1}\relax}% + {Carter}{\global\dynkin@Root@Number=\stringCharacterInPosition{86754321}{#1}\relax}% + {Dynkin}{\global\dynkin@Root@Number=\stringCharacterInPosition{18234567}{#1}\relax}% + {Kac}{\global\dynkin@Root@Number=\stringCharacterInPosition{78654321}{#1}\relax}% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% \else% - \global\RootNumber=#1\relax% + \global\dynkin@Root@Number=#1\relax% \fi% \fi% \fi% @@ -3292,36 +3587,36 @@ main} {% \IfStrEqCase{\dynkin@ordering}% {% - {Adams}{\global\RootNumber=\stringCharacterInPosition{4321}{#1}\relax}% + {Adams}{\global\dynkin@Root@Number=\stringCharacterInPosition{4321}{#1}\relax}% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% }% {G}% {% \IfStrEqCase{\dynkin@ordering}% {% - {Carter}{\global\RootNumber=\stringCharacterInPosition{21}{#1}\relax}% - {Dynkin}{\global\RootNumber=\stringCharacterInPosition{21}{#1}\relax}% + {Carter}{\global\dynkin@Root@Number=\stringCharacterInPosition{21}{#1}\relax}% + {Dynkin}{\global\dynkin@Root@Number=\stringCharacterInPosition{21}{#1}\relax}% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% }% }% - [\global\RootNumber=#1\relax]% + [\global\dynkin@Root@Number=#1\relax]% }% }% %% \convertRootPair{

}{} -%% Stores conversions in \@fromRoot and \@toRoot. +%% Stores conversions in \@dynkin@from@root and \@dynkin@to@root. \NewDocumentCommand\convertRootPair{mm} {% \convertRootNumber{#1}% - \global\@fromRoot=\RootNumber\relax% + \global\@dynkin@from@root=\dynkin@Root@Number\relax% \convertRootNumber{#2}% - \global\@toRoot=\RootNumber\relax% + \global\@dynkin@to@root=\dynkin@Root@Number\relax% }% %% \testbit{}{} %% If bit number of is 1 then set bittrue else set bitfalse -\newif\ifbit +\newif\ifdynkin@bit \newcount\test@bit@a \newcount\test@bit@b \newif\iftest@bit@more @@ -3337,9 +3632,9 @@ main} \ifnum\test@bit@b=0\relax% \global\test@bit@morefalse% \ifodd\test@bit@a\empty% - \global\bittrue% + \global\dynkin@bittrue% \else% - \global\bitfalse% + \global\dynkin@bitfalse% \fi% \else% \divide\test@bit@a by 2\relax% @@ -3379,6 +3674,7 @@ main} \advance\dynkin@where by 1\relax% \replaceNthChar{\dynkin@roots}{\the\dynkin@where}{x}% }% +\newcount\dynkin@nodes@minus@one% \NewDocumentCommand\dynkin@cross@out@parabolics{}% {% \IfInteger{\dynkin@parabolic}% @@ -3387,12 +3683,12 @@ main} {% }% {% - \drmo=\the\dynkin@nodes\relax% - \advance\drmo by -1\relax% - \foreach \b in {0,...,\the\drmo}% + \dynkin@nodes@minus@one=\the\dynkin@nodes\relax% + \advance\dynkin@nodes@minus@one by -1\relax% + \foreach \b in {0,...,\the\dynkin@nodes@minus@one}% {% \testbit{\dynkin@parabolic}{\b}% - \ifbit\dynkin@put@cross{\b}\fi% + \ifdynkin@bit\dynkin@put@cross{\b}\fi% }% }% }% @@ -3406,11 +3702,10 @@ main} \convertRootNumber{#2}% }% {% - \global\RootNumber=#2\relax% + \global\dynkin@Root@Number=#2\relax% }% - \node (Dynkin current) at (\dynkin@root@name \the\RootNumber){};% + \node (Dynkin current) at (\dynkin@root@name \the\dynkin@Root@Number){};% }% - %% \dynkinPlaceRootHere{}{}{} %% \dynkinPlaceRootHere*{}{}{} %% Tell TikZ to place node for a root of a Dynkin diagram at the current @@ -3426,17 +3721,14 @@ main} \convertRootNumber{#2}% }% {% - \global\RootNumber=#2\relax% + \global\dynkin@Root@Number=#2\relax% }% - \node (\dynkin@root@name \the\RootNumber) at (Dynkin current) {};% - \dynkin@put@direction{\the\RootNumber}{#3}% - \dynkin@put@direction*{\the\RootNumber}{#4}% + \node (\dynkin@root@name \the\dynkin@Root@Number) at (Dynkin current) {};% + \dynkin@put@direction{\the\dynkin@Root@Number}{#3}% + \dynkin@put@direction*{\the\dynkin@Root@Number}{#4}% }% - - \newif\ifdynkin@hex@grid \dynkin@hex@gridtrue - %% \dynkinPlaceRootRelativeTo{

}{}{}{}{} %% \dynkinPlaceRootRelativeTo*{

}{}{}{}{} %% Tell TikZ to place node

for a root of a Dynkin diagram at a location @@ -3451,16 +3743,15 @@ main} %% Starred form is in Bourbaki root ordering; otherwise default ordering. \NewDocumentCommand\dynkinPlaceRootRelativeTo{smmmmm}% {% -\xdef\ssss{#2} \IfBooleanTF{#1}% {% \convertRootPair{#3}{#2}% }% {% - \global\@fromRoot=#3\relax% - \global\@toRoot=#2\relax% + \global\@dynkin@from@root=#3\relax% + \global\@dynkin@to@root=#2\relax% }% - \dynkin@is@edge@indefinite{\@fromRoot}{\@toRoot}% + \dynkin@is@edge@indefinite{\@dynkin@from@root}{\@dynkin@to@root}% \ifdynkin@is@indefinite@edge% \xdef\dynkin@distance{\dynkin@indefinite@edge@length} \else @@ -3473,16 +3764,56 @@ main} {east}{\xdef\xd{\dynkin@distance}\xdef\yd{0}}% {south}{\xdef\xd{0}\xdef\yd{-\dynkin@distance}}% {north}{\xdef\xd{0}\xdef\yd{\dynkin@distance}}% - {southeast}{\xdef\xd{cos(-60)*\dynkin@distance}\xdef\yd{sin(-60)*\dynkin@distance}}% - {southwest}{\xdef\xd{cos(240)*\dynkin@distance}\xdef\yd{sin(240)*\dynkin@distance}}% - {northeast}{\xdef\xd{cos(60)*\dynkin@distance}\xdef\yd{sin(60)*\dynkin@distance}}% - {northwest}{\xdef\xd{cos(120)*\dynkin@distance}\xdef\yd{sin(120)*\dynkin@distance}}% - {southeastfold}{\xdef\xd{\dynkin@fold@radius}\xdef\yd{-\dynkin@fold@radius}}% - {southwestfold}{\xdef\xd{-\dynkin@fold@radius}\xdef\yd{-\dynkin@fold@radius}}% - {northeastfold}{\xdef\xd{\dynkin@fold@radius}\xdef\yd{\dynkin@fold@radius}}% - {northwestfold}{\xdef\xd{-\dynkin@fold@radius}\xdef\yd{\dynkin@fold@radius}}% - {northfold}{\xdef\xd{0}\xdef\yd{2*\dynkin@fold@radius}}% - {southfold}{\xdef\xd{0}\xdef\yd{-2*\dynkin@fold@radius}}% + {southeast}% + {% + \xdef\xd{cos(-60)*\dynkin@distance}% + \xdef\yd{sin(-60)*\dynkin@distance}% + }% + {southwest}% + {% + \xdef\xd{cos(240)*\dynkin@distance}% + \xdef\yd{sin(240)*\dynkin@distance}% + }% + {northeast}% + {% + \xdef\xd{cos(60)*\dynkin@distance}% + \xdef\yd{sin(60)*\dynkin@distance}% + }% + {northwest}% + {% + \xdef\xd{cos(120)*\dynkin@distance}% + \xdef\yd{sin(120)*\dynkin@distance}% + }% + {southeastfold}% + {% + \xdef\xd{\dynkin@fold@radius}% + \xdef\yd{-\dynkin@fold@radius}% + }% + {southwestfold}% + {% + \xdef\xd{-\dynkin@fold@radius}% + \xdef\yd{-\dynkin@fold@radius}% + }% + {northeastfold}% + {% + \xdef\xd{\dynkin@fold@radius}% + \xdef\yd{\dynkin@fold@radius}% + }% + {northwestfold}% + {% + \xdef\xd{-\dynkin@fold@radius}% + \xdef\yd{\dynkin@fold@radius}% + }% + {northfold}% + {% + \xdef\xd{0}% + \xdef\yd{2*\dynkin@fold@radius}% + }% + {southfold}% + {% + \xdef\xd{0}% + \xdef\yd{-2*\dynkin@fold@radius}% + }% }% \else% \IfStrEqCase{#4}% @@ -3491,20 +3822,63 @@ main} {east}{\xdef\xd{\dynkin@distance}\xdef\yd{0}}% {south}{\xdef\xd{0}\xdef\yd{-\dynkin@distance}}% {north}{\xdef\xd{0}\xdef\yd{\dynkin@distance}}% - {southeast}{\xdef\xd{cos(-45)*\dynkin@distance}\xdef\yd{sin(-45)*\dynkin@distance}}% - {southwest}{\xdef\xd{cos(225)*\dynkin@distance}\xdef\yd{sin(225)*\dynkin@distance}}% - {northeast}{\xdef\xd{cos(45)*\dynkin@distance}\xdef\yd{sin(45)*\dynkin@distance}}% - {northwest}{\xdef\xd{cos(135)*\dynkin@distance}\xdef\yd{sin(135)*\dynkin@distance}}% - {southeastfold}{\xdef\xd{\dynkin@fold@radius}\xdef\yd{-\dynkin@fold@radius}}% - {southwestfold}{\xdef\xd{-\dynkin@fold@radius}\xdef\yd{-\dynkin@fold@radius}}% - {northeastfold}{\xdef\xd{\dynkin@fold@radius}\xdef\yd{\dynkin@fold@radius}}% - {northwestfold}{\xdef\xd{-\dynkin@fold@radius}\xdef\yd{\dynkin@fold@radius}}% - {northfold}{\xdef\xd{0}\xdef\yd{2*\dynkin@fold@radius}}% - {southfold}{\xdef\xd{0}\xdef\yd{-2*\dynkin@fold@radius}}% + {southeast}% + {% + \xdef\xd{cos(-45)*\dynkin@distance}% + \xdef\yd{sin(-45)*\dynkin@distance}% + }% + {southwest}% + {% + \xdef\xd{cos(225)*\dynkin@distance}% + \xdef\yd{sin(225)*\dynkin@distance}% + }% + {northeast}% + {% + \xdef\xd{cos(45)*\dynkin@distance}% + \xdef\yd{sin(45)*\dynkin@distance}% + }% + {northwest}% + {% + \xdef\xd{cos(135)*\dynkin@distance}% + \xdef\yd{sin(135)*\dynkin@distance}% + }% + {southeastfold}% + {% + \xdef\xd{\dynkin@fold@radius}% + \xdef\yd{-\dynkin@fold@radius}% + }% + {southwestfold}% + {% + \xdef\xd{-\dynkin@fold@radius}% + \xdef\yd{-\dynkin@fold@radius}% + }% + {northeastfold}% + {% + \xdef\xd{\dynkin@fold@radius}% + \xdef\yd{\dynkin@fold@radius}% + }% + {northwestfold}% + {% + \xdef\xd{-\dynkin@fold@radius}% + \xdef\yd{\dynkin@fold@radius}% + }% + {northfold}% + {% + \xdef\xd{0}% + \xdef\yd{2*\dynkin@fold@radius}% + }% + {southfold}% + {% + \xdef\xd{0}% + \xdef\yd{-2*\dynkin@fold@radius}% + }% }% \fi - \node (Dynkin current) at ($(\dynkin@root@name \the\@fromRoot)+({\xd},{\yd})$){}; - \dynkinPlaceRootHere{\the\@toRoot}{#5}{#6}% + \node (Dynkin current) + at + ($(\dynkin@root@name \the\@dynkin@from@root)% + +({\xd},{\yd})$){}; + \dynkinPlaceRootHere{\the\@dynkin@to@root}{#5}{#6}% }% % Jump the current location by a certain multiple of the fold radius. @@ -3639,18 +4013,24 @@ main} {% \convertRootPair{#1}{#2}% \ifdynkin@Satake@diagram% - \StrChar{\dynkin@roots}{\the\@fromRoot}[\my@root@marker]% + \StrChar{\dynkin@roots}% + {\the\@dynkin@from@root}% + [\my@root@marker]% \IfStrEq{\my@root@marker}{o}% {% - \StrChar{\dynkin@roots}{\the\@toRoot}[\my@other@root@marker]% + \StrChar{\dynkin@roots}% + {\the\@dynkin@to@root}% + [\my@other@root@marker]% \IfStrEq{\my@other@root@marker}{o}% {% - \dynkinFold{\the\@fromRoot}{\the\@toRoot}% + \dynkinFold% + {\the\@dynkin@from@root}% + {\the\@dynkin@to@root}% }% {}% }{}% \else% - \dynkinFold{\the\@fromRoot}{\the\@toRoot}% + \dynkinFold{\the\@dynkin@from@root}{\the\@dynkin@to@root}% \fi% }% \newcount\pipebmo @@ -3665,7 +4045,7 @@ main} {% \start@pipe=#1\relax% \pipe@end=#2\relax% - \ifnum\start@pipe<\the\pipe@end% + \ifnum\start@pipe<\the\pipe@end\relax% \global\pipebmo=\the\start@pipe\relax% \global\pipefpo=\the\start@pipe\relax% \global\advance\pipefpo by 1\relax% @@ -3701,15 +4081,32 @@ main} \advance\dynkin@nrts by -#1\relax% \ifodd\dynkin@nrts% \global\advance\dynkin@afterfold by 1\relax% - \dynkinPlaceRootRelativeTo*{\the\dynkin@hpo}{\the\dynkin@h}{southeastfold}{right}{left}% - \dynkinEdge*{RightDownArc}{\the\dynkin@h}{\the\dynkin@hpo}% - \dynkinPlaceRootRelativeTo*{\the\dynkin@afterfold}{\the\dynkin@hpo}{southwestfold}{below}{above right}% - \dynkinEdge*{RightUpArc}{\the\dynkin@afterfold}{\the\dynkin@hpo}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@hpo}% + {\the\dynkin@h}% + {southeastfold}{right}{left}% + \dynkinEdge*{RightDownArc}% + {\the\dynkin@h}% + {\the\dynkin@hpo}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@afterfold}% + {\the\dynkin@hpo}% + {southwestfold}% + {below}{above right}% + \dynkinEdge*{RightUpArc}% + {\the\dynkin@afterfold}% + {\the\dynkin@hpo}% \else - \dynkinPlaceRootRelativeTo*{\the\dynkin@afterfold}{\the\dynkin@h}{southfold}{below}{above right}% - \dynkinEdge*{SemiCircle}{\the\dynkin@h}{\the\dynkin@afterfold}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@afterfold}% + {\the\dynkin@h}% + {southfold}{below}{above right}% + \dynkinEdge*{SemiCircle}% + {\the\dynkin@h}% + {\the\dynkin@afterfold}% \fi - \dynkin@pipe{\the\dynkin@afterfold}{#2}{west}{below}{above right} + \dynkin@pipe{\the\dynkin@afterfold}% + {#2}{west}{below}{above right} \ifdynkin@arrows% \dynkin@countdown=#2\relax% \foreach \dynkin@b in {#1,...,\the\dynkin@h}% @@ -3736,7 +4133,9 @@ main} \else% \dynkinPlaceRootHere*{1}{below}{above}% \ifnum\dynkin@rank>1% - \dynkin@pipe{1}{\the\dynkin@rank}{east}{below}{above}% + \dynkin@pipe{1}% + {\the\dynkin@rank}% + {east}{below}{above}% \fi% \fi% }% @@ -3747,43 +4146,55 @@ main} \ifnum\dynkin@rank<2 \Adynkin \else - \newcount\drmo% - \drmo=\the\dynkin@rank\relax% - \advance\drmo by -1\relax% \ifdynkin@Coxeter% \Adynkin% - \dynkinEdgeLabel{\the\drmo}{\the\dynkin@rank}{4}% + \dynkinEdgeLabel% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}{4}% \else % Create the roots. \ifnum\dynkin@ply>1% \ifnum\dynkin@rank>3% \dynkin@jump{1}% \dynkinPlaceRootHere*{1}{above}{below right}% - \dynkinPlaceRootRelativeTo*{2}{1}{east}{above}{below right}% - \dynkin@fold{2}{\the\drmo}% - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\the\drmo}{west}{below}{above right}% - \dynkinEdge*{DoubleEdge}{\the\drmo}{\the\dynkin@rank}% + \dynkinPlaceRootRelativeTo*% + {2}{1}% + {east}{above}{below right}% + \dynkin@fold{2}{\the\dynkin@rank@minus@one}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}{\the\dynkin@rank@minus@one}% + {west}{below}{above right}% + \dynkinEdge*{DoubleEdge}% + {\the\dynkin@rank@minus@one}{\the\dynkin@rank}% \dynkinEdge*{SingleEdge}{1}{2}% \else% \ifnum\dynkin@rank=2% \dynkin@jump{1}% \dynkinPlaceRootHere*{1}{above}{below right}% - \dynkinPlaceRootRelativeTo*{2}{1}{southfold}{below}{above right}% + \dynkinPlaceRootRelativeTo*{2}{1}% + {southfold}{below}{above right}% \dynkinEdge*{DoubleDownRightSemiCircle}{1}{2}% \else% \dynkin@jump{1}% \dynkinPlaceRootHere*{1}{above}{below right}% - \dynkinPlaceRootRelativeTo*{2}{1}{southeastfold}{right}{left}% - \dynkinPlaceRootRelativeTo*{3}{2}{southwestfold}{below}{above right}% + \dynkinPlaceRootRelativeTo*{2}{1}% + {southeastfold}{right}{left}% + \dynkinPlaceRootRelativeTo*{3}{2}% + {southwestfold}{below}{above right}% \dynkinEdge*{RightDownArc}{1}{2}% \dynkinEdge*{DoubleDownLeftArc}{2}{3}% \fi% \fi% \else% \dynkinPlaceRootHere*{1}{below}{above} - \dynkin@pipe{1}{\the\drmo}{east}{below}{above} - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\the\drmo}{east}{below}{above} - \dynkinEdge*{DoubleEdge}{\the\drmo}{\the\dynkin@rank}% + \dynkin@pipe{1}{\the\dynkin@rank@minus@one}{east}{below}{above} + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@one}% + {east}{below}{above} + \dynkinEdge*{DoubleEdge}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}% \fi% \ifdynkin@arrows% \ifnum\dynkin@ply>1% @@ -3817,30 +4228,60 @@ main} \ifdynkin@is@extended% \ifnum\dynkin@ply>1% \ifnum\dynkin@rank=4% - \dynkinPlaceRootRelativeTo*{2}{0}{southeastfold}{left}{right}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeastfold}% + {left}{right}% \else% - \dynkinPlaceRootRelativeTo*{2}{0}{southeastfold}{below right}{above right}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeastfold}% + {below right}{above right}% \fi% - \dynkinPlaceRootRelativeTo*{1}{2}{southwestfold}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwestfold}% + {left}{above left}% \else% \ifdynkin@left@fold% \ifnum\dynkin@rank=4% - \dynkinPlaceRootRelativeTo*{2}{0}{southeastfold}{left}{right}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeastfold}% + {left}{right}% \else% - \dynkinPlaceRootRelativeTo*{2}{0}{southeastfold}{below right}{above right}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeastfold}% + {below right}{above right}% \fi% - \dynkinPlaceRootRelativeTo*{1}{2}{southwestfold}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwestfold}% + {left}{above left}% \else% \ifnum\dynkin@rank=4% \ifdynkin@right@fold% - \dynkinPlaceRootRelativeTo*{2}{0}{southeast}{left}{right}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeast}% + {left}{right}% \else% - \dynkinPlaceRootRelativeTo*{2}{0}{southeast}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeast}% + {below}{above}% \fi% \else% - \dynkinPlaceRootRelativeTo*{2}{0}{southeast}{below right}{above right}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeast}% + {below right}{above right}% \fi% - \dynkinPlaceRootRelativeTo*{1}{2}{southwest}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwest}% + {left}{above left}% \fi% \fi% \dynkinMoveToRoot*{2}% @@ -3848,71 +4289,121 @@ main} \dynkinPlaceRootHere*{1}{below}{above} \ifnum\dynkin@rank=4% \ifdynkin@right@fold% - \dynkinPlaceRootRelativeTo*{2}{1}{east}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {2}{1}% + {east}{below}{above}% \else% \ifnum\dynkin@ply>1% - \dynkinPlaceRootRelativeTo*{2}{1}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {2}{1}% + {east}% + {below left}{above left}% \else% - \dynkinPlaceRootRelativeTo*{2}{1}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {2}{1}% + {east}% + {below left}{above left}% \fi% \fi% \else% - \dynkinPlaceRootRelativeTo*{2}{1}{east}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {2}{1}% + {east}% + {below}{above}% \fi% \fi - \newcount\rmo% - \rmo=\dynkin@rank\relax% - \advance \rmo by -1\relax% - \newcount\rmt% - \rmt=\rmo\relax% - \advance\rmt by -1\relax% - \newcount\rmth% - \rmth=\rmt\relax% - \advance\rmth by -1\relax% \ifnum\dynkin@rank>2% \ifnum\dynkin@rank>5% \dynkinPlaceRootRelativeTo*{3}{2}{east}{below}{above}% \else% \ifnum\dynkin@ply>1% - \dynkinPlaceRootRelativeTo*{3}{2}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {3}{2}% + {east}% + {below left}{above left}% \else% \ifnum\dynkin@rank=5% \ifdynkin@right@fold% - \dynkinPlaceRootRelativeTo*{3}{2}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {3}{2}% + {east}% + {below left}{above left}% \else% - \dynkinPlaceRootRelativeTo*{3}{2}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {3}{2}% + {east}% + {below left}{above left}% \fi% \else% - \dynkinPlaceRootRelativeTo*{3}{2}{east}{below right}{above left}% + \dynkinPlaceRootRelativeTo*% + {3}{2}% + {east}% + {below right}{above left}% \fi% \fi% \fi% - \ifnum\rmth>3% - \dynkin@pipe{3}{\the\rmth}{east}{below}{above}% + \ifnum\dynkin@rank@minus@three>3% + \dynkin@pipe% + {3}{\the\dynkin@rank@minus@three}% + {east}% + {below}{above}% \fi% - \ifnum\rmt>3% + \ifnum\dynkin@rank@minus@two>3% \ifnum\dynkin@ply>1% - \dynkinPlaceRootRelativeTo*{\rmt}{\rmth}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {\dynkin@rank@minus@two}% + {\dynkin@rank@minus@three}% + {east}% + {below left}{above left}% \else% \ifdynkin@right@fold% - \dynkinPlaceRootRelativeTo*{\rmt}{\rmth}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {\dynkin@rank@minus@two}% + {\dynkin@rank@minus@three}% + {east}% + {below left}{above left}% \else% - \dynkinPlaceRootRelativeTo*{\rmt}{\rmth}{east}{below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {\dynkin@rank@minus@two}% + {\dynkin@rank@minus@three}% + {east}% + {below left}{above left}% \fi% \fi% - \dynkinEdge*{SingleEdge}{\rmt}{\rmth}% + \dynkinEdge*{SingleEdge}% + {\dynkin@rank@minus@two}% + {\dynkin@rank@minus@three}% \fi% \ifnum\dynkin@ply=1% \ifdynkin@right@fold% - \dynkinPlaceRootRelativeTo*{\the\rmo}{\the\rmt}{northeastfold}{right}{above right}% - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\the\rmt}{southeastfold}{right}{above right}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% + {northeastfold}{right}{above right}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@two}% + {southeastfold}{right}{above right}% \else% - \dynkinPlaceRootRelativeTo*{\the\rmo}{\the\rmt}{northeast}{right}{above right}% - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\the\rmt}{southeast}{right}{above right}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% + {northeast}{right}{above right}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}{\the\dynkin@rank@minus@two}% + {southeast}{right}{above right}% \fi% \else% - \dynkinPlaceRootRelativeTo*{\the\rmo}{\the\rmt}{northeastfold}{right}{above right}% - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\the\rmt}{southeastfold}{right}{above right}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% + {northeastfold}% + {right}{above right}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@two}% + {southeastfold}% + {right}{above right}% \fi% \fi% }% @@ -3921,16 +4412,7 @@ main} \NewDocumentCommand\Ddynkin@edges{}% {% % Draw the edges. - \newcount\rmo% - \rmo=\dynkin@rank\relax% - \advance \rmo by -1\relax% - \newcount\rmt% - \rmt=\rmo\relax% - \advance\rmt by -1\relax% - \newcount\rmtr% - \rmtr=\rmt\relax% - \advance\rmtr by -1\relax% - \ifnum\dynkin@ply>1% + \ifnum\dynkin@ply>1% \ifdynkin@is@extended% \dynkinEdge*{RightUpArc}{1}{2}% \else% @@ -3939,10 +4421,16 @@ main} \ifnum\dynkin@rank>4% \dynkinEdge*{SingleEdge}{2}{3}% \fi% - \dynkinEdge*{LeftDownArc}{\the\rmo}{\the\rmt}% - \dynkinEdge*{LeftUpArc}{\the\dynkin@rank}{\the\rmt}% + \dynkinEdge*{LeftDownArc}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% + \dynkinEdge*{LeftUpArc}% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@two}% \ifdynkin@arrows% - \dynkinRightFold*{\the\rmo}{\the\dynkin@rank}% + \dynkinRightFold*% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}% \ifdynkin@is@extended% \dynkinLeftFold*{0}{1}% \fi% @@ -3967,12 +4455,22 @@ main} \dynkinEdge*{SingleEdge}{1}{2}% \fi% \ifdynkin@right@fold% - \dynkinEdge*{LeftDownArc}{\the\rmo}{\the\rmt}% - \dynkinEdge*{LeftUpArc}{\the\dynkin@rank}{\the\rmt}% - \dynkinRightFold*{\the\rmo}{\the\dynkin@rank}% + \dynkinEdge*{LeftDownArc}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% + \dynkinEdge*{LeftUpArc}% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@two}% + \dynkinRightFold*% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}% \else% - \dynkinEdge*{SingleEdge}{\the\rmt}{\the\rmo}% - \dynkinEdge*{SingleEdge}{\the\rmt}{\the\dynkin@rank}% + \dynkinEdge*{SingleEdge}% + {\the\dynkin@rank@minus@two}% + {\the\dynkin@rank@minus@one}% + \dynkinEdge*{SingleEdge}% + {\the\dynkin@rank@minus@two}% + {\the\dynkin@rank}% \fi% \fi% }% @@ -3986,10 +4484,21 @@ main} \NewDocumentCommand\DthreePly{}% {% \ifdynkin@right@fold% - \dynkinPlaceRootHere*{1}{below left}{above right}% - \dynkinPlaceRootRelativeTo*{3}{1}{east}{below left}{above right}% - \dynkinPlaceRootRelativeTo*{2}{3}{north}{below left}{above right}% - \dynkinPlaceRootRelativeTo*{4}{3}{south}{below}{above right}% + \dynkinPlaceRootHere*% + {1}% + {below left}{above right}% + \dynkinPlaceRootRelativeTo*% + {3}{1}% + {east}% + {below left}{above right}% + \dynkinPlaceRootRelativeTo*% + {2}{3}% + {north}% + {below left}{above right}% + \dynkinPlaceRootRelativeTo*% + {4}{3}% + {south}% + {below}{above right}% \edef\old@fold@radius{\dynkin@fold@radius}% \xdef\dynkin@fold@radius{\dynkin@edge@length}% \dynkinEdge*{SingleEdge}{1}{3}% @@ -4002,16 +4511,28 @@ main} \fi% \else% \dynkinPlaceRootHere*{1}{left}{above right}% - \dynkinPlaceRootRelativeTo*{2}{1}{east}{below left}{above left}% - \dynkinPlaceRootRelativeTo*{3}{2}{northeast}{above right}{below}% - \dynkinPlaceRootRelativeTo*{4}{2}{southeast}{below right}{left}% + \dynkinPlaceRootRelativeTo*% + {2}{1}% + {east}% + {below left}{above left}% + \dynkinPlaceRootRelativeTo*% + {3}{2}% + {northeast}% + {above right}{below}% + \dynkinPlaceRootRelativeTo*% + {4}{2}% + {southeast}% + {below right}{left}% \dynkinEdge*{SingleEdge}{1}{2}% \dynkinEdge*{SingleEdge}{2}{3}% \dynkinEdge*{SingleEdge}{2}{4}% \begin{pgfonlayer}{Dynkin behind}%% - \centerarc[/Dynkin diagram/fold style](\dynkin@root@name 2)(-60:60:\dynkin@edge@length); - \centerarc[/Dynkin diagram/fold style](\dynkin@root@name 2)(60:180:\dynkin@edge@length); - \centerarc[/Dynkin diagram/fold style](\dynkin@root@name 2)(180:300:\dynkin@edge@length); + \centerarc[/Dynkin diagram/fold style]% + (\dynkin@root@name 2)(-60:60:\dynkin@edge@length); + \centerarc[/Dynkin diagram/fold style]% + (\dynkin@root@name 2)(60:180:\dynkin@edge@length); + \centerarc[/Dynkin diagram/fold style]% + (\dynkin@root@name 2)(180:300:\dynkin@edge@length); \end{pgfonlayer}%% \fi% }% @@ -4045,28 +4566,45 @@ main} \gdef\dynkin@series{D}% \fi% }% +\newcount\dynkin@bmo% \newcommand*{\Edynkin@unfolded@rank@up@to@eight}% {% % Create the @roots. \dynkinPlaceRootHere*{1}{below}{above}% - \dynkinPlaceRootRelativeTo*{3}{1}{east}{below}{above}% - \dynkinPlaceRootRelativeTo*{4}{3}{east}{below}{above right}% + \dynkinPlaceRootRelativeTo*% + {3}{1}% + {east}% + {below}{above}% + \dynkinPlaceRootRelativeTo*% + {4}{3}% + {east}% + {below}{above right}% \ifdynkin@is@extended% \ifnum\dynkin@rank=6% - \dynkinPlaceRootRelativeTo*{2}{4}{north}{right}{above right}% + \dynkinPlaceRootRelativeTo*% + {2}{4}% + {north}% + {right}{above right}% \else - \dynkinPlaceRootRelativeTo*{2}{4}{north}{right}{above}% + \dynkinPlaceRootRelativeTo*% + {2}{4}% + {north}% + {right}{above}% \fi% \else% - \dynkinPlaceRootRelativeTo*{2}{4}{north}{right}{above}% + \dynkinPlaceRootRelativeTo*% + {2}{4}% + {north}% + {right}{above}% \fi% - \newcount\bmo\relax% - \bmo=4\relax% - \foreach \b in {5,...,\dynkin@rank}% + \dynkin@bmo=4\relax% + \foreach \dynkin@b in {5,...,\dynkin@rank}% {% - \dynkinPlaceRootRelativeTo*{\b}{\the\bmo}{east}{below}{above}% - \dynkinEdge*{SingleEdge}{\the\bmo}{\b}% - \global\advance\bmo by 1\relax% + \dynkinPlaceRootRelativeTo*% + {\dynkin@b}{\the\dynkin@bmo}% + {east}{below}{above}% + \dynkinEdge*{SingleEdge}{\the\dynkin@bmo}{\dynkin@b}% + \global\advance\dynkin@bmo by 1\relax% }% % % Draw the remaining edges. \dynkinEdge*{SingleEdge}{1}{3} @@ -4078,10 +4616,16 @@ main} \dynkinEdge*{SingleEdge}{0}{2}% \else% \ifnum\dynkin@rank=7% - \dynkinPlaceRootRelativeTo*{0}{1}{west}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {0}{1}% + {west}% + {below}{above}% \dynkinEdge*{SingleEdge}{0}{1}% \else% - \dynkinPlaceRootRelativeTo*{0}{8}{east}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {0}{8}% + {east}% + {below}{above}% \dynkinEdge*{SingleEdge}{0}{8}% \fi% \fi% @@ -4095,13 +4639,15 @@ main} % We have to work in Kac ordering directly. \dynkinPlaceRootHere*{1}{below}{above}% \ifnum\dynkin@rank>1% - \newcount\drmo% - \drmo=\the\dynkin@rank\relax% - \advance\drmo by -1\relax% - \dynkin@pipe{1}{\the\drmo}{east}{below}{above}% - \advance\drmo by -2\relax% - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\drmo}{north}{right}{above}% - \dynkinEdge*{SingleEdge}{\the\dynkin@rank}{\drmo} + \dynkin@pipe% + {1}{\the\dynkin@rank@minus@one}% + {east}{below}% + {above}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}{\dynkin@rank@minus@three}% + {north}{right}{above}% + \dynkinEdge*{SingleEdge}% + {\the\dynkin@rank}{\dynkin@rank@minus@three}% \fi% \else% \Edynkin@unfolded@rank@up@to@eight% @@ -4121,10 +4667,22 @@ main} {% \dynkin@jump{1}% \dynkinPlaceRootHere*{1}{above}{below right}% - \dynkinPlaceRootRelativeTo*{3}{1}{east}{above}{below right}% - \dynkinPlaceRootRelativeTo*{4}{3}{southeastfold}{below right}{above right}% - \dynkinPlaceRootRelativeTo*{5}{4}{southwestfold}{below}{above right}% - \dynkinPlaceRootRelativeTo*{6}{5}{west}{below}{above right}% + \dynkinPlaceRootRelativeTo*% + {3}{1}% + {east}% + {above}{below right}% + \dynkinPlaceRootRelativeTo*% + {4}{3}% + {southeastfold}% + {below right}{above right}% + \dynkinPlaceRootRelativeTo*% + {5}{4}% + {southwestfold}% + {below}{above right}% + \dynkinPlaceRootRelativeTo*% + {6}{5}% + {west}% + {below}{above right}% \ifdynkin@is@extended% \dynkinPlaceRootRelativeTo*{2}{4}{east}{below}{above}% \dynkinPlaceRootRelativeTo*{0}{2}{east}{below}{above}% @@ -4264,12 +4822,10 @@ main} \Adynkin% \dynkinEdgeLabel{1}{2}{5}% }% -%%%\newcount\dynkin@I@n% %% \Idynkin %% Draws an I series Coxeter diagram. \newcommand*{\Idynkin}% {% -%%% \dynkin@I@n\dynkin@rank\relax% \dynkin@rank=2\relax% \Adynkin% \dynkinEdgeLabel{1}{2}{\dynkin@gonality}% @@ -4290,7 +4846,7 @@ main} ]% ($(\dynkin@root@name 0)+(\dynkin@root@radius,0)$) -- - ($(\dynkin@root@name \the\RootNumber)-(\dynkin@root@radius,0)$);% + ($(\dynkin@root@name \the\dynkin@Root@Number)-(\dynkin@root@radius,0)$);% \end{pgfonlayer}%% \else% \ifnum\dynkin@ply=4% @@ -4348,7 +4904,7 @@ main} \dynkinEdge*{DoubleDownRightArc}{2}{3}% \xdef\dynkin@fold@radius{\old@fold@radius}% }% - +\newcount\dynkin@bmo% %% \extendedBdynkin %% Draws a B series affine Dynkin/Coxeter diagram. \newcommand*{\extendedBdynkin}% @@ -4369,44 +4925,66 @@ main} \ifnum\dynkin@ply=2\relax% \dynkin@jump{1}% \dynkinPlaceRootHere*{0}{left}{above left}% - \dynkinPlaceRootRelativeTo*{2}{0}{southeastfold}{below right}{above right}% - \dynkinPlaceRootRelativeTo*{1}{2}{southwestfold}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeastfold}% + {below right}{above right}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwestfold}% + {left}{above left}% \dynkinLeftFold*{0}{1}% \dynkinEdge*{RightDownArc}{0}{2}% \dynkinEdge*{RightUpArc}{1}{2}% \else% \dynkin@hop{1}% \dynkinPlaceRootHere*{0}{left}{above left}% - \dynkinPlaceRootRelativeTo*{2}{0}{southeast}{below right}{above right}% - \dynkinPlaceRootRelativeTo*{1}{2}{southwest}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeast}% + {below right}{above right}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwest}% + {left}{above left}% \dynkinEdge*{SingleEdge}{0}{2}% \dynkinEdge*{SingleEdge}{1}{2}% \fi% - \newcount\drmo% - \drmo=\the\dynkin@rank\relax% - \advance\drmo by -1\relax% - \newcount\bmo% - \bmo=2\relax% + \dynkin@bmo=2\relax% \ifnum\dynkin@rank>3% - \foreach \b in {3,...,\the\drmo}% + \foreach \dynkin@b in {3,...,\the\dynkin@rank@minus@one}% {% - \dynkinPlaceRootRelativeTo*{\b}{\the\bmo}{east}{below}{above}% - \dynkinEdge*{SingleEdge}{\b}{\the\bmo}% - \global\advance\bmo by 1\relax% + \dynkinPlaceRootRelativeTo*% + {\dynkin@b}{\the\dynkin@bmo}% + {east}{below}{above}% + \dynkinEdge*{SingleEdge}% + {\dynkin@b}{\the\dynkin@bmo}% + \global\advance\dynkin@bmo by 1\relax% }% \fi% \ifnum\dynkin@ply<3% - \dynkinPlaceRootRelativeTo*{\the\dynkin@rank}{\the\drmo}{east}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@one}% + {east}{below}{above}% \fi% \ifdynkin@Coxeter% - \dynkinEdge*{SingleEdge}{\the\drmo}{\the\dynkin@rank}% - \dynkinEdgeLabel{\the\drmo}{\the\dynkin@rank}{4}% + \dynkinEdge*{SingleEdge}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}% + \dynkinEdgeLabel% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}{4}% \else% \ifnum\dynkin@ply<3% - \dynkinEdge*{DoubleEdge}{\the\drmo}{\the\dynkin@rank}% + \dynkinEdge*{DoubleEdge}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}% \else% - \dynkinEdge*{DoubleDownRightArc}{\the\drmo}{\the\dynkin@rank}% - \fi% + \dynkinEdge*{DoubleDownRightArc}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank}% + \fi% \fi% \fi% \fi% @@ -4441,8 +5019,8 @@ main} \node (Dynkin current) at - ($.5*(\dynkin@root@name \the\@fromRoot)% - +.5*(\dynkin@root@name \the\@toRoot)$)% + ($.5*(\dynkin@root@name \the\@dynkin@from@root)% + +.5*(\dynkin@root@name \the\@dynkin@to@root)$)% {};% \dynkinWest% \dynkinPlaceRootHere*{2}{right}{left}% @@ -4461,38 +5039,44 @@ main} \xdef\yfp{2*\dynkin@fold@radius+2*cos(60)*\dynkin@edge@length}% \node (Dynkin current) at ($(Dynkin current)+(0,{\yfp})$){};% \dynkinPlaceRootHere*{0}{left}{above left}% - \dynkinPlaceRootRelativeTo*{2}{0}{southeastfold}{above right}{below right}% - \dynkinPlaceRootRelativeTo*{1}{2}{southwestfold}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {2}{0}% + {southeastfold}% + {above right}{below right}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwestfold}% + {left}{above left}% \dynkinMoveToRoot*{2}% - \newcount\drmo% - \drmo=\the\dynkin@rank\relax% - \advance\drmo by -1\relax% - \newcount\drmt% - \drmt=\the\drmo\relax% - \advance\drmt by -1\relax% \xdef\old@fold{\dynkin@fold@radius}% \pgfmathparse{\dynkin@fold@radius+2*cos(60)*\dynkin@edge@length}% \xdef\dynkin@fold@radius{\pgfmathresult pt}% - \dynkin@fold{2}{\the\drmt}% + \dynkin@fold{2}{\the\dynkin@rank@minus@two}% % We place the root number rank-2 once again (it is already placed in the \dynkin@fold): - \dynkinPlaceRootHere*{\the\drmt}{below right}{above right}% + \dynkinPlaceRootHere*% + {\the\dynkin@rank@minus@two}% + {below right}{above right}% \xdef\dynkin@fold@radius{\old@fold}% \dynkinPlaceRootRelativeTo*% - {\the\drmo}% - {\the\drmt}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% {northwestfold}% {left}% {above left}% \dynkinPlaceRootRelativeTo*% {\the\dynkin@rank}% - {\the\drmt}% + {\the\dynkin@rank@minus@two}% {southwestfold}% {left}% {above left}% \dynkinEdge*{RightDownArc}{0}{2}% \dynkinEdge*{RightUpArc}{1}{2}% - \dynkinEdge*{RightDownArc}{\the\drmo}{\the\drmt}% - \dynkinEdge*{RightUpArc}{\the\dynkin@rank}{\the\drmt}% + \dynkinEdge*{RightDownArc}% + {\the\dynkin@rank@minus@one}% + {\the\dynkin@rank@minus@two}% + \dynkinEdge*{RightUpArc}% + {\the\dynkin@rank}% + {\the\dynkin@rank@minus@two}% }% %% \extendedDthreePly @@ -4516,8 +5100,6 @@ main} \fi% \dynkinEdge*{SingleEdge}{0}{1}% }% - - %% \extendedDdynkin %% Draws an D series affine Dynkin/Coxeter diagram. \NewDocumentCommand\extendedDdynkin{}% @@ -4557,14 +5139,12 @@ main} \fi% \fi% }% - %% \extendedEdynkin %% Draws an E series affine Dynkin/Coxeter diagram. \newcommand*{\extendedEdynkin}% {% \Edynkin% }% - %% \extendedFdynkin %% Draws an F series affine Dynkin/Coxeter diagram. \newcommand*{\extendedFdynkin}% @@ -4618,12 +5198,10 @@ main} \fi% \node[/Dynkin diagram/text style,above] at - ($.5*(\dynkin@root@name \the\@fromRoot)% - +.5*(\dynkin@root@name \the\@toRoot)$)% + ($.5*(\dynkin@root@name \the\@dynkin@from@root)% + +.5*(\dynkin@root@name \the\@dynkin@to@root)$)% {\(5\)};% }% - - %% \extendedIdynkin %% Draws an I series affine Coxeter diagram. \newcommand*{\extendedIdynkin}% @@ -4635,8 +5213,7 @@ main} \dynkinEdge*{SingleEdge}{0}{1}% \dynkinEdgeLabel{0}{1}{\infty}% }% - - +\newcount\dynkin@height@minus@one% %% \twistedAdynkin %% Draws a twisted A series affine Dynkin diagram. \NewDocumentCommand\twistedAdynkin{}% @@ -4649,14 +5226,19 @@ main} \dynkinPlaceRootRelativeTo*{1}{0}{east}{below}{above}% \dynkinQuadrupleEdge*{1}{0}% \else% - \newcount\hmo% - \hmo=\the\dynkin@nodes\relax% - \advance\hmo by -1\relax% + \dynkin@height@minus@one=\the\dynkin@nodes\relax% + \advance\dynkin@height@minus@one by -1\relax% \ifodd\dynkin@rank% \ifnum\dynkin@ply>1\relax% \dynkinPlaceRootHere*{2}{below right}{above right}% - \dynkinPlaceRootRelativeTo*{0}{2}{northwestfold}{left}{above left}% - \dynkinPlaceRootRelativeTo*{1}{2}{southwestfold}{left}{above left}% + \dynkinPlaceRootRelativeTo*% + {0}{2}% + {northwestfold}% + {left}{above left}% + \dynkinPlaceRootRelativeTo*% + {1}{2}% + {southwestfold}% + {left}{above left}% \dynkinEdge*{RightDownArc}{0}{2}% \dynkinEdge*{RightUpArc}{1}{2}% \else% @@ -4668,59 +5250,75 @@ main} \dynkinEdge*{SingleEdge}{1}{2}% \fi% \dynkinMoveToRoot*{2}% - \dynkin@pipe{2}{\the\hmo}{east}{below}{above}% + \dynkin@pipe% + {2}{\the\dynkin@height@minus@one}% + {east}{below}% + {above}% \dynkinPlaceRootRelativeTo*% {\the\dynkin@nodes}% - {\the\hmo}% + {\the\dynkin@height@minus@one}% {east}% {below}% {above}% - \dynkinEdge*{DoubleEdge}{\the\dynkin@nodes}{\the\hmo}% + \dynkinEdge*{DoubleEdge}% + {\the\dynkin@nodes}% + {\the\dynkin@height@minus@one}% \ifnum\dynkin@ply>1% \dynkinLeftFold*{0}{1}% \fi% \else% \ifnum\dynkin@nodes>1% \ifnum\dynkin@ply>1% - \ifnum\hmo>1% + \ifnum\dynkin@height@minus@one>1% \dynkin@jump{1}% \fi% \dynkinPlaceRootHere*{0}{below}{above}% - \dynkinPlaceRootRelativeTo*{1}{0}{east}{below left}{above}% + \dynkinPlaceRootRelativeTo*% + {1}{0}% + {east}% + {below left}{above}% \dynkinEdge*{DoubleEdge}{1}{0}% - \ifnum\hmo>1% - \dynkin@fold{1}{\the\hmo}% + \ifnum\dynkin@height@minus@one>1% + \dynkin@fold{1}{\the\dynkin@height@minus@one}% \fi% \dynkinPlaceRootRelativeTo*% {\the\dynkin@nodes}% - {\the\hmo}% + {\the\dynkin@height@minus@one}% {west}% {below}% {above}% \else% \dynkinPlaceRootHere*{0}{below}{above}% - \dynkinPlaceRootRelativeTo*{1}{0}{east}{below right}{above}% + \dynkinPlaceRootRelativeTo*% + {1}{0}% + {east}% + {below right}{above}% \dynkinEdge*{DoubleEdge}{1}{0}% - \ifnum\hmo>1% - \dynkin@pipe{1}{\the\hmo}{east}{below}{above}% + \ifnum\dynkin@height@minus@one>1% + \dynkin@pipe{1}{\the\dynkin@height@minus@one}% + {east}{below}{above}% \fi% \dynkinPlaceRootRelativeTo*% {\the\dynkin@nodes}% - {\the\hmo}% + {\the\dynkin@height@minus@one}% {east}% {below}% {above}% \fi% - \dynkinEdge*{DoubleEdge}{\the\dynkin@nodes}{\the\hmo}% + \dynkinEdge*{DoubleEdge}% + {\the\dynkin@nodes}% + {\the\dynkin@height@minus@one}% \else% \dynkinPlaceRootHere*{0}{below}{above}% - \dynkinPlaceRootRelativeTo*{1}{0}{east}{below right}{above}% + \dynkinPlaceRootRelativeTo*% + {1}{0}% + {east}% + {below right}{above}% \dynkinEdge*{DoubleEdge}{1}{0}% \fi% \fi% \fi% }% - %% \twistedDdynkin %% Draws a twisted D series affine Dynkin diagram. \NewDocumentCommand\twistedDdynkin{}% @@ -4746,16 +5344,14 @@ main} }% }% }% - - +\newcount\dynkin@nodes@minus@one% \NewDocumentCommand\twistedDTwo{}% {% + \dynkin@nodes@minus@one\dynkin@nodes\relax% + \advance\dynkin@nodes@minus@one by -1\relax% \ifnum\dynkin@rank<3% \ClassError{Dynkin diagrams}{D2 series twisted diagrams cannot have rank \the\dynkin@rank}{}% \fi% - \newcount\drmo% - \drmo=\the\dynkin@nodes\relax% - \advance\drmo by -1\relax% \ifnum\dynkin@ply=1% \dynkinPlaceRootHere*{0}{below}{above}% \dynkinPlaceRootRelativeTo*{1}{0}{east}{below}{above}% @@ -4777,22 +5373,32 @@ main} \fi% \ifnum\dynkin@ply>1\relax% \ifnum\dynkin@rank>3\relax% - \dynkin@fold{1}{\the\drmo}% - \dynkinPlaceRootRelativeTo*{\the\dynkin@nodes}{\the\drmo}{west}{below}{above}% + \dynkin@fold{1}{\the\dynkin@nodes@minus@one}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@nodes}% + {\the\dynkin@nodes@minus@one}% + {west}{below}{above}% \dynkinFold*{0}{\the\dynkin@nodes}% \else% \dynkinFold*{0}{2}% \fi% \else% \ifnum\dynkin@rank>2% - \dynkin@pipe{1}{\the\drmo}{east}{below}{above}% + \dynkin@pipe{1}{\the\dynkin@nodes@minus@one}{east}{below}{above}% \fi% - \dynkinPlaceRootRelativeTo*{\the\dynkin@nodes}{\the\drmo}{east}{below}{above}% + \dynkinPlaceRootRelativeTo*% + {\the\dynkin@nodes}% + {\the\dynkin@nodes@minus@one}% + {east}{below}{above}% \fi% \ifnum\dynkin@ply=2\relax% - \dynkinEdge*{DoubleDownRightArc}{\the\drmo}{\the\dynkin@nodes}% + \dynkinEdge*{DoubleDownRightArc}% + {\the\dynkin@nodes@minus@one}% + {\the\dynkin@nodes}% \else - \dynkinEdge*{DoubleEdge}{\the\drmo}{\the\dynkin@nodes}% + \dynkinEdge*{DoubleEdge}% + {\the\dynkin@nodes@minus@one}% + {\the\dynkin@nodes}% \fi% }% %% \twistedEdynkin -- cgit v1.2.3