diff options
author | Karl Berry <karl@freefriends.org> | 2016-05-11 21:28:32 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-05-11 21:28:32 +0000 |
commit | bde5af3bfbebbad7a5387d12a0951c1da8340ee3 (patch) | |
tree | 27a2b5b80d2e402dd89ea923a2a55fe48f1fd13e /Master/texmf-dist/tex/latex | |
parent | 96e8875648e0f38a4d7cd50b93a6c62a8ea9a32b (diff) |
coloring (11may16)
git-svn-id: svn://tug.org/texlive/trunk@41042 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex')
-rw-r--r-- | Master/texmf-dist/tex/latex/coloring/coloring.sty | 115 |
1 files changed, 115 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/coloring/coloring.sty b/Master/texmf-dist/tex/latex/coloring/coloring.sty new file mode 100644 index 00000000000..95b18964ebd --- /dev/null +++ b/Master/texmf-dist/tex/latex/coloring/coloring.sty @@ -0,0 +1,115 @@ +% -*- coding: utf-8 -*- + +\ProvidesPackage{coloring}[2016/05/11 v0.2] + +\RequirePackage{xcolor,etoolbox,xparse,l3regex} + +\makeatletter + +\def\colorring@hack#1{\@ifundefined{\string\color@#1}{\coloringdefine{#1}}{\relax}} + +% hacking \definecolor and \colorlet in xcolor +\pretocmd{\@declaredcolor}{\colorring@hack{#1}}{}{} +\pretocmd{\XC@col@rlet}{\colorring@hack{#4}}{}{} + +% hacking \define@key{beamerthc}{fg} and \define@key{beamerthc}{bg} in beamer +\catcode`\#=12 +\def\coloring@hack@beamer{% + \pretocmd{\KV@beamerthc@fg}{\colorring@hack{#1}}{}{}% + \pretocmd{\KV@beamerthc@bg}{\colorring@hack{#1}}{}{}% +} +\catcode`\#=6 +\@ifclassloaded{beamer}{\coloring@hack@beamer}{}{} + +\makeatother + +\ExplSyntaxOn + +% local variables for gray colors +\tl_new:N \l_coloring_gray_tl + +% local variables for rgb colors +\tl_new:N \l_coloring_r_tl +\tl_new:N \l_coloring_g_tl +\tl_new:N \l_coloring_b_tl + +% local variables for hsb/hsv colors +\int_new:N \l_coloring_h_int +\tl_new:N \l_coloring_s_tl +\tl_new:N \l_coloring_v_tl + +\clist_new:N \l_coloring_hue_name_clist +\clist_set:Nn \l_coloring_hue_name_clist + { + red, % 0 + brown, % 30 + yellow, % 60 + olive, % 90 + green, % 120 + teal, % 150 + cyan, % 180 + azure, % 210 + blue, % 240 + violet, % 270 + magenta, % 300 + purple % 330 + } + +\NewDocumentCommand \coloringdefine { m } +{ + % define gray colors + \coloring_define_gray:n { #1 } + % define rgb colors + \coloring_define_rgb:n { #1 } + % define hsb colors + \int_set:Nn \l_coloring_h_int { 0 } + \clist_map_inline:Nn \l_coloring_hue_name_clist + { + \coloring_define_hsb:nnn { \l_coloring_h_int } { ##1 } { #1 } + \int_add:Nn \l_coloring_h_int { 30 } + } +} + +\cs_new_protected_nopar:Npn \coloring_define_gray:n #1 +{ + \regex_extract_once:nnNT { \A gray([0-9x]) \Z } { #1 } \l_coloring_temp_seq + { + \seq_pop_right:NN \l_coloring_temp_seq \l_coloring_gray_tl + \coloring_set_value:N \l_coloring_gray_tl + \definecolor {#1} {gray} {\l_coloring_gray_tl} + } +} + +\cs_new_protected_nopar:Npn \coloring_define_rgb:n #1 +{ + \regex_extract_once:nnNT { \A rgb([0-9x])([0-9x])([0-9x]) \Z } { #1 } \l_coloring_temp_seq + { + \seq_pop_right:NN \l_coloring_temp_seq \l_coloring_b_tl + \seq_pop_right:NN \l_coloring_temp_seq \l_coloring_g_tl + \seq_pop_right:NN \l_coloring_temp_seq \l_coloring_r_tl + \coloring_set_value:N \l_coloring_b_tl + \coloring_set_value:N \l_coloring_g_tl + \coloring_set_value:N \l_coloring_r_tl + \definecolor {#1} {rgb} {\l_coloring_r_tl, \l_coloring_g_tl, \l_coloring_b_tl} + } +} + +\cs_new_protected_nopar:Npn \coloring_define_hsb:nnn #1 #2 #3 +{ + \regex_extract_once:nnNT { \A #2([0-9x])([0-9x]) \Z } { #3 } \l_coloring_temp_seq + { + \seq_pop_right:NN \l_coloring_temp_seq \l_coloring_v_tl + \seq_pop_right:NN \l_coloring_temp_seq \l_coloring_s_tl + \coloring_set_value:N \l_coloring_v_tl + \coloring_set_value:N \l_coloring_s_tl + \definecolor {#3} {Hsb} {\int_use:N #1, \l_coloring_s_tl, \l_coloring_v_tl} + } +} + +\cs_new_protected_nopar:Npn \coloring_set_value:N #1 +{ + \tl_set:Nn \l_tmpa_tl { x } + \tl_if_eq:NNTF #1 \l_tmpa_tl { \tl_set:Nn #1 {1} } { \tl_set:Nx #1 {.#1} } +} + +\ExplSyntaxOff |