texlive[66745] Master: pgf-periodictable (2apr23)
commits+karl at tug.org
commits+karl at tug.org
Sun Apr 2 23:24:58 CEST 2023
Revision: 66745
http://tug.org/svn/texlive?view=revision&revision=66745
Author: karl
Date: 2023-04-02 23:24:58 +0200 (Sun, 02 Apr 2023)
Log Message:
-----------
pgf-periodictable (2apr23)
Modified Paths:
--------------
trunk/Master/tlpkg/libexec/ctan2tds
Added Paths:
-----------
trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPT.input.library.tex
trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex
Removed Paths:
-------------
trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPT.input.library.tex
trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex
Deleted: trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPT.input.library.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPT.input.library.tex 2023-04-02 20:38:15 UTC (rev 66744)
+++ trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPT.input.library.tex 2023-04-02 21:24:58 UTC (rev 66745)
@@ -1,52 +0,0 @@
-% --------------------------------------------------------------------------------------------------
-% subfile of pgf-PeriodicTable package ----------------------------------------------------------
-% --------------------------------------------------------------------------------------------------
-% Macro for loading pgf-PeriodicTable libraries --------------------------------------------------
-% --------------------------------------------------------------------------------------------------
-% --------------------------------------------------------------------------------------------------
-% --------------------------------------------------------------------------------------------------
-%
-%
-% Taken and adapted from pgf ---------------->
-% Library files inclusion
-% Include a library file.
-%
-% #1 = List of names of library file.
-%
-% Description:
-%
-% This command includes a list of library files. For each file X in the
-% list, the file pgfPTlibrary.X.tex is included, provided this has
-% not been done earlier.
-%
-% \usepgfPTlibrary{elements}
-% \usepgflPTibrary[elements,plot]
-%
-\def\usepgfPTlibrary#1{\ignorespaces%
- \edef\pgfPT at list{#1}%
- \@for\pgfPT at temp:=\pgfPT at list\do{%
- \ifx\pgfPT at temp\@empty\relax%
- \else%
- \expandafter\ifx\csname pgfPT at library@\pgfPT at temp @loaded\endcsname\relax%
- \expandafter\let\csname pgfPT at library@\pgfPT at temp @loaded\endcsname=\@empty%
- \expandafter\edef\csname pgfPT at library@#1 at atcode\endcsname{\the\catcode`\@}%
- \expandafter\edef\csname pgfPT at library@#1 at barcode\endcsname{\the\catcode`\|}%
- \expandafter\edef\csname pgfPT at library@#1 at dollarcode\endcsname{\the\catcode`\$}%
- \catcode`\@=11%
- \catcode`\|=12%
- \catcode`\$=3%
- \pgfutil at InputIfFileExists{pgfPTlibrary.\pgfPT at temp.tex}{}{%
- \PackageError{pgfPT}{I did not find the pgfPT library
- '\pgfPT at temp'. I looked for the file named
- pgfPTlibrary.\pgfPT at temp.tex, but could not find it in in
- the current texmf trees.}
- }%
- \catcode`\@=\csname pgfPT at library@#1 at atcode\endcsname%
- \catcode`\|=\csname pgfPT at library@#1 at barcode\endcsname%
- \catcode`\$=\csname pgfPT at library@#1 at dollarcode\endcsname%
- \fi%
- \fi%
- }%
-}%
-% <---------------- Taken and adapted from pgf (pgfutil-common.tex)
-\endinput
Deleted: trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex
===================================================================
--- trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex 2023-04-02 20:38:15 UTC (rev 66744)
+++ trunk/Master/texmf-dist/doc/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex 2023-04-02 21:24:58 UTC (rev 66745)
@@ -1,1257 +0,0 @@
-% ---------------------------------------------------------------------------------------
-% subfile of pgf-PeriodicTable package -----------------------------------------------
-% ---------------------------------------------------------------------------------------
-\def\pgfPT at library@colorschemes at loaded{}%
-\message{pgfPT color schemes library loaded!}%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-% provide the macros
-% \pgfPTGroupColors[name of color scheme]{list}
-% \pgfPTPeriodColors[name of color scheme]{list}
-% \pgfPTCScombine[prop,mode]{CS one,CS two,CS new}
-% \pgfPTCSwrite[name]{CSName's list}
-%
-% support for colors -> named color OR named color a!##!named color b OR *[model:values], e.g. *[rgb:.5;.2,;3] ->
-% --> (see Table 3: Supported color models on page 10 of the documentation of xcolor v2.14 (2022/06/12)
-%
-% BUBBLE SORT
-% adapted from https://tex.stackexchange.com/questions/481678/apply-a-numeric-bubble-sort-to-output-strings-which-are-specified-by-names-code
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\makeatletter%
-%\pgfPTGroupColors{name of color scheme}{list}
-% ---------------------------------------------------------------------------------------
-% list:
-% left color=<color>,right color=<color>,middle color=<color>
-% or
-% G1=<color>,G2=<color>, ... , G18=<color>
-% or
-% gradient={G<n>=<color>,G<n>=<color>,...,G<n>=<color>}
-%
-% with options:
-% -> period blending={color=<color>,percentage=<positive or negative integer>,mode=<add,sub,linear>}
-% NOTES: the percentage refers to how much of the color, in total, was mixed at the end of the 7 periods;
-% for example 60% adds 10% to each period (P1:0% -> P2:10% -> P3:20% -> ... -> P7:60%)
-% if the percentage is positive, the order of the mixture is from P1 to P7
-% if the percentage is negative, the mixing order is from P7 to P1
-% -> H=<color>,La=<color>,Lanta=<color>,Ac=<color>,Actin=<color>
-% ---------------------------------------------------------------------------------------
-\newif\ifpgfPTgradient at TI\newif\ifpgfPTgradient at TII%
-\newif\ifpgfPTusecolor at H%
-\newif\ifpgfPTusecolor at La\newif\ifpgfPTusecolor at Lanta%
-\newif\ifpgfPTusecolor at Ac\newif\ifpgfPTusecolor at Actin%
-\newif\ifpgfPT at blending%
-%
-\def\pgfPTGroupColors{\@ifnextchar[\pgfPT at GroupColors{\pgfPT at GroupColors[white]}}%
-\def\pgfPT at GroupColors[#1]#2#3{\ignorespaces%
-\pgfPTgradient at TIfalse\pgfPTgradient at TIIfalse%
-\pgfPTusecolor at Hfalse%
-\pgfPTusecolor at Lafalse\pgfPTusecolor at Lantafalse%
-\pgfPTusecolor at Acfalse\pgfPTusecolor at Actinfalse%
-\pgfPT at blendingfalse%
-\edef\pgfPTCScolorLEFT{#1}%
-\edef\pgfPTCScolorMIDDLE{}%
-\edef\pgfPTCScolorRIGHT{#1}%
-\edef\pgfPTCScolorH{#1}%
-\edef\pgfPTCScolorGI{#1}%
-\edef\pgfPTCScolorGII{#1}%
-\edef\pgfPTCScolorGIII{#1}%
-\edef\pgfPTCScolorGIV{#1}%
-\edef\pgfPTCScolorGV{#1}%
-\edef\pgfPTCScolorGVI{#1}%
-\edef\pgfPTCScolorGVII{#1}%
-\edef\pgfPTCScolorGVIII{#1}%
-\edef\pgfPTCScolorGIX{#1}%
-\edef\pgfPTCScolorGX{#1}%
-\edef\pgfPTCScolorGXI{#1}%
-\edef\pgfPTCScolorGXII{#1}%
-\edef\pgfPTCScolorGXIII{#1}%
-\edef\pgfPTCScolorGXIV{#1}%
-\edef\pgfPTCScolorGXV{#1}%
-\edef\pgfPTCScolorGXVI{#1}%
-\edef\pgfPTCScolorGXVII{#1}%
-\edef\pgfPTCScolorGXVIII{#1}%
-\edef\pgfPTCScolorLa{#1}%
-\edef\pgfPTCScolorLanta{#1}%
-\edef\pgfPTCScolorAc{#1}%
-\edef\pgfPTCScolorActin{#1}%
-\@for\@pgfPT at tmp:=#3\do{%
-\ifx\@pgfPT at tmp\pgfPT at relax\relax\else\ifx\@pgfPT at tmp\pgfPT at space\relax\else%
- \edef\pgfPT at handlert@test{period blending}\ifx\@pgfPT at tmp\pgfPT at handlert@test\edef\@pgfPT at tmp{period blending={}}\fi%
- \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
- \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
- \edef\pgfPT at handlert@test{gradient}% gradient... type 1
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TItrue\pgfPTgradient at TIIfalse\edef\pgfPTCScolorGRADIENT{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{leftcolor}% gradient... type 2
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorLEFT{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{middlecolor}% gradient... type 2
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorMIDDLE{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{rightcolor}% gradient... type 2
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorRIGHT{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G1}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGI{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G2}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G3}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGIII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G4}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGIV{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G5}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGV{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G6}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGVI{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G7}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGVII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G8}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGVIII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G9}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGIX{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G10}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGX{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G11}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXI{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G12}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G13}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXIII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G14}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXIV{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G15}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXV{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G16}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXVI{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G17}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXVII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{G18}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorGXVIII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{H}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Htrue\edef\pgfPTCScolorH{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{La}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Latrue\edef\pgfPTCScolorLa{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{Lanta}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Lantatrue\edef\pgfPTCScolorLanta{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{Ac}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Actrue\edef\pgfPTCScolorAc{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{Actin}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Actintrue\edef\pgfPTCScolorActin{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{periodblending}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPT at blendingtrue\edef\pgfPTblending{\pgfPT at handlervalue}%
- \else%handler not found
- \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTGroupColors: '\pgfPT at handler'\space in '\detokenize{#3}'\space not known! It will be ignored...}{}\fi\relax%
- \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi}% end do
-\ifpgfPTgradient at TI\relax%
-\expandafter\pgfPT at dogradient@TI[1]\pgfPTCScolorGRADIENT\relax%
-\else\ifpgfPTgradient at TII\relax%
-\pgfPT at dogradient@TII[1](\pgfPTCScolorLEFT,\pgfPTCScolorMIDDLE,\pgfPTCScolorRIGHT)%
-\fi\fi%
-\pgfPT at assign@color{\pgfPTCScolorGI}\colorlet{pgfPTinnerGcolorI}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGII}\colorlet{pgfPTinnerGcolorII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGIII}\colorlet{pgfPTinnerGcolorIII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGIV}\colorlet{pgfPTinnerGcolorIV}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGV}\colorlet{pgfPTinnerGcolorV}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGVI}\colorlet{pgfPTinnerGcolorVI}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGVII}\colorlet{pgfPTinnerGcolorVII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGVIII}\colorlet{pgfPTinnerGcolorVIII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGIX}\colorlet{pgfPTinnerGcolorIX}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGX}\colorlet{pgfPTinnerGcolorX}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXI}\colorlet{pgfPTinnerGcolorXI}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXII}\colorlet{pgfPTinnerGcolorXII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXIII}\colorlet{pgfPTinnerGcolorXIII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXIV}\colorlet{pgfPTinnerGcolorXIV}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXV}\colorlet{pgfPTinnerGcolorXV}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXVI}\colorlet{pgfPTinnerGcolorXVI}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXVII}\colorlet{pgfPTinnerGcolorXVII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorGXVIII}\colorlet{pgfPTinnerGcolorXVIII}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at H\pgfPT at assign@color{\pgfPTCScolorH}\else\pgfPT at assign@color{\pgfPTCScolorGI}\fi%
-\colorlet{pgfPTinnerGcolorH}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at La\pgfPT at assign@color{\pgfPTCScolorLa}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
-\colorlet{pgfPTinnerGcolorLa}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at Lanta\pgfPT at assign@color{\pgfPTCScolorLanta}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
-\colorlet{pgfPTinnerGcolorLanta}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at Ac\pgfPT at assign@color{\pgfPTCScolorAc}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
-\colorlet{pgfPTinnerGcolorAc}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at Actin\pgfPT at assign@color{\pgfPTCScolorActin}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
-\colorlet{pgfPTinnerGcolorActin}{pgfPTassignedcolor}%
-\ifpgfPT at blending%
- % blending={color=<color>,percentage=<positive or negative integer>,mode=<add|sub|linear>}
- \edef\pgfPTblending at color@r{1}%
- \edef\pgfPTblending at color@g{1}%
- \edef\pgfPTblending at color@b{1}%
- \edef\pgfPTblending at percentage@step{10}%
- \edef\pgfPTblending at percentage@sign{1}%
- \edef\pgfPTblending at mode{2}%
- \ifx\pgfPTblending\pgfPT at relax\relax\else%
- \@for\@pgfPT at tmp:=\pgfPTblending\do{%
- \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
- \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
- \edef\pgfPT at handlert@test{color}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \colorlet{pgfPTtmpc at lor}[rgb]{\pgfPT at handlervalue}
- \pgfPT at extract@rgb at fill{pgfPTtmpc at lor}%
- \edef\pgfPTblending at color@r{\pgfPT at rf}%
- \edef\pgfPTblending at color@g{\pgfPT at gf}%
- \edef\pgfPTblending at color@b{\pgfPT at bf}%
- \else%
- \edef\pgfPT at handlert@test{percentage}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfmathparse{int(abs(\pgfPT at handlervalue))}\edef\pgfPTblending at percentage{\pgfmathresult}%
- \ifnum\pgfPTblending at percentage>100\relax%
- \PackageError{pgfPT}{\textbackslash pgfPTGroupColors::period blending percentage: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space to high! Default blending percentage (60) will be used...}{}\relax%
- \edef\pgfPT at handlervalue{60}%
- \fi%
- \pgfmathparse{int(abs(\pgfPT at handlervalue/6))}\edef\pgfPTblending at percentage@step{\pgfmathresult}%
- \pgfmathparse{sign(\pgfPT at handlervalue)}\edef\pgfPTblending at percentage@sign{\pgfmathresult}%
- \else%
- \edef\pgfPT at handlert@test{mode}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTblending at mode@tmp{add}%
- \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
- \edef\pgfPTblending at mode{0}%
- \else%
- \edef\pgfPTblending at mode@tmp{sub}%
- \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
- \edef\pgfPTblending at mode{1}%
- \else%
- \edef\pgfPTblending at mode@tmp{linear}%
- \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
- \edef\pgfPTblending at mode{2}%
- \else%
- \PackageError{pgfPT}{\textbackslash pgfPTGroupColors::period blending mode: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space not known! Default blending mode (add) will be used...}{}\relax%
- \fi\fi\fi%
- \else%handler not found
- \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTGroupColors::period blending: '\pgfPT at handler'\space in '\detokenize{\pgfPTblending}'\space not known! Default value will be used...}{}\fi\relax%
- \fi\fi\fi%
- }% end do
- \fi% \ifx\pgfPTblending\pgfPT at relax
-\fi%
-\@for\@pgfPT at tmp:={I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,H,La,Lanta,Ac,Actin}%
-\do{%
- \pgfPT at extract@rgb at fill{pgfPTinnerGcolor\@pgfPT at tmp}%
- \edef\pgfPTinnercolor at r{\pgfPT at rf}%
- \edef\pgfPTinnercolor at g{\pgfPT at gf}%
- \edef\pgfPTinnercolor at b{\pgfPT at bf}%
- \expandafter\edef\csname pgfPTinnerGcolor\@pgfPT at tmp\endcsname{\pgfPTinnercolor at r/\pgfPTinnercolor at g/\pgfPTinnercolor at b}%
- }%
-\edef\pgfPT at backCS@GroupColorsList{BEGIN}%
-\pgfPT at countf=1%
-\def\pgfPT at get@rgb##1/##2/##3\relax{\edef\pgfPT at tmpc@lor at r{##1}\edef\pgfPT at tmpc@lor at g{##2}\edef\pgfPT at tmpc@lor at b{##3}}%
-\@for\@pgfPT at tmp:={H,XVIII,I,II,XIII,XIV,XV,XVI,XVII,XVIII,I,II,XIII,XIV,XV,XVI,XVII,XVIII,I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,I,II,La,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,I,II,Ac,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII}%
-\do{%
- \ifpgfPT at blending\relax% blending
- \ifnum\pgfPTblending at percentage@sign=1\relax%
- \ifnum\pgfPT at countf<3\relax% P1
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else\ifnum\pgfPT at countf<11\relax% P2
- \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \edef\pgfPT at blending@prop at ii{\pgfPTblending at percentage@step}%
- \else\ifnum\pgfPT at countf<19\relax% P3
- \pgfmathparse{int(100-2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<37\relax% P4
- \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<55\relax% P5
- \pgfmathparse{int(100-4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<87\relax% P6
- \ifnum\pgfPT at countf<57\relax%
- \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=57\relax% La
- \ifpgfPTusecolor at La%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<72\relax% Lanta
- \ifpgfPTusecolor at Lanta%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else%
- \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi\fi\fi%
- \else% P7
- \ifnum\pgfPT at countf<89\relax%
- \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=89\relax% Ac
- \ifpgfPTusecolor at Ac%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<104\relax% Actin
- \ifpgfPTusecolor at Actin%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else%
- \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi\fi\fi%
- \fi\fi\fi\fi\fi\fi%
- \else% \pgfPTblending at percentage@sign=-1
- \ifnum\pgfPT at countf<3\relax% P1
- \ifnum\pgfPT at countf<2\relax% H
- \ifpgfPTusecolor at H%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else%
- \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<11\relax% P2
- \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<19\relax% P3
- \pgfmathparse{int(100-4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<37\relax% P4
- \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<55\relax% P5
- \pgfmathparse{int(100-2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<87\relax% P6
- \ifnum\pgfPT at countf<57\relax%
- \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=57\relax% La
- \ifpgfPTusecolor at La%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<72\relax% Lanta
- \ifpgfPTusecolor at Lanta%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else%
- \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi\fi\fi%
- \else% P7
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \fi\fi\fi\fi\fi\fi%
- \fi% END \pgfPTblending at percentage@sign
- \edef\pgfPT at tmpc@lor{\csname pgfPTinnerGcolor\@pgfPT at tmp\endcsname}%
- \expandafter\pgfPT at get@rgb\pgfPT at tmpc@lor\relax%
- \ifcase\pgfPTblending at mode\relax%
- % 0 -> add
- \@pgfPT at mix@additive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
- \or% 1 -> sub
- \@pgfPT at mix@subtractive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
- \or% 2 -> linear
- \@pgfPT at mix@linear[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
- \fi% end ifcase
- \pgfPT at extract@rgb at fill{pgfPTmixedcolor}%
- \edef\pgfPT at backCS@GroupColorsList{\pgfPT at backCS@GroupColorsList,\pgfPT at rf/\pgfPT at gf/\pgfPT at bf}%
- \else% no blending
- \edef\pgfPT at backCS@GroupColorsList{\pgfPT at backCS@GroupColorsList,\csname pgfPTinnerGcolor\@pgfPT at tmp\endcsname}%
- \fi%
- \advance\pgfPT at countf by1\relax%
- }% end do
-\expandafter\@pgfPT at list@purge \pgfPT at backCS@GroupColorsList[pgfPT at backCS@GroupColorsList]\relax%
-\pgfPTnewColorScheme{#2}{\pgfPT at backCS@GroupColorsList}%
-}% END \pgfPTGroupColors
-%
-%\pgfPTPeriodColors{name of color scheme}{list}
-% ---------------------------------------------------------------------------------------
-% list:
-% top color=<color>,bottom color=<color>,middle color=<color>
-% or
-% P1=<color>,P2=<color>, ... , P7=<color>
-% or
-% gradient={P<n>=<color>,P<n>=<color>,...,P<n>=<color>}
-%
-% with options:
-% -> group blending={color=<color>,percentage=<positive or negative integer>,mode=<add|sub|linear>}
-% NOTES: the percentage refers to how much of the color, in total, was mixed at the end of the 7 periods;
-% for example 68% adds 4% to each period (G1:0% -> G2:4% -> G3:8% -> ... -> G18:68%)
-% if the percentage is positive, the order of the mixture is from G1 to G18
-% if the percentage is negative, the mixing order is from G18 to G1
-% -> H=<color>,La=<color>,Lanta=<color>,Ac=<color>,Actin=<color>
-% ---------------------------------------------------------------------------------------
-\def\pgfPTPeriodColors{\@ifnextchar[\pgfPT at PeriodColors{\pgfPT at PeriodColors[white]}}%
-\def\pgfPT at PeriodColors[#1]#2#3{\ignorespaces%
-\pgfPTgradient at TIfalse\pgfPTgradient at TIIfalse%
-\pgfPTusecolor at Hfalse%
-\pgfPTusecolor at Lafalse\pgfPTusecolor at Lantafalse%
-\pgfPTusecolor at Acfalse\pgfPTusecolor at Actinfalse%
-\edef\pgfPTCScolorTOP{#1}%
-\edef\pgfPTCScolorMIDDLE{}%
-\edef\pgfPTCScolorBOTTOM{#1}%
-\edef\pgfPTCScolorH{#1}%
-\edef\pgfPTCScolorPI{#1}%
-\edef\pgfPTCScolorPII{#1}%
-\edef\pgfPTCScolorPIII{#1}%
-\edef\pgfPTCScolorPIV{#1}%
-\edef\pgfPTCScolorPV{#1}%
-\edef\pgfPTCScolorPVI{#1}%
-\edef\pgfPTCScolorPVII{#1}%
-\edef\pgfPTCScolorLa{#1}%
-\edef\pgfPTCScolorLanta{#1}%
-\edef\pgfPTCScolorAc{#1}%
-\edef\pgfPTCScolorActin{#1}%
-\@for\@pgfPT at tmp:=#3\do{%
-\ifx\@pgfPT at tmp\pgfPT at relax\relax\else\ifx\@pgfPT at tmp\pgfPT at space\relax\else%
- \edef\pgfPT at handlert@test{group blending}\ifx\@pgfPT at tmp\pgfPT at handlert@test\edef\@pgfPT at tmp{group blending={}}\fi%
- \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
- \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
- \edef\pgfPT at handlert@test{gradient}% gradient... type 1
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TItrue\pgfPTgradient at TIIfalse\edef\pgfPTCScolorGRADIENT{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{topcolor}% gradient... type 2
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorTOP{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{middlecolor}% gradient... type 2
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorMIDDLE{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{bottomcolor}% gradient... type 2
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorBOTTOM{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P1}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPI{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P2}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P3}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPIII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P4}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPIV{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P5}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPV{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P6}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPVI{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{P7}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTCScolorPVII{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{H}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Htrue\edef\pgfPTCScolorH{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{La}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Latrue\edef\pgfPTCScolorLa{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{Lanta}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Lantatrue\edef\pgfPTCScolorLanta{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{Ac}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Actrue\edef\pgfPTCScolorAc{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{Actin}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPTusecolor at Actintrue\edef\pgfPTCScolorActin{\pgfPT at handlervalue}%
- \else%
- \edef\pgfPT at handlert@test{groupblending}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfPT at blendingtrue\edef\pgfPTblending{\pgfPT at handlervalue}%
- \else%handler not found
- \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTGroupColors: '\pgfPT at handler'\space in '\detokenize{#2}'\space not known! It will be ignored...}{}\fi\relax%
- \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
-\fi\fi}% end do
-\ifpgfPTgradient at TI\relax%
-\expandafter\pgfPT at dogradient@TI[0]\pgfPTCScolorGRADIENT\relax%
-\else\ifpgfPTgradient at TII\relax%
-\pgfPT at dogradient@TII[0](\pgfPTCScolorTOP,\pgfPTCScolorMIDDLE,\pgfPTCScolorBOTTOM)%
-\fi\fi%
-\pgfPT at assign@color{\pgfPTCScolorPI}\colorlet{pgfPTinnerPcolorI}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorPII}\colorlet{pgfPTinnerPcolorII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorPIII}\colorlet{pgfPTinnerPcolorIII}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorPIV}\colorlet{pgfPTinnerPcolorIV}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorPV}\colorlet{pgfPTinnerPcolorV}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorPVI}\colorlet{pgfPTinnerPcolorVI}{pgfPTassignedcolor}%
-\pgfPT at assign@color{\pgfPTCScolorPVII}\colorlet{pgfPTinnerPcolorVII}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at H\pgfPT at assign@color{\pgfPTCScolorH}\else\pgfPT at assign@color{\pgfPTCScolorPI}\fi%
-\colorlet{pgfPTinnerPcolorH}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at La\pgfPT at assign@color{\pgfPTCScolorLa}\else\pgfPT at assign@color{\pgfPTCScolorPVI}\fi%
-\colorlet{pgfPTinnerPcolorLa}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at Lanta\pgfPT at assign@color{\pgfPTCScolorLanta}\else\pgfPT at assign@color{\pgfPTCScolorPVI}\fi%
-\colorlet{pgfPTinnerPcolorLanta}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at Ac\pgfPT at assign@color{\pgfPTCScolorAc}\else\pgfPT at assign@color{\pgfPTCScolorPVII}\fi%
-\colorlet{pgfPTinnerPcolorAc}{pgfPTassignedcolor}%
-\ifpgfPTusecolor at Actin\pgfPT at assign@color{\pgfPTCScolorActin}\else\pgfPT at assign@color{\pgfPTCScolorPVII}\fi%
-\colorlet{pgfPTinnerPcolorActin}{pgfPTassignedcolor}%
-\ifpgfPT at blending%
- % blending={color=<color>,percentage=<positive or negative integer>,mode=<add|sub|linear>}
- \edef\pgfPTblending at color@r{1}%
- \edef\pgfPTblending at color@g{1}%
- \edef\pgfPTblending at color@b{1}%
- \edef\pgfPTblending at percentage@step{4}%
- \edef\pgfPTblending at percentage@sign{1}%
- \edef\pgfPTblending at mode{2}%
- \ifx\pgfPTblending\pgfPT at relax\relax\else%
- \@for\@pgfPT at tmp:=\pgfPTblending\do{%
- \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
- \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
- \edef\pgfPT at handlert@test{color}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \colorlet{pgfPTtmpc at lor}[rgb]{\pgfPT at handlervalue}
- \pgfPT at extract@rgb at fill{pgfPTtmpc at lor}%
- \edef\pgfPTblending at color@r{\pgfPT at rf}%
- \edef\pgfPTblending at color@g{\pgfPT at gf}%
- \edef\pgfPTblending at color@b{\pgfPT at bf}%
- \else%
- \edef\pgfPT at handlert@test{percentage}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \pgfmathparse{int(abs(\pgfPT at handlervalue))}\edef\pgfPTblending at percentage{\pgfmathresult}%
- \ifnum\pgfPTblending at percentage>100\relax%
- \PackageError{pgfPT}{\textbackslash pgfPTPeriodColors::group blending percentage: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space to high! Default blending percentage (68) will be used...}{}\relax%
- \edef\pgfPT at handlervalue{68}%
- \fi%
- \pgfmathparse{int(abs(\pgfPT at handlervalue/17))}\edef\pgfPTblending at percentage@step{\pgfmathresult}%
- \pgfmathparse{sign(\pgfPT at handlervalue)}\edef\pgfPTblending at percentage@sign{\pgfmathresult}%
- \else%
- \edef\pgfPT at handlert@test{mode}%
- \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
- \edef\pgfPTblending at mode@tmp{add}%
- \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
- \edef\pgfPTblending at mode{0}%
- \else%
- \edef\pgfPTblending at mode@tmp{sub}%
- \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
- \edef\pgfPTblending at mode{1}%
- \else%
- \edef\pgfPTblending at mode@tmp{linear}%
- \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
- \edef\pgfPTblending at mode{2}%
- \else%
- \PackageError{pgfPT}{\textbackslash pgfPTPeriodColors::group blending mode: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space not known! Default blending mode (add) will be used...}{}\relax%
- \fi\fi\fi%
- \else%handler not found
- \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTPeriodColors::group blending: '\pgfPT at handler'\space in '\detokenize{\pgfPTblending}'\space not known! Default value will be used...}{}\fi\relax%
- \fi\fi\fi%
- }% end do
- \fi% \ifx\pgfPTblending\pgfPT at relax
-\fi%
-\@for\@pgfPT at tmp:={I,II,III,IV,V,VI,VII,H,La,Lanta,Ac,Actin}%
-\do{%
- \pgfPT at extract@rgb at fill{pgfPTinnerPcolor\@pgfPT at tmp}%
- \edef\pgfPTinnercolor at r{\pgfPT at rf}%
- \edef\pgfPTinnercolor at g{\pgfPT at gf}%
- \edef\pgfPTinnercolor at b{\pgfPT at bf}%
- \expandafter\edef\csname pgfPTinnerPcolor\@pgfPT at tmp\endcsname{\pgfPTinnercolor at r/\pgfPTinnercolor at g/\pgfPTinnercolor at b}%
- }%
-\edef\pgfPT at backCS@PeriodColorsList{BEGIN}%
-\pgfPT at countf=1%
-\def\pgfPT at get@rgb##1/##2/##3\relax{\edef\pgfPT at tmpc@lor at r{##1}\edef\pgfPT at tmpc@lor at g{##2}\edef\pgfPT at tmpc@lor at b{##3}}%
-\@for\@pgfPT at tmp:={H,I,II,II,II,II,II,II,II,II,III,III,III,III,III,III,III,III,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,VI,VI,La,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VII,VII,Ac,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII}%
-\do{%
- \ifpgfPT at blending\relax% blending
- \ifnum\pgfPTblending at percentage@sign=1\relax%
- \ifnum\pgfPT at countf<3\relax% P1
- \ifnum\pgfPT at countf=1\relax% H
- \ifpgfPTusecolor at H%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else% He
- \pgfmathparse{int(100-17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<11\relax% P2
- \ifnum\pgfPT at countf<5\relax%
- \pgfmathparse{int(100-(\the\pgfPT at countf-3)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-3)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else%
- \pgfmathparse{int(100-(7+\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((7+\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<19\relax% P3
- \ifnum\pgfPT at countf<13\relax%
- \pgfmathparse{int(100-(\the\pgfPT at countf-11)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-11)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else%
- \pgfmathparse{int(100-(\the\pgfPT at countf-1)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-1)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<37\relax% P4
- \pgfmathparse{int(100-(\the\pgfPT at countf-19)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-19)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<55\relax% P5
- \pgfmathparse{int(100-(\the\pgfPT at countf-37)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-37)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<87\relax% P6
- \ifnum\pgfPT at countf<57\relax%
- \pgfmathparse{int(100-(\the\pgfPT at countf-55)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-55)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf>71\relax%
- \pgfmathparse{int(100-(\the\pgfPT at countf-68)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-68)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=57\relax% La
- \ifpgfPTusecolor at La%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else% lanthanoids
- \ifpgfPTusecolor at Lanta%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \fi\fi\fi%
- \else% P7
- \ifnum\pgfPT at countf<89\relax%
- \pgfmathparse{int(100-(\the\pgfPT at countf-87)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-87)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf>103\relax%
- \pgfmathparse{int(100-(\the\pgfPT at countf-100)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((\the\pgfPT at countf-100)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=89\relax% Ac
- \ifpgfPTusecolor at Ac%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else% actinoids
- \ifpgfPTusecolor at Actin%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \fi\fi\fi%
- \fi\fi\fi\fi\fi\fi%
- \else% \pgfPTblending at percentage@sign=-1
- \ifnum\pgfPT at countf<3\relax% P1
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else\ifnum\pgfPT at countf<11\relax% P2
- \ifnum\pgfPT at countf<5\relax%
- \pgfmathparse{int(100-(20-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((20-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else%
- \pgfmathparse{int(100-(10-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((10-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<19\relax% P3
- \ifnum\pgfPT at countf<13\relax%
- \pgfmathparse{int(100-(28-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((28-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else%
- \pgfmathparse{int(100-(18-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((18-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else\ifnum\pgfPT at countf<37\relax% P4
- \pgfmathparse{int(100-(36-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((36-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<55\relax% P5
- \pgfmathparse{int(100-(54-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((54-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf<87\relax% P6
- \ifnum\pgfPT at countf<57\relax%
- \pgfmathparse{int(100-(72-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((72-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf>71\relax%
- \pgfmathparse{int(100-(85-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((85-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=57\relax% La
- \ifpgfPTusecolor at La%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else% lanthanoids
- \ifpgfPTusecolor at Lanta%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \fi\fi\fi%
- \else% P7
- \ifnum\pgfPT at countf<89\relax%
- \pgfmathparse{int(100-(104-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((104-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf>103\relax%
- \pgfmathparse{int(100-(118-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int((118-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \else\ifnum\pgfPT at countf=89\relax% Ac
- \ifpgfPTusecolor at Ac%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \else% actinoids
- \ifpgfPTusecolor at Actin%
- \edef\pgfPT at blending@prop at i{100}%
- \edef\pgfPT at blending@prop at ii{0}%
- \else%
- \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
- \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
- \fi%
- \fi\fi\fi%
- \fi\fi\fi\fi\fi\fi%
- \fi% END \pgfPTblending at percentage@sign
- \edef\pgfPT at tmpc@lor{\csname pgfPTinnerPcolor\@pgfPT at tmp\endcsname}%
- \expandafter\pgfPT at get@rgb\pgfPT at tmpc@lor\relax%
- \ifcase\pgfPTblending at mode\relax%
- % 0 -> add
- \@pgfPT at mix@additive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
- \or% 1 -> sub
- \@pgfPT at mix@subtractive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
- \or% 2 -> linear
- \@pgfPT at mix@linear[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
- \fi% end ifcase
- \pgfPT at extract@rgb at fill{pgfPTmixedcolor}%
- \edef\pgfPT at backCS@PeriodColorsList{\pgfPT at backCS@PeriodColorsList,\pgfPT at rf/\pgfPT at gf/\pgfPT at bf}%
- \else% no blending
- \edef\pgfPT at backCS@PeriodColorsList{\pgfPT at backCS@PeriodColorsList,\csname pgfPTinnerPcolor\@pgfPT at tmp\endcsname}%
- \fi%
- \advance\pgfPT at countf by1\relax%
- }% end do
-\expandafter\@pgfPT at list@purge \pgfPT at backCS@PeriodColorsList[pgfPT at backCS@PeriodColorsList]\relax%
-\pgfPTnewColorScheme{#2}{\pgfPT at backCS@PeriodColorsList}%
-}% END \pgfPTPeriodColors
-%
-%
-% THE GRADIENT MACROS
-% \pgfPT at dogradient@TI[0 or 1]{list}\relax % 0->P or 1->G
-\def\pgfPT at dogradient@TI[#1]#2\relax{%
-\ignorespaces%
-\pgfPT at counta=0\pgfPT at countb=0\pgfPT at countc=0%
-\def\@pgfPT at gradientTI@list{BEGIN}%
-\ifnum#1=0\relax% Period
- \edef\@pgfPT at gradientTI@PorG{7}%
- \@for\@pgfPT at tmp:=#2\do{%
- \expandafter\@pgfPT at grad@get at n@Pcolor \@pgfPT at tmp\relax%
- \advance\pgfPT at counta by1\relax%
- \edef\@pgfPT at gradientTI@list{\@pgfPT at gradientTI@list,\@pgfPT at grad@ntmp}%
- \expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@colortmp}%
- \expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@ntmp}%
- }%
-\else% Group
- \edef\@pgfPT at gradientTI@PorG{18}%
- \@for\@pgfPT at tmp:=#2\do{%
- \expandafter\@pgfPT at grad@get at n@Gcolor \@pgfPT at tmp\relax%
- \advance\pgfPT at counta by1\relax%
- \edef\@pgfPT at gradientTI@list{\@pgfPT at gradientTI@list,\@pgfPT at grad@ntmp}%
- \expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@colortmp}%
- \expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@ntmp}%
- }%
-\fi%
-\expandafter\@pgfPT at list@purge \@pgfPT at gradientTI@list[@pgfPT at gradientTI@list]\relax%
-\edef\@pgfPT at gradientTI@unsortedlist{\@pgfPT at gradientTI@list}%
-\expandafter\pgfPT at bubblesort\@pgfPT at gradientTI@list\relax%
-\pgfPT at countc=0\pgfPT at counte=0%
-\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
-\pgfmathparse{array({\pgfPT at sortedlist},\the\pgfPT at countc)}%
-\ifnum\pgfPT at countc=0\relax\edef\pgfPT at sortedlist@first{\pgfmathresult}\fi%
-\advance\pgfPT at countc by1\relax%
-\ifnum\pgfPT at countc=\pgfPT at counta\relax\edef\pgfPT at sortedlist@last{\pgfmathresult}\fi%
-\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@n\@Roman\pgfmathresult\endcsname}%
-\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@color\@Roman\pgfmathresult\endcsname}%
-}%
-\ifnum\pgfPT at sortedlist@first>1\relax%
-\pgfPT at countc=1%
-\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
-\expandafter\edef\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname}%
-\expandafter\edef\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname}%
-\advance\pgfPT at countc by1\relax%
-}%
-\pgfPT at countc=1\pgfPT at countd=1%
-\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
-\ifnum\pgfPT at countd=1\relax%
-\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname{1}%
-\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countd\endcsname}%
-\advance\pgfPT at countd by1\relax%
-\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname}%
-\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname}%
-\else%
-\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname}%
-\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname}%
-\fi%
-\advance\pgfPT at countd by1\relax%
-\advance\pgfPT at countc by1\relax%
-}%
-\advance\pgfPT at counta by1\relax%
-\pgfPT at counte=1\relax%
-\edef\pgfPT at sortedlist{1,\pgfPT at sortedlist}%
-\fi% \ifnum\pgfPT at sortedlist@first>1
-\ifnum\pgfPT at sortedlist@last<\@pgfPT at gradientTI@PorG\relax%
-\ifnum\pgfPT at sortedlist@first=1\relax%
-\pgfPT at countc=1%
-\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
-\expandafter\edef\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname}%
-\expandafter\edef\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname}%
-\advance\pgfPT at countc by1\relax%
-}%
-\fi%
-\pgfPT at countc=\pgfPT at counta\ifnum\pgfPT at counte=1\relax\advance\pgfPT at countc by-1\relax\fi%
-\pgfPT at countd=\pgfPT at counta\advance\pgfPT at countd by1\relax%
-\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countd\endcsname{\@pgfPT at gradientTI@PorG}%
-\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname}%
-\edef\pgfPT at sortedlist{\pgfPT at sortedlist,\@pgfPT at gradientTI@PorG}%
-\advance\pgfPT at counta by1\relax%
-\fi% \ifnum\pgfPT at sortedlist@last<\@pgfPT at gradientTI@PorG
-\edef\@pgfPT at gradientTI@list{\pgfPT at sortedlist}%
-\edef\@pgfPT at gradientTI@foreachlist{}%
-\@for\@pgfPT at tmp:=\@pgfPT at gradientTI@list\do{%
- \advance\pgfPT at countb by1\relax%
- \ifnum\pgfPT at countb<\pgfPT at counta\relax%
- \edef\@pgfPT at gradientTI@foreachlist at n{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countb\endcsname}%
- \pgfmathsetcount{\pgfPT at countc}{\pgfPT at countb+1}%
- \edef\@pgfPT at gradientTI@foreachlist at nf{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname}%
- \pgfmathparse{int(\@pgfPT at gradientTI@foreachlist at nf-\@pgfPT at gradientTI@foreachlist at n+1)}%
- \edef\@pgfPT at gradientTI@foreachlist at steps{\pgfmathresult}%
- \edef\@pgfPT at gradientTI@foreachlist at coli{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countb\endcsname}%
- \edef\@pgfPT at gradientTI@foreachlist at colf{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname}%
- \edef\@pgfPT at gradientTI@foreachlist{\@pgfPT at gradientTI@foreachlist\@pgfPT at gradientTI@foreachlist at n/\@pgfPT at gradientTI@foreachlist at steps/\@pgfPT at gradientTI@foreachlist at coli/\@pgfPT at gradientTI@foreachlist at colf,}%
- \else%
- \edef\@pgfPT at gradientTI@foreachlist at n{\@pgfPT at gradientTI@PorG}%
- \edef\@pgfPT at gradientTI@foreachlist at steps{2}%
- \edef\@pgfPT at gradientTI@foreachlist at coli{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countb\endcsname}%
- \edef\@pgfPT at gradientTI@foreachlist at colf{\@pgfPT at gradientTI@foreachlist at coli}%
- \edef\@pgfPT at gradientTI@foreachlist{\@pgfPT at gradientTI@foreachlist\@pgfPT at gradientTI@foreachlist at n/\@pgfPT at gradientTI@foreachlist at steps/\@pgfPT at gradientTI@foreachlist at coli/\@pgfPT at gradientTI@foreachlist at colf}%
- \fi%
- }% end do
-\ifnum#1=0\relax\def\@pgfPT at PorG{P}\else\def\@pgfPT at PorG{G}\fi%
-\foreach \pgfPTx/\pgfPTsteps/\pgfPTcoli/\pgfPTcolf in \@pgfPT at gradientTI@foreachlist {%
- \@pgfPT at gradient[\@pgfPT at PorG,\pgfPTx,\pgfPTsteps](\pgfPTcoli;\pgfPTcolf)%
- }%
-}% end \pgfPT at dogradient@TI
-%
-% \pgfPT at dogradient@TII[0 or 1](top or left color,middle color,bottom or right color)
-\def\pgfPT at dogradient@TII[#1](#2,#3,#4){%
-\edef\pgfPT at test{#3}%
-\ifx\pgfPT at test\pgfPT at relax\relax%
-\ifnum#1=0\relax\@pgfPT at gradient[P,1,7](#2;#4)\else\@pgfPT at gradient[G,1,18](#2;#4)\fi%
-\else%
-\ifnum#1=0\relax\@pgfPT at gradient[P,1,4](#2;#3)\@pgfPT at gradient[P,4,4](#3;#4)%
-\else\@pgfPT at gradient[G,1,9](#2;#3)\@pgfPT at gradient[G,9,10](#3;#4)\fi%
-\fi%
-}%
-%
-% \@pgfPT at gradient[P or G,n_initial,steps](start_color; end_color)
-% color-> named color OR named color a!##!named color b OR *[model:values], e.g. *[rgb:.5;.2;.3] ->
-% --> (see Table 3: Supported color models on page 10 of the documentation of xcolor v2.14 (2022/06/12)
-\def\@pgfPT at gradient[#1,#2,#3](#4;#5){\ignorespaces%
-\edef\pgfPTgrad at steps{#3}%
-\pgfPT at assign@color{#4}%
-\colorlet{pgfPTgradstartcolor}[rgb]{pgfPTassignedcolor}%
-\pgfPT at assign@color{#5}%
-\colorlet{pgfPTgradendcolor}[rgb]{pgfPTassignedcolor}%
-\pgfPT at extract@rgb at fill{pgfPTgradstartcolor}%
-\edef\pgfPTgradstartcolor at r{\pgfPT at rf}%
-\edef\pgfPTgradstartcolor at g{\pgfPT at gf}%
-\edef\pgfPTgradstartcolor at b{\pgfPT at bf}%
-\pgfPT at extract@rgb at fill{pgfPTgradendcolor}%
-\edef\pgfPTgradendcolor at r{\pgfPT at rf}%
-\edef\pgfPTgradendcolor at g{\pgfPT at gf}%
-\edef\pgfPTgradendcolor at b{\pgfPT at bf}%
-\pgfmathparse{\pgfPTgradendcolor at r-\pgfPTgradstartcolor at r}\edef\pgfPTgrad at delta@r{\pgfmathresult}%
-\pgfmathparse{\pgfPTgradendcolor at g-\pgfPTgradstartcolor at g}\edef\pgfPTgrad at delta@g{\pgfmathresult}%
-\pgfmathparse{\pgfPTgradendcolor at b-\pgfPTgradstartcolor at b}\edef\pgfPTgrad at delta@b{\pgfmathresult}%
-\pgfmathparse{sign(\pgfPTgrad at delta@r)}\edef\pgfPTgrad at delta@r at sign{\pgfmathresult}%
-\pgfmathparse{sign(\pgfPTgrad at delta@g)}\edef\pgfPTgrad at delta@g at sign{\pgfmathresult}%
-\pgfmathparse{sign(\pgfPTgrad at delta@b)}\edef\pgfPTgrad at delta@b at sign{\pgfmathresult}%
-\foreach \n in {1,...,\pgfPTgrad at steps}{%
- \pgfmathparse{\pgfPTgradstartcolor at r+\pgfPTgrad at delta@r*(\n-1)/(\pgfPTgrad at steps-1)}\edef\pgfPTgrad at red{\pgfmathresult}%
- \pgfmathparse{\pgfPTgradstartcolor at g+\pgfPTgrad at delta@g*(\n-1)/(\pgfPTgrad at steps-1)}\edef\pgfPTgrad at green{\pgfmathresult}%
- \pgfmathparse{\pgfPTgradstartcolor at b+\pgfPTgrad at delta@b*(\n-1)/(\pgfPTgrad at steps-1)}\edef\pgfPTgrad at blue{\pgfmathresult}%
- \pgfmathparse{int(\n-1+#2)}\edef\pgfPT at niplusstep{\pgfmathresult}%
- \expandafter\xdef\csname pgfPTCScolor#1\@Roman\pgfPT at niplusstep\endcsname{*[rgb:\pgfPTgrad at red,\pgfPTgrad at green,\pgfPTgrad at blue]}%
- }%
-}%
-%
-%
-% AUX MACRO FOR \xABCLEANING\xBB LISTS
-\def\@pgfPT at list@purge BEGIN,#1[#2]\relax{\expandafter\edef\csname#2\endcsname{#1}}%
-%
-%
-% BUBBLE SORT
-% adapted from https://tex.stackexchange.com/questions/481678/apply-a-numeric-bubble-sort-to-output-strings-which-are-specified-by-names-code
-\def\pgfPT at listterminator{-1}%
-\def\pgfPT at bubblesort#1\relax{\def\pgfPT at sortedlist{}\pgfPT at sortlist#1,\pgfPT at listterminator,\relax}%
-\def\pgfPT at sortlist#1,#2,#3\relax{%
- \ifnum#2=\pgfPT at listterminator\relax%
- \edef\pgfPT at sortedlist{\pgfPT at sortedlist#1}%
- \else
- \ifnum#1<#2\relax%
- \edef\pgfPT at sortedlist{\pgfPT at sortedlist#1,}%
- \pgfPT at sortlist#2,#3\relax%
- \else%
- \let\pgfPT at tmplist\pgfPT at sortedlist%
- \def\pgfPT at sortedlist{}%
- \expandafter\pgfPT at sortlist\pgfPT at tmplist#2,#1,#3\relax%
- \fi%
- \fi%
-}%
-%
-%
-% THE COLOR MACROS
-\def\@pgfPT at grad@get at n@Gcolor G#1=#2\relax{\edef\@pgfPT at grad@ntmp{#1}\edef\@pgfPT at grad@colortmp{#2}}%
-\def\@pgfPT at grad@get at n@Pcolor P#1=#2\relax{\edef\@pgfPT at grad@ntmp{#1}\edef\@pgfPT at grad@colortmp{#2}}%
-%
-\def\pgfPT at assign@color#1{\expandafter\pgfPT at teststar#1\relax}%
-\def\pgfPT at teststar#1#2\relax{\edef\pgfPT at test{#1}\edef\pgfPT at charstar{*}%
-\ifx\pgfPT at test\pgfPT at charstar\relax\pgfPT at assign@color at bymodel{#2}\else\pgfPT at assign@color at byname{#1#2}\fi%
-}%
-\def\pgfPT at assign@color at bymodel#1{\expandafter\@pgfPT at assign@color at bymodel#1\relax}%
-\def\@pgfPT at assign@color at bymodel[#1:#2]\relax{%
-\edef\@pgfPT at assign@color at bymodel@arg{BEGIN}\expandafter\@pgfPT at assign@color at bymodel@process at arg#2;\relax%
-\expandafter\@pgfPT at list@purge \@pgfPT at assign@color at bymodel@arg[@pgfPT at assign@color at bymodel@arg]\relax%
-\definecolor{pgfPTtmpassignedcolor}{#1}{\@pgfPT at assign@color at bymodel@arg}\colorlet{pgfPTassignedcolor}[rgb]{pgfPTtmpassignedcolor}%
-}%
-\def\@pgfPT at assign@color at bymodel@process at arg#1;#2\relax{%
-\edef\teste{#2}%
-\ifx\teste\pgfPT at relax\edef\@pgfPT at assign@color at bymodel@arg{\@pgfPT at assign@color at bymodel@arg,#1}\else%
-\edef\@pgfPT at assign@color at bymodel@arg{\@pgfPT at assign@color at bymodel@arg,#1}\expandafter\@pgfPT at assign@color at bymodel@process at arg#2\relax\fi%
-}%
-\def\pgfPT at assign@color at byname#1{\colorlet{pgfPTassignedcolor}[rgb]{#1}}%
-%
-%
-% COMBINE TWO CS
-% mode: 0 -> add ; 1 -> sub ; 2 -> linear
-\def\pgfPTCScombine{\@ifnextchar[\pgfPT at CS@combine{\@pgfPT at CS@combine at nooptions}}%
-\def\@pgfPT at CS@combine at nooptions#1{%
-\edef\pgfPT at CS@combine at options@mode{2}%
-\edef\pgfPT at CS@combine at options@prop at i{1}%
-\edef\pgfPT at CS@combine at options@prop at ii{1}%
-\expandafter\@pgfPT at CS@combine[1:1,0]#1\relax%
-}%
-\def\pgfPT at CS@combine[#1]#2{\ignorespaces%
-\edef\pgfPT at CS@combine at options@prop at i{1}%
-\edef\pgfPT at CS@combine at options@prop at ii{1}%
-\edef\pgfPT at CS@combine at options@mode{0}% add
-\def\pgfPT at CS@combine at options@firstchar##1##2\relax{\edef\pgfPT at tmp{##1}}%
-\@for\@pgfPT at tmp:=#1\do{%
- \expandafter\pgfPT at CS@combine at options@firstchar\@pgfPT at tmp\relax%
- \ifcat1\pgfPT at tmp\relax\pgfPT at temptrue%
- \def\pgfPT at CS@combine at options@ispropOK##1##2##3##4##5 \relax{\edef\pgfPT at proptestOK{:}%
- \edef\pgfPT at proptotest{##2}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
- \else\edef\pgfPT at proptotest{##3}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
- \else\edef\pgfPT at proptotest{##4}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
- \else\edef\pgfPT at proptotest{##5}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
- \else\ifpgfPT at temp\PackageError{pgfPT}{\string\pgfPTCScombine: something went wrong in '\detokenize{#1}'\space: did you use the proportion sign ':'? The maximum value of proportion is 999... Default value '1:1' will be used...}{}\fi\relax%
- \fi\fi\fi\fi%
- }%
- \expandafter\pgfPT at CS@combine at options@ispropOK\@pgfPT at tmp END \relax%
- \ifpgfPT at temp\else\def\pgfPT at CS@combine at options@getprop##1:##2\relax{\edef\pgfPT at CS@combine at options@prop at i{##1}\edef\pgfPT at CS@combine at options@prop at ii{##2}}%
- \expandafter\pgfPT at CS@combine at options@getprop\@pgfPT at tmp\relax\fi%
- \else%
- \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
- \edef\pgfPT at CS@combine at options@tmpmode{add}%
- \ifx\@pgfPT at tmp\pgfPT at CS@combine at options@tmpmode\pgfPT at tempfalse%
- \edef\pgfPT at CS@combine at options@mode{0}%
- \else%
- \edef\pgfPT at CS@combine at options@tmpmode{sub}%
- \ifx\@pgfPT at tmp\pgfPT at CS@combine at options@tmpmode\pgfPT at tempfalse%
- \edef\pgfPT at CS@combine at options@mode{1}%
- \else%
- \edef\pgfPT at CS@combine at options@tmpmode{linear}%
- \ifx\@pgfPT at tmp\pgfPT at CS@combine at options@tmpmode\pgfPT at tempfalse%
- \edef\pgfPT at CS@combine at options@mode{2}%
- \else%handler not found
- \ifpgfPT at temp\PackageError{pgfPT}{\string\pgfPTCScombine: '\@pgfPT at tmp'\space in '\detokenize{#1}'\space not known! Default value 'add' will be used...}{}\fi\relax%
- \fi\fi\fi%
- \fi%
- }%
-\expandafter\@pgfPT at CS@combine[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii,\pgfPT at CS@combine at options@mode]#2\relax%
-}%
-\def\@pgfPT at CS@combine[#1:#2,#3]#4\relax{\ignorespaces%
-\def\@pgfPT at CS@getNames##1,##2,##3\relax{\edef\@pgfPT at CS@name at i{##1}\edef\@pgfPT at CS@name at ii{##2}\edef\@pgfPT at CS@name at iii{##3}}%
-\expandafter\@pgfPT at CS@getNames#4\relax%
-\edef\pgfPT at CStmp@one{\csname pgfPT at backColorsScheme@\@pgfPT at CS@name at i\endcsname}
-\edef\pgfPT at CStmp@two{\csname pgfPT at backColorsScheme@\@pgfPT at CS@name at ii\endcsname}
-\if\pgfPT at CStmp@one\pgfPT at relax%
-\PackageError{pgfPT}{\string\pgfPTCScombine: the color scheme '\@pgfPT at CS@name at i'\space is not defined! A full white color scheme will be used...}{}%
-\pgfPTnewColorScheme[1/1/1]{pgfPTCSnameerror}{1/1/1}%
-\edef\pgfPT at CStmp@one{pgfPT at backColorsScheme@pgfPTCSnameerror}%
-\fi%
-\if\pgfPT at CStmp@two\pgfPT at relax%
-\PackageError{pgfPT}{\string\pgfPTCScombine: the color scheme '\@pgfPT at CS@name at ii'\space is not defined! A full white color scheme will be used...}{}%
-\pgfPTnewColorScheme[1/1/1]{pgfPTCSnameerror}{1/1/1}%
-\edef\pgfPT at CStmp@two{pgfPT at backColorsScheme@pgfPTCSnameerror}%\fi%
-\fi%
-% sum...
-\edef\@pgfPT at listtosum{(\pgfPT at CStmp@one+\pgfPT at CStmp@two)}%
-\expandafter\pgfPT at somalistas\@pgfPT at listtosum\relax%
-% DO THE NEW CS
-\pgfPTnewColorScheme[1/1/1]{\@pgfPT at CS@name at iii}{\pgfPT at sum@list}%
-}% END \pgfPTCScombine
-%
-% SUM TWO LISTS
-\edef\@pgfPT at ENDLIST{ENDLIST}%
-\def\pgfPT at somalistas(#1+#2){%
-\edef\pgfPT at lista@i{0}\edef\pgfPT at lista@ii{0}\edef\pgfPT at lista@control{0}\edef\pgfPT at somafeita{0}%
-\edef\pgfPT at sum@list{BEGIN}%
-\edef\pgfPT at listas{#1,\@pgfPT at ENDLIST+#2,\@pgfPT at ENDLIST}\expandafter\@pgfPT at somalistas\pgfPT at listas\relax%
-}%
-\def\@pgfPT at somalistas#1,#2+#3,#4\relax{\ignorespaces%
-\ifcase\pgfPT at lista@control\relax%
-% case 0: both have values
-\expandafter\pgfPT at lista@i at rgb#1\relax%
-\expandafter\pgfPT at lista@ii at rgb#3\relax%
-\ifcase\pgfPT at CS@combine at options@mode\relax%
-% 0 -> add
-\@pgfPT at mix@additive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
-\or% 1 -> sub
-\@pgfPT at mix@subtractive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
-\or% 2 -> linear
-\@pgfPT at mix@linear[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
-\fi%
-\or% case 1: list one ended
-\expandafter\pgfPT at lista@ii at rgb#1#3\relax%
-\ifcase\pgfPT at CS@combine at options@mode\relax%
-% 0 -> add
-\@pgfPT at mix@additive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at lastval@r/\pgfPT at lista@i at lastval@g/\pgfPT at lista@i at lastval@b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
-\or% 1 -> sub
-\@pgfPT at mix@subtractive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at lastval@r/\pgfPT at lista@i at lastval@g/\pgfPT at lista@i at lastval@b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
-\or% 2 -> linear
-\@pgfPT at mix@linear[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at lastval@r/\pgfPT at lista@i at lastval@g/\pgfPT at lista@i at lastval@b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
-\fi%
-\or% case 2: list two ended
-\expandafter\pgfPT at lista@i at rgb#1\relax%
-\ifcase\pgfPT at CS@combine at options@mode\relax%
-% 0 -> add
-\@pgfPT at mix@additive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at lastval@r/\pgfPT at lista@ii at lastval@g/\pgfPT at lista@ii at lastval@b)%
-\or% 1 -> sub
-\@pgfPT at mix@subtractive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at lastval@r/\pgfPT at lista@ii at lastval@g/\pgfPT at lista@ii at lastval@b)%
-\or% 2 -> linear
-\@pgfPT at mix@linear[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at lastval@r/\pgfPT at lista@ii at lastval@g/\pgfPT at lista@ii at lastval@b)%
-\fi%
-\or% case 3: both lists ended
-\expandafter\@pgfPT at list@purge \pgfPT at sum@list[pgfPT at sum@list]\relax%
-\edef\pgfPT at somafeita{1}%
-\fi%
-\edef\pgfPT at teste{#2}\ifx\pgfPT at teste\@pgfPT at ENDLIST\edef\pgfPT at lista@i{1}\fi%
-\edef\pgfPT at teste{#4}\ifx\pgfPT at teste\@pgfPT at ENDLIST\edef\pgfPT at lista@ii{2}\fi%
-\ifnum\pgfPT at lista@i=1\relax\ifnum\pgfPT at lista@control=0\relax\edef\pgfPT at lista@i at lastval@r{\pgfPT at lista@i at r}%
-\edef\pgfPT at lista@i at lastval@g{\pgfPT at lista@i at g}\edef\pgfPT at lista@i at lastval@b{\pgfPT at lista@i at b}\fi%
-\edef\pgfPT at lista@i at remainder{,\@pgfPT at ENDLIST}\else\edef\pgfPT at lista@i at remainder{#2}\fi%
-\ifnum\pgfPT at lista@ii=2\relax\ifnum\pgfPT at lista@control=0\relax\edef\pgfPT at lista@ii at lastval@r{\pgfPT at lista@ii at r}%
-\edef\pgfPT at lista@ii at lastval@g{\pgfPT at lista@ii at g}\edef\pgfPT at lista@ii at lastval@b{\pgfPT at lista@ii at b}\fi%
-\edef\pgfPT at lista@ii at remainder{,\@pgfPT at ENDLIST}\else\edef\pgfPT at lista@ii at remainder{#4}\fi%
-\pgfmathparse{int(\pgfPT at lista@i+\pgfPT at lista@ii)}\edef\pgfPT at lista@control{\pgfmathresult}%
-\ifnum\pgfPT at somafeita=0\relax\edef\pgfPT at sum@list{\pgfPT at sum@list,\pgfPT at CS@mix at r/\pgfPT at CS@mix at g/\pgfPT at CS@mix at b}%
-\edef\pgfPT at listas{\pgfPT at lista@i at remainder+\pgfPT at lista@ii at remainder}\expandafter\@pgfPT at somalistas\pgfPT at listas\relax\fi%
-}%
-\def\pgfPT at lista@i at rgb#1/#2/#3\relax{\edef\pgfPT at lista@i at r{#1}\edef\pgfPT at lista@i at g{#2}\edef\pgfPT at lista@i at b{#3}}%
-\def\pgfPT at lista@ii at rgb#1/#2/#3\relax{\edef\pgfPT at lista@ii at r{#1}\edef\pgfPT at lista@ii at g{#2}\edef\pgfPT at lista@ii at b{#3}}%
-%
-%
-% ---- Adding two colors (subtractive) with n parts of color one and k parts of color two ----
-% Actually, you get green from mixing (subtractively) yellow and cyan.
-% Yellow is red + green (255, 255, 0), cyan is green + blue (0, 255, 255).
-% Now make their opposite colors: blue (0, 0, 255) and red (255, 0, 0).
-% Mix them additively and you get purple (255, 0, 255).
-% Make its opposite and you get green (0, 255, 0).
-% In other words, you can get a subtractive mix as the opposite of the additive mix of the opposites of your two colors.
-% Finding a complementary color is very simple in the RGB model:
-% For any given color, for example, red (#FF0000), you need to find the color, which, after being added to red, creates white (0xFFFFFF).
-% Naturally, all you need to do, is subtract red from white and get cyan (0xFFFFFF - 0xFF0000 = 0x00FFFF).
-\def\pgfPT at mix@subtractive{\@ifnextchar[\@pgfPT at mix@subtractive{\@pgfPT at mix@subtractive[1:1]}}%
-\def\@pgfPT at mix@subtractive[#1:#2](#3/#4/#5,#6/#7/#8){%
-% color one -> opposite(color one) = (1-red)/(1-green)/(1-blue)
-\pgfmathparse{1-#3}\edef\pgfPT at CS@colorone at not@r{\pgfmathresult}%
-\pgfmathparse{1-#4}\edef\pgfPT at CS@colorone at not@g{\pgfmathresult}%
-\pgfmathparse{1-#5}\edef\pgfPT at CS@colorone at not@b{\pgfmathresult}%
-% color two -> opposite(color two) = (1-red)/(1-green)/(1-blue)
-\pgfmathparse{1-#6}\edef\pgfPT at CS@colortwo at not@r{\pgfmathresult}%
-\pgfmathparse{1-#7}\edef\pgfPT at CS@colortwo at not@g{\pgfmathresult}%
-\pgfmathparse{1-#8}\edef\pgfPT at CS@colortwo at not@b{\pgfmathresult}%
-% sum opposite(color one) + opposite(color two)
-\pgfmathparse{#1*\pgfPT at CS@colorone at not@r+#2*\pgfPT at CS@colortwo at not@r}\edef\pgfPT at CS@sum at r{\pgfmathresult}%
-\pgfmathparse{#1*\pgfPT at CS@colorone at not@g+#2*\pgfPT at CS@colortwo at not@g}\edef\pgfPT at CS@sum at g{\pgfmathresult}%
-\pgfmathparse{#1*\pgfPT at CS@colorone at not@b+#2*\pgfPT at CS@colortwo at not@b}\edef\pgfPT at CS@sum at b{\pgfmathresult}%
-%
-\pgfmathparse{max(\pgfPT at CS@sum at r,\pgfPT at CS@sum at g,\pgfPT at CS@sum at b)}\edef\pgfPT at CS@sum at max{\pgfmathresult}%
-\pgfmathgreater{\pgfPT at CS@sum at max}{1}\edef\pgfPT at CS@sum at maxIsGreater{\pgfmathresult}%
-\ifnum\pgfPT at CS@sum at maxIsGreater=1\relax%
-\pgfmathparse{\pgfPT at CS@sum at r/\pgfPT at CS@sum at max}\edef\pgfPT at CS@sum at r{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@sum at g/\pgfPT at CS@sum at max}\edef\pgfPT at CS@sum at g{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@sum at b/\pgfPT at CS@sum at max}\edef\pgfPT at CS@sum at b{\pgfmathresult}%
-\fi%
-% opposite sum
-\pgfmathparse{1-\pgfPT at CS@sum at r}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
-\pgfmathparse{1-\pgfPT at CS@sum at g}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
-\pgfmathparse{1-\pgfPT at CS@sum at b}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
-%
-\definecolor{pgfPTmixedcolor}{rgb}{\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b}%
-}%
-%
-% ---- Adding two colors (additive) with n parts of color one and k parts of color two ----
-\def\pgfPT at mix@additive{\@ifnextchar[\@pgfPT at mix@additive{\@pgfPT at mix@additive[1:1]}}%
-\def\@pgfPT at mix@additive[#1:#2](#3/#4/#5,#6/#7/#8){%
-\pgfmathparse{#1*#3+#2*#6}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
-\pgfmathparse{#1*#4+#2*#7}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
-\pgfmathparse{#1*#5+#2*#8}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
-\pgfmathparse{max(\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b)}\edef\pgfPT at CS@sum at max{\pgfmathresult}%
-\pgfmathgreater{\pgfPT at CS@sum at max}{1}\edef\pgfPT at CS@sum at maxIsGreater{\pgfmathresult}%
-\ifnum\pgfPT at CS@sum at maxIsGreater=1\relax%
-\pgfmathparse{\pgfPT at CS@mix at r/\pgfPT at CS@sum at max}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@mix at g/\pgfPT at CS@sum at max}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@mix at b/\pgfPT at CS@sum at max}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
-\fi%
-\definecolor{pgfPTmixedcolor}{rgb}{\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b}%
-}%
-%
-% Color mixing (as in xcolor)
-% \xAB In general, we use linear interpolation for color mixing: mix(C1, C2, p) = p * C1 + (1 - p) * C2 \xBB
-\def\pgfPT at mix@linear{\@ifnextchar[\@pgfPT at mix@linear{\@pgfPT at mix@linear[1:1]}}%
-\def\@pgfPT at mix@linear[#1:#2](#3/#4/#5,#6/#7/#8){%
-\pgfmathparse{#1/(#1+#2)}\edef\pgfPT at CS@mix at p{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@mix at p*#3+(1-\pgfPT at CS@mix at p)*#6}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@mix at p*#4+(1-\pgfPT at CS@mix at p)*#7}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
-\pgfmathparse{\pgfPT at CS@mix at p*#5+(1-\pgfPT at CS@mix at p)*#8}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
-\definecolor{pgfPTmixedcolor}{rgb}{\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b}%
-}%
-%
-%
-% \pgfPTCSwrite[filename]{List of CSNames}
-\begingroup%
-\catcode`\|=0%
-\catcode`\\=11%
-|gdef|pgfPTCSwrite{|@ifnextchar[|pgfPT at CSwrite{|pgfPT at CSwrite[]}}%
-|gdef|pgfPT at CSwrite[#1]#2{%
-|pgfPT at tempfalse%
-|edef|pgfPT at CSnamesprovided{#2}%
-|ifx|pgfPT at CSnamesprovided|pgfPT at relax%
-|PackageError{pgfPT}{\pgfPTCSwrite: no Color Scheme names provided. No file will be written...}{}|relax%
-|else%
-|pgfPT at temptrue|relax%
-|xdef|pgfPT at filenameprovided{#1}%
-|ifx|pgfPT at filenameprovided|pgfPT at relax|relax%
-% setting the file name with the first name of the list
-|def|pgfPT at setfilename##1,##2 |relax{|edef|pgfPT at filename{##1}}%
-|expandafter|pgfPT at setfilename#2, |relax%
-|else%
-|edef|pgfPT at filename{#1}%
-|fi|fi%
-|ifpgfPT at temp%
-|immediate|newwrite|pgfPT at CSfile%
-|immediate|openout|pgfPT at CSfile=|pgfPT at filename.tex%
-|@for|@pgfPT at tmp:=#2|do{%
-|edef|pgfPT at CS@contents{|csname pgfPT at backColorsScheme@|@pgfPT at tmp|endcsname}%
-|if|pgfPT at CS@contents|relax%
-|PackageError{pgfPT}{\pgfPTCSwrite: the named Color Scheme you provided ('|@pgfPT at tmp') doesn't exist. It will not be written to file...}{}|relax%
-|else%
-|immediate|write|pgfPT at CSfile{%
-\pgfPTnewColorScheme{|@pgfPT at tmp}{|pgfPT at CS@contents}%
-}%
-|fi%
-}% end do
-|immediate|closeout|pgfPT at CSfile%
-|fi% pgfPT at temp
-}%
-|endgroup%
-%
-%
-\makeatother%
-\endinput
Added: trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPT.input.library.tex
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPT.input.library.tex (rev 0)
+++ trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPT.input.library.tex 2023-04-02 21:24:58 UTC (rev 66745)
@@ -0,0 +1,52 @@
+% --------------------------------------------------------------------------------------------------
+% subfile of pgf-PeriodicTable package ----------------------------------------------------------
+% --------------------------------------------------------------------------------------------------
+% Macro for loading pgf-PeriodicTable libraries --------------------------------------------------
+% --------------------------------------------------------------------------------------------------
+% --------------------------------------------------------------------------------------------------
+% --------------------------------------------------------------------------------------------------
+%
+%
+% Taken and adapted from pgf ---------------->
+% Library files inclusion
+% Include a library file.
+%
+% #1 = List of names of library file.
+%
+% Description:
+%
+% This command includes a list of library files. For each file X in the
+% list, the file pgfPTlibrary.X.tex is included, provided this has
+% not been done earlier.
+%
+% \usepgfPTlibrary{elements}
+% \usepgflPTibrary[elements,plot]
+%
+\def\usepgfPTlibrary#1{\ignorespaces%
+ \edef\pgfPT at list{#1}%
+ \@for\pgfPT at temp:=\pgfPT at list\do{%
+ \ifx\pgfPT at temp\@empty\relax%
+ \else%
+ \expandafter\ifx\csname pgfPT at library@\pgfPT at temp @loaded\endcsname\relax%
+ \expandafter\let\csname pgfPT at library@\pgfPT at temp @loaded\endcsname=\@empty%
+ \expandafter\edef\csname pgfPT at library@#1 at atcode\endcsname{\the\catcode`\@}%
+ \expandafter\edef\csname pgfPT at library@#1 at barcode\endcsname{\the\catcode`\|}%
+ \expandafter\edef\csname pgfPT at library@#1 at dollarcode\endcsname{\the\catcode`\$}%
+ \catcode`\@=11%
+ \catcode`\|=12%
+ \catcode`\$=3%
+ \pgfutil at InputIfFileExists{pgfPTlibrary.\pgfPT at temp.tex}{}{%
+ \PackageError{pgfPT}{I did not find the pgfPT library
+ '\pgfPT at temp'. I looked for the file named
+ pgfPTlibrary.\pgfPT at temp.tex, but could not find it in in
+ the current texmf trees.}
+ }%
+ \catcode`\@=\csname pgfPT at library@#1 at atcode\endcsname%
+ \catcode`\|=\csname pgfPT at library@#1 at barcode\endcsname%
+ \catcode`\$=\csname pgfPT at library@#1 at dollarcode\endcsname%
+ \fi%
+ \fi%
+ }%
+}%
+% <---------------- Taken and adapted from pgf (pgfutil-common.tex)
+\endinput
Property changes on: trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPT.input.library.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Added: trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex
===================================================================
--- trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex (rev 0)
+++ trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex 2023-04-02 21:24:58 UTC (rev 66745)
@@ -0,0 +1,1257 @@
+% ---------------------------------------------------------------------------------------
+% subfile of pgf-PeriodicTable package -----------------------------------------------
+% ---------------------------------------------------------------------------------------
+\def\pgfPT at library@colorschemes at loaded{}%
+\message{pgfPT color schemes library loaded!}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% provide the macros
+% \pgfPTGroupColors[name of color scheme]{list}
+% \pgfPTPeriodColors[name of color scheme]{list}
+% \pgfPTCScombine[prop,mode]{CS one,CS two,CS new}
+% \pgfPTCSwrite[name]{CSName's list}
+%
+% support for colors -> named color OR named color a!##!named color b OR *[model:values], e.g. *[rgb:.5;.2,;3] ->
+% --> (see Table 3: Supported color models on page 10 of the documentation of xcolor v2.14 (2022/06/12)
+%
+% BUBBLE SORT
+% adapted from https://tex.stackexchange.com/questions/481678/apply-a-numeric-bubble-sort-to-output-strings-which-are-specified-by-names-code
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\makeatletter%
+%\pgfPTGroupColors{name of color scheme}{list}
+% ---------------------------------------------------------------------------------------
+% list:
+% left color=<color>,right color=<color>,middle color=<color>
+% or
+% G1=<color>,G2=<color>, ... , G18=<color>
+% or
+% gradient={G<n>=<color>,G<n>=<color>,...,G<n>=<color>}
+%
+% with options:
+% -> period blending={color=<color>,percentage=<positive or negative integer>,mode=<add,sub,linear>}
+% NOTES: the percentage refers to how much of the color, in total, was mixed at the end of the 7 periods;
+% for example 60% adds 10% to each period (P1:0% -> P2:10% -> P3:20% -> ... -> P7:60%)
+% if the percentage is positive, the order of the mixture is from P1 to P7
+% if the percentage is negative, the mixing order is from P7 to P1
+% -> H=<color>,La=<color>,Lanta=<color>,Ac=<color>,Actin=<color>
+% ---------------------------------------------------------------------------------------
+\newif\ifpgfPTgradient at TI\newif\ifpgfPTgradient at TII%
+\newif\ifpgfPTusecolor at H%
+\newif\ifpgfPTusecolor at La\newif\ifpgfPTusecolor at Lanta%
+\newif\ifpgfPTusecolor at Ac\newif\ifpgfPTusecolor at Actin%
+\newif\ifpgfPT at blending%
+%
+\def\pgfPTGroupColors{\@ifnextchar[\pgfPT at GroupColors{\pgfPT at GroupColors[white]}}%
+\def\pgfPT at GroupColors[#1]#2#3{\ignorespaces%
+\pgfPTgradient at TIfalse\pgfPTgradient at TIIfalse%
+\pgfPTusecolor at Hfalse%
+\pgfPTusecolor at Lafalse\pgfPTusecolor at Lantafalse%
+\pgfPTusecolor at Acfalse\pgfPTusecolor at Actinfalse%
+\pgfPT at blendingfalse%
+\edef\pgfPTCScolorLEFT{#1}%
+\edef\pgfPTCScolorMIDDLE{}%
+\edef\pgfPTCScolorRIGHT{#1}%
+\edef\pgfPTCScolorH{#1}%
+\edef\pgfPTCScolorGI{#1}%
+\edef\pgfPTCScolorGII{#1}%
+\edef\pgfPTCScolorGIII{#1}%
+\edef\pgfPTCScolorGIV{#1}%
+\edef\pgfPTCScolorGV{#1}%
+\edef\pgfPTCScolorGVI{#1}%
+\edef\pgfPTCScolorGVII{#1}%
+\edef\pgfPTCScolorGVIII{#1}%
+\edef\pgfPTCScolorGIX{#1}%
+\edef\pgfPTCScolorGX{#1}%
+\edef\pgfPTCScolorGXI{#1}%
+\edef\pgfPTCScolorGXII{#1}%
+\edef\pgfPTCScolorGXIII{#1}%
+\edef\pgfPTCScolorGXIV{#1}%
+\edef\pgfPTCScolorGXV{#1}%
+\edef\pgfPTCScolorGXVI{#1}%
+\edef\pgfPTCScolorGXVII{#1}%
+\edef\pgfPTCScolorGXVIII{#1}%
+\edef\pgfPTCScolorLa{#1}%
+\edef\pgfPTCScolorLanta{#1}%
+\edef\pgfPTCScolorAc{#1}%
+\edef\pgfPTCScolorActin{#1}%
+\@for\@pgfPT at tmp:=#3\do{%
+\ifx\@pgfPT at tmp\pgfPT at relax\relax\else\ifx\@pgfPT at tmp\pgfPT at space\relax\else%
+ \edef\pgfPT at handlert@test{period blending}\ifx\@pgfPT at tmp\pgfPT at handlert@test\edef\@pgfPT at tmp{period blending={}}\fi%
+ \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
+ \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
+ \edef\pgfPT at handlert@test{gradient}% gradient... type 1
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TItrue\pgfPTgradient at TIIfalse\edef\pgfPTCScolorGRADIENT{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{leftcolor}% gradient... type 2
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorLEFT{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{middlecolor}% gradient... type 2
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorMIDDLE{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{rightcolor}% gradient... type 2
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorRIGHT{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G1}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGI{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G2}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G3}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGIII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G4}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGIV{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G5}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGV{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G6}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGVI{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G7}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGVII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G8}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGVIII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G9}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGIX{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G10}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGX{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G11}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXI{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G12}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G13}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXIII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G14}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXIV{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G15}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXV{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G16}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXVI{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G17}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXVII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{G18}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorGXVIII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{H}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Htrue\edef\pgfPTCScolorH{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{La}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Latrue\edef\pgfPTCScolorLa{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{Lanta}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Lantatrue\edef\pgfPTCScolorLanta{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{Ac}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Actrue\edef\pgfPTCScolorAc{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{Actin}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Actintrue\edef\pgfPTCScolorActin{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{periodblending}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPT at blendingtrue\edef\pgfPTblending{\pgfPT at handlervalue}%
+ \else%handler not found
+ \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTGroupColors: '\pgfPT at handler'\space in '\detokenize{#3}'\space not known! It will be ignored...}{}\fi\relax%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+\fi\fi}% end do
+\ifpgfPTgradient at TI\relax%
+\expandafter\pgfPT at dogradient@TI[1]\pgfPTCScolorGRADIENT\relax%
+\else\ifpgfPTgradient at TII\relax%
+\pgfPT at dogradient@TII[1](\pgfPTCScolorLEFT,\pgfPTCScolorMIDDLE,\pgfPTCScolorRIGHT)%
+\fi\fi%
+\pgfPT at assign@color{\pgfPTCScolorGI}\colorlet{pgfPTinnerGcolorI}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGII}\colorlet{pgfPTinnerGcolorII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGIII}\colorlet{pgfPTinnerGcolorIII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGIV}\colorlet{pgfPTinnerGcolorIV}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGV}\colorlet{pgfPTinnerGcolorV}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGVI}\colorlet{pgfPTinnerGcolorVI}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGVII}\colorlet{pgfPTinnerGcolorVII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGVIII}\colorlet{pgfPTinnerGcolorVIII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGIX}\colorlet{pgfPTinnerGcolorIX}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGX}\colorlet{pgfPTinnerGcolorX}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXI}\colorlet{pgfPTinnerGcolorXI}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXII}\colorlet{pgfPTinnerGcolorXII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXIII}\colorlet{pgfPTinnerGcolorXIII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXIV}\colorlet{pgfPTinnerGcolorXIV}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXV}\colorlet{pgfPTinnerGcolorXV}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXVI}\colorlet{pgfPTinnerGcolorXVI}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXVII}\colorlet{pgfPTinnerGcolorXVII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorGXVIII}\colorlet{pgfPTinnerGcolorXVIII}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at H\pgfPT at assign@color{\pgfPTCScolorH}\else\pgfPT at assign@color{\pgfPTCScolorGI}\fi%
+\colorlet{pgfPTinnerGcolorH}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at La\pgfPT at assign@color{\pgfPTCScolorLa}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
+\colorlet{pgfPTinnerGcolorLa}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at Lanta\pgfPT at assign@color{\pgfPTCScolorLanta}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
+\colorlet{pgfPTinnerGcolorLanta}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at Ac\pgfPT at assign@color{\pgfPTCScolorAc}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
+\colorlet{pgfPTinnerGcolorAc}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at Actin\pgfPT at assign@color{\pgfPTCScolorActin}\else\pgfPT at assign@color{\pgfPTCScolorGIII}\fi%
+\colorlet{pgfPTinnerGcolorActin}{pgfPTassignedcolor}%
+\ifpgfPT at blending%
+ % blending={color=<color>,percentage=<positive or negative integer>,mode=<add|sub|linear>}
+ \edef\pgfPTblending at color@r{1}%
+ \edef\pgfPTblending at color@g{1}%
+ \edef\pgfPTblending at color@b{1}%
+ \edef\pgfPTblending at percentage@step{10}%
+ \edef\pgfPTblending at percentage@sign{1}%
+ \edef\pgfPTblending at mode{2}%
+ \ifx\pgfPTblending\pgfPT at relax\relax\else%
+ \@for\@pgfPT at tmp:=\pgfPTblending\do{%
+ \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
+ \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
+ \edef\pgfPT at handlert@test{color}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \colorlet{pgfPTtmpc at lor}[rgb]{\pgfPT at handlervalue}
+ \pgfPT at extract@rgb at fill{pgfPTtmpc at lor}%
+ \edef\pgfPTblending at color@r{\pgfPT at rf}%
+ \edef\pgfPTblending at color@g{\pgfPT at gf}%
+ \edef\pgfPTblending at color@b{\pgfPT at bf}%
+ \else%
+ \edef\pgfPT at handlert@test{percentage}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfmathparse{int(abs(\pgfPT at handlervalue))}\edef\pgfPTblending at percentage{\pgfmathresult}%
+ \ifnum\pgfPTblending at percentage>100\relax%
+ \PackageError{pgfPT}{\textbackslash pgfPTGroupColors::period blending percentage: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space to high! Default blending percentage (60) will be used...}{}\relax%
+ \edef\pgfPT at handlervalue{60}%
+ \fi%
+ \pgfmathparse{int(abs(\pgfPT at handlervalue/6))}\edef\pgfPTblending at percentage@step{\pgfmathresult}%
+ \pgfmathparse{sign(\pgfPT at handlervalue)}\edef\pgfPTblending at percentage@sign{\pgfmathresult}%
+ \else%
+ \edef\pgfPT at handlert@test{mode}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTblending at mode@tmp{add}%
+ \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
+ \edef\pgfPTblending at mode{0}%
+ \else%
+ \edef\pgfPTblending at mode@tmp{sub}%
+ \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
+ \edef\pgfPTblending at mode{1}%
+ \else%
+ \edef\pgfPTblending at mode@tmp{linear}%
+ \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
+ \edef\pgfPTblending at mode{2}%
+ \else%
+ \PackageError{pgfPT}{\textbackslash pgfPTGroupColors::period blending mode: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space not known! Default blending mode (add) will be used...}{}\relax%
+ \fi\fi\fi%
+ \else%handler not found
+ \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTGroupColors::period blending: '\pgfPT at handler'\space in '\detokenize{\pgfPTblending}'\space not known! Default value will be used...}{}\fi\relax%
+ \fi\fi\fi%
+ }% end do
+ \fi% \ifx\pgfPTblending\pgfPT at relax
+\fi%
+\@for\@pgfPT at tmp:={I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,H,La,Lanta,Ac,Actin}%
+\do{%
+ \pgfPT at extract@rgb at fill{pgfPTinnerGcolor\@pgfPT at tmp}%
+ \edef\pgfPTinnercolor at r{\pgfPT at rf}%
+ \edef\pgfPTinnercolor at g{\pgfPT at gf}%
+ \edef\pgfPTinnercolor at b{\pgfPT at bf}%
+ \expandafter\edef\csname pgfPTinnerGcolor\@pgfPT at tmp\endcsname{\pgfPTinnercolor at r/\pgfPTinnercolor at g/\pgfPTinnercolor at b}%
+ }%
+\edef\pgfPT at backCS@GroupColorsList{BEGIN}%
+\pgfPT at countf=1%
+\def\pgfPT at get@rgb##1/##2/##3\relax{\edef\pgfPT at tmpc@lor at r{##1}\edef\pgfPT at tmpc@lor at g{##2}\edef\pgfPT at tmpc@lor at b{##3}}%
+\@for\@pgfPT at tmp:={H,XVIII,I,II,XIII,XIV,XV,XVI,XVII,XVIII,I,II,XIII,XIV,XV,XVI,XVII,XVIII,I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,I,II,La,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,I,II,Ac,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII}%
+\do{%
+ \ifpgfPT at blending\relax% blending
+ \ifnum\pgfPTblending at percentage@sign=1\relax%
+ \ifnum\pgfPT at countf<3\relax% P1
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else\ifnum\pgfPT at countf<11\relax% P2
+ \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \edef\pgfPT at blending@prop at ii{\pgfPTblending at percentage@step}%
+ \else\ifnum\pgfPT at countf<19\relax% P3
+ \pgfmathparse{int(100-2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<37\relax% P4
+ \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<55\relax% P5
+ \pgfmathparse{int(100-4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<87\relax% P6
+ \ifnum\pgfPT at countf<57\relax%
+ \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=57\relax% La
+ \ifpgfPTusecolor at La%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<72\relax% Lanta
+ \ifpgfPTusecolor at Lanta%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else%
+ \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi\fi\fi%
+ \else% P7
+ \ifnum\pgfPT at countf<89\relax%
+ \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=89\relax% Ac
+ \ifpgfPTusecolor at Ac%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<104\relax% Actin
+ \ifpgfPTusecolor at Actin%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else%
+ \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi%
+ \else% \pgfPTblending at percentage@sign=-1
+ \ifnum\pgfPT at countf<3\relax% P1
+ \ifnum\pgfPT at countf<2\relax% H
+ \ifpgfPTusecolor at H%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else%
+ \pgfmathparse{int(100-6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(6*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<11\relax% P2
+ \pgfmathparse{int(100-5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(5*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<19\relax% P3
+ \pgfmathparse{int(100-4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(4*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<37\relax% P4
+ \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<55\relax% P5
+ \pgfmathparse{int(100-2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(2*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<87\relax% P6
+ \ifnum\pgfPT at countf<57\relax%
+ \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=57\relax% La
+ \ifpgfPTusecolor at La%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<72\relax% Lanta
+ \ifpgfPTusecolor at Lanta%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else%
+ \pgfmathparse{int(100-\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi\fi\fi%
+ \else% P7
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \fi\fi\fi\fi\fi\fi%
+ \fi% END \pgfPTblending at percentage@sign
+ \edef\pgfPT at tmpc@lor{\csname pgfPTinnerGcolor\@pgfPT at tmp\endcsname}%
+ \expandafter\pgfPT at get@rgb\pgfPT at tmpc@lor\relax%
+ \ifcase\pgfPTblending at mode\relax%
+ % 0 -> add
+ \@pgfPT at mix@additive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
+ \or% 1 -> sub
+ \@pgfPT at mix@subtractive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
+ \or% 2 -> linear
+ \@pgfPT at mix@linear[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
+ \fi% end ifcase
+ \pgfPT at extract@rgb at fill{pgfPTmixedcolor}%
+ \edef\pgfPT at backCS@GroupColorsList{\pgfPT at backCS@GroupColorsList,\pgfPT at rf/\pgfPT at gf/\pgfPT at bf}%
+ \else% no blending
+ \edef\pgfPT at backCS@GroupColorsList{\pgfPT at backCS@GroupColorsList,\csname pgfPTinnerGcolor\@pgfPT at tmp\endcsname}%
+ \fi%
+ \advance\pgfPT at countf by1\relax%
+ }% end do
+\expandafter\@pgfPT at list@purge \pgfPT at backCS@GroupColorsList[pgfPT at backCS@GroupColorsList]\relax%
+\pgfPTnewColorScheme{#2}{\pgfPT at backCS@GroupColorsList}%
+}% END \pgfPTGroupColors
+%
+%\pgfPTPeriodColors{name of color scheme}{list}
+% ---------------------------------------------------------------------------------------
+% list:
+% top color=<color>,bottom color=<color>,middle color=<color>
+% or
+% P1=<color>,P2=<color>, ... , P7=<color>
+% or
+% gradient={P<n>=<color>,P<n>=<color>,...,P<n>=<color>}
+%
+% with options:
+% -> group blending={color=<color>,percentage=<positive or negative integer>,mode=<add|sub|linear>}
+% NOTES: the percentage refers to how much of the color, in total, was mixed at the end of the 7 periods;
+% for example 68% adds 4% to each period (G1:0% -> G2:4% -> G3:8% -> ... -> G18:68%)
+% if the percentage is positive, the order of the mixture is from G1 to G18
+% if the percentage is negative, the mixing order is from G18 to G1
+% -> H=<color>,La=<color>,Lanta=<color>,Ac=<color>,Actin=<color>
+% ---------------------------------------------------------------------------------------
+\def\pgfPTPeriodColors{\@ifnextchar[\pgfPT at PeriodColors{\pgfPT at PeriodColors[white]}}%
+\def\pgfPT at PeriodColors[#1]#2#3{\ignorespaces%
+\pgfPTgradient at TIfalse\pgfPTgradient at TIIfalse%
+\pgfPTusecolor at Hfalse%
+\pgfPTusecolor at Lafalse\pgfPTusecolor at Lantafalse%
+\pgfPTusecolor at Acfalse\pgfPTusecolor at Actinfalse%
+\edef\pgfPTCScolorTOP{#1}%
+\edef\pgfPTCScolorMIDDLE{}%
+\edef\pgfPTCScolorBOTTOM{#1}%
+\edef\pgfPTCScolorH{#1}%
+\edef\pgfPTCScolorPI{#1}%
+\edef\pgfPTCScolorPII{#1}%
+\edef\pgfPTCScolorPIII{#1}%
+\edef\pgfPTCScolorPIV{#1}%
+\edef\pgfPTCScolorPV{#1}%
+\edef\pgfPTCScolorPVI{#1}%
+\edef\pgfPTCScolorPVII{#1}%
+\edef\pgfPTCScolorLa{#1}%
+\edef\pgfPTCScolorLanta{#1}%
+\edef\pgfPTCScolorAc{#1}%
+\edef\pgfPTCScolorActin{#1}%
+\@for\@pgfPT at tmp:=#3\do{%
+\ifx\@pgfPT at tmp\pgfPT at relax\relax\else\ifx\@pgfPT at tmp\pgfPT at space\relax\else%
+ \edef\pgfPT at handlert@test{group blending}\ifx\@pgfPT at tmp\pgfPT at handlert@test\edef\@pgfPT at tmp{group blending={}}\fi%
+ \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
+ \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
+ \edef\pgfPT at handlert@test{gradient}% gradient... type 1
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TItrue\pgfPTgradient at TIIfalse\edef\pgfPTCScolorGRADIENT{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{topcolor}% gradient... type 2
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorTOP{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{middlecolor}% gradient... type 2
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorMIDDLE{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{bottomcolor}% gradient... type 2
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTgradient at TIItrue\pgfPTgradient at TIfalse\edef\pgfPTCScolorBOTTOM{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P1}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPI{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P2}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P3}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPIII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P4}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPIV{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P5}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPV{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P6}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPVI{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{P7}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTCScolorPVII{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{H}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Htrue\edef\pgfPTCScolorH{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{La}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Latrue\edef\pgfPTCScolorLa{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{Lanta}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Lantatrue\edef\pgfPTCScolorLanta{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{Ac}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Actrue\edef\pgfPTCScolorAc{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{Actin}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPTusecolor at Actintrue\edef\pgfPTCScolorActin{\pgfPT at handlervalue}%
+ \else%
+ \edef\pgfPT at handlert@test{groupblending}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfPT at blendingtrue\edef\pgfPTblending{\pgfPT at handlervalue}%
+ \else%handler not found
+ \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTGroupColors: '\pgfPT at handler'\space in '\detokenize{#2}'\space not known! It will be ignored...}{}\fi\relax%
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi%
+\fi\fi}% end do
+\ifpgfPTgradient at TI\relax%
+\expandafter\pgfPT at dogradient@TI[0]\pgfPTCScolorGRADIENT\relax%
+\else\ifpgfPTgradient at TII\relax%
+\pgfPT at dogradient@TII[0](\pgfPTCScolorTOP,\pgfPTCScolorMIDDLE,\pgfPTCScolorBOTTOM)%
+\fi\fi%
+\pgfPT at assign@color{\pgfPTCScolorPI}\colorlet{pgfPTinnerPcolorI}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorPII}\colorlet{pgfPTinnerPcolorII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorPIII}\colorlet{pgfPTinnerPcolorIII}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorPIV}\colorlet{pgfPTinnerPcolorIV}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorPV}\colorlet{pgfPTinnerPcolorV}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorPVI}\colorlet{pgfPTinnerPcolorVI}{pgfPTassignedcolor}%
+\pgfPT at assign@color{\pgfPTCScolorPVII}\colorlet{pgfPTinnerPcolorVII}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at H\pgfPT at assign@color{\pgfPTCScolorH}\else\pgfPT at assign@color{\pgfPTCScolorPI}\fi%
+\colorlet{pgfPTinnerPcolorH}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at La\pgfPT at assign@color{\pgfPTCScolorLa}\else\pgfPT at assign@color{\pgfPTCScolorPVI}\fi%
+\colorlet{pgfPTinnerPcolorLa}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at Lanta\pgfPT at assign@color{\pgfPTCScolorLanta}\else\pgfPT at assign@color{\pgfPTCScolorPVI}\fi%
+\colorlet{pgfPTinnerPcolorLanta}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at Ac\pgfPT at assign@color{\pgfPTCScolorAc}\else\pgfPT at assign@color{\pgfPTCScolorPVII}\fi%
+\colorlet{pgfPTinnerPcolorAc}{pgfPTassignedcolor}%
+\ifpgfPTusecolor at Actin\pgfPT at assign@color{\pgfPTCScolorActin}\else\pgfPT at assign@color{\pgfPTCScolorPVII}\fi%
+\colorlet{pgfPTinnerPcolorActin}{pgfPTassignedcolor}%
+\ifpgfPT at blending%
+ % blending={color=<color>,percentage=<positive or negative integer>,mode=<add|sub|linear>}
+ \edef\pgfPTblending at color@r{1}%
+ \edef\pgfPTblending at color@g{1}%
+ \edef\pgfPTblending at color@b{1}%
+ \edef\pgfPTblending at percentage@step{4}%
+ \edef\pgfPTblending at percentage@sign{1}%
+ \edef\pgfPTblending at mode{2}%
+ \ifx\pgfPTblending\pgfPT at relax\relax\else%
+ \@for\@pgfPT at tmp:=\pgfPTblending\do{%
+ \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
+ \expandafter\pgfPT at keys@setNameValue\@pgfPT at tmp\relax%
+ \edef\pgfPT at handlert@test{color}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \colorlet{pgfPTtmpc at lor}[rgb]{\pgfPT at handlervalue}
+ \pgfPT at extract@rgb at fill{pgfPTtmpc at lor}%
+ \edef\pgfPTblending at color@r{\pgfPT at rf}%
+ \edef\pgfPTblending at color@g{\pgfPT at gf}%
+ \edef\pgfPTblending at color@b{\pgfPT at bf}%
+ \else%
+ \edef\pgfPT at handlert@test{percentage}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \pgfmathparse{int(abs(\pgfPT at handlervalue))}\edef\pgfPTblending at percentage{\pgfmathresult}%
+ \ifnum\pgfPTblending at percentage>100\relax%
+ \PackageError{pgfPT}{\textbackslash pgfPTPeriodColors::group blending percentage: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space to high! Default blending percentage (68) will be used...}{}\relax%
+ \edef\pgfPT at handlervalue{68}%
+ \fi%
+ \pgfmathparse{int(abs(\pgfPT at handlervalue/17))}\edef\pgfPTblending at percentage@step{\pgfmathresult}%
+ \pgfmathparse{sign(\pgfPT at handlervalue)}\edef\pgfPTblending at percentage@sign{\pgfmathresult}%
+ \else%
+ \edef\pgfPT at handlert@test{mode}%
+ \ifx\pgfPT at handler\pgfPT at handlert@test\pgfPT at tempfalse%
+ \edef\pgfPTblending at mode@tmp{add}%
+ \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
+ \edef\pgfPTblending at mode{0}%
+ \else%
+ \edef\pgfPTblending at mode@tmp{sub}%
+ \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
+ \edef\pgfPTblending at mode{1}%
+ \else%
+ \edef\pgfPTblending at mode@tmp{linear}%
+ \ifx\pgfPTblending at mode@tmp\pgfPT at handlervalue%
+ \edef\pgfPTblending at mode{2}%
+ \else%
+ \PackageError{pgfPT}{\textbackslash pgfPTPeriodColors::group blending mode: '\pgfPT at handlervalue'\space in '\detokenize{\pgfPTblending}'\space not known! Default blending mode (add) will be used...}{}\relax%
+ \fi\fi\fi%
+ \else%handler not found
+ \ifpgfPT at temp\PackageError{pgfPT}{\textbackslash pgfPTPeriodColors::group blending: '\pgfPT at handler'\space in '\detokenize{\pgfPTblending}'\space not known! Default value will be used...}{}\fi\relax%
+ \fi\fi\fi%
+ }% end do
+ \fi% \ifx\pgfPTblending\pgfPT at relax
+\fi%
+\@for\@pgfPT at tmp:={I,II,III,IV,V,VI,VII,H,La,Lanta,Ac,Actin}%
+\do{%
+ \pgfPT at extract@rgb at fill{pgfPTinnerPcolor\@pgfPT at tmp}%
+ \edef\pgfPTinnercolor at r{\pgfPT at rf}%
+ \edef\pgfPTinnercolor at g{\pgfPT at gf}%
+ \edef\pgfPTinnercolor at b{\pgfPT at bf}%
+ \expandafter\edef\csname pgfPTinnerPcolor\@pgfPT at tmp\endcsname{\pgfPTinnercolor at r/\pgfPTinnercolor at g/\pgfPTinnercolor at b}%
+ }%
+\edef\pgfPT at backCS@PeriodColorsList{BEGIN}%
+\pgfPT at countf=1%
+\def\pgfPT at get@rgb##1/##2/##3\relax{\edef\pgfPT at tmpc@lor at r{##1}\edef\pgfPT at tmpc@lor at g{##2}\edef\pgfPT at tmpc@lor at b{##3}}%
+\@for\@pgfPT at tmp:={H,I,II,II,II,II,II,II,II,II,III,III,III,III,III,III,III,III,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,IV,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,V,VI,VI,La,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,Lanta,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VI,VII,VII,Ac,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,Actin,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII,VII}%
+\do{%
+ \ifpgfPT at blending\relax% blending
+ \ifnum\pgfPTblending at percentage@sign=1\relax%
+ \ifnum\pgfPT at countf<3\relax% P1
+ \ifnum\pgfPT at countf=1\relax% H
+ \ifpgfPTusecolor at H%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else% He
+ \pgfmathparse{int(100-17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(17*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<11\relax% P2
+ \ifnum\pgfPT at countf<5\relax%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-3)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-3)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else%
+ \pgfmathparse{int(100-(7+\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((7+\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<19\relax% P3
+ \ifnum\pgfPT at countf<13\relax%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-11)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-11)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-1)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-1)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<37\relax% P4
+ \pgfmathparse{int(100-(\the\pgfPT at countf-19)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-19)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<55\relax% P5
+ \pgfmathparse{int(100-(\the\pgfPT at countf-37)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-37)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<87\relax% P6
+ \ifnum\pgfPT at countf<57\relax%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-55)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-55)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf>71\relax%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-68)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-68)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=57\relax% La
+ \ifpgfPTusecolor at La%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else% lanthanoids
+ \ifpgfPTusecolor at Lanta%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \fi\fi\fi%
+ \else% P7
+ \ifnum\pgfPT at countf<89\relax%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-87)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-87)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf>103\relax%
+ \pgfmathparse{int(100-(\the\pgfPT at countf-100)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((\the\pgfPT at countf-100)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=89\relax% Ac
+ \ifpgfPTusecolor at Ac%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else% actinoids
+ \ifpgfPTusecolor at Actin%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(3*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi%
+ \else% \pgfPTblending at percentage@sign=-1
+ \ifnum\pgfPT at countf<3\relax% P1
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else\ifnum\pgfPT at countf<11\relax% P2
+ \ifnum\pgfPT at countf<5\relax%
+ \pgfmathparse{int(100-(20-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((20-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else%
+ \pgfmathparse{int(100-(10-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((10-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<19\relax% P3
+ \ifnum\pgfPT at countf<13\relax%
+ \pgfmathparse{int(100-(28-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((28-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else%
+ \pgfmathparse{int(100-(18-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((18-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else\ifnum\pgfPT at countf<37\relax% P4
+ \pgfmathparse{int(100-(36-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((36-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<55\relax% P5
+ \pgfmathparse{int(100-(54-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((54-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf<87\relax% P6
+ \ifnum\pgfPT at countf<57\relax%
+ \pgfmathparse{int(100-(72-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((72-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf>71\relax%
+ \pgfmathparse{int(100-(85-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((85-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=57\relax% La
+ \ifpgfPTusecolor at La%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else% lanthanoids
+ \ifpgfPTusecolor at Lanta%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \fi\fi\fi%
+ \else% P7
+ \ifnum\pgfPT at countf<89\relax%
+ \pgfmathparse{int(100-(104-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((104-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf>103\relax%
+ \pgfmathparse{int(100-(118-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int((118-\the\pgfPT at countf)*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \else\ifnum\pgfPT at countf=89\relax% Ac
+ \ifpgfPTusecolor at Ac%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \else% actinoids
+ \ifpgfPTusecolor at Actin%
+ \edef\pgfPT at blending@prop at i{100}%
+ \edef\pgfPT at blending@prop at ii{0}%
+ \else%
+ \pgfmathparse{int(100-14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at i{\pgfmathresult}%
+ \pgfmathparse{int(14*\pgfPTblending at percentage@step)}\edef\pgfPT at blending@prop at ii{\pgfmathresult}%
+ \fi%
+ \fi\fi\fi%
+ \fi\fi\fi\fi\fi\fi%
+ \fi% END \pgfPTblending at percentage@sign
+ \edef\pgfPT at tmpc@lor{\csname pgfPTinnerPcolor\@pgfPT at tmp\endcsname}%
+ \expandafter\pgfPT at get@rgb\pgfPT at tmpc@lor\relax%
+ \ifcase\pgfPTblending at mode\relax%
+ % 0 -> add
+ \@pgfPT at mix@additive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
+ \or% 1 -> sub
+ \@pgfPT at mix@subtractive[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
+ \or% 2 -> linear
+ \@pgfPT at mix@linear[\pgfPT at blending@prop at i:\pgfPT at blending@prop at ii](\pgfPT at tmpc@lor at r/\pgfPT at tmpc@lor at g/\pgfPT at tmpc@lor at b,\pgfPTblending at color@r/\pgfPTblending at color@g/\pgfPTblending at color@b)%
+ \fi% end ifcase
+ \pgfPT at extract@rgb at fill{pgfPTmixedcolor}%
+ \edef\pgfPT at backCS@PeriodColorsList{\pgfPT at backCS@PeriodColorsList,\pgfPT at rf/\pgfPT at gf/\pgfPT at bf}%
+ \else% no blending
+ \edef\pgfPT at backCS@PeriodColorsList{\pgfPT at backCS@PeriodColorsList,\csname pgfPTinnerPcolor\@pgfPT at tmp\endcsname}%
+ \fi%
+ \advance\pgfPT at countf by1\relax%
+ }% end do
+\expandafter\@pgfPT at list@purge \pgfPT at backCS@PeriodColorsList[pgfPT at backCS@PeriodColorsList]\relax%
+\pgfPTnewColorScheme{#2}{\pgfPT at backCS@PeriodColorsList}%
+}% END \pgfPTPeriodColors
+%
+%
+% THE GRADIENT MACROS
+% \pgfPT at dogradient@TI[0 or 1]{list}\relax % 0->P or 1->G
+\def\pgfPT at dogradient@TI[#1]#2\relax{%
+\ignorespaces%
+\pgfPT at counta=0\pgfPT at countb=0\pgfPT at countc=0%
+\def\@pgfPT at gradientTI@list{BEGIN}%
+\ifnum#1=0\relax% Period
+ \edef\@pgfPT at gradientTI@PorG{7}%
+ \@for\@pgfPT at tmp:=#2\do{%
+ \expandafter\@pgfPT at grad@get at n@Pcolor \@pgfPT at tmp\relax%
+ \advance\pgfPT at counta by1\relax%
+ \edef\@pgfPT at gradientTI@list{\@pgfPT at gradientTI@list,\@pgfPT at grad@ntmp}%
+ \expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@colortmp}%
+ \expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@ntmp}%
+ }%
+\else% Group
+ \edef\@pgfPT at gradientTI@PorG{18}%
+ \@for\@pgfPT at tmp:=#2\do{%
+ \expandafter\@pgfPT at grad@get at n@Gcolor \@pgfPT at tmp\relax%
+ \advance\pgfPT at counta by1\relax%
+ \edef\@pgfPT at gradientTI@list{\@pgfPT at gradientTI@list,\@pgfPT at grad@ntmp}%
+ \expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@colortmp}%
+ \expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\@pgfPT at grad@ntmp\endcsname{\@pgfPT at grad@ntmp}%
+ }%
+\fi%
+\expandafter\@pgfPT at list@purge \@pgfPT at gradientTI@list[@pgfPT at gradientTI@list]\relax%
+\edef\@pgfPT at gradientTI@unsortedlist{\@pgfPT at gradientTI@list}%
+\expandafter\pgfPT at bubblesort\@pgfPT at gradientTI@list\relax%
+\pgfPT at countc=0\pgfPT at counte=0%
+\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
+\pgfmathparse{array({\pgfPT at sortedlist},\the\pgfPT at countc)}%
+\ifnum\pgfPT at countc=0\relax\edef\pgfPT at sortedlist@first{\pgfmathresult}\fi%
+\advance\pgfPT at countc by1\relax%
+\ifnum\pgfPT at countc=\pgfPT at counta\relax\edef\pgfPT at sortedlist@last{\pgfmathresult}\fi%
+\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@n\@Roman\pgfmathresult\endcsname}%
+\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@color\@Roman\pgfmathresult\endcsname}%
+}%
+\ifnum\pgfPT at sortedlist@first>1\relax%
+\pgfPT at countc=1%
+\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
+\expandafter\edef\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname}%
+\expandafter\edef\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname}%
+\advance\pgfPT at countc by1\relax%
+}%
+\pgfPT at countc=1\pgfPT at countd=1%
+\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
+\ifnum\pgfPT at countd=1\relax%
+\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname{1}%
+\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countd\endcsname}%
+\advance\pgfPT at countd by1\relax%
+\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname}%
+\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname}%
+\else%
+\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname}%
+\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname}%
+\fi%
+\advance\pgfPT at countd by1\relax%
+\advance\pgfPT at countc by1\relax%
+}%
+\advance\pgfPT at counta by1\relax%
+\pgfPT at counte=1\relax%
+\edef\pgfPT at sortedlist{1,\pgfPT at sortedlist}%
+\fi% \ifnum\pgfPT at sortedlist@first>1
+\ifnum\pgfPT at sortedlist@last<\@pgfPT at gradientTI@PorG\relax%
+\ifnum\pgfPT at sortedlist@first=1\relax%
+\pgfPT at countc=1%
+\@for\@pgfPT at tmp:=\pgfPT at sortedlist\do{%
+\expandafter\edef\csname @pgfPT at gradientTI@ncopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname}%
+\expandafter\edef\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname}%
+\advance\pgfPT at countc by1\relax%
+}%
+\fi%
+\pgfPT at countc=\pgfPT at counta\ifnum\pgfPT at counte=1\relax\advance\pgfPT at countc by-1\relax\fi%
+\pgfPT at countd=\pgfPT at counta\advance\pgfPT at countd by1\relax%
+\expandafter\edef\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countd\endcsname{\@pgfPT at gradientTI@PorG}%
+\expandafter\edef\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countd\endcsname{\csname @pgfPT at gradientTI@colorcopy\@Roman\pgfPT at countc\endcsname}%
+\edef\pgfPT at sortedlist{\pgfPT at sortedlist,\@pgfPT at gradientTI@PorG}%
+\advance\pgfPT at counta by1\relax%
+\fi% \ifnum\pgfPT at sortedlist@last<\@pgfPT at gradientTI@PorG
+\edef\@pgfPT at gradientTI@list{\pgfPT at sortedlist}%
+\edef\@pgfPT at gradientTI@foreachlist{}%
+\@for\@pgfPT at tmp:=\@pgfPT at gradientTI@list\do{%
+ \advance\pgfPT at countb by1\relax%
+ \ifnum\pgfPT at countb<\pgfPT at counta\relax%
+ \edef\@pgfPT at gradientTI@foreachlist at n{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countb\endcsname}%
+ \pgfmathsetcount{\pgfPT at countc}{\pgfPT at countb+1}%
+ \edef\@pgfPT at gradientTI@foreachlist at nf{\csname @pgfPT at gradientTI@n\@Roman\pgfPT at countc\endcsname}%
+ \pgfmathparse{int(\@pgfPT at gradientTI@foreachlist at nf-\@pgfPT at gradientTI@foreachlist at n+1)}%
+ \edef\@pgfPT at gradientTI@foreachlist at steps{\pgfmathresult}%
+ \edef\@pgfPT at gradientTI@foreachlist at coli{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countb\endcsname}%
+ \edef\@pgfPT at gradientTI@foreachlist at colf{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countc\endcsname}%
+ \edef\@pgfPT at gradientTI@foreachlist{\@pgfPT at gradientTI@foreachlist\@pgfPT at gradientTI@foreachlist at n/\@pgfPT at gradientTI@foreachlist at steps/\@pgfPT at gradientTI@foreachlist at coli/\@pgfPT at gradientTI@foreachlist at colf,}%
+ \else%
+ \edef\@pgfPT at gradientTI@foreachlist at n{\@pgfPT at gradientTI@PorG}%
+ \edef\@pgfPT at gradientTI@foreachlist at steps{2}%
+ \edef\@pgfPT at gradientTI@foreachlist at coli{\csname @pgfPT at gradientTI@color\@Roman\pgfPT at countb\endcsname}%
+ \edef\@pgfPT at gradientTI@foreachlist at colf{\@pgfPT at gradientTI@foreachlist at coli}%
+ \edef\@pgfPT at gradientTI@foreachlist{\@pgfPT at gradientTI@foreachlist\@pgfPT at gradientTI@foreachlist at n/\@pgfPT at gradientTI@foreachlist at steps/\@pgfPT at gradientTI@foreachlist at coli/\@pgfPT at gradientTI@foreachlist at colf}%
+ \fi%
+ }% end do
+\ifnum#1=0\relax\def\@pgfPT at PorG{P}\else\def\@pgfPT at PorG{G}\fi%
+\foreach \pgfPTx/\pgfPTsteps/\pgfPTcoli/\pgfPTcolf in \@pgfPT at gradientTI@foreachlist {%
+ \@pgfPT at gradient[\@pgfPT at PorG,\pgfPTx,\pgfPTsteps](\pgfPTcoli;\pgfPTcolf)%
+ }%
+}% end \pgfPT at dogradient@TI
+%
+% \pgfPT at dogradient@TII[0 or 1](top or left color,middle color,bottom or right color)
+\def\pgfPT at dogradient@TII[#1](#2,#3,#4){%
+\edef\pgfPT at test{#3}%
+\ifx\pgfPT at test\pgfPT at relax\relax%
+\ifnum#1=0\relax\@pgfPT at gradient[P,1,7](#2;#4)\else\@pgfPT at gradient[G,1,18](#2;#4)\fi%
+\else%
+\ifnum#1=0\relax\@pgfPT at gradient[P,1,4](#2;#3)\@pgfPT at gradient[P,4,4](#3;#4)%
+\else\@pgfPT at gradient[G,1,9](#2;#3)\@pgfPT at gradient[G,9,10](#3;#4)\fi%
+\fi%
+}%
+%
+% \@pgfPT at gradient[P or G,n_initial,steps](start_color; end_color)
+% color-> named color OR named color a!##!named color b OR *[model:values], e.g. *[rgb:.5;.2;.3] ->
+% --> (see Table 3: Supported color models on page 10 of the documentation of xcolor v2.14 (2022/06/12)
+\def\@pgfPT at gradient[#1,#2,#3](#4;#5){\ignorespaces%
+\edef\pgfPTgrad at steps{#3}%
+\pgfPT at assign@color{#4}%
+\colorlet{pgfPTgradstartcolor}[rgb]{pgfPTassignedcolor}%
+\pgfPT at assign@color{#5}%
+\colorlet{pgfPTgradendcolor}[rgb]{pgfPTassignedcolor}%
+\pgfPT at extract@rgb at fill{pgfPTgradstartcolor}%
+\edef\pgfPTgradstartcolor at r{\pgfPT at rf}%
+\edef\pgfPTgradstartcolor at g{\pgfPT at gf}%
+\edef\pgfPTgradstartcolor at b{\pgfPT at bf}%
+\pgfPT at extract@rgb at fill{pgfPTgradendcolor}%
+\edef\pgfPTgradendcolor at r{\pgfPT at rf}%
+\edef\pgfPTgradendcolor at g{\pgfPT at gf}%
+\edef\pgfPTgradendcolor at b{\pgfPT at bf}%
+\pgfmathparse{\pgfPTgradendcolor at r-\pgfPTgradstartcolor at r}\edef\pgfPTgrad at delta@r{\pgfmathresult}%
+\pgfmathparse{\pgfPTgradendcolor at g-\pgfPTgradstartcolor at g}\edef\pgfPTgrad at delta@g{\pgfmathresult}%
+\pgfmathparse{\pgfPTgradendcolor at b-\pgfPTgradstartcolor at b}\edef\pgfPTgrad at delta@b{\pgfmathresult}%
+\pgfmathparse{sign(\pgfPTgrad at delta@r)}\edef\pgfPTgrad at delta@r at sign{\pgfmathresult}%
+\pgfmathparse{sign(\pgfPTgrad at delta@g)}\edef\pgfPTgrad at delta@g at sign{\pgfmathresult}%
+\pgfmathparse{sign(\pgfPTgrad at delta@b)}\edef\pgfPTgrad at delta@b at sign{\pgfmathresult}%
+\foreach \n in {1,...,\pgfPTgrad at steps}{%
+ \pgfmathparse{\pgfPTgradstartcolor at r+\pgfPTgrad at delta@r*(\n-1)/(\pgfPTgrad at steps-1)}\edef\pgfPTgrad at red{\pgfmathresult}%
+ \pgfmathparse{\pgfPTgradstartcolor at g+\pgfPTgrad at delta@g*(\n-1)/(\pgfPTgrad at steps-1)}\edef\pgfPTgrad at green{\pgfmathresult}%
+ \pgfmathparse{\pgfPTgradstartcolor at b+\pgfPTgrad at delta@b*(\n-1)/(\pgfPTgrad at steps-1)}\edef\pgfPTgrad at blue{\pgfmathresult}%
+ \pgfmathparse{int(\n-1+#2)}\edef\pgfPT at niplusstep{\pgfmathresult}%
+ \expandafter\xdef\csname pgfPTCScolor#1\@Roman\pgfPT at niplusstep\endcsname{*[rgb:\pgfPTgrad at red,\pgfPTgrad at green,\pgfPTgrad at blue]}%
+ }%
+}%
+%
+%
+% AUX MACRO FOR \xABCLEANING\xBB LISTS
+\def\@pgfPT at list@purge BEGIN,#1[#2]\relax{\expandafter\edef\csname#2\endcsname{#1}}%
+%
+%
+% BUBBLE SORT
+% adapted from https://tex.stackexchange.com/questions/481678/apply-a-numeric-bubble-sort-to-output-strings-which-are-specified-by-names-code
+\def\pgfPT at listterminator{-1}%
+\def\pgfPT at bubblesort#1\relax{\def\pgfPT at sortedlist{}\pgfPT at sortlist#1,\pgfPT at listterminator,\relax}%
+\def\pgfPT at sortlist#1,#2,#3\relax{%
+ \ifnum#2=\pgfPT at listterminator\relax%
+ \edef\pgfPT at sortedlist{\pgfPT at sortedlist#1}%
+ \else
+ \ifnum#1<#2\relax%
+ \edef\pgfPT at sortedlist{\pgfPT at sortedlist#1,}%
+ \pgfPT at sortlist#2,#3\relax%
+ \else%
+ \let\pgfPT at tmplist\pgfPT at sortedlist%
+ \def\pgfPT at sortedlist{}%
+ \expandafter\pgfPT at sortlist\pgfPT at tmplist#2,#1,#3\relax%
+ \fi%
+ \fi%
+}%
+%
+%
+% THE COLOR MACROS
+\def\@pgfPT at grad@get at n@Gcolor G#1=#2\relax{\edef\@pgfPT at grad@ntmp{#1}\edef\@pgfPT at grad@colortmp{#2}}%
+\def\@pgfPT at grad@get at n@Pcolor P#1=#2\relax{\edef\@pgfPT at grad@ntmp{#1}\edef\@pgfPT at grad@colortmp{#2}}%
+%
+\def\pgfPT at assign@color#1{\expandafter\pgfPT at teststar#1\relax}%
+\def\pgfPT at teststar#1#2\relax{\edef\pgfPT at test{#1}\edef\pgfPT at charstar{*}%
+\ifx\pgfPT at test\pgfPT at charstar\relax\pgfPT at assign@color at bymodel{#2}\else\pgfPT at assign@color at byname{#1#2}\fi%
+}%
+\def\pgfPT at assign@color at bymodel#1{\expandafter\@pgfPT at assign@color at bymodel#1\relax}%
+\def\@pgfPT at assign@color at bymodel[#1:#2]\relax{%
+\edef\@pgfPT at assign@color at bymodel@arg{BEGIN}\expandafter\@pgfPT at assign@color at bymodel@process at arg#2;\relax%
+\expandafter\@pgfPT at list@purge \@pgfPT at assign@color at bymodel@arg[@pgfPT at assign@color at bymodel@arg]\relax%
+\definecolor{pgfPTtmpassignedcolor}{#1}{\@pgfPT at assign@color at bymodel@arg}\colorlet{pgfPTassignedcolor}[rgb]{pgfPTtmpassignedcolor}%
+}%
+\def\@pgfPT at assign@color at bymodel@process at arg#1;#2\relax{%
+\edef\teste{#2}%
+\ifx\teste\pgfPT at relax\edef\@pgfPT at assign@color at bymodel@arg{\@pgfPT at assign@color at bymodel@arg,#1}\else%
+\edef\@pgfPT at assign@color at bymodel@arg{\@pgfPT at assign@color at bymodel@arg,#1}\expandafter\@pgfPT at assign@color at bymodel@process at arg#2\relax\fi%
+}%
+\def\pgfPT at assign@color at byname#1{\colorlet{pgfPTassignedcolor}[rgb]{#1}}%
+%
+%
+% COMBINE TWO CS
+% mode: 0 -> add ; 1 -> sub ; 2 -> linear
+\def\pgfPTCScombine{\@ifnextchar[\pgfPT at CS@combine{\@pgfPT at CS@combine at nooptions}}%
+\def\@pgfPT at CS@combine at nooptions#1{%
+\edef\pgfPT at CS@combine at options@mode{2}%
+\edef\pgfPT at CS@combine at options@prop at i{1}%
+\edef\pgfPT at CS@combine at options@prop at ii{1}%
+\expandafter\@pgfPT at CS@combine[1:1,0]#1\relax%
+}%
+\def\pgfPT at CS@combine[#1]#2{\ignorespaces%
+\edef\pgfPT at CS@combine at options@prop at i{1}%
+\edef\pgfPT at CS@combine at options@prop at ii{1}%
+\edef\pgfPT at CS@combine at options@mode{0}% add
+\def\pgfPT at CS@combine at options@firstchar##1##2\relax{\edef\pgfPT at tmp{##1}}%
+\@for\@pgfPT at tmp:=#1\do{%
+ \expandafter\pgfPT at CS@combine at options@firstchar\@pgfPT at tmp\relax%
+ \ifcat1\pgfPT at tmp\relax\pgfPT at temptrue%
+ \def\pgfPT at CS@combine at options@ispropOK##1##2##3##4##5 \relax{\edef\pgfPT at proptestOK{:}%
+ \edef\pgfPT at proptotest{##2}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
+ \else\edef\pgfPT at proptotest{##3}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
+ \else\edef\pgfPT at proptotest{##4}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
+ \else\edef\pgfPT at proptotest{##5}\ifx\pgfPT at proptestOK\pgfPT at proptotest\pgfPT at tempfalse%
+ \else\ifpgfPT at temp\PackageError{pgfPT}{\string\pgfPTCScombine: something went wrong in '\detokenize{#1}'\space: did you use the proportion sign ':'? The maximum value of proportion is 999... Default value '1:1' will be used...}{}\fi\relax%
+ \fi\fi\fi\fi%
+ }%
+ \expandafter\pgfPT at CS@combine at options@ispropOK\@pgfPT at tmp END \relax%
+ \ifpgfPT at temp\else\def\pgfPT at CS@combine at options@getprop##1:##2\relax{\edef\pgfPT at CS@combine at options@prop at i{##1}\edef\pgfPT at CS@combine at options@prop at ii{##2}}%
+ \expandafter\pgfPT at CS@combine at options@getprop\@pgfPT at tmp\relax\fi%
+ \else%
+ \pgfPT at temptrue% se acabar os ifx sem encontrar o handler gera a msg de erro...
+ \edef\pgfPT at CS@combine at options@tmpmode{add}%
+ \ifx\@pgfPT at tmp\pgfPT at CS@combine at options@tmpmode\pgfPT at tempfalse%
+ \edef\pgfPT at CS@combine at options@mode{0}%
+ \else%
+ \edef\pgfPT at CS@combine at options@tmpmode{sub}%
+ \ifx\@pgfPT at tmp\pgfPT at CS@combine at options@tmpmode\pgfPT at tempfalse%
+ \edef\pgfPT at CS@combine at options@mode{1}%
+ \else%
+ \edef\pgfPT at CS@combine at options@tmpmode{linear}%
+ \ifx\@pgfPT at tmp\pgfPT at CS@combine at options@tmpmode\pgfPT at tempfalse%
+ \edef\pgfPT at CS@combine at options@mode{2}%
+ \else%handler not found
+ \ifpgfPT at temp\PackageError{pgfPT}{\string\pgfPTCScombine: '\@pgfPT at tmp'\space in '\detokenize{#1}'\space not known! Default value 'add' will be used...}{}\fi\relax%
+ \fi\fi\fi%
+ \fi%
+ }%
+\expandafter\@pgfPT at CS@combine[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii,\pgfPT at CS@combine at options@mode]#2\relax%
+}%
+\def\@pgfPT at CS@combine[#1:#2,#3]#4\relax{\ignorespaces%
+\def\@pgfPT at CS@getNames##1,##2,##3\relax{\edef\@pgfPT at CS@name at i{##1}\edef\@pgfPT at CS@name at ii{##2}\edef\@pgfPT at CS@name at iii{##3}}%
+\expandafter\@pgfPT at CS@getNames#4\relax%
+\edef\pgfPT at CStmp@one{\csname pgfPT at backColorsScheme@\@pgfPT at CS@name at i\endcsname}
+\edef\pgfPT at CStmp@two{\csname pgfPT at backColorsScheme@\@pgfPT at CS@name at ii\endcsname}
+\if\pgfPT at CStmp@one\pgfPT at relax%
+\PackageError{pgfPT}{\string\pgfPTCScombine: the color scheme '\@pgfPT at CS@name at i'\space is not defined! A full white color scheme will be used...}{}%
+\pgfPTnewColorScheme[1/1/1]{pgfPTCSnameerror}{1/1/1}%
+\edef\pgfPT at CStmp@one{pgfPT at backColorsScheme@pgfPTCSnameerror}%
+\fi%
+\if\pgfPT at CStmp@two\pgfPT at relax%
+\PackageError{pgfPT}{\string\pgfPTCScombine: the color scheme '\@pgfPT at CS@name at ii'\space is not defined! A full white color scheme will be used...}{}%
+\pgfPTnewColorScheme[1/1/1]{pgfPTCSnameerror}{1/1/1}%
+\edef\pgfPT at CStmp@two{pgfPT at backColorsScheme@pgfPTCSnameerror}%\fi%
+\fi%
+% sum...
+\edef\@pgfPT at listtosum{(\pgfPT at CStmp@one+\pgfPT at CStmp@two)}%
+\expandafter\pgfPT at somalistas\@pgfPT at listtosum\relax%
+% DO THE NEW CS
+\pgfPTnewColorScheme[1/1/1]{\@pgfPT at CS@name at iii}{\pgfPT at sum@list}%
+}% END \pgfPTCScombine
+%
+% SUM TWO LISTS
+\edef\@pgfPT at ENDLIST{ENDLIST}%
+\def\pgfPT at somalistas(#1+#2){%
+\edef\pgfPT at lista@i{0}\edef\pgfPT at lista@ii{0}\edef\pgfPT at lista@control{0}\edef\pgfPT at somafeita{0}%
+\edef\pgfPT at sum@list{BEGIN}%
+\edef\pgfPT at listas{#1,\@pgfPT at ENDLIST+#2,\@pgfPT at ENDLIST}\expandafter\@pgfPT at somalistas\pgfPT at listas\relax%
+}%
+\def\@pgfPT at somalistas#1,#2+#3,#4\relax{\ignorespaces%
+\ifcase\pgfPT at lista@control\relax%
+% case 0: both have values
+\expandafter\pgfPT at lista@i at rgb#1\relax%
+\expandafter\pgfPT at lista@ii at rgb#3\relax%
+\ifcase\pgfPT at CS@combine at options@mode\relax%
+% 0 -> add
+\@pgfPT at mix@additive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
+\or% 1 -> sub
+\@pgfPT at mix@subtractive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
+\or% 2 -> linear
+\@pgfPT at mix@linear[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
+\fi%
+\or% case 1: list one ended
+\expandafter\pgfPT at lista@ii at rgb#1#3\relax%
+\ifcase\pgfPT at CS@combine at options@mode\relax%
+% 0 -> add
+\@pgfPT at mix@additive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at lastval@r/\pgfPT at lista@i at lastval@g/\pgfPT at lista@i at lastval@b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
+\or% 1 -> sub
+\@pgfPT at mix@subtractive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at lastval@r/\pgfPT at lista@i at lastval@g/\pgfPT at lista@i at lastval@b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
+\or% 2 -> linear
+\@pgfPT at mix@linear[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at lastval@r/\pgfPT at lista@i at lastval@g/\pgfPT at lista@i at lastval@b,\pgfPT at lista@ii at r/\pgfPT at lista@ii at g/\pgfPT at lista@ii at b)%
+\fi%
+\or% case 2: list two ended
+\expandafter\pgfPT at lista@i at rgb#1\relax%
+\ifcase\pgfPT at CS@combine at options@mode\relax%
+% 0 -> add
+\@pgfPT at mix@additive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at lastval@r/\pgfPT at lista@ii at lastval@g/\pgfPT at lista@ii at lastval@b)%
+\or% 1 -> sub
+\@pgfPT at mix@subtractive[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at lastval@r/\pgfPT at lista@ii at lastval@g/\pgfPT at lista@ii at lastval@b)%
+\or% 2 -> linear
+\@pgfPT at mix@linear[\pgfPT at CS@combine at options@prop at i:\pgfPT at CS@combine at options@prop at ii](\pgfPT at lista@i at r/\pgfPT at lista@i at g/\pgfPT at lista@i at b,\pgfPT at lista@ii at lastval@r/\pgfPT at lista@ii at lastval@g/\pgfPT at lista@ii at lastval@b)%
+\fi%
+\or% case 3: both lists ended
+\expandafter\@pgfPT at list@purge \pgfPT at sum@list[pgfPT at sum@list]\relax%
+\edef\pgfPT at somafeita{1}%
+\fi%
+\edef\pgfPT at teste{#2}\ifx\pgfPT at teste\@pgfPT at ENDLIST\edef\pgfPT at lista@i{1}\fi%
+\edef\pgfPT at teste{#4}\ifx\pgfPT at teste\@pgfPT at ENDLIST\edef\pgfPT at lista@ii{2}\fi%
+\ifnum\pgfPT at lista@i=1\relax\ifnum\pgfPT at lista@control=0\relax\edef\pgfPT at lista@i at lastval@r{\pgfPT at lista@i at r}%
+\edef\pgfPT at lista@i at lastval@g{\pgfPT at lista@i at g}\edef\pgfPT at lista@i at lastval@b{\pgfPT at lista@i at b}\fi%
+\edef\pgfPT at lista@i at remainder{,\@pgfPT at ENDLIST}\else\edef\pgfPT at lista@i at remainder{#2}\fi%
+\ifnum\pgfPT at lista@ii=2\relax\ifnum\pgfPT at lista@control=0\relax\edef\pgfPT at lista@ii at lastval@r{\pgfPT at lista@ii at r}%
+\edef\pgfPT at lista@ii at lastval@g{\pgfPT at lista@ii at g}\edef\pgfPT at lista@ii at lastval@b{\pgfPT at lista@ii at b}\fi%
+\edef\pgfPT at lista@ii at remainder{,\@pgfPT at ENDLIST}\else\edef\pgfPT at lista@ii at remainder{#4}\fi%
+\pgfmathparse{int(\pgfPT at lista@i+\pgfPT at lista@ii)}\edef\pgfPT at lista@control{\pgfmathresult}%
+\ifnum\pgfPT at somafeita=0\relax\edef\pgfPT at sum@list{\pgfPT at sum@list,\pgfPT at CS@mix at r/\pgfPT at CS@mix at g/\pgfPT at CS@mix at b}%
+\edef\pgfPT at listas{\pgfPT at lista@i at remainder+\pgfPT at lista@ii at remainder}\expandafter\@pgfPT at somalistas\pgfPT at listas\relax\fi%
+}%
+\def\pgfPT at lista@i at rgb#1/#2/#3\relax{\edef\pgfPT at lista@i at r{#1}\edef\pgfPT at lista@i at g{#2}\edef\pgfPT at lista@i at b{#3}}%
+\def\pgfPT at lista@ii at rgb#1/#2/#3\relax{\edef\pgfPT at lista@ii at r{#1}\edef\pgfPT at lista@ii at g{#2}\edef\pgfPT at lista@ii at b{#3}}%
+%
+%
+% ---- Adding two colors (subtractive) with n parts of color one and k parts of color two ----
+% Actually, you get green from mixing (subtractively) yellow and cyan.
+% Yellow is red + green (255, 255, 0), cyan is green + blue (0, 255, 255).
+% Now make their opposite colors: blue (0, 0, 255) and red (255, 0, 0).
+% Mix them additively and you get purple (255, 0, 255).
+% Make its opposite and you get green (0, 255, 0).
+% In other words, you can get a subtractive mix as the opposite of the additive mix of the opposites of your two colors.
+% Finding a complementary color is very simple in the RGB model:
+% For any given color, for example, red (#FF0000), you need to find the color, which, after being added to red, creates white (0xFFFFFF).
+% Naturally, all you need to do, is subtract red from white and get cyan (0xFFFFFF - 0xFF0000 = 0x00FFFF).
+\def\pgfPT at mix@subtractive{\@ifnextchar[\@pgfPT at mix@subtractive{\@pgfPT at mix@subtractive[1:1]}}%
+\def\@pgfPT at mix@subtractive[#1:#2](#3/#4/#5,#6/#7/#8){%
+% color one -> opposite(color one) = (1-red)/(1-green)/(1-blue)
+\pgfmathparse{1-#3}\edef\pgfPT at CS@colorone at not@r{\pgfmathresult}%
+\pgfmathparse{1-#4}\edef\pgfPT at CS@colorone at not@g{\pgfmathresult}%
+\pgfmathparse{1-#5}\edef\pgfPT at CS@colorone at not@b{\pgfmathresult}%
+% color two -> opposite(color two) = (1-red)/(1-green)/(1-blue)
+\pgfmathparse{1-#6}\edef\pgfPT at CS@colortwo at not@r{\pgfmathresult}%
+\pgfmathparse{1-#7}\edef\pgfPT at CS@colortwo at not@g{\pgfmathresult}%
+\pgfmathparse{1-#8}\edef\pgfPT at CS@colortwo at not@b{\pgfmathresult}%
+% sum opposite(color one) + opposite(color two)
+\pgfmathparse{#1*\pgfPT at CS@colorone at not@r+#2*\pgfPT at CS@colortwo at not@r}\edef\pgfPT at CS@sum at r{\pgfmathresult}%
+\pgfmathparse{#1*\pgfPT at CS@colorone at not@g+#2*\pgfPT at CS@colortwo at not@g}\edef\pgfPT at CS@sum at g{\pgfmathresult}%
+\pgfmathparse{#1*\pgfPT at CS@colorone at not@b+#2*\pgfPT at CS@colortwo at not@b}\edef\pgfPT at CS@sum at b{\pgfmathresult}%
+%
+\pgfmathparse{max(\pgfPT at CS@sum at r,\pgfPT at CS@sum at g,\pgfPT at CS@sum at b)}\edef\pgfPT at CS@sum at max{\pgfmathresult}%
+\pgfmathgreater{\pgfPT at CS@sum at max}{1}\edef\pgfPT at CS@sum at maxIsGreater{\pgfmathresult}%
+\ifnum\pgfPT at CS@sum at maxIsGreater=1\relax%
+\pgfmathparse{\pgfPT at CS@sum at r/\pgfPT at CS@sum at max}\edef\pgfPT at CS@sum at r{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@sum at g/\pgfPT at CS@sum at max}\edef\pgfPT at CS@sum at g{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@sum at b/\pgfPT at CS@sum at max}\edef\pgfPT at CS@sum at b{\pgfmathresult}%
+\fi%
+% opposite sum
+\pgfmathparse{1-\pgfPT at CS@sum at r}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
+\pgfmathparse{1-\pgfPT at CS@sum at g}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
+\pgfmathparse{1-\pgfPT at CS@sum at b}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
+%
+\definecolor{pgfPTmixedcolor}{rgb}{\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b}%
+}%
+%
+% ---- Adding two colors (additive) with n parts of color one and k parts of color two ----
+\def\pgfPT at mix@additive{\@ifnextchar[\@pgfPT at mix@additive{\@pgfPT at mix@additive[1:1]}}%
+\def\@pgfPT at mix@additive[#1:#2](#3/#4/#5,#6/#7/#8){%
+\pgfmathparse{#1*#3+#2*#6}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
+\pgfmathparse{#1*#4+#2*#7}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
+\pgfmathparse{#1*#5+#2*#8}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
+\pgfmathparse{max(\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b)}\edef\pgfPT at CS@sum at max{\pgfmathresult}%
+\pgfmathgreater{\pgfPT at CS@sum at max}{1}\edef\pgfPT at CS@sum at maxIsGreater{\pgfmathresult}%
+\ifnum\pgfPT at CS@sum at maxIsGreater=1\relax%
+\pgfmathparse{\pgfPT at CS@mix at r/\pgfPT at CS@sum at max}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@mix at g/\pgfPT at CS@sum at max}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@mix at b/\pgfPT at CS@sum at max}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
+\fi%
+\definecolor{pgfPTmixedcolor}{rgb}{\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b}%
+}%
+%
+% Color mixing (as in xcolor)
+% \xAB In general, we use linear interpolation for color mixing: mix(C1, C2, p) = p * C1 + (1 - p) * C2 \xBB
+\def\pgfPT at mix@linear{\@ifnextchar[\@pgfPT at mix@linear{\@pgfPT at mix@linear[1:1]}}%
+\def\@pgfPT at mix@linear[#1:#2](#3/#4/#5,#6/#7/#8){%
+\pgfmathparse{#1/(#1+#2)}\edef\pgfPT at CS@mix at p{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@mix at p*#3+(1-\pgfPT at CS@mix at p)*#6}\edef\pgfPT at CS@mix at r{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@mix at p*#4+(1-\pgfPT at CS@mix at p)*#7}\edef\pgfPT at CS@mix at g{\pgfmathresult}%
+\pgfmathparse{\pgfPT at CS@mix at p*#5+(1-\pgfPT at CS@mix at p)*#8}\edef\pgfPT at CS@mix at b{\pgfmathresult}%
+\definecolor{pgfPTmixedcolor}{rgb}{\pgfPT at CS@mix at r,\pgfPT at CS@mix at g,\pgfPT at CS@mix at b}%
+}%
+%
+%
+% \pgfPTCSwrite[filename]{List of CSNames}
+\begingroup%
+\catcode`\|=0%
+\catcode`\\=11%
+|gdef|pgfPTCSwrite{|@ifnextchar[|pgfPT at CSwrite{|pgfPT at CSwrite[]}}%
+|gdef|pgfPT at CSwrite[#1]#2{%
+|pgfPT at tempfalse%
+|edef|pgfPT at CSnamesprovided{#2}%
+|ifx|pgfPT at CSnamesprovided|pgfPT at relax%
+|PackageError{pgfPT}{\pgfPTCSwrite: no Color Scheme names provided. No file will be written...}{}|relax%
+|else%
+|pgfPT at temptrue|relax%
+|xdef|pgfPT at filenameprovided{#1}%
+|ifx|pgfPT at filenameprovided|pgfPT at relax|relax%
+% setting the file name with the first name of the list
+|def|pgfPT at setfilename##1,##2 |relax{|edef|pgfPT at filename{##1}}%
+|expandafter|pgfPT at setfilename#2, |relax%
+|else%
+|edef|pgfPT at filename{#1}%
+|fi|fi%
+|ifpgfPT at temp%
+|immediate|newwrite|pgfPT at CSfile%
+|immediate|openout|pgfPT at CSfile=|pgfPT at filename.tex%
+|@for|@pgfPT at tmp:=#2|do{%
+|edef|pgfPT at CS@contents{|csname pgfPT at backColorsScheme@|@pgfPT at tmp|endcsname}%
+|if|pgfPT at CS@contents|relax%
+|PackageError{pgfPT}{\pgfPTCSwrite: the named Color Scheme you provided ('|@pgfPT at tmp') doesn't exist. It will not be written to file...}{}|relax%
+|else%
+|immediate|write|pgfPT at CSfile{%
+\pgfPTnewColorScheme{|@pgfPT at tmp}{|pgfPT at CS@contents}%
+}%
+|fi%
+}% end do
+|immediate|closeout|pgfPT at CSfile%
+|fi% pgfPT at temp
+}%
+|endgroup%
+%
+%
+\makeatother%
+\endinput
Property changes on: trunk/Master/texmf-dist/tex/latex/pgf-periodictable/pgfPTlibrary.colorschemes.tex
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: trunk/Master/tlpkg/libexec/ctan2tds
===================================================================
--- trunk/Master/tlpkg/libexec/ctan2tds 2023-04-02 20:38:15 UTC (rev 66744)
+++ trunk/Master/tlpkg/libexec/ctan2tds 2023-04-02 21:24:58 UTC (rev 66745)
@@ -2306,7 +2306,7 @@
'petri-nets', 'pnets\.tex|pntext\.tex|\.sty|pndraw\.tex|pnversion\.tex|\.sty|pndraw\.tex',
'profcollege', 'PfC.*\.tex|' . $standardtex,
'pgf-blur', 'tikzlibraryshadows.blur.code.tex',
- 'pgf-periodictable', 'pgfPT\.[bdflnp].*\.tex|pgfPT.coordinates.tex|pgfPT_radio_symbol.pdf|flags|lattice|spectra|' . $standardtex, # not colorSchemes.tex or radio_symbol.tex
+ 'pgf-periodictable', 'pgfPT\.[bdflnp].*\.tex|pgfPT.*library.*\.tex|pgfPT.coordinates.tex|pgfPT_radio_symbol.pdf|flags|lattice|spectra|' . $standardtex, # not colorSchemes.tex or radio_symbol.tex
'pgf-spectra', 'spectra.data.*tex|' . $standardtex,
'pgfmolbio', 'pgfmolbio\..*\.|' . $standardtex, # .lua+.tex submodules
'pgfornament-han', 'han$|' . $standardtex,
More information about the tex-live-commits
mailing list.