blob: 8cd9f62dd8db646a3fdfcf94ddb3ce72ac8a4d4e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
|
\unprotect
\gdef\showpalet
{\dodoubleargument\doshowpalet}
\gdef\doshowpalet[#1][#2]%
{\doifdefined{\??pa#1}
{\doifinsetelse\v!vertikaal{#2}
{\showverticalpalet[#1][#2]}
{\showhorizontalpalet[#1][#2]}}}
\gdef\showverticalpalet[#1][#2]%
{\localvbox
{\offinterlineskip
\setuppalet[#1]
\def\rule
{\vrule\!!width3em\!!height\strutht\!!depth\strutdp}
\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}}}
\gdef\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 1em
\ifdim\!!widtha<5em
\!!widtha5em
\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\strutht\!!depth\zeropoint}}%
\processpalet[#1]\doshowpalet\crcr
\def\doshowpalet##1%
{&\graycolor[##1]{\vrule\!!width\!!widtha\!!height\zeropoint\!!depth\strutdp}}%
\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}}}
\gdef\processpalet[#1]%
{\expanded{\globalprocesscommalist[\getvalue{\??pa#1}]}}
\gdef\showcolorgroup
{\dodoubleargument\doshowcolorgroup}
\gdef\doshowcolorgroup[#1][#2]%
{\doifdefined{\??cr#1:1}
{\doifinsetelse\v!vertikaal{#2}
{\showverticalcolorgroup[#1][#2]}
{\showhorizontalcolorgroup[#1][#2]}}}
\gdef\showhorizontalcolorgroup[#1][#2]%
{\localvbox
{\offinterlineskip
\setuppalet
\tabskip\zeropoint
\def\rule
{\vrule\!!width4em\!!height\strutht\!!depth\strutdp}
\def\colorformatseparator{\strut\cr}
\def\dodoshowgroup##1%
{\halign
{\hss####\hss\cr
\doifinset\v!nummer{#2}{\strut##1}\cr
\color[#1:##1]{\vrule\!!width4em\!!height\strutht\!!depth\zeropoint}\cr
\graycolor[#1:##1]{\vrule\!!width4em\!!height\zeropoint\!!depth\strutdp}\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}}}
\gdef\showverticalcolorgroup[#1][#2]%
{\localvbox
{\offinterlineskip
\setuppalet
\tabskip\zeropoint
\def\rule
{\vrule\!!width2.5em\!!height\strutht\!!depth\strutdp}
\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}}}
\gdef\showcolor
{\dosingleempty\doshowcolor}
\gdef\doshowcolor[#1]%
{\bgroup
\iffirstargument
\let\colorlist\empty
\let\colorstyle\empty
\setupcolor[#1]%
\fi
\setupwhitespace[\v!geen]
\def\rule
{\vrule\!!width4em\!!height\strutht\!!depth\strutdp}
\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}
\gdef\comparepalet
{\dosingleargument\docomparepalet}
\gdef\docomparepalet[#1]%
{\doifdefined{\??pa#1}
{\hbox
{\dodocomparepalet\color[#1]%
\quad
\dodocomparepalet\graycolor[#1]}}}
\gdef\dodocomparepalet#1[#2]%
{\localvbox
{\offinterlineskip
\setuppalet[#2]
\getcommacommandsize[\getvalue{\??pa#2}]
\!!widtha2em\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}}
\gdef\comparecolorgroup
{\dosingleargument\docomparecolorgroup}
\gdef\docomparecolorgroup[#1]%
{\doifdefined{\??cr#1:1}
{\hbox
{\dodocomparecolorgroup\color[#1]%
\quad
\dodocomparecolorgroup\graycolor[#1]}}}
\gdef\dodocomparecolorgroup#1[#2]%
{\localvbox
{\!!counta\zerocount
\dorecurse{15}
{\doifdefined{\??cr#2:\recurselevel}{\advance\!!counta\plusone}}
\!!widtha2em\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}}}
\protect \endinput
|