1 files changed, 5 insertions, 195 deletions
diff --git a/tex/context/base/colo-ini.tex b/tex/context/base/colo-ini.tex
index 4bbf139af..41233ed90 100644
--- a/tex/context/base/colo-ini.tex
+++ b/tex/context/base/colo-ini.tex
@@ -1169,72 +1169,7 @@
 %D
 %D \showsetup{\y!showpalet}
 
-\def\showpalet%
-  {\dodoubleargument\doshowpalet}
-
-\def\doshowpalet[#1][#2]%
-  {\doifdefined{\??pa#1}
-     {\doifinsetelse{\v!vertikaal}{#2}
-        {\showverticalpalet[#1][#2]}
-        {\showhorizontalpalet[#1][#2]}}}
-
-\def\showverticalpalet[#1][#2]%
-  {\localvbox
-     {\offinterlineskip
-      \setuppalet[#1]
-      \def\rule%
-        {\vrule\!!width3em\!!height\ht\strutbox\!!depth\dp\strutbox}
-      \tabskip\!!zeropoint
-      \def\doshowpalet##1%
-        {\doifinsetelse{\v!nummer}{#2}{##1\hskip.5em}{}&
-         \color[##1]{\rule}\graycolor[##1]{\rule}&
-         \doifinset{\v!waarde}{#2}{\hskip.5em\colorvalue{##1}}\crcr}
-      \halign
-        {\hss##&\hss##\hss&##\cr
-         &\doifinset{\v!naam}{#2}{\strut#1}&\cr%
-         \processpalet[#1]\doshowpalet\crcr}}}
-
-\def\showhorizontalpalet[#1][#2]%
-  {\localvbox
-     {\offinterlineskip
-      \setuppalet[#1]
-      \tabskip\!!zeropoint
-      \!!widtha=\!!zeropoint
-      \doifinset{\v!nummer}{#2}
-        {\def\doshowpalet##1%
-           {\setbox0=\hbox{##1}%
-            \ifdim\!!widtha<\wd0\!!widtha=\wd0\fi}%
-         \processpalet[#1]\doshowpalet}%
-      \advance\!!widtha by 1em
-      \ifdim\!!widtha<5em
-        \!!widtha=5em
-      \fi
-      \halign
-        {##&&\hbox to \!!widtha{\hss##\hss}\cr
-         \doifinset{\v!nummer}{#2}
-           {\def\doshowpalet##1{&\strut##1}%
-            \processpalet[#1]\doshowpalet}\cr
-         \doifinset{\v!naam}{#2}{#1\hskip.5em}% 
-         \def\doshowpalet##1%
-           {&\color[##1]{\vrule\!!width\!!widtha\!!height\ht\strutbox\!!depth\!!zeropoint}}%
-         \processpalet[#1]\doshowpalet\crcr
-         \def\doshowpalet##1%
-           {&\graycolor[##1]{\vrule\!!width\!!widtha\!!height\!!zeropoint\!!depth\dp\strutbox}}%
-         \processpalet[#1]\doshowpalet\crcr
-         \doifinset{\v!waarde}{#2}
-           {\def\doshowpalet##1%
-             {&\vbox
-                {\hsize\!!widtha
-                 \vskip.25ex
-                 \everypar{\strut}
-                 \veryraggedcenter
-                 \let\colorformatseparator=\endgraf
-                 \colorvalue{##1}}}%
-            \processpalet[#1]\doshowpalet}%
-         \crcr}}}
-
-\def\processpalet[#1]%
-  {\expanded{\globalprocesscommalist[\getvalue{\??pa#1}]}}
+\fetchruntimecommand \showpalet {\f!coloprefix\s!run}
 
 %D \macros
 %D   {definecolorgroup}
@@ -1311,60 +1246,7 @@
 %D
 %D \showsetup{\y!showcolorgroup}
 
-\def\showcolorgroup%
-  {\dodoubleargument\doshowcolorgroup} 
-
-\def\doshowcolorgroup[#1][#2]%
-  {\doifdefined{\??cr#1:1}
-     {\doifinsetelse{\v!vertikaal}{#2}
-        {\showverticalcolorgroup[#1][#2]}
-        {\showhorizontalcolorgroup[#1][#2]}}}
-
-\def\showhorizontalcolorgroup[#1][#2]%
-  {\localvbox
-     {\offinterlineskip
-      \setuppalet
-      \tabskip\!!zeropoint
-      \def\rule%
-        {\vrule\!!width4em\!!height\ht\strutbox\!!depth\dp\strutbox}
-      \def\colorformatseparator{\strut\cr}
-      \def\dodoshowgroup##1%
-        {\halign
-           {\hss####\hss\cr
-            \doifinset{\v!nummer}{#2}{\strut##1}\cr
-            \color[#1:##1]{\vrule\!!width4em\!!height\ht\strutbox\!!depth\!!zeropoint}\cr
-            \graycolor[#1:##1]{\vrule\!!width4em\!!height\!!zeropoint\!!depth\dp\strutbox}\cr
-            \doifinset{\v!waarde}{#2}{\colorvalue{#1:##1}\strut}\crcr}}
-      \def\doshowgroup##1%
-        {\doifdefined{\??cr#1:##1}
-           {\vbox{\dodoshowgroup{##1}}}}
-      \hbox 
-        {\doifinset{\v!naam}{#2}
-           {\strut
-            \doifinsetelse{\v!waarde}{#2}
-              {\raise3\lineheight\hbox{#1\hskip.5em}}
-              {#1}%
-            \hskip.5em}%
-         \doshowgroup1\doshowgroup2\doshowgroup3\doshowgroup4%
-         \doshowgroup5\doshowgroup6\doshowgroup7\doshowgroup8}}}
-
-\def\showverticalcolorgroup[#1][#2]%
-  {\localvbox
-     {\offinterlineskip
-      \setuppalet
-      \tabskip\!!zeropoint
-      \def\rule%
-        {\vrule\!!width2.5em\!!height\ht\strutbox\!!depth\dp\strutbox}
-      \def\doshowgroup##1%
-        {\doifdefined{\??cr#1:##1}
-           {\doifinset{\v!nummer}{#2}{##1\hskip.5em}&
-            \color[#1:##1]{\rule}\graycolor[#1:##1]{\rule}&
-            \doifinset{\v!waarde}{#2}{\hskip.5em\colorvalue{#1:##1}}\crcr}}
-      \halign
-        {\hss##&\hss##\hss&##\hss\cr
-         &\doifinset{\v!naam}{#2}{\strut#1}&\crcr   
-         \doshowgroup1\doshowgroup2\doshowgroup3\doshowgroup4%
-         \doshowgroup5\doshowgroup6\doshowgroup7\doshowgroup8}}}
+\fetchruntimecommand \showcolorgroup {\f!coloprefix\s!run}
 
 %D There are ten predefined color groups, like
 %D \color[groen]{\em groen}, \color[rood]{\em rood},
@@ -1423,37 +1305,7 @@
 %D 
 %D \showsetup{\y!comparepalet}
 
-\def\comparepalet%
-  {\dosingleargument\docomparepalet}
-
-\def\docomparepalet[#1]%
-  {\doifdefined{\??pa#1}
-     {\hbox
-        {\dodocomparepalet\color[#1]%
-         \quad
-         \dodocomparepalet\graycolor[#1]}}}
-
-\def\dodocomparepalet#1[#2]%
-  {\localvbox
-     {\offinterlineskip
-      \setuppalet[#2]
-      \getcommacommandsize[\getvalue{\??pa#2}]
-      \!!widtha=2em\relax
-      \hsize=\commalistsize\!!widtha
-      \def\rule%
-        {\vrule\!!width.5\!!widtha\!!height2.25ex\!!depth-.75ex}
-      \def\dododocomparepalet##1%
-        {\hbox
-           {\setbox0=\hbox
-              {#1[##1]{\vrule\!!width\hsize\!!height3ex}}%
-            \wd0=\!!zeropoint\box0
-            \hbox to \hsize
-              {\def\dododocomparepalet####1%
-                 {\hbox to \!!widtha
-                    {\hss#1[####1]{\rule}\hss}}%
-               \processcommacommand[\getvalue{\??pa#2}]\dododocomparepalet}}
-         \endgraf}
-      \processcommacommand[\getvalue{\??pa#2}]\dododocomparepalet}}
+\fetchruntimecommand \comparepalet {\f!coloprefix\s!run}
 
 %D \macros
 %D   {comparecolorgroup}
@@ -1476,34 +1328,7 @@
 %D
 %D \showsetup{\y!comparecolorgroup}
 
-\def\comparecolorgroup%
-  {\dosingleargument\docomparecolorgroup}
-
-\def\docomparecolorgroup[#1]%
-  {\doifdefined{\??cr#1:1}
-     {\hbox
-        {\dodocomparecolorgroup\color[#1]%
-         \quad
-         \dodocomparecolorgroup\graycolor[#1]}}}
-
-\def\dodocomparecolorgroup#1[#2]%
-  {\localvbox
-     {\!!counta=0
-      \dorecurse{15}
-        {\doifdefined{\??cr#2:\recurselevel}{\advance\!!counta by 1}}
-      \!!widtha=2em\relax
-      \hsize=\!!counta\!!widtha
-      \def\rule%
-        {\vrule\!!width.5\!!widtha\!!height2.25ex\!!depth-.75ex}
-      \def\dododocomparecolorgroup##1%
-        {\hbox to \hsize
-           {\setbox0=\hbox
-              {#1[#2:##1]{\vrule\!!width\hsize\!!height3ex}}%
-            \wd0=\!!zeropoint\box0
-            \hbox to \hsize
-              {\hss\dorecurse{\!!counta}{#1[#2:\recurselevel]{\rule}\hss}}}
-         \endgraf}
-      \dorecurse{\!!counta}{\dododocomparecolorgroup\recurselevel}}}
+\fetchruntimecommand \comparecolorgroup {\f!coloprefix\s!run}
 
 %D \macros 
 %D   {showcolor}
@@ -1519,22 +1344,7 @@
 %D
 %D \showsetup{\y!showcolor}
 
-\def\showcolor[#1]%
-  {\bgroup
-     \setupcolor[#1]
-     \stelwitruimtein[\v!geen]
-     \def\rule%
-       {\vrule\!!width4em\!!height\ht\strutbox\!!depth\dp\strutbox}
-     \def\docommand##1%
-       {\hbox 
-          {\graycolor[##1]{\rule}\quad
-           \color[##1]{\rule}\quad
-           \grayvalue{##1}\quad
-           \hbox to 12em{\colorvalue{##1}\hss}%
-           \strut##1}
-        \endgraf}
-     \processcommacommand[\colorlist]\docommand
-   \egroup}
+\fetchruntimecommand \showcolor {\f!coloprefix\s!run}
 
 %D \macros
 %D   {negativecolorbox}