coloraug.tex

% Last modified 2018-06-28
% Dorai Sitaram

\let\maybeendinput\relax
\ifx\shipout\UnDeFiNeD
  \let\maybeendinput\endinput
\else\edef\fmtnameQplain{plain}%
  \ifx\fmtname\fmtnameQplain\else
    \let\maybeendinput\endinput
  \fi
\fi\maybeendinput

% Load color.sty, which defines rgb, cmyk, gray.
% It also defines hsb, but not for LuaTeX.

\ifx\definecolor\UnDeFiNeD
  \ifx\miniltx\UnDeFiNeD
    \input miniltx
  \fi
  \input color.sty
\fi

\let\colorQorig\color

\let\definecolorQorig\definecolor

\def\color{\futurelet\colorQi\colorQii}

\def\colorQii{\ifx\colorQi[\let\colorQiii\colorQwithmodel
\else\let\colorQiii\colorQorig\fi\colorQiii}

\let\maybeendinput\relax
\ifx\directlua\UnDeFiNeD
  \input colorxe
  \let\maybeendinput\endinput
\fi\maybeendinput

\directlua{require(kpse.find_file('colormodels.lua'))}

\def\colorQwithmodel[#1]{\directlua{
  local model = '#1'
  if model == 'HTML' then
    tex.print("\noexpand\\colorQwithmodelnondecimal[" .. model .. "]")
  else
    tex.print("\noexpand\\colorQwithmodeldecimal[" .. model .. "]")
  end
}}

\def\colorQwithmodeldecimal[#1]#2{\directlua{
  local model = "#1"
  local values = { #2 }
  local newmodel, newvalues = convert_to_known_color_model(model, values)
  tex.print("\noexpand\\colorQorig[" .. newmodel .. "]" .. convert_to_csv(newvalues))
}}

\def\colorQwithmodelnondecimal[#1]#2{\directlua{
  local model = "#1"
  local values = { 0x#2 }
  local newmodel, newvalues = convert_to_known_color_model(model, values)
  tex.print("\noexpand\\colorQorig[" .. newmodel .. "]" .. convert_to_csv(newvalues))
}}

\def\definecolor#1#2{\directlua{
  local name = '#1'
  local model = '#2'
  if model == 'HTML' then
    tex.print("\noexpand\\definecolorQnondecimal{" .. name .. "}{" .. model .. "}")
  else
    tex.print("\noexpand\\definecolorQdecimal{" .. name .. "}{" .. model .. "}")
  end
}}

\def\definecolorQdecimal#1#2#3{\directlua{
  local name = '#1'
  local model = '#2'
  local values = { #3 }
  local newmodel, newvalues = convert_to_known_color_model(model, values)
  tex.print("\noexpand\\definecolorQorig{" .. name .. "}{" .. newmodel .. "}" ..
    convert_to_csv(newvalues))
}}

\def\definecolorQnondecimal#1#2#3{\directlua{
  local name = '#1'
  local model = '#2'
  local values = { 0x#3 }
  local newmodel, newvalues = convert_to_known_color_model(model, values)
  tex.print("\noexpand\\definecolorQorig{" .. name .. "}{" .. newmodel .. "}" ..
    convert_to_csv(newvalues))
}}