texshade (11oct10)

git-svn-id: svn://tug.org/texlive/trunk@20065 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 226 insertions, 30 deletions

diff --git a/Master/texmf-dist/tex/latex/texshade/texshade.sty b/Master/texmf-dist/tex/latex/texshade/texshade.sty
index d8ab1cccdc6..03c74861193 100644
--- a/Master/texmf-dist/tex/latex/texshade/texshade.sty
+++ b/Master/texmf-dist/tex/latex/texshade/texshade.sty
@@ -13,8 +13,8 @@
 %% 
 
 \NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{texshade}[2010/03/01 LaTeX TeXshade (v1.21)]
-\message{Package `texshade', Version 1.21 of 2010/03/01.}
+\ProvidesPackage{texshade}[2010/10/11 LaTeX TeXshade (v1.22)]
+\message{Package `texshade', Version 1.22 of 2010/10/11.}
 
 \PassOptionsToPackage{dvips}{color}
 \PassOptionsToPackage{dvips}{graphicx}
@@ -114,6 +114,7 @@
 \newif\ifall@fshade   \newif\ifregionalemph
 \newif\ifregionallower
 \newif\ifframe@       \newif\ifregionaltint
+\newif\ifshading@
 \newif\ifshow@logo    \newif\ifshow@sublogo
 \newif\ifhidechar     \newif\ifsh@wg@ps
 \newif\ifsimmode
@@ -130,6 +131,7 @@
 \newif\ifbbbottomfeaturenow
 \newif\ifbbbbottomfeaturenow
 \newif\ifframenow
+\newif\ifshadingnow
 \newif\iffix@
 
 \expandafter\ifx\csname mdqon\endcsname\relax
@@ -141,7 +143,7 @@
 \def\gre@ter{>} \def\sm@ller{<} \def\N@{N} \def\equ@l{=} \def\H@{H}
 \def\gap@char{.} \def\dom@char{{\dom@rule}} \def\yes{yes} \def\y@{y} \def\n@{n}
 \def\o@{o} \def\d@t{.} \def\questi@n{?} \def\st@p@char{*} \def\semic@n{;}
-\def\br@cket{[}
+\def\br@cket{[} \def\p@r@gr@ph{¤}
 \def\@TOM{ATOM} \def\C@lpha{CA} \def\@point@{point} \def\@line@{line} \def\@plane@{plane}
 \def\gap@rule{\rule[0.3\box@height]{\box@width}{\gap@rulethick}}
 \def\dom@rule{\vrule depth\box@depth height\box@height width\domgap@rulethick}
@@ -2297,6 +2299,8 @@
                     \csname stack@@lowerreg#1\endcsname}
       \expandafter\xdef\csname stack@framereg\the\loopcount\endcsname{%
                     \csname stack@@framereg#1\endcsname}
+      \expandafter\xdef\csname stack@shadingreg\the\loopcount\endcsname{%
+                    \csname stack@@shadingreg#1\endcsname}
       \expandafter\xdef\csname stack@top\the\loopcount\endcsname{%
                     \csname stack@@top#1\endcsname}
       \expandafter\xdef\csname stack@ttop\the\loopcount\endcsname{%
@@ -2350,6 +2354,8 @@
             \csname stack@lowerreg\the\loopcount\endcsname}
          \expandafter\xdef\csname stack@@framereg\the\loopcount\endcsname{%
             \csname stack@framereg\the\loopcount\endcsname}
+         \expandafter\xdef\csname stack@@shadingreg\the\loopcount\endcsname{%
+            \csname stack@shadingreg\the\loopcount\endcsname}
          \expandafter\xdef\csname stack@@top\the\loopcount\endcsname{%
             \csname stack@top\the\loopcount\endcsname}
          \expandafter\xdef\csname stack@@ttop\the\loopcount\endcsname{%
@@ -2639,6 +2645,8 @@
             \csname stack@lowerreg\the\innerloopcount\endcsname}
       \expandafter\xdef\csname stack@framereg\the\loopcount\endcsname{%
             \csname stack@framereg\the\innerloopcount\endcsname}
+      \expandafter\xdef\csname stack@shadingreg\the\loopcount\endcsname{%
+            \csname stack@shadingreg\the\innerloopcount\endcsname}
       \expandafter\xdef\csname stack@top\the\loopcount\endcsname{%
             \csname stack@top\the\innerloopcount\endcsname}
       \expandafter\xdef\csname stack@ttop\the\loopcount\endcsname{%
@@ -3051,6 +3059,23 @@
    \sort@emphstack
    \expandafter\xdef\csname stack@framereg\seq@\endcsname{\tmpstack}
 }
+\def\getregion@fromshadingstack#1{%
+   \xdef\temp@{#1}
+   \xdef\first@{\csname stack@shadingreg\temp@\endcsname}
+   \expandafter\get@fromemphstack\first@
+   \expandafter\xdef\csname shadingstart\temp@\endcsname{\first@}
+   \expandafter\xdef\csname shadingstop\temp@\endcsname{\second@}
+   \expandafter\xdef\csname shadingstyle\temp@\endcsname{\third@}
+   \expandafter\xdef\csname stack@shadingreg\temp@\endcsname{\last@}
+}
+\def\get@shadingregions#1..#2,#3@{%
+   \shading@true
+   \xdef\st@rt{#1} \xdef\st@p{#2} \xdef\list@{#3}
+   \xdef\last@{\csname stack@shadingreg\seq@\endcsname}
+   \xdef\tmpstack{}
+   \sort@emphstack
+   \expandafter\xdef\csname stack@shadingreg\seq@\endcsname{\tmpstack}
+}
 \def\getregion@fromfstack#1{%
    \xdef\temp@{#1}
    \xdef\first@{\csname stack@\bottop@\temp@\endcsname}
@@ -3088,14 +3113,6 @@
    \sort@fstack
    \expandafter\xdef\csname stack@\bottop@\seq@\endcsname{\tmpstack}
 }
-\def\get@frameregions#1..#2,#3@{%
-   \frame@true
-   \xdef\st@rt{#1} \xdef\st@p{#2} \xdef\list@{#3}
-   \xdef\last@{\csname stack@framereg\seq@\endcsname}
-   \xdef\tmpstack{}
-   \sort@emphstack
-   \expandafter\xdef\csname stack@framereg\seq@\endcsname{\tmpstack}
-}
 \def\getarrow@shape#1#2#3#4&{%
    \xdef\first@@{#1}\xdef\second@@{#2}\xdef\third@@{#3}
    \if\first@@ v
@@ -3243,9 +3260,9 @@
                \xdef\temp@{tint}
                \ifx\temp@\temp@@
                   \regionaltinttrue
-                  \xdef\last@{\csname stack@tintreg\seq@\endcsname}     \message{((last:\last@))}
+                  \xdef\last@{\csname stack@tintreg\seq@\endcsname}
                   \sort@emphstack
-                  \expandafter\xdef\csname stack@tintreg\seq@\endcsname{\tmpstack} \message{((tmp:\tmpstack))}
+                  \expandafter\xdef\csname stack@tintreg\seq@\endcsname{\tmpstack}
                \else
                \xdef\temp@{frame}
                \ifx\temp@\temp@@
@@ -3254,6 +3271,13 @@
                   \sort@emphstack
                   \expandafter\xdef\csname stack@framereg\seq@\endcsname{\tmpstack}
                \else
+               \xdef\temp@{shading}
+               \ifx\temp@\temp@@
+                  \shading@true
+                  \xdef\last@{\csname stack@shadingreg\seq@\endcsname}
+                  \sort@emphstack
+                  \expandafter\xdef\csname stack@shadingreg\seq@\endcsname{\tmpstack}
+               \else
                \xdef\temp@{ttttop}
                \ifx\temp@\temp@@
                   \xdef\last@{\csname stack@ttttop\seq@\endcsname}
@@ -3314,10 +3338,15 @@
                \fi
                \fi
                \fi
+               \fi
                \xdef\fifth@@{\m@tif} \expandafter\get@third@\fifth@@
                \xdef\nineth@@{n}
             \fi
          \else
+            \ifx\nineth@@\y@
+               \xdef\first@@{\second@@\first@@}
+               \advance\temp@count by -1
+            \fi
             \xdef\nineth@@{n} \xdef\st@p{n}
             \xdef\fifth@@{\m@tif} \expandafter\get@third@\fifth@@
          \fi
@@ -3355,6 +3384,10 @@
                                                                  \csname framestop\the\loopcount\endcsname;%
                                                                  \csname framestyle\the\loopcount\endcsname;%
                                                                  \csname stack@framereg\the\loopcount\endcsname}
+      \expandafter\xdef\csname stack@shadingreg\the\loopcount\endcsname{\csname shadingstart\the\loopcount\endcsname;%
+                                                                 \csname shadingstop\the\loopcount\endcsname;%
+                                                                 \csname shadingstyle\the\loopcount\endcsname;%
+                                                                 \csname stack@shadingreg\the\loopcount\endcsname}
       \expandafter\xdef\csname stack@ttttop\the\loopcount\endcsname{\csname textttttop\the\loopcount\endcsname;%
                                                                  \csname startttttop\the\loopcount\endcsname;%
                                                                  \csname stopttttop\the\loopcount\endcsname;%
@@ -3417,6 +3450,7 @@
       \expandafter\getregion@fromemphstack{\the\loopcount}
       \expandafter\getregion@fromlowerstack{\the\loopcount}
       \expandafter\getregion@fromframestack{\the\loopcount}
+      \expandafter\getregion@fromshadingstack{\the\loopcount}
       \xdef\bottop@{top}       \expandafter\getregion@fromfstack{\the\loopcount}
       \xdef\bottop@{ttop}      \expandafter\getregion@fromfstack{\the\loopcount}
       \xdef\bottop@{tttop}     \expandafter\getregion@fromfstack{\the\loopcount}
@@ -3439,6 +3473,8 @@
    \ifx\temp@\temp@@ \xdef\style@{0} \fi
    \xdef\temp@{frame}
    \ifx\temp@\temp@@ \xdef\style@{0} \fi
+   \xdef\temp@{shading}
+   \ifx\temp@\temp@@ \xdef\style@{0} \fi
    \xdef\temp@{#1#2}
    \xdef\first@{#1}
    \ifx\first@\br@cket
@@ -5386,6 +5422,28 @@
      \fi
    \fi
 }
+\def\changeshadingcolors#1#2#3{%
+   \xdef\seq@{#1}
+   \xdef\temp@{consensus} \ifx\seq@\temp@ \xdef\seq@{0} \fi
+   \xdef\first@{\seq@ @} \expandafter\check@letter\first@
+   \xdef\first@{\seq@}
+   \ifletter \get@name@number \xdef\seq@{\first@} \fi
+   \ifnum\seq@>\seq@count
+     \message{<Ignored seq `\seq@' in \noexpand\changeshadingcolors>}
+   \else
+     \xdef\@ll{#3}
+     \xdef\list@{#2,&}
+     \xdef\temp@@{shading} \loopcount=0
+     \xdef\temp@{#2,,,:,,,,@}    \expandafter\test@PDB\temp@
+     \ifx\list@\ampers@nd
+     \else
+        \loop
+           \xdef\list@{\list@ @}
+           \expandafter\get@shadingregions\list@
+        \ifx\list@\ampers@nd\else\repeat
+     \fi
+   \fi
+}
 \def\bargraphstretch#1{\def\b@r@stretch{#1}}
 \def\colorscalestretch#1{\def\sc@le@stretch{#1}}
 \def\rm@@measure#1#2@{%
@@ -5770,7 +5828,9 @@
    \xdef\f@color{\f@@color}
    \xdef\temp@{#4&}
    \ifx\temp@\ampers@nd
+      \xdef\list@{#3,&}
       \xdef\style@{&}
+      \def\f@text@{#5}
    \else
       \xdef\last@{restriction}
       \ifx\second@@\last@
@@ -6931,6 +6991,27 @@
      \expandafter\xdef\csname funcm@tch\first@\endcsname{#4}
      \expandafter\def\csname func@style\first@\endcsname{\csname text#5\endcsname}
   \fi}
+\def\defshadingcolors#1{%
+   \expandafter\xdef\csname TextNomatch@#1\endcsname{\TextNomatch}
+   \expandafter\xdef\csname Nomatch@#1\endcsname{\Nomatch}
+   \expandafter\xdef\csname resn@m@tch@#1\endcsname{\resn@m@tch}
+
+   \expandafter\xdef\csname TextSimilar@#1\endcsname{\TextSimilar}
+   \expandafter\xdef\csname Similar@#1\endcsname{\Similar}
+   \expandafter\xdef\csname ressimm@tch@#1\endcsname{\ressimm@tch}
+
+   \expandafter\xdef\csname TextIdentical@#1\endcsname{\TextIdentical}
+   \expandafter\xdef\csname Identical@#1\endcsname{\Identical}
+   \expandafter\xdef\csname resm@tch@#1\endcsname{\resm@tch}
+
+   \expandafter\xdef\csname TextAllmatch@#1\endcsname{\TextAllmatch}
+   \expandafter\xdef\csname Allmatch@#1\endcsname{\Allmatch}
+   \expandafter\xdef\csname res@llm@tch@#1\endcsname{\res@llm@tch}
+
+   \expandafter\xdef\csname gap@fg@#1\endcsname{\gap@fg}
+   \expandafter\xdef\csname gap@bg@#1\endcsname{\gap@bg}
+
+}
 \def\shadingcolors#1{%
   \gapcolors{Black}{White}
   \nomatchresidues{Black}{White}{upper}{up}
@@ -6956,12 +7037,30 @@
     \allmatchresidues{White}{Black}{upper}{sl}
   \else \xdef\second@{grays}
   \ifx\first@\second@
-  \else \message{<Undefined color set - using `grays'>} \xdef\first@{grays}\fi
-  \ifx\first@\second@
     \similarresidues{Black}{LightGray}{upper}{up}
     \conservedresidues{White}{DarkGray}{upper}{up}
     \allmatchresidues{White}{Black}{upper}{up}
-  \fi\fi\fi\fi\fi}
+  \else
+    \xdef\TextNomatch{\csname TextNomatch@#1\endcsname}
+    \xdef\Nomatch    {\csname Nomatch@#1\endcsname}
+    \xdef\resn@m@tch {\csname resn@m@tch@#1\endcsname}
+    \xdef\TextSimilar{\csname TextSimilar@#1\endcsname}
+    \xdef\Similar    {\csname Similar@#1\endcsname}
+    \xdef\ressimm@tch{\csname ressimm@tch@#1\endcsname}
+    \xdef\TextIdentical{\csname TextIdentical@#1\endcsname}
+    \xdef\Identical    {\csname Identical@#1\endcsname}
+    \xdef\resm@tch     {\csname resm@tch@#1\endcsname}
+    \xdef\TextAllmatch{\csname TextAllmatch@#1\endcsname}
+    \xdef\Allmatch    {\csname Allmatch@#1\endcsname}
+    \xdef\res@llm@tch {\csname res@llm@tch@#1\endcsname}
+    \xdef\gap@fg    {\csname gap@fg@#1\endcsname}
+    \xdef\gap@bg    {\csname gap@bg@#1\endcsname}
+    \xdef\domgap@fg {\csname domgap@fg@#1\endcsname}
+    \xdef\domgap@bg {\csname domgap@bg@#1\endcsname}
+  \fi\fi\fi\fi\fi
+  \xdef\first@{#1}
+  \expandafter\defshadingcolors{\first@}
+}
 \def\nomatchresidues#1#2#3#4  {\xdef\first@{#1&}\xdef\second@{#2&}\xdef\third@{#3&}
                              \xdef\last@{\ampers@nd}
                              \ifx\first@\last@\else\def\TextNomatch{#1}
@@ -8826,6 +8925,48 @@
       \ifnum\loopcount<\seq@count \repeat
 }
 
+\def\getregion@fromshadingstack@first{%
+      \expandafter\getregion@fromshadingstack{\the\loopcount}
+      \expandafter\ifx\csname shadingstart\the\loopcount\endcsname\ampers@nd
+      \else
+      \expandafter\ifnum\csname shadingstop\the\loopcount\endcsname<\first@@
+         \getregion@fromshadingstack@first
+      \fi
+      \fi
+}
+
+\def\calc@shading{%
+      \xdef\shading@style{&}
+      \loopcount=-1
+      \loop
+         \advance\loopcount by 1
+         \ifnum\loopcount=0 \xdef\first@@{\the\cons@count}
+         \else \xdef\first@@{\csname res@count\the\loopcount\endcsname} \fi
+         \expandafter\ifx\csname shadingstart\the\loopcount\endcsname\ampers@nd
+         \else
+         \expandafter\ifnum\csname shadingstart\the\loopcount\endcsname>\first@@
+         \else
+            \expandafter\ifnum\csname shadingstop\the\loopcount\endcsname<\first@@
+               \getregion@fromshadingstack@first
+            \else
+               \xdef\shading@style{\csname shadingstyle\the\loopcount\endcsname}
+               \expandafter\ifnum\csname shadingstop\the\loopcount\endcsname=\first@@
+                  \expandafter\getregion@fromshadingstack{\the\loopcount}
+               \fi
+            \fi
+         \fi\fi
+      \ifnum\loopcount<\seq@count \repeat
+      \loopcount=0
+      \loop
+         \advance\loopcount by 1
+         \ifx\shading@style\ampers@nd
+         \else
+             \expandafter\xdef\csname seq\the\loopcount\endcsname{%
+                              \csname seq\the\loopcount\endcsname¤\shading@style)}
+         \fi
+      \ifnum\loopcount<\seq@count \repeat
+}
+
 \def\getregion@fromemphstack@first{%
       \expandafter\getregion@fromemphstack{\the\loopcount}
       \expandafter\ifx\csname emphstart\the\loopcount\endcsname\ampers@nd
@@ -10551,6 +10692,7 @@
     \ifregionalemphnow  \calc@regemph  \fi
     \ifregionallowernow \calc@reglower \fi
     \ifframenow         \calc@frame    \fi
+    \ifshadingnow\iffuncmode\else\ifT@coffee\else   \calc@shading \fi\fi\fi
     \iftopfeaturenow       \xdef\bottop@{top}       \calc@feature \fi
     \ifttopfeaturenow      \xdef\bottop@{ttop}      \calc@feature \fi
     \iftttopfeaturenow     \xdef\bottop@{tttop}     \calc@feature \fi
@@ -10733,6 +10875,16 @@
             \fi
          \fi
     \fi
+    \ifshading@
+         \expandafter\ifx\csname shadingstart\the\loopcount\endcsname\ampers@nd
+         \else
+            \expandafter\ifnum\csname shadingstart\the\loopcount\endcsname>%
+            \innerloopcount
+            \else
+               \shadingnowtrue
+            \fi
+         \fi
+    \fi
     \iftopfeature
        \xdef\bottop@{top}
          \expandafter\ifx\csname start\bottop@\the\loopcount\endcsname\ampers@nd
@@ -10930,6 +11082,16 @@
             \fi
          \fi
     \fi
+    \ifshading@
+         \expandafter\ifx\csname shadingstart\the\loopcount\endcsname\ampers@nd
+         \else
+            \expandafter\ifnum\csname shadingstart\the\loopcount\endcsname>%
+            \innerloopcount
+            \else
+               \shadingnowtrue
+            \fi
+         \fi
+    \fi
     \iftopfeature
        \xdef\bottop@{top}
          \expandafter\ifx\csname start\bottop@\the\loopcount\endcsname\ampers@nd
@@ -11271,6 +11433,14 @@
    \hbox to \number@width{\hss\numbertext@size{\temp@}\@kern}}\fi%
    \xdef\first@{#2@}%
 }
+\def\special@shading#1)#2#3#4@{%
+   \xdef\second@{@\second@#1}%
+   \xdef\third@{\second@}%
+   \xdef\first@{#4@}%
+   \xdef\second@{#3}%
+   \xdef\last@{#2}%
+    \def\res@@style{\csname relax\endcsname}%
+}
 \def\special@shade#1)#2#3#4@{%
    \xdef\second@{\second@#1}%
    \xdef\boxc@l@r{\csname bgseqregion\second@\endcsname}%
@@ -11285,6 +11455,8 @@
    \xdef\second@{#2}%
    \xdef\last@{#1}%
    \xdef\temp@@{}%
+   \xdef\third@{}%
+   \ifx\last@\p@r@gr@ph\expandafter\special@shading\first@\fi%
    \ifx\last@\ampers@nd\def\last@{0}\expandafter\special@shade\first@%
    \else%
    \ifT@coffee%
@@ -11303,25 +11475,34 @@
          \if\last@ /\def\last@{10}\fi
          \if\last@ !\def\last@{11}\fi
    \else%
-   \ifcase\last@\xdef\boxc@l@r{\Allmatch}\xdef\textc@l@r{\TextAllmatch}%
+   \ifcase\last@\xdef\boxc@l@r{\csname Allmatch\third@\endcsname}%
+             \xdef\textc@l@r{\csname TextAllmatch\third@\endcsname}%
              \def\res@@style{\all@style}%
-         \or\xdef\boxc@l@r{\Identical}\xdef\textc@l@r{\TextIdentical}%
+         \or\xdef\boxc@l@r{\csname Identical\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextIdentical\third@\endcsname}%
              \def\res@@style{\id@style}%
-         \or\xdef\boxc@l@r{\Similar}\xdef\textc@l@r{\TextSimilar}%
+         \or\xdef\boxc@l@r{\csname Similar\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextSimilar\third@\endcsname}%
              \def\res@@style{\sim@style}%
-         \or\xdef\boxc@l@r{\Nomatch}\xdef\textc@l@r{\TextNomatch}%
+         \or\xdef\boxc@l@r{\csname Nomatch\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextNomatch\third@\endcsname}%
              \def\res@@style{\no@style}%
-         \or\xdef\boxc@l@r{\ConsNomatch}\xdef\textc@l@r{\ConsTextNomatch}%
+         \or\xdef\boxc@l@r{\csname ConsNomatch\third@\endcsname}%
+            \xdef\textc@l@r{\csname ConsTextNomatch\third@\endcsname}%
              \def\res@@style{\csname relax\endcsname}%
-         \or\xdef\boxc@l@r{\ConsMatch}\xdef\textc@l@r{\ConsTextMatch}%
+         \or\xdef\boxc@l@r{\csname ConsMatch\third@\endcsname}%
+            \xdef\textc@l@r{\csnam ConsTextMatch\third@\endcsname}%
              \def\res@@style{\csname relax\endcsname}%
-         \or\xdef\boxc@l@r{\ConsAllmatch}\xdef\textc@l@r{\ConsTextAllmatch}%
+         \or\xdef\boxc@l@r{\csname ConsAllmatch\third@\endcsname}%
+            \xdef\textc@l@r{\csname ConsTextAllmatch\third@\endcsname}%
              \def\res@@style{\csname relax\endcsname}%
-         \or\xdef\boxc@l@r{\gap@bg}\xdef\textc@l@r{\gap@fg}%
+         \or\xdef\boxc@l@r{\csname gap@bg\third@\endcsname}%
+            \xdef\textc@l@r{\csname gap@fg\third@\endcsname}%
              \def\res@@style{\csname relax\endcsname}%
          \or\xdef\boxc@l@r{White}\xdef\textc@l@r{White}%
              \def\res@@style{\csname relax\endcsname}%
-         \else\xdef\boxc@l@r{\domgap@bg}\xdef\textc@l@r{\domgap@fg}%
+         \else\xdef\boxc@l@r{\csname domgap@bg\endcsname}%
+              \xdef\textc@l@r{\csname domgap@fg\endcsname}%
              \def\res@@style{\csname relax\endcsname}%
    \fi\fi\fi\fi%
    \ifx\second@\comm@%
@@ -11365,6 +11546,8 @@
    \fi}
 \def\next@cons#1#2#3@{%
    \xdef\last@{#1}%
+   \xdef\third@{}%
+   \ifx\last@\p@r@gr@ph\expandafter\special@shading\first@\fi%
    \ifx\last@\ampers@nd\def\last@{0}\expandafter\special@shade\first@%
    \else%
    \ifx\collect@cons@colors\y@%
@@ -11417,13 +11600,17 @@
          \fi%
       \fi%
    \else%
-   \ifcase#1\xdef\boxc@l@r{\Allmatch}\xdef\textc@l@r{\TextAllmatch}%
+   \ifcase#1\xdef\boxc@l@r{\csname Allmatch\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextAllmatch\third@\endcsname}%
              \def\res@@style{\all@style}%
-         \or\xdef\boxc@l@r{\Identical}\xdef\textc@l@r{\TextIdentical}%
+         \or\xdef\boxc@l@r{\csname Identical\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextIdentical\third@\endcsname}%
              \def\res@@style{\id@style}%
-         \or\xdef\boxc@l@r{\Similar}\xdef\textc@l@r{\TextSimilar}%
+         \or\xdef\boxc@l@r{\csname Similar\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextSimilar\third@\endcsname}%
              \def\res@@style{\sim@style}%
-         \or\xdef\boxc@l@r{\Nomatch}\xdef\textc@l@r{\TextNomatch}%
+         \or\xdef\boxc@l@r{\csname Nomatch\third@\endcsname}%
+            \xdef\textc@l@r{\csname TextNomatch\third@\endcsname}%
              \def\res@@style{\no@style}%
          \or\xdef\boxc@l@r{\ConsNomatch}\xdef\textc@l@r{\ConsTextNomatch}%
              \def\res@@style{\csname relax\endcsname}%
@@ -13801,6 +13988,7 @@
     \expandafter\xdef\csname stack@emphreg\the\loopcount\endcsname{&;&;&;@}
     \expandafter\xdef\csname stack@lowerreg\the\loopcount\endcsname{&;&;&;@}
     \expandafter\xdef\csname stack@framereg\the\loopcount\endcsname{&;&;&;@}
+    \expandafter\xdef\csname stack@shadingreg\the\loopcount\endcsname{&;&;&;@}
     \expandafter\xdef\csname stack@top\the\loopcount\endcsname{&;&;&;&;@}
     \expandafter\xdef\csname stack@ttop\the\loopcount\endcsname{&;&;&;&;@}
     \expandafter\xdef\csname stack@tttop\the\loopcount\endcsname{&;&;&;&;@}
@@ -13831,6 +14019,7 @@
        \expandafter\xdef\csname stack@emphreg\the\loopcount\endcsname{&;&;&;@}
        \expandafter\xdef\csname stack@lowerreg\the\loopcount\endcsname{&;&;&;@}
        \expandafter\xdef\csname stack@framereg\the\loopcount\endcsname{&;&;&;@}
+       \expandafter\xdef\csname stack@shadingreg\the\loopcount\endcsname{&;&;&;@}
        \expandafter\xdef\csname stack@top\the\loopcount\endcsname{&;&;&;&;@}
        \expandafter\xdef\csname stack@ttop\the\loopcount\endcsname{&;&;&;&;@}
        \expandafter\xdef\csname stack@tttop\the\loopcount\endcsname{&;&;&;&;@}
@@ -13880,6 +14069,7 @@
    \expandafter\getregion@fromemphstack{\the\loopcount}
    \expandafter\getregion@fromlowerstack{\the\loopcount}
    \expandafter\getregion@fromframestack{\the\loopcount}
+   \expandafter\getregion@fromshadingstack{\the\loopcount}
    \xdef\bottop@{top}       \expandafter\getregion@fromfstack{\the\loopcount}
    \xdef\bottop@{ttop}      \expandafter\getregion@fromfstack{\the\loopcount}
    \xdef\bottop@{tttop}     \expandafter\getregion@fromfstack{\the\loopcount}
@@ -13931,6 +14121,7 @@
        \expandafter\getregion@fromemphstack{\the\loopcount}
        \expandafter\getregion@fromlowerstack{\the\loopcount}
        \expandafter\getregion@fromframestack{\the\loopcount}
+       \expandafter\getregion@fromshadingstack{\the\loopcount}
        \xdef\bottop@{top}       \expandafter\getregion@fromfstack{\the\loopcount}
        \xdef\bottop@{ttop}      \expandafter\getregion@fromfstack{\the\loopcount}
        \xdef\bottop@{tttop}     \expandafter\getregion@fromfstack{\the\loopcount}
@@ -14153,6 +14344,11 @@
 \xdef\prfx{DNA}\clear@groups\clear@sims
 \clearfuncgroups
 \clear@simpairs
+\shadingcolors{blues}
+\shadingcolors{reds}
+\shadingcolors{greens}
+\shadingcolors{grays}
+\shadingcolors{black}
 \loopcount=\@lign@count
 \advance\loopcount by 1\relax
 \xdef\@lign@count{\the\loopcount}
@@ -14162,7 +14358,7 @@
 \expandafter\xdef\csname res@count0\endcsname{0}
 \xdef\allow@zero{n} \xdef\c@ns@shift{0}
 \regionalshadefalse\regionalemphfalse\regionallowerfalse\regionaltintfalse
-\frame@false
+\frame@false\shading@false
 \xdef\ruler@rot{0}
 \topfeaturefalse    \bottomfeaturefalse
 \ttopfeaturefalse   \bbottomfeaturefalse