diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/colo-new.mkii')
-rw-r--r-- | Master/texmf-dist/tex/context/base/colo-new.mkii | 1857 |
1 files changed, 0 insertions, 1857 deletions
diff --git a/Master/texmf-dist/tex/context/base/colo-new.mkii b/Master/texmf-dist/tex/context/base/colo-new.mkii deleted file mode 100644 index 5413d7a1208..00000000000 --- a/Master/texmf-dist/tex/context/base/colo-new.mkii +++ /dev/null @@ -1,1857 +0,0 @@ -%D \module -%D [ file=colo-ini, -%D version=1997.04.01, -%D title=\CONTEXT\ Color Macros, -%D subtitle=Initialization, -%D author=Hans Hagen, -%D date=\currentdate, -%D copyright={PRAGMA / Hans Hagen \& Ton Otten}] -%C -%C This module is part of the \CONTEXT\ macro||package and is -%C therefore copyrighted by \PRAGMA. See mreadme.pdf for -%C details. - -\unprotect - -\chardef\colorversion=1 - -%D Color support is not present in \TEX. Colorful output can -%D however be accomplished by using specials. This also means -%D that this support depends on the \DVI\ driver used. At the -%D moment this module was written, still no decent standard on -%D color specials has been agreed upon. We therefore decided to -%D implement a mechanism that is as independant as possible of -%D drivers. -%D -%D Color support shares with fonts that is must be implemented -%D in a way that permits processing of individual \DVI\ pages. -%D Furthermore it should honour grouping. The first condition -%D forces us to use a scheme that keeps track of colors at -%D page boundaries. This can be done by means of \TEX's -%D marking mechanism (\type{\mark}). -%D -%D When building pages, \TEX\ periodically looks at the -%D accumulated typeset contents and breaks the page when -%D suitable. At that moment, control is transfered to the -%D output routine. This routine takes care of building the -%D pagebody and for instance adds headers and footers. The page -%D can be broken in the middle of some colored text, but -%D headers and footers are often in black upon white or -%D background. If colors are applied there, they definitely -%D are used local, which means that they don't cross page -%D borders. -%D -%D Boxes are handled as a whole, which means that when we -%D apply colors inside a box, those colors don't cross page -%D boundaries, unless of course boxes are split or unboxed. -%D Especially in interactive texts, colors are often used in -%D such a local way: in boxes (buttons and navigational tools) -%D or in the pagebody (backgrounds). -%D -%D So we can distinguish local colors, that don't cross -%D pages from global colors, of which we can end many pages -%D later. The color macros will treat both types in a different -%D way, thus gaining some speed. -%D -%D This module also deals with gray scales. Because similar -%D colors can end up in the same gray scale when printed in -%D black and white, we also implement a palet system that deals -%D with these matters. Because of fundamental differences -%D between color and gray scale printing, in \CONTEXT\ we also -%D differ between these. For historic reasons |<|we first -%D implemented gray scales using patterns of tiny periods|>| -%D and therefore called them {\em rasters}. So don't be -%D surprised if this term shows up. - -%D \macros -%D {definecolor} -%D -%D We will enable users to specify colors in \cap{RGB} and -%D \cap{CMYK} color spaces or gray scales using -%D -%D \showsetup{definecolor} -%D -%D For example: -%D -%D \starttyping -%D \definecolor [SomeKindOfRed] [r=.8,g=.05,b=.05] -%D \stoptyping -%D -%D Such color specifications are saved in a macro in the -%D following way: -%D -%D \starttyping -%D \setvalue{\??cr name}{R:r:g:b} -%D \setvalue{\??cr name}{C:c:m:y:k} -%D \setvalue{\??cr name}{S:s} -%D \stoptyping -%D -%D Gray scales are specified with the \type{s} parameter, -%D where the \type {s} is derived from {\em screen}. -%D -%D Starting with \PDF\ 1.4 (2001) \CONTEXT\ supports -%D transparent colors. The transparency factor is represented -%D by a \type {t} and the transparency method by an \type {a} -%D (alternative). Later we will implement more control -%D (probably by symbolic methods. So, currently the data is -%D stored as follows: -%D -%D \starttyping -%D \setvalue{\??cr name}{R:r:g:b:a:t} -%D \setvalue{\??cr name}{C:c:m:y:k:a:t} -%D \setvalue{\??cr name}{S:s:a:t} -%D \stoptyping - -% r g b : rbg -% c m y k : cmyk -% s : gray -% p n d f : spot -% h : hexadecimal -% t a : transparency -% e : equivalent (spotcolors) - -\def\@@cl@@z{0} -\def\@@cl@@o{1} - -\def\@@resetcolorparameters - {\let\@@cl@@r\@@cl@@z \let\@@cl@@g\@@cl@@z \let\@@cl@@b\@@cl@@z - \let\@@cl@@c\@@cl@@z \let\@@cl@@m\@@cl@@z \let\@@cl@@y\@@cl@@z \let\@@cl@@k\@@cl@@z - \let\@@cl@@s\@@cl@@z - \let\@@cl@@p\@@cl@@o \let\@@cl@@n\empty \let\@@cl@@d\empty \let\@@cl@@f\@@cl@@o - \let\@@cl@@h\empty - \let\@@cl@@e\empty - \let\@@cl@@t\@@cl@@z \let\@@cl@@a\@@cl@@z} - -\@@resetcolorparameters - -\def\@@cl@@A{\@@cl@@a} % a hook for symbolic conversion, see below - -%D Handling a few nested \type{\cs}'s is no problem (\type -%D {\@EA\@EAEAEA\@EA}) but we need a full expansion, so I -%D tried one of the fully expandable primitives using a sort -%D of delimited thing. I tried \type {\number} first, but this -%D does not work, but \type {\romannumeral} does. Actually, -%D \type{\romannumeral0} returns nothing, so it's a perfect -%D candidate for this kind of hackery. This reminds me that I -%D have to look into David Kastrup's Euro\TeX\ 2002 article -%D because he is using \type {\romannumeral} for loops -%D (repetitive \quote {m} stuff). - -% \def\x{\y}\def\y{\z}\def\z{0:1:1:1} -% -% \def\bla #1:#2:#3\end{} -% -% \@EA\bla\romannumeral\x\end - -\def\colorXpattern{0S:\@@cl@@z:\@@cl@@z:\@@cl@@z} -\def\colorZpattern{0S:\@@cl@@z:\@@cl@@A:\@@cl@@t} -\def\colorSpattern{0S:\@@cl@@s:\@@cl@@A:\@@cl@@t} -\def\colorCpattern{0C:\@@cl@@c:\@@cl@@m:\@@cl@@y:\@@cl@@k:\@@cl@@A:\@@cl@@t} -\def\colorRpattern{0R:\@@cl@@r:\@@cl@@g:\@@cl@@b:\@@cl@@A:\@@cl@@t} - -%def\colorPpattern{0P:\@@cl@@n:\@@cl@@p:\@@cl@@A:\@@cl@@t} - -\def\colorPpattern{0P:\@@cl@@n:\@@cl@@f:\@@cl@@d:\@@cl@@p:\@@cl@@A:\@@cl@@t} - -%D The extra 0 catches empty colors specs (needed for the -%D \type {\MPcolor} and \type {\PDFcolor} conversion (\type -%D {\@@cr} equals \type {\relax}!). - -\def\handlecolorwith#1{\@EA#1\romannumeral0} - -%D Next comes the main definition macro. - -\def\dodefinecolor {\dododefinecolor\relax \setvalue \setevalue1} -\def\dodefineglobalcolor{\dododefinecolor\doglobal\setgvalue\setxvalue1} -\def\dodefinenamedcolor {\dododefinecolor\doglobal\setvalue \setevalue0} - -\def\dododefinecolor#1#2#3#4[#5][#6]% #2==set(g)value #3==set[e|x]value - {#1\addtocommalist{#5}\colorlist % optional - \doifassignmentelse{#6} - {\@@resetcolorparameters - \getparameters[\??cl @@][#6]% - \ifx\@@cl@@h\empty - \doifelse{\@@cl@@r\@@cl@@g\@@cl@@b}{\@@cl@@z\@@cl@@z\@@cl@@z} - {\doifelse{\@@cl@@c\@@cl@@m\@@cl@@y\@@cl@@k}{\@@cl@@z\@@cl@@z\@@cl@@z\@@cl@@z} - {\doifelse\@@cl@@s\@@cl@@z - {\showmessage\m!colors8{{[#6]},#5}% - #3{\??cr#5}{\colorZpattern}} - {#3{\??cr#5}{\colorSpattern}}} - {#3{\??cr#5}{\colorCpattern}}} - {#3{\??cr#5}{\colorRpattern}}% - \else - \setxvalue{\??cr#5}{\colorHpattern}% - \fi - % new: e=external spot color name - \ifx\@@cl@@e\empty \else - \doregisterspotcolorname{#5}\@@cl@@e - \fi} - {\doifelsenothing\currentpalet - \donefalse - {\doifdefinedelse{\??cr\currentpalet#6}\donetrue\donefalse}% - \ifdone - \doifnot{#5}{#6} - {#2{\??cr#5}{\paletcolorspec{#6}}}% - \else - \doifdefinedelse{\??cr#6} - {\doifelse{#5}{#6} - {% this way we can freeze \definecolor[somecolor][somecolor] - % and still prevent cyclic definitions - \iffreezecolors#3{\??cr#5}{\csname\??cr#6\endcsname}\fi} - {\iffreezecolors\@EA#3\else\@EA#2\fi{\??cr#5}{\csname\??cr#6\endcsname}}} - {\showmessage\m!colors3{#5 (def)}}% - \fi}% - \ifcase#4\or - \unexpanded#2{#5}{\switchtocolor[#5]}% \unexpanded toegevoegd - \fi} - -\def\paletcolorspec#1% - {\csname\??cr\currentpalet#1\endcsname} - -%D Hex color support is not enabled by default. You need to say \type -%D {\setupcolor [hex]} to get this working. - -\ifx\colorHpattern\undefined \let\colorHpattern\colorZpattern \fi - -%D New and experimental. - -\def\dodefinespotcolor[#1][#2][#3]% todo: always global - {\doifnot{#1}{#2} - {\@@resetcolorparameters - \doglobal\addtocommalist{#1}\colorlist % optional - \edef\@@cl@@n{#2}% - \getparameters[\??cl @@][#3]% - \doifnothing\@@cl@@p{\let\@@cl@@p\!!plusone}% - \ifx\@@cl@@e\empty \else - \doregisterspotcolorname{#2}\@@cl@@e - \fi - \doglobal\addtocommalist{#2}\allspotcolors - \setxvalue{\??cr#1}{\colorPpattern}% was \setevalue - \setgvalue{#1}{\switchtocolor[#1]}}} % was \setvalue - -\def\registerusedspotcolors - {\ifx\allspotcolors\empty \else - \bgroup - \let\usedspotcolors\empty - \def\docommand##1% - {\doifdefined{\??cs##1}{\addtocommalist{##1}\usedspotcolors}}% - \processcommacommand[\allspotcolors]\docommand - \savecurrentvalue\usedspotcolors\usedspotcolors - \egroup - \fi} - -\def\registerusedcolorchannels - {\bgroup - \doifdefinedelse{\??cs c} - {\def\usedcolorchannels{c,m,y,k}}% - {\let\usedcolorchannels\empty}% - \doifdefined{\??cs r} - {\addtocommalist{r,g,b}\usedcolorchannels}% - \doifdefined{\??cs s} - {\ExpandBothAfter\doifnotinset{k}\usedcolorchannels - {\addtocommalist{s}\usedcolorchannels}}% - \savecurrentvalue\usedcolorchannels\usedcolorchannels - \egroup} - -\prependtoks - \registerusedspotcolors - \registerusedcolorchannels -\to \everylastshipout - -\def\registerusedspotcolor#1% - {\global\@EA\chardef\csname\??cs#1\endcsname\zerocount} - -%D On top of spotcolors, we define multitone colors. You'd better know -%D what you're doing because invalid definitions will lead to invalid -%D documents (i.e.\ resources). - -% \definecolor [darkblue] [c=.5,m=.5] -% \definecolor [darkyellow] [y=.5] -% -% \definemultitonecolor [whatever] [darkblue=.5,darkyellow=.5] [c=.25,m=.25,y=.25] [a=1,t=.5] -% \definemultitonecolor [another] [darkblue=.5,darkyellow=.5] [c=.25,m=.25,y=.25] - -\def\dodefinemultitonecolor[#1][#2][#3][#4]% - {\let\@@cl@@cl@@D\empty % n's - \let\@@cl@@cl@@P\empty % p's - \let\@@cl@@cl@@N\empty % name - \scratchcounter\zerocount - \processcommacommand[#2]\dododefinemultitonecolor - \bgroup - \lccode`\.=`\_% - \lccode`\,=`\_% - \lccode`\:=`\_% - \lccode`\;=`\_% - \lccode`\+=`\_% - \lccode`\-=`\_% - \lccode`\*=`\_% - \lccode`\/=`\_% -% \lccode`\_=`\_% - % not needed, other attribute in driver: - % - % \@@resetcolorparameters - % \getparameters[#4]% - % \ifx\@@cl@@t\@@cl@@z\else - % \edef\@@cl@@cl@@N{\@@cl@@cl@@N_\@@cl@@t_\@@cl@@a}% - % \fi - \lowercase\@EA{\@EA\xdef\@EA\@@cleancolor\@EA{\@@cl@@cl@@N}}% - \egroup - \setxvalue{\??cl\@@cleancolor\s!check}{\noexpand\docheckmultitonecolor{\@@cl@@cl@@D}}% - \expanded{\defineglobalcolor[\@@cleancolor][#3,#4]}% - \expanded{\definespotcolor[#1][\@@cleancolor][#4,f=\the\scratchcounter,p={\@@cl@@cl@@P},d={\@@cl@@cl@@D}]}} - -\def\docheckmultitonecolor#1% - {\flushatshipout - {\let\checkmultitonecolor\gobbleoneargument - \def\docommand##1{\hbox{\definecolor[\s!dummy-100][##1][p=1]\color[\s!dummy-100]}}% - \processcommalist[#1]\docommand}} - -\def\checkmultitonecolor#1% - {\csname\??cl#1\s!check\endcsname\letgvalue{\??cl#1\s!check}\relax} - -\def\dodefinespotcolor[#1][#2][#3]% todo: always global (REDEFINED) - {\doifnot{#1}{#2} - {\@@resetcolorparameters - \doglobal\addtocommalist{#1}\colorlist % optional - \edef\@@cl@@n{#2}% - \getparameters[\??cl @@][#3]% - \doifnothing \@@cl@@p{\let\@@cl@@p\!!plusone}% - \doifsomething\@@cl@@e{\doregisterspotcolorname{#2}\@@cl@@e}% - \doglobal\addtocommalist{#2}\allspotcolors - \setxvalue{\??cr#1}{\colorPpattern}% was \setevalue - \setgvalue{#1}{\switchtocolor[#1]}}}% was \setvalue - -\def\dododefinemultitonecolor#1% - {\advance\scratchcounter\plusone - \splitstring#1\at=\to\!!stringa\and\!!stringb - \ifx\@@cl@@cl@@D\empty - \let\@@cl@@cl@@D\!!stringa - \let\@@cl@@cl@@P\!!stringb - \normalizecolor\!!stringb - \edef\@@cl@@cl@@N{\!!stringa_\!!stringb}% - \else - \edef\@@cl@@cl@@D{\@@cl@@cl@@D,\!!stringa}% - \edef\@@cl@@cl@@P{\@@cl@@cl@@P,\!!stringb}% - \normalizecolor\!!stringb - \edef\@@cl@@cl@@N{\@@cl@@cl@@N_\!!stringa_\!!stringb}% - \fi} - -% \def\dododefinemultitonecolor#1% a/b safe -% {\advance\scratchcounter\plusone -% \splitstring#1\at=\to\@@cl@@one\and\@@cl@@two -% \ifx\@@cl@@cl@@D\empty -% \let\@@cl@@cl@@D\@@cl@@one -% \let\@@cl@@cl@@P\@@cl@@two -% \normalizecolor\@@cl@@two -% \edef\@@cl@@cl@@N{\@@cl@@one_\@@cl@@two}% -% \else -% \edef\@@cl@@cl@@D{\@@cl@@cl@@D,\@@cl@@one}% -% \edef\@@cl@@cl@@P{\@@cl@@cl@@P,\@@cl@@two}% -% \normalizecolor\@@cl@@two -% \edef\@@cl@@cl@@N{\@@cl@@cl@@N_\@@cl@@one_\@@cl@@two}% -% \fi} - -%D The names of colors are stored in a comma separated list -%D only for the purpose of showing them with \type {\showcolor}. -%D -%D \startbuffer -%D \definecolor [SomeKindOfRed] [r=.8,g=.05,b=.05] -%D \stopbuffer -%D -%D \typebuffer -%D \getbuffer -%D -%D This color shows up as \color [SomeKindOfRed] {some kind -%D of red}. -%D -%D \starttyping -%D \setupcolors[state=start] -%D -%D \definecolor[mygreen][green] -%D \definecolor[green][g=.5] -%D -%D \startcolor[mygreen]test\stopcolor -%D -%D \setupcolors[expansion=no] -%D -%D \definecolor[mygreen][green] -%D \definecolor[green][g=.5] -%D -%D \startcolor[mygreen]test\stopcolor -%D \stoptyping - -%D \macros -%D {startcolormode,stopcolormode,permitcolormode} -%D -%D We use \type{\stopcolormode} to reset the color in -%D whatever color space and do so by calling the corresponding -%D special. Both commands can be used for fast color -%D switching, like in colored verbatim, - -\newif\ifpermitcolormode \permitcolormodetrue - -\def\dowithcolor#1#2% #1=\action #2=color - {\ifincolor\ifpermitcolormode - \ifcsname\??cr\currentpalet#2\endcsname - \handlecolorwith#1\csname\??cr\currentpalet#2\endcsname\od - \else\ifcsname\??cr#2\endcsname - \handlecolorwith#1\csname\??cr#2\endcsname\od - \fi\fi - \fi\fi} - -\def\startcolormode % includes \ifincolor\ifpermitcolormode - {%\dostoptransparency % needed for: {test \trans test \notrans test} - \conditionalstoptransparency - \dowithcolor\execcolorRCSP} - -\def\stopcolormode - {\ifincolor\ifpermitcolormode - \supportedstoptransparency - \dostopcolormode - \fi\fi} - -\def\restorecolormode - {\ifincolor\ifpermitcolormode - \supportedstoptransparency - \dostopcolormode - \ifx\maintextcolor\empty \else - \startcolormode\maintextcolor - \fi - \fi\fi} - -%D Color modes are entered using the next set of commands. -%D The \type{\stop} alternatives are implemented in a way -%D that permits non||grouped use. -%D -%D The, for this module redundant, check if we are in color -%D mode is needed when we use these macros in other modules. - -\def\execcolorRCSP#1:% - {\csname execcolor#1\endcsname} - -\def\execcolorR - {\iffilterspotcolor - \@EA\noexeccolorR - \else - \@EA\doexeccolorR - \fi} - -\def\execcolorC - {\iffilterspotcolor - \@EA\noexeccolorC - \else - \@EA\doexeccolorC - \fi} - -\def\execcolorS - {\iffilterspotcolor - \@EA\noexeccolorS - \else - \@EA\doexeccolorS - \fi} - -\def\execcolorP - {\iffilterspotcolor - \@EA\doexeccolorPP - \else\ifcase\currentcolorchannel - \@EAEAEA\doexeccolorP - \else - \@EAEAEA\noexeccolorP - \fi\fi} - -\def\doexeccolorR#1:#2:#3:% - {\edef\@@cl@@r{#1}\edef\@@cl@@g{#2}\edef\@@cl@@b{#3}% - \ifpreferGRAY\ifx\@@cl@@r\@@cr@@g\ifx\@@cl@@r\@@cl@@b - \GRAYpreferedtrue - \fi\fi\fi - \ifincolor\else\RGBsupportedfalse\CMYKsupportedfalse\fi - \ifGRAYprefered - \registercolorchannel\c!s - \let\@@cl@@s\@@cl@@r - \normalizeGRAY - \doexeccolorgray - \else\ifRGBsupported - \registercolorchannel\c!r - \normalizeRGB - \doexeccolorrgb - \else\ifCMYKsupported - \registercolorchannel\c!c - \convertRGBtoCMYK\@@cl@@r\@@cl@@g\@@cl@@b - \normalizeCMYK - \doexeccolorcmyk - \else - \registercolorchannel\c!s - \convertRGBtoGRAY\@@cl@@r\@@cl@@g\@@cl@@b - \normalizeGRAY - \doexeccolorgray - \fi\fi\fi - \exectransparency} - -\def\doexeccolorC#1:#2:#3:#4:% - {\edef\@@cl@@c{#1}\edef\@@cl@@m{#2}\edef\@@cl@@y{#3}\edef\@@cl@@k{#4}% - \ifpreferGRAY\ifx\@@cl@@k\@@cl@@z\ifx\@@cl@@c\@@cr@@m\ifx\@@cl@@c\@@cl@@y - \GRAYpreferedtrue - \fi\fi\fi\fi - \ifincolor\else\RGBsupportedfalse\CMYKsupportedfalse\fi - \ifGRAYprefered - \registercolorchannel\c!s - \let\@@cl@@s\@@cl@@c - \normalizeGRAY - \doexeccolorgray - \else\ifCMYKsupported - \registercolorchannel\c!c - \ifreduceCMYK - \convertCMYKtoCMY\@@cl@@c\@@cl@@m\@@cl@@y\@@cl@@k - \fi - \normalizeCMYK - \doexeccolorcmyk - \else\ifRGBsupported - \registercolorchannel\c!r - \convertCMYKtoRGB\@@cl@@c\@@cl@@m\@@cl@@y\@@cl@@k - \normalizeRGB - \doexeccolorrgb - \else - \registercolorchannel\c!s - \convertCMYKtoGRAY\@@cl@@c\@@cl@@m\@@cl@@y\@@cl@@k - \normalizeGRAY - \doexeccolorgray - \fi\fi\fi - \exectransparency} - -\def\doexeccolorS#1:% - {\edef\@@cl@@s{#1}% - \registercolorchannel\c!s - \normalizeGRAY - \doexeccolorgray - \exectransparency} - -% \def\doexeccolorP#1:#2:% -% {\edef\@@cl@@n{#1}% -% \edef\@@cl@@p{#2}% -% \registerusedspotcolor\@@cl@@n -% \ifSPOTsupported -% \dowithcolor\registerspotcolor\@@cl@@n -% \dostartspotcolormode\@@cl@@n\@@cl@@p -% \else -% \doingspotcolortrue -% \let\spotcolorfactor\@@cl@@p -% \factorizecolortrue % using counter and array -% \dowithcolor\execcolorRCSP\@@cl@@n -% \factorizecolorfalse -% \let\spotcolorfactor\@@cl@@o -% \doingspotcolorfalse -% \fi -% \exectransparency} - -\def\doexeccolorP#1:#2:#3:#4:% - {\edef\@@cl@@n{#1}% name - \edef\@@cl@@f{#2}% fractions - \edef\@@cl@@d{#3}% definitions - \edef\@@cl@@p{#4}% - \ifx\@@cl@@d\empty - \let\@@cl@@d\@@cl@@n - \fi - \registerusedspotcolor\@@cl@@n - \ifSPOTsupported - \checkmultitonecolor\@@cl@@n - \dowithcolor\registerspotcolor\@@cl@@n - \dostartspotcolormode\@@cl@@n\@@cl@@p - \else - \doingspotcolortrue - \normalizespotcolor\@@cl@@p - \let\spotcolorfactor\@@cl@@p - \factorizecolortrue % using counter and array - \dowithcolor\execcolorRCSP\@@cl@@n - \factorizecolorfalse - \let\spotcolorfactor\@@cl@@o - \doingspotcolorfalse - \fi - \exectransparency} - -\def\doexeccolorPindex#1:#2:#3:#4:% - {\edef\@@cl@@n{#1}% - \edef\@@cl@@f{#2}% - \edef\@@cl@@d{#3}% - \edef\@@cl@@p{#4}% - \ifx\@@cl@@d\empty - \let\@@cl@@d\@@cl@@n - \fi - \ifSPOTsupported - \checkmultitonecolor\@@cl@@n - \dowithcolor\registerindexcolor\@@cl@@n - \fi - \noexectransparency} - -\def\doexeccolorPP#1:#2:% - {\edef\@@cl@@n{#1}% - \edef\@@cl@@p{#2}% - \registerusedspotcolor\@@cl@@n - \ifx\@@cl@@n\currentspotcolor - \normalizeSPOT - \dostartgraycolormode\@@cl@@p % was spotcolormode - \else - \dovidecolor\@@cl@@p\@@cl@@o - \fi - \exectransparency} - -\def\doexeccolorrgb - {\ifcase\currentcolorchannel - \dostartrgbcolormode\@@cl@@r\@@cl@@g\@@cl@@b - \or \or \or \or - \or \dostartgraycolormode\@@cl@@r - \or \dostartgraycolormode\@@cl@@g - \or \dostartgraycolormode\@@cl@@b - \fi} - -\def\doexeccolorcmyk - {\ifcase\currentcolorchannel - \dostartcmykcolormode\@@cl@@c\@@cl@@m\@@cl@@y\@@cl@@k - \or \negatecolorcomponent\@@cl@@c\dostartgraycolormode\@@cl@@c - \or \negatecolorcomponent\@@cl@@m\dostartgraycolormode\@@cl@@m - \or \negatecolorcomponent\@@cl@@y\dostartgraycolormode\@@cl@@y - \or \negatecolorcomponent\@@cl@@k\dostartgraycolormode\@@cl@@k - \fi} - -\def\doexeccolorgray - {\ifcase\currentcolorchannel - \dostartgraycolormode\@@cl@@s - \or \or \or - \or \dostartgraycolormode\@@cl@@s - \or \or \or - \or \dostartgraycolormode\@@cl@@s - \fi} - -%D When filtering colors, we need to either erase -%D the background, or ignore the foreground. - -% \newif\ifhidesplitcolor \hidesplitcolortrue -% -% \def\noexeccolor#1\od -% {\dostartgraycolormode\@@cl@@o} -% -% \let\noexeccolorS\noexeccolor -% \let\noexeccolorP\noexeccolor - -%D Well, here comes some real trickery. When we have the 100\% -%D spot color or black color, we don't want to erase the -%D background. So, instead we hide the content by giving it -%D zero transparency. - -% todo : #1#2#3 met #2 > of < and #3 een threshold - -\def\dohidecolor#1#2% - {\ifhidesplitcolor - \ifx#1#2% - \dostartgraycolormode\@@cl@@o - \else - \doregisternonecolor - \dostartnonecolormode - \fi - \else - \dostartgraycolormode\@@cl@@o - \fi} - -\def\dovidecolor#1#2% - {\ifhidesplitcolor - \ifx#1#2% - \doregisternonecolor - \dostartnonecolormode - \else - \dostartgraycolormode\@@cl@@o - \fi - \else - \dostartgraycolormode\@@cl@@o - \fi} - -% \def\fullytransparentcolor % fails on floats -% {\dostartgraycolormode\@@cl@@o % better than z -% %\global\@EA\chardef\csname\@@currenttransparent\endcsname\plusone -% %\global\intransparenttrue -% \dostarttransparency10} - -\def\noexeccolorR#1:#2:#3:#4\od - {\edef\@@cl@@r{#1}\edef\@@cl@@g{#2}\edef\@@cl@@b{#3}% - \dohidecolor\@@cl@@s\@@cl@@o} - -\def\noexeccolorC#1:#2:#3:#4:#5\od - {\edef\@@cl@@c{#1}\edef\@@cl@@m{#2}\edef\@@cl@@y{#3}\edef\@@cl@@k{#4}% - \dohidecolor\@@cl@@s\@@cl@@o} - -\def\noexeccolorS#1:#2\od - {\edef\@@cl@@s{#1}% - \dohidecolor\@@cl@@s\@@cl@@o} - -\def\noexeccolorP#1:#2:#3:#4:#5\od - {\edef\@@cl@@p{#4}% - \dohidecolor\@@cl@@p\@@cl@@z} - -%D For the sake of postprocessing (i.e.\ color separation) -%D we can normalize colors, which comes down to giving equal -%D values an equal accuracy and format. This feature is -%D turned off by default due to a speed penalty. This macro -%D also handles spot color percentages. - -\newif\iffactorizecolor -\newif\ifnormalizecolor - -\def\spotcolorfactor{1} - -% \def\normalizecolor#1% -% {\colordimen#1\thousandpoint -% \colordimen\spotcolorfactor\colordimen -% \colorcount\colordimen -% \advance\colorcount \medcard -% \divide\colorcount \maxcard -% \edef#1{\realcolorvalue\colorcount}} - -\def\normalizecolor#1% - {\colorcount\numexpr(\dimexpr\spotcolorfactor\dimexpr#1\thousandpoint\relax\relax+\medcard)/\maxcard\relax - \edef#1{\realcolorvalue\colorcount}} - -% \def\normalizespotcolor#1% -% {\colordimen-#1\thousandpoint -% \advance\colordimen\thousandpoint -% \colorcount\colordimen -% \advance\colorcount \medcard -% \divide\colorcount \maxcard -% \edef#1{\realcolorvalue\colorcount}} - -\def\normalizespotcolor#1% - {\colorcount\numexpr(\dimexpr\thousandpoint-#1\thousandpoint\relax+\medcard)/\maxcard\relax - \edef#1{\realcolorvalue\colorcount}} - -\def\donormalizeRGB - {\normalizecolor\@@cl@@r - \normalizecolor\@@cl@@g - \normalizecolor\@@cl@@b} - -\def\normalizeRGB - {\ifnormalizecolor - \donormalizeRGB - \else\iffactorizecolor - \donormalizeRGB - \fi\fi} - -\def\donormalizeCMYK - {\normalizecolor\@@cl@@c - \normalizecolor\@@cl@@m - \normalizecolor\@@cl@@y - \normalizecolor\@@cl@@k} - -\def\normalizeCMYK - {\ifnormalizecolor - \donormalizeCMYK - \else\iffactorizecolor - \donormalizeCMYK - \fi\fi} - -\def\donormalizeGRAY - {\normalizecolor\@@cl@@s} - -\def\normalizeGRAY - {\ifnormalizecolor - \donormalizeGRAY - \else\iffactorizecolor - \donormalizeGRAY - \fi\fi} - -\def\normalizeSPOT - {\normalizespotcolor\@@cl@@p} - -%D We need to register spot colors (i.e.\ resources need to -%D be created. - -\def\registerspotcolor#1:% - {\ifcsname\??cl:\c!p:\@@cl@@n\endcsname - \@EA\dontregisterspotcolor - \else - \letgvalue{\??cl:\c!p:\@@cl@@n}\empty - %\@EA\@EA\csname registerspotcolor#1\endcsname - \csname registerspotcolor#1\@EA\endcsname - \fi} - -% todo: convert to rgb if needed, will will do this in mkiv - -\def\dontregisterspotcolor #1\od{} -\def\registerspotcolorR #1:#2:#3:#4\od{\doregisterrgbspotcolor \@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#1}{#2}{#3}} -\def\registerspotcolorC#1:#2:#3:#4:#5\od{\doregistercmykspotcolor\@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#1}{#2}{#3}{#4}} -\def\registerspotcolorS #1:#2\od{\doregistergrayspotcolor\@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#1}} -\def\registerspotcolorP #1:#2:#3\od{\doregistergrayspotcolor\@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#2}} - -%D Experimental feature: - -% \definecolor [darkblue] [c=1,m=.38,y=0,k=.64] % pantone pms 2965 uncoated m -% \definecolor [darkyellow] [c=0,m=.28,y=1,k=.06] % pantone pms 124 uncoated m -% -% \definecolor [darkblue-50] [darkblue] [p=.5] -% \definecolor [darkyellow-50] [darkyellow] [p=.5] -% \definecolor [darkblue-80] [darkblue] [p=.8] -% \definecolor [darkyellow-80] [darkyellow] [p=.8] -% -% \definecolor [darkblue,darkyellow] [r=.8] -% \definecolor [darkdull-5030] [darkblue,darkyellow] [p={.5,.3}] -% -% \setupcolors[state=start] -% -% \blackrule[width=4cm,height=3cm,color=darkblue-50] -% \blackrule[width=4cm,height=3cm,color=darkblue-80] -% \blackrule[width=4cm,height=3cm,color=darkyellow-50] -% \blackrule[width=4cm,height=3cm,color=darkyellow-80] -% \blackrule[width=4cm,height=3cm,color=darkdull-5030] - -%D Experimental too (special purpose code). - -\def\registerindexcolor#1:% - {\ifcsname\??cl:i:\@@cl@@n\endcsname - \@EA\dontregisterindexcolor - \else - \letgvalue{\??cl:i:\@@cl@@n}\empty % signal - \showmessage\m!colors{12}\@@cl@@n - \@EA\@EA\csname registerindexcolor#1\endcsname - \fi} - -\let\dontregisterindexcolor\dontregisterspotcolor - -\def\registerindexcolorR #1:#2:#3:#4\od{\doregisterrgbindexcolor \@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#1}{#2}{#3}} -\def\registerindexcolorC#1:#2:#3:#4:#5\od{\doregistercmykindexcolor\@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#1}{#2}{#3}{#4}} -\def\registerindexcolorS #1:#2\od{\doregistergrayindexcolor\@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#1}} -\def\registerindexcolorP #1:#2:#3\od{\doregistergrayindexcolor\@@cl@@n\@@cl@@f\@@cl@@d\@@cl@@p{#2}} - -\def\predefinecolor[#1]% - {\bgroup - \flushatshipout{\hbox{\localcolortrue\color[#1]{}}}% real ones - \egroup} - -\def\predefineindexcolor[#1]% - {\bgroup - \flushatshipout{\hbox{\localcolortrue\color[#1]{}}}% real ones - \let\doexeccolorP\doexeccolorPindex - \flushatshipout{\hbox{\localcolortrue\color[#1]{}}}% index one - \egroup} - -% \def\checkpredefinedcolor[#1]% -% {\ifcase\internalspotcolorsize{#1}\relax -% \@EA\predefinecolor\or\@EA\predefinecolor\else\@EA\predefineindexcolor -% \fi[#1]} - -\let\checkpredefinedcolor\predefineindexcolor % we need an index in order to negate bitmaps - -%D Transparency is handled similar for all three color modes. We -%D can turn transparency off with the following switch: - -\newif\iftransparencysupported \transparencysupportedtrue % only mkii - -\def\exectransparency - {\iftransparencysupported - \expandafter\doexectransparency - \else - \expandafter\noexectransparency - \fi} - -\def\doexectransparency#1:#2\od - {\ifcase#1\space - \global\intransparentfalse - \else - \global\intransparentfalse - %\dostarttransparency{#1}{#2}% - \supportedstarttransparency{#1}{#2}% - \global\intransparenttrue - \fi} - -\def\noexectransparency#1\od - {} - -%D Experimental: minimize transparency resets. - -\newif\ifintransparent -\newif\ifoptimizetransparency \optimizetransparencytrue % under test - -\let\supportedstoptransparency\relax - -\def\conditionalstoptransparency - {\ifoptimizetransparency - \ifintransparent - \global\intransparentfalse - \supportedstoptransparency - \fi - \else - \supportedstoptransparency - \fi} - -\def\supportedstarttransparency - {\iftransparencysupported - \globallet\supportedstoptransparency\dostoptransparency - \expandafter\dostarttransparency - \else - \expandafter\gobbletwoarguments - \fi} - -%D We now use the \type {\@@cl@@A} hook to implement -%D symbolic names. These are converted into numbers -%D at definition time (which saves runtime). - -\def\dodefinetransparency[#1][#2]% - {\@EA\chardef\csname\??cl-#1\endcsname#2\relax} - -\def\transparencynumber#1% - {\number\executeifdefined{\??cl-#1}{#1}} - -%D Now we hook 'm into the patterns: - -\def\@@cl@@A{\transparencynumber\@@cl@@a} - -%D The next macro can be used to return to the (normal) -%D page color. This macro is used in the same way as -%D \type {\color}. - -\def\startregistercolor[#1]% - {\permitcolormodefalse\startcolor[#1]\permitcolormodetrue} - -\def\stopregistercolor - {\permitcolormodefalse\stopcolor\permitcolormodetrue} - -\def\starttextcolor[#1]% - {\doifsomething{#1} - {\bgroup - \def\stoptextcolor % also goes ok with \page after - {\let\maintextcolor\empty % this one because the top of - \stopregistercolor % page sets the color right (side - \egroup}% % effect) - \def\starttextcolor[##1]% - {\bgroup - % \@@themaintextcolor==##1 is catched in \definecolor - \definecolor[\@@themaintextcolor][##1]% - \let\stoptextcolor\egroup}% - \startregistercolor[\@@themaintextcolor]% - \definecolor[\@@themaintextcolor][#1]% - \let\maintextcolor\@@themaintextcolor}} - -\let\stoptextcolor\relax - -%D The following hook permits proper support at the text -%D level. This definition actually belongs in another -%D module. (May need a different \MKIV\ implementation.) - -% \ifx\initializemaintextcolor\undefined - - \let\@@clprevcolor\empty - - \def\initializemaintextcolor - {% saveguard for setting text color to empty after - % it has been set - \doifnothing\@@cltextcolor - {\ifx\@@clprevcolor\empty\else - \let\@@cltextcolor\defaulttextcolor - \fi}% - \doifelsenothing\@@cltextcolor - {\let\maintextcolor\empty} - {\edef\@@clprevcolor{\@@cltextcolor}% - \let\maintextcolor\@@themaintextcolor - \doifelsenothing\@@cltextcolor % another saveguard - {\definecolor[\@@themaintextcolor][\defaulttextcolor]}% - {\definecolor[\@@themaintextcolor][\@@cltextcolor]}% - \doinitializemaintextcolor}} - - \def\doinitializemaintextcolor - {\appendtoks\starttextcolor[\@@themaintextcolor]\to\everystarttext - \appendtoks\stoptextcolor \to\everystoptext - \let\doinitializemaintextcolor\relax} - -% \fi - -\def\localstarttextcolor - {\ifx\maintextcolor\empty - \startcolormode\defaulttextcolor - \else - \startcolormode\maintextcolor - \fi} - -% \def\localstoptextcolor -% {\stopcolormode} -% -% better: - -\def\localstoptextcolor - {\restorecolormode} - -\def\restoretextcolor - {\ifx\maintextcolor\empty - \expandafter\dorestoretextcolor - \else - % obey main text color - \fi} - -\def\dorestoretextcolor - {\color[\defaulttextcolor]} - -%D We use some reserved names for local color components. -%D Consistent use of these scratch variables saves us -%D unneccessary hash entries. -%D -%D \starttyping -%D \@@cl@@r \@@cl@@g \@@cl@@b -%D \@@cl@@c \@@cl@@m \@@cl@@y \@@cl@@k -%D \@@cl@@s -%D \stoptyping -%D -%D We implement several conversion routines. -%D -%D \starttyping -%D \convertRGBtoCMYK {r} {g} {b} -%D \convertRGBtoGRAY {r} {g} {b} -%D \convertCMYKtoRGB {c} {m} {y} {k} -%D \convertCMYKtoGRAY {c} {m} {y} {k} -%D \convertCMYKtoCMY {c} {m} {y} {k} -%D \stoptyping -%D -%D The relation between \cap{Gray}, \cap{RGB} and \cap{CMYK} -%D is: -%D -%D \placeformula[-] -%D \startformula -%D G = .30r + .59g + .11b -%D = 1.0 - \min(1.0,\ .30c + .59m + .11y + k) -%D \stopformula -%D -%D When converting from \cap{CMYK} to \cap{RGB} we use the -%D formula: -%D -%D \placeformula[-] -%D \startformula -%D \eqalign -%D {r &= 1.0 - \min(1.0,\ c+k) \cr -%D g &= 1.0 - \min(1.0,\ m+k) \cr -%D b &= 1.0 - \min(1.0,\ y+k)} -%D \stopformula -%D -%D In the conversion routine the color components are calculated -%D in three digits precision. - -\def\realcolorvalue#1% - {\ifnum#1>\zerocount % important, first encountered in --modu supp-mpe - \ifnum#1<\plusten 0.00\the#1\else - \ifnum#1<\plushundred 0.0\the#1\else - \ifnum#1<\plusthousand 0.\the#1\else - 1\fi\fi\fi - \else 0\fi} - -% \def\doconvertCMYKtoRGB#1\k#2\to#3% -% {\ifdim#2\points>#1\points% >= problem, repaired 2/12/2002 -% \let#3\@@cl@@z % k >= color -% \else -% \colordimen\onepoint -% \advance\colordimen -#1\points -% \advance\colordimen -#2\points -% \multiply\colordimen \plusthousand -% \colorcount\colordimen -% \advance\colorcount \medcard -% \divide\colorcount \maxcard -% \edef#3{\realcolorvalue\colorcount}% -% \fi} - -\def\doconvertCMYKtoRGB#1\k#2\to#3% - {\colorcount\numexpr(\dimexpr\plusthousand\dimexpr\onepoint-#1\points-#2\points\relax\relax+\medcard)/\maxcard\relax - \ifnum\colorcount>\zeropoint - \edef#3{\realcolorvalue\colorcount}% - \else - \let#3\@@cl@@z - \fi} - -\def\convertCMYKtoRGB#1#2#3#4% - {\doconvertCMYKtoRGB#1\k#4\to\@@cl@@r - \doconvertCMYKtoRGB#2\k#4\to\@@cl@@g - \doconvertCMYKtoRGB#3\k#4\to\@@cl@@b} - -% \def\doconvertRGBtoCMYK#1\to#2% -% {\colordimen#1\points -% \multiply\colordimen \plusthousand -% \colorcount\colordimen -% \advance\colorcount \medcard -% \divide\colorcount \maxcard -% \colorcount-\colorcount -% \advance\colorcount \plusthousand -% \edef#2{\realcolorvalue\colorcount}} - -\def\doconvertRGBtoCMYK#1\to#2% - {\colorcount\numexpr\plusthousand-(\dimexpr\plusthousand\dimexpr#1\points\relax\relax+\medcard)/\maxcard\relax - \edef#2{\realcolorvalue\colorcount}} - -\def\convertRGBtoCMYK#1#2#3% - {\doconvertRGBtoCMYK#1\to\@@cl@@c - \doconvertRGBtoCMYK#2\to\@@cl@@m - \doconvertRGBtoCMYK#3\to\@@cl@@y - \let\@@cl@@k\@@cl@@z} - -%D The following switch is mainly meant for (hidden) -%D documentation purposes. - -\def\nGRAYfactor{333.333} -\def\rGRAYfactor{\ifweightGRAY300\else\nGRAYfactor\fi} -\def\gGRAYfactor{\ifweightGRAY590\else\nGRAYfactor\fi} -\def\bGRAYfactor{\ifweightGRAY110\else\nGRAYfactor\fi} - -% \def\convertRGBtoGRAY#1#2#3% -% {\colordimen#1\points -% \colordimen\rGRAYfactor\colordimen -% \colorcount\colordimen -% \colordimen#2\points -% \colordimen\gGRAYfactor\colordimen -% \advance\colorcount \colordimen -% \colordimen#3\points -% \colordimen\bGRAYfactor\colordimen -% \advance\colorcount \colordimen -% \advance\colorcount \medcard -% \divide\colorcount \maxcard -% \edef\@@cl@@s{\realcolorvalue\colorcount}} - -\def\convertRGBtoGRAY#1#2#3% - {\colorcount\numexpr - (\dimexpr\rGRAYfactor\dimexpr#1\points\relax\relax+ - \dimexpr\gGRAYfactor\dimexpr#2\points\relax\relax+ - \dimexpr\bGRAYfactor\dimexpr#3\points\relax\relax+ - \medcard)/\maxcard - \relax - \edef\@@cl@@s{\realcolorvalue\colorcount}} - -\def\convertCMYKtoGRAY#1#2#3#4% - {\convertCMYKtoRGB{#1}{#2}{#3}{#4}% - \convertRGBtoGRAY\@@cl@@r\@@cl@@g\@@cl@@b} - -% \def\doconvertCMYKtoCMY#1\k#2\to#3% -% {\colordimen#1\points -% \advance\colordimen #2\points\relax -% \ifdim\colordimen>\onepoint -% \colordimen\onepoint -% %\else -% % \colordimen\colordimen -% \fi -% \multiply\colordimen \plusthousand -% \colorcount\colordimen -% \advance\colorcount \medcard -% \divide\colorcount \maxcard -% \edef#3{\realcolorvalue\colorcount}} - -\def\doconvertCMYKtoCMY#1\k#2\to#3% - {\colorcount\numexpr(\dimexpr\plusthousand\dimexpr#1\points+#2\points\relax\relax+\medcard)/\maxcard\relax - \ifnum\colorcount>\plusthousand - \let#3\@@cl@@o - \else - \edef#3{\realcolorvalue\colorcount}% - \fi} - -\def\convertCMYKtoCMY#1#2#3#4% - {\doconvertCMYKtoCMY#1\k#4\to\@@cl@@c - \doconvertCMYKtoCMY#2\k#4\to\@@cl@@m - \doconvertCMYKtoCMY#3\k#4\to\@@cl@@y - \let\@@cl@@k\@@cl@@z} - -%D Before we present the color macros, we first define the -%D setup command. This command takes care of setting up the -%D booleans that control local and global behavior (more on -%D that later) and conversion to other color spaces. - -\let\currentspotcolor \empty -\let\previousspotcolor\empty - -%D The tests depend on the use of constants. If we use the \MKIV\ -%D method we can share more. - -\def\doifcolorelse#1% - {\ifcsname\??cr\ifcsname\??cr\currentpalet#1\endcsname\currentpalet\fi#1\endcsname - \expandafter\firstoftwoarguments - \else - \expandafter\secondoftwoarguments - \fi} - -\def\doifcolor#1% - {\ifcsname\??cr\ifcsname\??cr\currentpalet#1\endcsname\currentpalet\fi#1\endcsname - \expandafter\firstofoneargument - \else - \expandafter\gobbleoneargument - \fi} - -%D There are a couple of different color switching macros, -%D the local ones can be used to speed up things (only in \MKII). - -\def\localstartcolor - {\ifincolor - \localcolortrue - \expandafter\doglobalstartcolor - \else - \expandafter\noglobalstartcolor - \fi} - -\def\localstopcolor - {\ifincolor - \doglobalstopcolor - \else - \noglobalstopcolor - \fi} - -\unexpanded\def\startcolor - {\ifincolor - \expandafter\doglobalstartcolor - \else - \expandafter\noglobalstartcolor - \fi} - -\unexpanded\def\stopcolor - {\ifincolor - \doglobalstopcolor - \else - \noglobalstopcolor - \fi} - -%D This macros call the global color switching ones. Starting -%D a global, i.e. a possible page boundary crossing, color -%D mode also sets a \type{\mark} in \TEX's internal list. - -\newcount\colorlevel - -\letvalue{\??cl0C}\empty % saved color -\letvalue{\??cl0S}\empty % stop command - -%D We keep a positive color stack for foreground colors, and -%D a negative one for backgrounds. Not that brilliant a -%D solution, but it suits. The signs are swapped when the -%D page ornaments are typeset. - -\let\@@colorplus \plusone -\let\@@colorminus\minusone - -\def\@@currentcolorname {\??cl\the\colorlevel C} -\def\@@currentcolorstop {\??cl\the\colorlevel S} -%def\@@currenttransparent{\??cl\the\colorlevel T} - -\letvalue{\??cl*\s!black}\s!black - -\def\currentcolorname - {\csname - \ifcsname\@@currentcolorname\endcsname - \expandafter\ifx\csname\@@currentcolorname\endcsname\empty - \??cl*\s!black - \else - \@@currentcolorname - \fi - \else - \??cl*\s!black - \fi - \endcsname} - -\def\outercolorname - {\ifcsname\@@currentcolorname\endcsname - \expandafter\ifx\csname\@@currentcolorname\endcsname\empty - \s!black - \else - currentcolor% - \fi - \else - \s!black - \fi} - -% not the following, because we need a different tag in order to trick the stack -% -% \def\outercolorname{\executeifdefined\@@currentcolorname\s!black} -% -% \def\startcurrentcolor{\expanded{\startcolor[\s!black]\noexpand\startcolor[\outercolorname]}} -% \def\stopcurrentcolor {\stopcolor\stopcolor} -% -% test case: -% -% \setupcolors[state=start,textcolor=red] -% \starttext -% red -% \color[green]{green -% \startMPcode -% label(\sometxt{green\color[blue]{blue}green}, origin) withcolor red; -% draw fullcircle scaled 1cm xscaled 2; -% \stopMPcode -% green} -% red -% \stoptext - -\def\dodoglobalstartcolor - {\global\@EA\let\@EA\@@currentcolor\csname\@@currentcolorname\endcsname - \global\advance\colorlevel \@@colorplus - \global\@EA\let\csname\@@currentcolorname\endcsname\@@askedcolor - %\debuggerinfo\m!colors - % {start \@@askedcolor\space at level \the\colorlevel}% - \ifx\@@askedcolor\empty - \global\@EA\let\csname\@@currentcolorname\endcsname\@@currentcolor - \global\@EA\let\csname\@@currentcolorstop\endcsname\donoglobalstopcolor - \else\ifx\@@askedcolor\@@currentcolor - \global\@EA\let\csname\@@currentcolorstop\endcsname\donoglobalstopcolor - \else - \doifcolorelse\@@askedcolor - {%\docolormark\@@askedcolor - \ifpermitcolormode\docolormark\@@askedcolor\fi - \global\@EA\let\csname\@@currentcolorstop\endcsname\dodoglobalstopcolor - \startcolormode\@@askedcolor} - {\global\@EA\let\csname\@@currentcolorstop\endcsname\donoglobalstopcolor - \showmessage\m!colors3\@@askedcolor\empty}% - \fi\fi} - -\def\doglobalstartcolor[#1]% - {\edef\@@askedcolor{#1}% - \ifcase\colorlevel\relax - \ifx\@@askedcolor\empty - \global\@EA\let\csname\@@currentcolorstop\endcsname\empty - \else - \dodoglobalstartcolor - \fi - \else - \dodoglobalstartcolor - \fi - \ignorespaces} - -\def\noglobalstartcolor[#1]% - {} - -\def\dodoglobalstopcolor - {\ifcase\colorlevel \else - \donoglobalstopcolor - \global\@EA\let\@EA\@@previouscolor\csname\@@currentcolorname\endcsname - \ifcase\colorlevel\relax - \ifpermitcolormode - \docolormark\empty - \conditionalstoptransparency - \dostopcolormode - \fi - \else % let's do a bit redundant testing here - \docolormark\@@previouscolor - \ifx\@@previouscolor\empty - \ifpermitcolormode - \conditionalstoptransparency - \dostopcolormode - \fi - \else - \doifcolorelse\@@previouscolor - {\ifx\@@currentcolor\@@previouscolor\else - % alternatively we could let \startcolormode handle this - \ifpermitcolormode - \conditionalstoptransparency % really needed - % more safe but less efficient: \dostopcolormode - \fi - \startcolormode\@@previouscolor - \fi} - {\ifpermitcolormode - \conditionalstoptransparency - \dostopcolormode - \fi}% - \fi - \fi - \fi} - -\def\donoglobalstopcolor - {\ifcase\colorlevel \else - \global\@EA\let\@EA\@@currentcolor\csname\@@currentcolorname\endcsname - %\debuggerinfo{\m!colors} - % {stop \@@currentcolor\normalspace at level \the\colorlevel}% - \global\advance\colorlevel \@@colorminus - \fi} - -\def\doglobalstopcolor - {\csname\@@currentcolorstop\endcsname} - -\let\noglobalstopcolor\relax - -\let\faststartcolor\doglobalstartcolor -\let\faststopcolor \doglobalstopcolor - -%D We don't use grouping and save each stop alternative. This -%D permits be especially useful in for instance local color -%D support in verbatim. Using \type{\bgroup}||\type{\egroup} -%D pairs could interfere with calling commands - -%D This color mechanism takes care of nested colors, like in: -%D -%D \startbuffer -%D \color[green]{groen \color[green]{groen \color[red]{rood}} groen} -%D \color[green]{groen \color[]{groen \color[red]{rood}} groen} -%D \color[green]{groen \color[red]{rood \color[red]{rood}} groen} -%D \color[green]{groen \color[green]{groen \color[]{groen}} groen} -%D \color[green]{groen \color[red]{rood} groen} -%D \color[green]{groen \color[]{groen} groen} -%D \color[]{zwart \color[red]{rood} zwart} -%D \color[]{zwart} -%D \stopbuffer -%D -%D \typebuffer -%D -%D or -%D -%D \startvoorbeeld -%D \startlines -%D \getbuffer -%D \stoplines -%D \stopvoorbeeld -%D -%D Crossing page boundaries is of course also handled. -%D Undefined or empty color specifications are treated as -%D efficient as possible. -%D -%D \startbuffer -%D \startcolor[green] -%D [green] \input tufte [green] \par -%D \startcolor[] -%D [green] \input knuth [green] \par -%D \startcolor[red] -%D [red] \input tufte [red] \par -%D \startcolor[yellow] -%D [yellow] \input knuth [yellow] \par -%D \stopcolor -%D [red] \input tufte [red] \par -%D \stopcolor -%D [green] \input knuth [green] \par -%D \stopcolor -%D [green] \input tufte [green] \par -%D \stopcolor -%D \stopbuffer -%D -%D \startpacked -%D \getbuffer -%D \stoppacked -%D -%D These quotes are typeset by saying: -%D -%D \typebuffer - -%D We already mentioned that colors interfere with building -%D the pagebody. This means that when the page is composed, -%D the colors temporary have to be reset. After the page is -%D shipped out, we have to revive the current color. -%D -%D We use \type{\mark}s to keep track of colors across page -%D boundaries. Unfortunately standard \TEX\ supports only one mark, -%D and using this one for color support only would be a waste. -%D We therefore use an adapted version of J.~Fox's multiple mark -%D mechanism as (re|)|implemented in \module{supp-mrk}. - -\doifdefinedelse{rawnewmark} - {\rawnewmark\colormark} - {\let\colormark\gobbleoneargument} - -%D Using this mark mechanism with lots of colors has one -%D major drawback: \TEX's memory tends to overflow when -%D very colorful text is stored in a global box. Even worse is that -%D the processing time grows considerably. We therefore support -%D local as well as global color switching. -%D -%D Of the next macros, \type {\popcolor} is to be used after -%D the actual \type {\shipout} and \type {\startcolorpage} and -%D \type {\stopcolorpage} are called when entering and leaving -%D the \type {\pagebody} builder. In case of emergencies -%D \type {\pushcolor} can be used to undo the current color, -%D for instance when insertions are appended to the page. -%D -%D Out of efficiency we only use marks when needed. The next -%D macro tries to find out if indeed a mark should be set. -%D This macro uses the boolean \type {\ifinpagebody}, which can -%D be defined and set in the module that handles the pagebody. - -\def\docolormark#1% - {\iflocalcolor \else \ifinpagebody \else \ifinframed \else - \dodocolormark{#1}% - \fi \fi \fi} - -\let\lastcolormark=\empty - -\def\dodocolormark#1% - {\edef\newcolormark{#1}% - \ifx\newcolormark\lastcolormark\else - \global\let\lastcolormark\newcolormark - \@EA\rawsetmark\@EA\colormark\@EA{\lastcolormark}% - \fi} - -%D \macros -%D {pushcolor, popcolor} -%D -%D Pushing the current state in the output routine simply comes -%D to resetting the color to black, while popping restores the -%D color state to that of before the break. - -\def\topofpagecolor{\rawgetbotmark\colormark} % see postponing - -\def\pushcolor - {\stopcolormode} - -\def\popcolor - {\doifsomething{\rawgetbotmark\colormark} - {%\debuggerinfo\m!colors{popping \getbotmark\colormark}% - \startcolormode{\rawgetbotmark\colormark}}} - -\def\popsplitcolor - {\getsplitmarks\colormark % hier wel - \doifsomething{\rawgetsplitbotmark\colormark} - {%\debuggerinfo\m!colors{split popping \getsplitbotmark\colormark}% - \startcolormode{\rawgetsplitbotmark\colormark}}} - -\appendtoks\pushcolor \to\everypushproperties -\appendtoks\popcolor \to\everypopproperties -\appendtoks\popsplitcolor\to\everypopsplitproperties - -% Private macro: only needed in test cases (like multiple -% seperations in one file); no user command! - -\def\resynccolor - {\ifcase\pagetotal % \ifdim\pagetotal=\zeropoint - \popcolor - \else\ifx\@@currentcolor\empty - \ifx\maintextcolor\empty\else - \startcolormode\maintextcolor - \fi - \else - \startcolormode\@@currentcolor - \fi\fi} - -% weird stuff - -\def\pushpostponedpagecolor - {\edef\savedtopofpagecolor{\topofpagecolor}% - \doifsomething\savedtopofpagecolor\restorecolormode} % \stopcolormode - -\def\poppostponedpagecolor - {\doifsomething\savedtopofpagecolor\startcolormode\savedtopofpagecolor} - -%D \macros -%D {startcolorpage, stopcolorpage} -%D -%D Local use can be forced with the next two macros. Nesting -%D is still supported but colors are no longer marked. -%D -%D The next implementation makes (simple) color separation more -%D easy. It also supports nested colors in page backgrounds -%D and texts. - -\def\startcolorpage - {\bgroup - \let\@@colorplus \minusone - \let\@@colorminus\plusone - \let\docolormark\gobbleoneargument - \edef\savedcolorlevel{\the\colorlevel}% - \global\colorlevel\zerocount % before \localstartcolor of - \ifx\maintextcolor\empty % course, ugly bug removed - \localstartcolor[\defaulttextcolor]% - \else - \localstartcolor[\maintextcolor]% - \fi} - -\def\stopcolorpage - {\localstopcolor - \global\colorlevel\savedcolorlevel - \egroup} - -\appendtoks \startcolorpage\to\everystarttextproperties -\prependtoks\stopcolorpage \to\everystoptextproperties - -%D We want color support to be similar to font support and -%D therefore implement \type{\color} using grouping. -%D -%D When \type {\somecolor} is issued, we can savely assume -%D grouping. Using \type {\groupedcommand} here (i.e.\ the -%D definition of \type {\color}) is unsafe because in -%D interferes with for instance switching attributes. - -\unexpanded\def\color[#1]% - {\groupedcommand{\startcolor[#1]}\stopcolor} - -%D This implementation enables use of defined colors like: -%D -%D \starttyping -%D Look at the {\brightgreen bright} side of life and get -%D yourself no \red{red} head! -%D \stoptyping - -%D Also wrong, test in combinations: \type{...{}{\red test}} -%D -%D \def\switchtocolor[#1]% -%D {\startcolor[#1]\aftergroup\stopcolor} - -\def\switchtocolor[#1]% grouping is realy needed, else migration - {\bgroup\startcolor[#1]\aftergroup\stopcolor\aftergroup\egroup} - -\unexpanded\def\color[#1]% - {\groupedcommand{\startcolor[#1]}\stopcolor} - -\unexpanded\def\graycolor[#1]% not \gray because this is a color - {\groupedcommand{\RGBsupportedfalse\CMYKsupportedfalse\SPOTsupportedfalse\startcolor[#1]}\stopcolor} - -%D We can speed the following macros a bit up, but this -%D hardly pays off; they are only used in the manual. - -\def\realcolorformat#1% - {\ifnum#1<\plusten 0.00\the#1\else - \ifnum#1<\plushundred 0.0\the#1\else - \ifnum#1<\plusthousand 0.\the#1\else - 1.000\fi\fi\fi} - -\def\dodoformatcolor#1% - {\colordimen#1\points\relax - \ifdim\colordimen>\onepoint - \colordimen\onepoint - \fi - \multiply\colordimen \plusthousand - \colorcount\colordimen - \advance\colorcount \medcard - \divide\colorcount \maxcard \relax - \realcolorformat\colorcount} - -\def\doformatcolorR#1:#2:#3:#4:#5\od - {\dodoformatcolor{#1}\colorformatseparator - \dodoformatcolor{#2}\colorformatseparator - \dodoformatcolor{#3}} - -\def\doformatcolorC#1:#2:#3:#4:#5:#6\od - {\dodoformatcolor{#1}\colorformatseparator - \dodoformatcolor{#2}\colorformatseparator - \dodoformatcolor{#3}\colorformatseparator - \dodoformatcolor{#4}} - -\def\doformatcolorS#1:#2:#3\od - {\dodoformatcolor{#1}} - -\def\doformatcolorP#1:#2:#3:#4:#5:#6\od - {#1\colorformatseparator - \dodoformatcolor{#2}\colorformatseparator - \dodoformatcolor{#3}\colorformatseparator - \dodoformatcolor{#4}\colorformatseparator} - -\def\doformatcolor#1:% - {\csname doformatcolor#1\endcsname} - -\def\colorvalue - {\dowithcolor\doformatcolor} - -\def\doformatgrayR#1:#2:#3:#4:#5\od - {\convertRGBtoGRAY{#1}{#2}{#3}% - \dodoformatcolor\@@cl@@s} - -\def\doformatgrayC#1:#2:#3:#4:#5:#6\od - {\convertCMYKtoGRAY{#1}{#2}{#3}{#4}% - \dodoformatcolor\@@cl@@s} - -\def\doformatgrayS#1:#2:#3\od - {\dodoformatcolor{#1}} - -% \def\doformatgrayP#1:#2:#3:#4:#5:#6\od -% {\convertSPOTtoGRAY{#1}{#2}{#3}{#4}% -% \dodoformatcolor\@@cl@@s} - -\def\doformatgrayP#1:#2:#3:#4:#5:#6\od - {todo} - -\def\doformatgray#1:% - {\csname doformatgray#1\endcsname} - -\def\grayvalue - {\dowithcolor\doformatgray} - -%D \macros -%D {localstartraster,localstopraster, -%D startraster,stopraster} -%D -%D The previous conversions are not linear and treat each color -%D component according to human perception curves. Pure gray -%D (we call them rasters) has equal color components. In -%D \CONTEXT\ rasters are only used as backgrounds and these -%D don't cross page boundaries in the way color does. Therefore -%D we don't need stacks and marks. Just to be compatible with -%D color support we offer both 'global' and 'local' commands. -%D -%D \starttyping -%D \def\localstartraster[#1]% -%D {\doifelsenothing{#1} -%D {\dostartgraymode\@@rsscreen} -%D {\dostartgraymode{#1}}} -%D -%D \def\localstopraster -%D {\dostopgraymode} -%D -%D \let\startraster\localstartraster -%D \let\stopraster \localstopraster -%D \stoptyping -%D -%D The next alternative is slower, since it works on top of the -%D color (stack) mechanism, but it does provide nesting. - -\def\dosetrastercolor#1% - {\edef\@@cl@@s{#1}% - \ifx\@@cl@@s\empty - \let\@@cl@@s\@@rsscreen - \fi - \let\@@cl@@t\@@cl@@z % else we get rogue - \let\@@cl@@a\@@cl@@z % transpancies - \setevalue{\??cr\??rs}{\colorSpattern}} - -% beware, don't add extra grouping, else color in tables -% fails - -\def\localstartraster[#1]% - {\ifincolor\dosetrastercolor{#1}\localstartcolor[\??rs]\fi} - -\def\startraster[#1]% - {\ifincolor\dosetrastercolor{#1}\startcolor[\??rs]\fi} - -\def\localstopraster{\ifincolor\localstopcolor\fi} -\def\stopraster {\ifincolor\stopcolor\fi} - -\def\raster[#1]{\groupedcommand{\startraster[#1]}{\stopraster}} - -%D Palets use an auxiliary macro: - -\def\dodefinepaletcolor#1#2#3% - {\doifassignmentelse{#3} - {% == \definepalet[test][xx={y=.4}] - \definecolor[\??pa#1:#2][#3]% - \iffreezecolors\@EA\setevalue\else\@EA\setvalue\fi{\??cr#1:#2}{\csname\??cr\??pa#1:#2\endcsname}} - {% == \definepalet[test][xx=green] - \doifdefinedelse{\??cr#3} - {\iffreezecolors\@EA\setevalue\else\@EA\setvalue\fi{\??cr#1:#2}{\csname\??cr#3\endcsname}} - {\letvalue{\??cr#1:#2}\colorXpattern}}} - -%D \MP\ related conversions: - -\def\scaledMPcolor#1#2% - {\ifMPgraphics - \handlecolorwith\doMPcolor - \csname\??cr - \ifcsname\??cr\currentpalet#2\endcsname\currentpalet\fi - #2\endcsname - :::::::\end#1\end - \else - #2% - \fi} - -\def\MPcolor{\scaledMPcolor1} - -%D Before we had transparency available, the following -%D conversion macro was available: -%D -%D \starttyping -%D \def\doMPcolor#1:#2:#3:#4:#5:#6:#7:#8\end -%D {\if #1R(#2,#3,#4)% -%D \else\if#1C\ifMPcmykcolors cmyk(#2,#3,#4,#5)\else(1-#2-#5,1-#3-#5,1-#4-#5)\fi -%D \else\if#1S(#2,#2,#2)% -%D \else (0,0,0)% -%D \fi\fi\fi} -%D \stoptyping -%D -%D In order to be useful, this macro is to be fully -%D expandabele. - -\def\doMPcolor#1:% #1 can be \relax ! ! ! i.e. an empty color - {\csname MPc\@EA\ifx\csname MPc\string#1\endcsname\relax B\else#1\fi\endcsname} - -\def\MPcR{\doMPrgb} -\def\MPcC{\ifMPcmykcolors\@EA\doMPcmykY\else\@EA\doMPcmykN\fi} -\def\MPcS{\doMPgray} -\def\MPcP{\ifMPspotcolors\@EA\doMPspotY\else\@EA\doMPspotN\fi} -\def\MPcB{\doMPblack} - -\def\transparentMP {transparent} -\def\cmykMP {scaledcmyk} -\def\cmykASrgbMP {scaledcmykasrgb} % not really needed any more -\def\rgbMP {scaledrgb} -\def\grayMP {scaledgray} -\def\spotMP {spotcolor} - -\def\doMPtransparent#1#2:#3:#4\end - {\ifcase#2\space(#1)\else\transparentMP(#2,#3,(#1))\fi} - -\def\doMPgray#1:#2\end#3\end - {\doMPtransparent{\grayMP(#1,#3)}#2\end} - -\def\doMPrgb#1:#2:#3:#4\end#5\end - {\doMPtransparent{\rgbMP(#1,#2,#3,#5)}#4\end} - -\def\doMPcmykY#1:#2:#3:#4:#5\end#6\end - {\doMPtransparent{\cmykMP(#1,#2,#3,#4,#6)}#5\end} - -\def\doMPcmykN#1:#2:#3:#4:#5\end#6\end - {\doMPtransparent{\cmykASrgbMP(#1,#2,#3,#4,#6)}#5\end} - -\def\doMPspotY#1:#2:#3:#4:#5\end#6\end % best make #3 same as #1 when empty - {\doMPtransparent{multitonecolor("#1",#2,"#3","#4")}#5\end} - -\def\doMPspotN#1:#2:#3:#4:#5\end#6\end - {\scaledMPcolor{#4}{#1}} - -\def\doMPblack#1\end#2\end - {\unknownMPcolor} - -\def\unknownMPcolor - {(0,0,0)} - -\let\processMP\spotMP % for some time, will become obsolete, brrr - -%D \PDF\ related conversions: - -\def\PDFcolor #1{\handlecolorwith\doPDFcolor \csname\??cr#1\endcsname:::::::\end} -\def\PDFcolorvalue#1{\handlecolorwith\doPDFcolorvalue\csname\??cr#1\endcsname:::::::\end} -\def\FDFcolor #1{\handlecolorwith\doFDFcolor \csname\??cr#1\endcsname:::::::\end} - -\def\doPDFcolor#1:#2:#3:#4:#5:#6:#7:#8\end - {\if #1R#2 #3 #4 rg% - \else\if#1C#2 #3 #4 #5 k% - \else\if#1S#2 g% - \else\if#1P#5 g% - \else 0 g% - \fi\fi\fi\fi} - -\def\doPDFcolorvalue#1:#2:#3:#4:#5:#6:#7:#8\end - {\if #1R#2 #3 #4% - \else\if#1C#2 #3 #4 #5% - \else\if#1S#2% - \else\if#1P#5% - \else 0% - \fi\fi\fi\fi} - -\def\doFDFcolor#1:#2:#3:#4:#5:#6:#7:#8\end - {[\if #1R#2 #3 #4% - \else\if#1C#2 #3 #4 #5% - \else\if#1S#2% - \else\if#1P#5% - \else 0% - \fi\fi\fi\fi]} - -\def\internalspotcolorname#1{\handlecolorwith\dointernalspotcolorname\csname\??cr#1\endcsname:::::::\end} -\def\internalspotcolorsize#1{\handlecolorwith\dointernalspotcolorsize\csname\??cr#1\endcsname:::::::\end} - -\def\dointernalspotcolorname#1:#2:#3:#4:#5:#6:#7:#8\end{\if#1P\ifcase0#3 #1\else#2\fi\else#1\fi} -\def\dointernalspotcolorsize#1:#2:#3:#4:#5:#6:#7:#8\end{\if#1P\ifcase0#3 0\else#3\fi\else 0\fi} - -%D Slow but ok \unknown - -\def\colorcomponents#1% - {\startnointerference - \localcolortrue - \def\doexeccolorR ##1:##2:##3:##4:##5\od{\gdef\thecolorcomponents{r=\twodigitrounding{##1} g=\twodigitrounding{##2} b=\twodigitrounding{##3}}}% - \def\doexeccolorC##1:##2:##3:##4:##5:##6\od{\gdef\thecolorcomponents{c=\twodigitrounding{##1} m=\twodigitrounding{##2} y=\twodigitrounding{##3} k=\twodigitrounding{##4}}}% - \def\doexeccolorS ##1:##2:##3\od{\gdef\thecolorcomponents{s=\twodigitrounding{##1}}}% - \def\doexeccolorP##1:##2:##3:##4:##5:##6\od{\gdef\thecolorcomponents{p=\twodigitrounding{##4} n=##1}}% - \let\doexeccolorPindex\doexeccolorP - \backgroundline[#1]{}% - \stopnointerference - \thecolorcomponents} - -\def\transparencycomponents#1% - {\startnointerference - \localcolortrue - \def\doexeccolorR ##1:##2:##3:##4:##5\od{\gdef\thetransparencycomponents{a=\twodigitrounding{##4} t=\twodigitrounding{##5}}}% - \def\doexeccolorC##1:##2:##3:##4:##5:##6\od{\gdef\thetransparencycomponents{a=\twodigitrounding{##5} t=\twodigitrounding{##6}}}% - \def\doexeccolorS ##1:##2:##3\od{\gdef\thetransparencycomponents{a=\twodigitrounding{##2} t=\twodigitrounding{##3}}}% - \def\doexeccolorP##1:##2:##3:##4:##5:##6\od{\gdef\thetransparencycomponents{a=\twodigitrounding{##5} t=\twodigitrounding{##6}}}% - \let\doexeccolorPindex\doexeccolorP - \backgroundline[#1]{}% - \stopnointerference - \thecolorcomponents} - -%D \macros -%D {everyshapebox} -%D -%D A terrible hack, needed because we cannot have marks in -%D shape boxes. - -\appendtoks \localcolortrue \to \everyshapebox - -\protect \endinput |