On 4/13/2015 7:45 PM, Mojca Miklavec wrote:
Hi,
The following example works in MkII and it works in TeX Live 2014, but
it fails with the latest beta (it draws a black rectangle instead of
using the defined colour):
\usemodule[tikz]
\starttext
\definecolor[mycol][r=0.9,g=0.8,b=0.8]
\starttikzpicture
\fill[mycol] (0, 0) rectangle (2,4);
\stoptikzpicture
\stoptext
It would be really nice to fix this in time for TeX Live 2015.
Hm, i'm a bit puzzled why some suggested patched are nto in the
distribution. Anyway, attached a more modern variant
you need a beta that i just uploaded because i found out that when tijz
predefines some mixed colors it assumes rgb color space
your example then runs ok here
Hans
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
| www.pragma-pod.nl
-----------------------------------------------------------------
% Copyright 2006 by Till Tantau
%
% This file may be distributed and/or modified
%
% 1. under the LaTeX Project Public License and/or
% 2. under the GNU Public License.
%
% See the file doc/generic/pgf/licenses/LICENSE for more details.
%
% Adapted for colors and pdf resources by Hans Hagen. There can be a few more
% optimizations but they are not critital.
\pgfutil@format@is@contexttrue
% an aux files, needed for reading back coordinates
\def\pgfutil@aux@read@hook{%
\pgfutil@IfFileExists{\jobname.pgf}{\input \jobname.pgf\relax}{}
\csname newwrite\endcsname\pgfutil@auxout
\csname openout\endcsname\pgfutil@auxout\jobname.pgf\relax
}
% no need for x colors (users can load it if needed)
\def\pgfutil@color#1{%
\pgfutil@colorlet{.}{#1}%
\pgfsysprotocol@getcurrentprotocol\pgfutil@emu@temp%
{%
\pgfsysprotocol@setcurrentprotocol\pgfutil@empty%
\pgfsysprotocol@bufferedtrue%
\pgfsetcolor{.}%
\expandafter\pgfsys@outerinvoke\expandafter{\pgfsysprotocol@currentprotocol}%
}%
\pgfsysprotocol@setcurrentprotocol\pgfutil@emu@temp%
\aftergroup\pgfutil@reset@color%
}
\def\pgfutil@extractcolorspec#1#2{%
\def#2{{#1}}%
}
\def\pgfutil@convertcolorspec#1#2#3{%
\edef#3{\expandafter\expandafter\expandafter\pgfutil@emu@select\csname\string\color@#1\endcsname}%
}
\def\pgfutil@doifcolorelse#1#2#3{%
\expandafter\ifx\csname\string\color@#1\endcsname\relax%
\doifcolorelse{#1}{\let\pgf@next=\pgfutil@firstoftwo}{\let\pgf@next=\pgfutil@secondoftwo}%
\else
\let\pgf@next=\pgfutil@firstoftwo%
\fi%
\pgf@next{#2}{#3}%
}
\def\pgfutil@reset@color{%
\pgfsysprotocol@getcurrentprotocol\pgfutil@emu@temp%
{%
\pgfsysprotocol@setcurrentprotocol\pgfutil@empty%
\pgfsysprotocol@bufferedtrue%
\pgfsetcolor{.}%
\expandafter\pgfsys@outerinvoke\expandafter{\pgfsysprotocol@currentprotocol}%
}%
\pgfsysprotocol@setcurrentprotocol\pgfutil@emu@temp%
}
\expandafter\def\csname\string\color@.\endcsname{\xcolor@{}{}{rgb}{0,0,0}}
\def\pgfutil@colorlet#1#2{%
\edef\pgf@marshal{#2}%
\expandafter\pgfutil@in@\expandafter!\expandafter{\pgf@marshal}%
\ifpgfutil@in@%
% compute mixture
{%
\expandafter\pgfutil@emu@mix\pgf@marshal!white!\@nil%
\xdef\pgf@marshal{\noexpand\def\expandafter\noexpand\csname\string\color@#1\endcsname{%
\noexpand\xcolor@{}{}{rgb}{\pgf@sys@tonumber\pgf@xa,\pgf@sys@tonumber\pgf@xb,\pgf@sys@tonumber\pgf@xc}}}%
}%
\pgf@marshal%
\else%
\expandafter\ifx\csname\string\color@#2\endcsname\relax%
\pgfutil@registerrgb{#2}%
\fi%
\edef\pgf@marshal{\noexpand\let\expandafter\noexpand\csname\string\color@#1\endcsname=%
\expandafter\noexpand\csname\string\color@#2\endcsname}%
\pgf@marshal%
\fi%
}
\def\pgfutil@emu@mix#1!#2!#3!#4\@nil{%
\expandafter\ifx\csname\string\color@#1\endcsname\relax%
\pgfutil@registerrgb{#1}%
\fi%
\expandafter\ifx\csname\string\color@#3\endcsname\relax%
\pgfutil@registerrgb{#3}%
\fi%
\expandafter\expandafter\expandafter\pgfutil@emu@unpack\csname\string\color@#1\endcsname%
\pgf@ya=\pgf@xa%
\pgf@yb=\pgf@xb%
\pgf@yc=\pgf@xc%
\expandafter\expandafter\expandafter\pgfutil@emu@unpack\csname\string\color@#3\endcsname%
\c@pgf@counta=#2\relax%
\c@pgf@countb=100\relax%
\advance\c@pgf@countb by-\c@pgf@counta\relax%
\pgf@xa=\c@pgf@countb\pgf@xa%
\advance\pgf@xa by\c@pgf@counta\pgf@ya%
\divide\pgf@xa by 100\relax%
\pgf@xb=\c@pgf@countb\pgf@xb%
\advance\pgf@xb by\c@pgf@counta\pgf@yb%
\divide\pgf@xb by 100\relax%
\pgf@xc=\c@pgf@countb\pgf@xc%
\advance\pgf@xc by\c@pgf@counta\pgf@yc%
\divide\pgf@xc by 100\relax%
}
\def\pgfutil@emu@unpack#1#2#3#4#5{%
\pgfutil@emu@@unpack#5\@nil%
}
\def\pgfutil@emu@@unpack#1,#2,#3\@nil{%
\pgf@xa=#1pt%
\pgf@xb=#2pt%
\pgf@xc=#3pt%
}
\def\pgfutil@emu@select#1#2#3#4#5{#5}
% goody
\let\colorlet=\pgfutil@colorlet
% latex stuff
\newskip\pgfutil@flushglue
\pgfutil@flushglue=0pt plus 1fil
\def\AtBeginDocument#1{#1}%
% pgfutil@minipage
\def\pgfutil@minipage[#1]#2{%
\hbox to#2\bgroup
\hsize=#2\relax
\vbox\bgroup\leavevmode
}
\def\pgfutil@endminipage{%
\egroup
\egroup
}
% global colors
\let\pgfutil@globalcolorsfalse\relax
\let\pgfutil@globalcolorstrue \relax
% font stuff
\def\pgfutil@font@tiny {\tfxx}
\def\pgfutil@font@scriptsize {\tfxx}
\def\pgfutil@font@footnotesize{\tfx}
\def\pgfutil@font@small {\tfx}
\def\pgfutil@font@normalsize {\tf}
\def\pgfutil@font@large {\tfa}
\def\pgfutil@font@Large {\tfb}
\def\pgfutil@font@huge {\tfc}
\def\pgfutil@font@Huge {\tfc}
\def\pgfutil@font@itshape {\it}
\def\pgfutil@font@bfseries {\bf}
\def\pgfutil@font@normalfont {\tf}
\def\pgfutil@selectfont {\tf}
% registers
\newcount\pgfutil@tempcnta
\newcount\pgfutil@tempcntb
\newbox \pgfutil@tempboxa
\newbox \pgfutil@voidb@x
\newtoks \pgfutil@toks@
\let\pgfmath@tempdima\pgfutil@tempdima
\let\pgfmath@tempdima\pgfutil@tempdima
\let\pgfmath@tempcnta\pgfutil@tempcnta
\let\pgfmath@tempcntb\pgfutil@tempcntb
% module stuff
\def\pgfutil@usemodule#1{\usemodule[#1]}
% more adaptions
\let\pgfutil@insertatbegincurrentpagefrombox\flushatshipout
\let\pgfutil@insertatbegincurrentpage \flushatshipout
\def\pgfutil@insertatbegineverypage #1{\appendtoks#1\to\everyshipout} %
space removed after #1
\let\pgfutil@setuppdfresources \relax
\doifmodeelse {mkiv} {
\def\pgfsysdriver{pgfsys-pdftex.def}
\def\pgfutil@driver@if@in#1#2{%
\edef\pgf@marshal{\noexpand\pgfutil@in@{#1}{\preloadedspecials}}%
\pgf@marshal
\ifpgfutil@in@
\def\pgfsysdriver{#2}%
\fi
}
\def\pgf@sys@pdf@pdfbackendset@one#1#2%
{\normalexpanded{\noexpand\pgf@sys@pdf@pdfbackendset@two\noexpand#1#2\relax}}
\def\pgf@sys@pdf@pdfbackendset@two#1/#2 #3\relax
{#1{#2}{#3}}
\def\pgf@sys@pdf@addtopageresource@pattern
{\pgf@sys@pdf@pdfbackendset@one\pdfbackendsetpattern}
\def\pgf@sys@pdf@addtopageresource@colorspace{\pgf@sys@pdf@pdfbackendset@one\pdfbackendsetcolorspace}
\def\pgf@sys@pdf@addtopageresource@extgstate
{\pgf@sys@pdf@pdfbackendset@one\pdfbackendsetextgstate}
\def\pgf@sys@pdf@possible@resources {\pdfbackendcurrentresources}
\def\pgf@sys@pdf@check@resources {}
\let\pgfutil@registercolor\pgf@context@registercolor
\let\pgfutil@registerrgb \pgf@context@registerrgb
\let\pgfutil@registercmyk \pgf@context@registercmyk
\let\pgfutil@registergray \pgf@context@registergray
} {
\ifx\pdfoutput\undefined\newcount\pdfoutput\fi
\ifx\pdfoutput\relax \newcount\pdfoutput\fi
\def\pgfutil@guessdriver{
\ifx\XeTeXversion\@undefined
\ifx\preloadedspecials\@undefined%
\ifcase\pdfoutput%
\def\pgfsysdriver{pgfsys-dvips.def}%
\else%
\def\pgfsysdriver{pgfsys-pdftex.def}% pdfTeX & LuaTeX
\fi%
\else%
\pgfutil@driver@if@in{postscript}{pgfsys-dvips.def}
\pgfutil@driver@if@in{tpd}{pgfsys-pdftex.def}
\pgfutil@driver@if@in{dpm}{pgfsys-dvipdfm.def}
\pgfutil@driver@if@in{dpx}{pgfsys-dvipdfmx.def}
\pgfutil@driver@if@in{xetex}{pgfsys-xetex.def}
\ifx\pgfsysdriver\relax%
\PackageWarning{pgf}{I was not able to discern the driver, the
preloaded specials were \preloadedspecials. I am going to use
pgfsys-dvips.def}%
\def\pgfsysdriver{pgfsys-dvips.def}
\fi%
\fi
\else
\def\pgfsysdriver{pgfsys-xetex.def}% should be right
\fi
}
\def\pgfutil@driver@if@in#1#2{%
\edef\pgf@marshal{\noexpand\pgfutil@in@{#1}{\preloadedspecials}}%
\pgf@marshal
\ifpgfutil@in@
\def\pgfsysdriver{#2}%
\fi
}
\def\pgfutil@registercolor#1{%
\edef\pgf@temp{\PDFcolor{#1}}%
\edef\pgf@marshal{\noexpand\pgfutil@in@{ g}{\pgf@temp}}%
\pgf@marshal
\ifpgfutil@in@
\expandafter\pgfutil@context@parse@gray\pgf@temp\pgf@stop{#1}%
\else
\edef\pgf@marshal{\noexpand\pgfutil@in@{ rg}{\pgf@temp}}%
\pgf@marshal
\ifpgfutil@in@
\expandafter\pgfutil@context@parse@rgb\pgf@temp\pgf@stop{#1}%
\else
\PackageError{pgf}{Color #1 has an unsupported color model.}{}%
\pgfutil@definecolor{#1}{gray}{0}%
\fi
\fi
}
\def\pgfutil@context@parse@gray#1 g#2\pgf@stop#3{%
\pgfutil@definecolor{#3}{gray}{#1}%
}
\def\pgfutil@context@parse@rgb#1 #2 #3 rg#4\pgf@stop#5{%
\pgfutil@definecolor{#5}{rgb}{#1,#2,#3}%
}
\let\pgfutil@registerrgb \pgfutil@registercolor
\let\pgfutil@registercmyk \pgfutil@registercolor
\let\pgfutil@registergray \pgfutil@registercolor
\def\pgf@sys@pdf@addtopageresource@extgstate
{\appendtoPDFdocumentextgstates }
\def\pgf@sys@pdf@addtopageresource@colorspace
{\appendtoPDFdocumentcolorspaces}
\def\pgf@sys@pdf@addtopageresource@pattern {\appendtoPDFdocumentpatterns
}
\def\pgf@sys@pdf@possible@resources {\currentPDFresources}
\def\pgf@sys@pdf@check@resources {}
}
\let\pgf@sys@addpdfresource@extgs@plain
\pgf@sys@pdf@addtopageresource@extgstate
\let\pgf@sys@addpdfresource@patterns@plain
\pgf@sys@pdf@addtopageresource@pattern
\let\pgf@sys@addpdfresource@colorspaces@plain\pgf@sys@pdf@addtopageresource@colorspace
\let\pgf@sys@pdf@check@resources@plain \pgf@sys@pdf@check@resources
\pgf@sys@addpdfresource@colorspaces@plain{/pgfprgb [/Pattern /DeviceRGB]}
% do something at the end of a job
\appendtoks \the\pgfutil@everybye \to \everybye
\endinput
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://tex.aanhet.net
archive : http://foundry.supelec.fr/projects/contextrev/
wiki : http://contextgarden.net
___________________________________________________________________________________
