pgf-spectra (17may21)

git-svn-id: svn://tug.org/texlive/trunk@59242 c570f23f-e606-0410-a88d-b1316a301751
author: Karl Berry <karl@freefriends.org> 2021-05-17 20:42:39 +0000
committer: Karl Berry <karl@freefriends.org> 2021-05-17 20:42:39 +0000
commit: b6f5da4a89743f4721fee57f625adfa5f5a902e8 (patch)
tree: ff0cb53392fae20e9c72151ab2dc4253dbfb96db
parent: a8319d0562628a7cb15c911bcb2b808ef841938f (diff)
5 files changed, 621 insertions, 107 deletions
diff --git a/Master/texmf-dist/doc/latex/pgf-spectra/README b/Master/texmf-dist/doc/latex/pgf-spectra/README
index 9fb63edd8e0..43bcfd314a7 100644
--- a/Master/texmf-dist/doc/latex/pgf-spectra/README
+++ b/Master/texmf-dist/doc/latex/pgf-spectra/README
@@ -1,10 +1,47 @@
-This is pgf-spectra, version 2.0.0 (15/03/2021).
+This is pgf-spectra, version 2.1.0 (12/05/2021).
 
 This package provides the \pgfspectra[<options>] command which draws continuous and emission or absorption spectra for 98 elements and their ions. It was developed mainly for the writing of my own documentation and exams sheets supporting directly PDF output format.
 The drawing is made with the TikZ package and is based in the pst-spectra extension for PSTricks.
 ____________________________________________________________
 
 Major changes:
+The continuous visible region is now drawn via TikZ shading improving a little bit the speed of the whole process.
+Minor fix: the width of the emission/absortion lines are now correctly drawn
+New commands:
+- \tempercolor (correlated color temperature, Kelvin to rgb color)
+- \pgfspectrashade (for usage with TikZ package)
+- \pgfspectraplotshade (for usage with PGFPLOTS package)
+- \pgfspectraplotmap (for usage with PGFPLOTS package)
+- \pgfspectrarainbow (draws a rainbow)
+New keys for \pgfspectra:
+- use visible shading
+- backVIS
+- axis unit
+- axis unit precision
+Keys for \pgfspectraplotshade:
+- shade end
+- shade opacity
+- shade opacity color
+Keys for \pgfspectrarainbow:
+- rainbow fade
+- rainbow start
+- rainbow knock out
+- rainbow background
+- rainbow transparency
+____________________________________________________________
+
+** Requirements: TikZ package.
+** Installation: unpack everything in a directory in the TeX search path and refresh the TeX database.
+** Usage: just place \usepackage{pgf-spectra} in the preamble.
+** Contact the author: Hugo Gomes (hugo.parelho@gmail.com)
+** Licence: released under the LaTeX Project Public License v1.3 or later, see http://www.latex-project.org/lppl.txt
+____________________________________________________________
+
+Previous versions
+____________________________________________________________
+
+version 2.0.0 (15/03/2021).
+Major changes:
 - the 'window' of spectra now ranges from 10nm to 4000nm
  and the lines was updated. (In version 1.0 was 380nm to 740nm)
 - support for redshifted (blueshifted) lines
@@ -21,9 +58,35 @@ New keys:
 - show redshift value
 ____________________________________________________________
 
-** Requirements: TikZ package.
-** Installation: unpack everything in a directory in the TeX search path and refresh the TeX database.
-** Usage: just place \usepackage{pgf-spectra} in the preamble.
-** Contact the author: Hugo Gomes (hugo.parelho@gmail.com)
-** Licence: released under the LaTeX Project Public License v1.3 or later, see http://www.latex-project.org/lppl.txt
-____________________________________________________________ 
-\ No newline at end of file
+First release: version 1.0 (15/04/2016)
+Commands:
+- \pgfspectra
+- \wlcolor
+Keys:
+- element
+- width
+- height
+- back
+- charge
+- Imin
+- lines
+- line width
+- begin
+- end
+- axis step
+- axis color
+- axis font
+- axis font color
+- label position
+- label before text
+- label after text
+- label font
+- label font color
+- gamma
+- brightness
+- line intensity
+- relative intensity threshold
+- absorption
+- axis
+- label
+- relative intensity
diff --git a/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataLSE.pdf b/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataLSE.pdf
index 21116c4bd44..4c997bc4ece 100644
--- a/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataLSE.pdf
+++ b/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataLSE.pdf
diff --git a/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataNIST.pdf b/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataNIST.pdf
index bddf21a5612..f2cff8d06b5 100644
--- a/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataNIST.pdf
+++ b/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraDataNIST.pdf
diff --git a/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraManual.pdf b/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraManual.pdf
index 2d673951d35..08d2f90d44f 100644
--- a/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraManual.pdf
+++ b/Master/texmf-dist/doc/latex/pgf-spectra/pgf-spectraManual.pdf
diff --git a/Master/texmf-dist/tex/latex/pgf-spectra/pgf-spectra.sty b/Master/texmf-dist/tex/latex/pgf-spectra/pgf-spectra.sty
index 937360aed5e..5d3fecdd930 100644
--- a/Master/texmf-dist/tex/latex/pgf-spectra/pgf-spectra.sty
+++ b/Master/texmf-dist/tex/latex/pgf-spectra/pgf-spectra.sty
@@ -1,24 +1,31 @@
 % Hugo Gomes @ 15/04/2016 (v1.0)
 % Hugo Gomes @ 15/03/2021 (v2.0.0)
+% Hugo Gomes @ 12/05/2021 (v2.1.0)
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \NeedsTeXFormat{LaTeX2e}%
-\ProvidesPackage{pgf-spectra}[15/03/2021 pgf-spectra v2.0.0]%
+\ProvidesPackage{pgf-spectra}[12/05/2021 pgf-spectra v2.1.0]%
 \RequirePackage{tikz}%
-\DeclareOption{LSE}{\input{./spectra.data.LSE.tex}}%
-\DeclareOption{NIST}{\input{./spectra.data.NIST.tex}}%
+\DeclareOption{LSE}{\input{spectra.data.LSE.tex}}%
+\DeclareOption{NIST}{\input{spectra.data.NIST.tex}}%
 \ExecuteOptions{NIST}%
 \ProcessOptions\relax%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\definecolor{wlIRcolor}{rgb}{.3157,.2373,.2373}% NEW
-\definecolor{wlUVcolor}{rgb}{.3,.2568,.3}% NEW
+\definecolor{wlIRcolor}{rgb}{.3157,.2373,.2373}% NEW v2.0.0
+\definecolor{wlUVcolor}{rgb}{.3,.2568,.3}% NEW v2.0.0
+%
+\newcount\wl@counta% tmp counter
+\newcount\wl@countb% tmp counter
+\newcount\wl@countc% tmp counter
+\newcount\wl@countd% tmp counter
 %
 \newif\ifwl@absorption%
 \newif\ifcur@elem@exist%
 \newif\ifwl@drawaxis%
 \newif\ifwl@axislabel%
 \newif\ifwl@intensity%
-\newif\ifwl@redshift% NEW
-\newif\ifwl@RSvalue% NEW
+\newif\ifwl@redshift% NEW v2.0.0
+\newif\ifwl@RSvalue% NEW v2.0.0
+\newif\ifwl@usevisibleshade% NEW v2.1.0
 % defining PGF keys
 \pgfkeys{/wl/.cd,%
 element/.get=\wl@element,%
@@ -33,15 +40,18 @@ height/.default=1cm,%
 back/.get=\wl@back,%
 back/.store in=\wl@back,%
 back/.default=black,%
-backIRUV/.get=\wl@backnotvisible,% NEW
-backIRUV/.store in=\wl@backnotvisible,% NEW
-backIRUV/.default=black,% NEW
-IRcolor/.get=\wl@IRcolor,% NEW
-IRcolor/.store in=\wl@IRcolor,% NEW
-IRcolor/.default=wlIRcolor,% NEW
-UVcolor/.get=\wl@UVcolor,% NEW
-UVcolor/.store in=\wl@UVcolor,% NEW
-UVcolor/.default=wlUVcolor,% NEW
+backIRUV/.get=\wl@backnotvisible,% NEW v2.0.0
+backIRUV/.store in=\wl@backnotvisible,% NEW v2.0.0
+backIRUV/.default=black,% NEW v2.0.0
+backVIS/.get=\wl@backvisible,% NEW v2.1.0
+backVIS/.store in=\wl@backvisible,% NEW v2.1.0
+backVIS/.default=black,% NEW v2.1.0
+IRcolor/.get=\wl@IRcolor,% NEW v2.0.0
+IRcolor/.store in=\wl@IRcolor,% NEW v2.0.0
+IRcolor/.default=wlIRcolor,% NEW v2.0.0
+UVcolor/.get=\wl@UVcolor,% NEW v2.0.0
+UVcolor/.store in=\wl@UVcolor,% NEW v2.0.0
+UVcolor/.default=wlUVcolor,% NEW v2.0.0
 charge/.get=\wl@charge,%
 charge/.store in=\wl@charge,%
 charge/.default=0,%
@@ -63,9 +73,15 @@ end/.default=780,%
 axis step/.get=\wl@axisstep,%
 axis step/.store in=\wl@axisstep,%
 axis step/.default=20,%
-axis ticks/.get=\wl@axisticks,% NEW
-axis ticks/.store in=\wl@axisticks,% NEW
-axis ticks/.default=0,% NEW
+axis unit/.get=\wl@axisunit,% NEW v2.1.0
+axis unit/.store in=\wl@axisunit,% NEW v2.1.0
+axis unit/.default=nm,% NEW v2.1.0
+axis unit precision/.get=\wl@axisunitprecision,% NEW v2.1.0
+axis unit precision/.store in=\wl@axisunitprecision,% NEW v2.1.0
+axis unit precision/.default=3,% NEW v2.1.0
+axis ticks/.get=\wl@axisticks,% NEW v2.0.0
+axis ticks/.store in=\wl@axisticks,% NEW v2.0.0
+axis ticks/.default=0,% NEW v2.0.0
 axis color/.get=\wl@axiscolor,%
 axis color/.store in=\wl@axiscolor,%
 axis color/.default=black,%
@@ -106,44 +122,54 @@ absorption/.is if=wl@absorption,%
 axis/.is if=wl@drawaxis,%
 label/.is if=wl@axislabel,%
 relative intensity/.is if=wl@intensity,%
-redshift/.get=\wl@redshift,% NEW
-redshift/.store in=\wl@redshift,% NEW
-redshift/.default={},% NEW
-show redshift value/.is if=wl@RSvalue% NEW
+redshift/.get=\wl@redshift,% NEW v2.0.0
+redshift/.store in=\wl@redshift,% NEW v2.0.0
+redshift/.default={},% NEW v2.0.0
+show redshift value/.is if=wl@RSvalue,% NEW v2.0.0
+use visible shading/.is if=wl@usevisibleshade% NEW v2.1.0
 }%
 % setting keys with default values
-\pgfkeys{/wl/.cd,element,width,height,back,backIRUV,IRcolor,UVcolor,charge,Imin,lines,line width,begin,end,% NEW -> backIRUV,IRcolor,UVcolor
-axis color,axis font,axis font color,axis step,axis ticks,label position,label before text,label after text,label font,label font color,gamma,brightness,line intensity,%
-relative intensity threshold,absorption=false,axis=false,label=false,relative intensity=false,redshift,show redshift value=false}% NEW -> redshift, show redshift value
+\pgfkeys{/wl/.cd,element,width,height,back,backIRUV,IRcolor,UVcolor,charge,Imin,lines,line width,begin,end,% NEW v2.0.0 -> backIRUV,IRcolor,UVcolor
+axis color,axis font,axis font color,axis step,axis unit,axis unit precision,axis ticks,label position,label before text,label after text,label font,label font color,gamma,brightness,line intensity,% NEW v2.1.0 -> axis unit,axis unit precision
+relative intensity threshold,absorption=false,axis=false,label=false,relative intensity=false,redshift,show redshift value=false,% NEW v2.0.0 -> redshift, show redshift value
+use visible shading,backVIS}% NEW v2.1.0 -> use visible shading
 % strings for \ifx tests
 \def\wlN@NE{NONE}%
 \def\wl@ll{all}%
 \def\wl@visible{visible}%
 \def\wl@visible@list{visible,visible5,visible10,visible15,visible20,visible25,visible30,visible35,visible40,visible45,visible50,visible55,visible60,visible65,visible70,visible75,visible80,visible85,visible90,visible95,visible100}%
 \def\wl@label@position@list{west,north west,north,north east,east,south east,south,south west}%
-\def\wl@redshift@D{D}% NEW
+\def\wl@redshift@D{D}% NEW v2.0.0
+\def\wl@axisunit@nm{nm}% NEW v2.1.0
+\def\wl@axisunit@um{micron}% NEW v2.1.0
+\def\wl@axisunit@A{A}% NEW v2.1.0
 %%%% COMMANDS -------------------------------------------------------------------------------->
 % commands ##################################################
-\newif\ifpgfspectra@StyleIsDef\pgfspectra@StyleIsDeffalse% NEW
-% \pgfspectraStyle[options]% NEW
+\newif\ifpgfspectra@StyleIsDef\pgfspectra@StyleIsDeffalse% NEW v2.0.0
+% \pgfspectraStyle[options]% NEW v2.0.0
 \def\pgfspectraStyle[#1]{\pgfspectraStyleReset\pgfspectra@StyleIsDeftrue\relax\tikzset{/wl/.cd,#1}%
 \def\pgfspectra@DoStyle{\tikzset{/wl/.cd,#1}}% applies storing user style for future use
-}% NEW
-% \pgfspectraStyleReset% NEW
+}% NEW v2.0.0
+% \pgfspectraStyleReset% NEW v2.0.0
 \def\pgfspectraStyleReset{\pgfspectra@StyleIsDeffalse\tikzset{/wl/.cd,%
 element=NONE,width=0.9\textwidth,height=1cm,back=black,backIRUV=black,IRcolor=wlIRcolor,UVcolor=wlUVcolor,%
-charge=0,Imin=0,lines={},line width=1pt,begin=380,end=780,axis color=black,axis font=\tiny,axis font color=white,axis step=20,axis ticks=0,label position=west,%
+charge=0,Imin=0,lines={},line width=1pt,begin=380,end=780,axis color=black,axis font=\tiny,axis font color=white,axis step=20,axis unit=nm,axis unit precision=3,axis ticks=0,label position=west,% NEW v2.1.0 -> axis unit,axis unit precision
 label before text={},label after text={},label font=\bfseries\small,label font color=black,gamma=0.8,brightness=1,line intensity=100,%
-relative intensity threshold=0.25,absorption=false,axis=false,label=false,relative intensity=false,redshift={},show redshift value=false}}% NEW
+relative intensity threshold=0.25,absorption=false,axis=false,label=false,relative intensity=false,redshift={},show redshift value=false,% NEW v2.0.0 -> redshift, show redshift value
+use visible shading,backVIS=black}}% NEW v2.1.0 -> use visible shading
 % --------------- The main command to draw the spectra -----------------------------------------
 % \pgfspectra[options]
 \def\pgfspectra{\@ifnextchar[\wl@pgfspectra@withoptions{\wl@pgfspectra@nooptions}}%
 \def\wl@pgfspectra@nooptions{\wl@pgfspectra@continuous(0.9\textwidth,1cm)}%
 % ##########################################################
 \def\wl@pgfspectra@continuous(#1,#2){\ignorespaces%
+\ifwl@usevisibleshade% NEW v2.1.0
+\pgfspectrashade(380,780){wl@visibleshade}%
+\tikz{\fill[shading=wl@visibleshade] (0,0) rectangle (#1,#2);}%
+\else%
 \begin{tikzpicture}%
 \pgfmathparse{#1/400}\edef\xscale{\pgfmathresult}
-\pgfmathparse{1.4*\xscale+.09*\linewidth/\wl@width}\edef\wl@linewidth{\pgfmathresult}% NEW {\xscale} -> {1.4*\xscale+.09*\linewidth/\wl@width}
+\pgfmathparse{1.4*\xscale+.09*\linewidth/\wl@width}\edef\wl@linewidth{\pgfmathresult}% NEW v2.0.0 {\xscale} -> {1.4*\xscale+.09*\linewidth/\wl@width}
 \foreach \x in {380,...,780}%
         {%
         \wlcolor{\x}%
@@ -151,11 +177,12 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
         \draw[wl@temp,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,#2);%
         }%
 \end{tikzpicture}%
+\fi%
 }%
 % ##########################################################
 \def\wl@pgfspectra@withoptions[#1]{\ignorespaces%
 % setting default values or user style
-\ifpgfspectra@StyleIsDef\pgfspectraStyleReset\pgfspectra@DoStyle\pgfspectra@StyleIsDeftrue\relax\else\pgfspectraStyleReset\relax\fi% NEW
+\ifpgfspectra@StyleIsDef\pgfspectraStyleReset\pgfspectra@DoStyle\pgfspectra@StyleIsDeftrue\relax\else\pgfspectraStyleReset\relax\fi% NEW v2.0.0
 % process options (key values)
 \pgfkeys{/wl/.cd,#1}%
 % axis height
@@ -167,12 +194,11 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
             \ifx\wl@back\@myarg\wl@countb=\wl@counta\fi%
             \advance\wl@counta by1%
             }%
-\ifnum\wl@countb=-1\edef\@visible@opacity{1}\else% NEW
+\ifnum\wl@countb=-1\edef\@visible@opacity{1}\else% NEW v2.0.0
 \ifnum\wl@countb=0\let\wl@back\wl@visible\edef\@visible@opacity{.5}\else%
 \ifnum\wl@countb>0\let\wl@back\wl@visible\pgfmathparse{.05*\wl@countb}\edef\@visible@opacity{\pgfmathresult}\fi\fi\fi%
-%back color: \wl@back\\ debug
 % ----------------------------------------------------------------------------------------------------------
-% check limits... % NEW
+% check limits... % NEW v2.0.0
 \ifnum\wl@end<10\relax\def\wldez{10}\let\wl@end\wldez\fi%
 \ifnum\wl@end>4000\relax\def\wlquatromil{4000}\let\wl@end\wlquatromil\fi%
 \ifnum\wl@begin<10\relax\def\wldez{10}\let\wl@begin\wldez\fi%
@@ -191,7 +217,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
     \ifx\wl@lines\@empty%no lines by the user => continuous spectrum
     % draws the continuous spectrum width options (default or by the user)
     \begin{tikzpicture}%
-        \pgfkeys{/wl/.cd,#1}% NEW
+        \pgfkeys{/wl/.cd,#1}% NEW v2.0.0
         \pgfmathparse{\wl@width/(abs(\wl@end-\wl@begin))}\edef\xscale{\pgfmathresult}%
         \ifwl@drawaxis%draws the axis
         \wl@utils@draw@axis%
@@ -232,7 +258,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
     \ifx\wl@list@@\@empty\ifx\wl@element\wlN@NE\else Element\ ``\wl@element'' with charge ``\wl@charge'' have no lines to display.\fi\else%
         \ifwl@absorption%absortion spectrum
         \begin{tikzpicture}%
-                \pgfkeys{/wl/.cd,#1}% NEW
+                \pgfkeys{/wl/.cd,#1}% NEW v2.0.0
                 \pgfmathparse{\wl@width/(abs(\wl@end-\wl@begin))}\edef\xscale{\pgfmathresult}%
                 \ifwl@drawaxis%draws the axis
                 \wl@utils@draw@axis%
@@ -250,7 +276,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
         % draws the spectrum
         \ifx\wl@back\wl@visible%visible background
         \begin{tikzpicture}%
-                \pgfkeys{/wl/.cd,#1}% NEW
+                \pgfkeys{/wl/.cd,#1}% NEW v2.0.0
                 \pgfmathparse{\wl@width/(abs(\wl@end-\wl@begin))}\edef\xscale{\pgfmathresult}%
                 \ifwl@drawaxis%draws the axis
                 \wl@utils@draw@axis%
@@ -264,7 +290,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
         \end{tikzpicture}%
         \else%without visible background
         \begin{tikzpicture}%
-                \pgfkeys{/wl/.cd,#1}% NEW
+                \pgfkeys{/wl/.cd,#1}% NEW v2.0.0
                 \pgfmathparse{\wl@width/(abs(\wl@end-\wl@begin))}\edef\xscale{\pgfmathresult}%
                 \ifwl@drawaxis%draws the axis
                 \wl@utils@draw@axis%
@@ -422,46 +448,57 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
 % internal utils
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \def\wl@utils@draw@axis{\ignorespaces%
+                % axis unit -> NEW v2.1.0
+                \pgfkeys{/pgf/number format/.cd,fixed,precision=\wl@axisunitprecision,set thousands separator={},assume math mode=true}
+                \ifx\wl@axisunit\wl@axisunit@nm\relax%
+                    \def\wl@axisunit@scale{1}\def\wl@axisunit@addzeros{}%
+                \else\ifx\wl@axisunit\wl@axisunit@um\relax%
+                    \def\wl@axisunit@scale{1000}\def\wl@axisunit@addzeros{}\pgfkeys{/pgf/number format/.cd,fixed zerofill}%
+                \else\ifx\wl@axisunit\wl@axisunit@A\relax%
+                    \def\wl@axisunit@scale{1}\def\wl@axisunit@addzeros{0}% probably not the best solution to overcome the TeX dimension limit values (16384pt)... but works!
+                \fi\fi\fi%
                 \ifnum\wl@begin>\wl@end%
                 % New xshift={-2.5*\@wl@axis@height} to hold bigger numbers, e.g. 2500
                 \draw[draw=none,fill=\wl@axiscolor] ([xshift={2.5*\@wl@axis@height}]0,\wl@height+2.5pt) rectangle ([xshift={-2.5*\@wl@axis@height}]-\wl@width,-2.5*\@wl@axis@height);%
-                        % minor ticks -> NEW
+                        % minor ticks -> NEW v2.0.0
                         \ifnum\wl@axisticks>0\relax%
-                        \pgfmathparse{\wl@end+\wl@axisstep/(\wl@axisticks+1)}\pgfmathparse{int(\pgfmathresult)}
-                        \edef\@axis@list{\wl@end,\pgfmathresult,...,\wl@begin}
+                        \pgfmathparse{\wl@end+\wl@axisstep/(\wl@axisticks+1)}\pgfmathparse{int(\pgfmathresult)}%
+                        \edef\@axis@list{\wl@end,\pgfmathresult,...,\wl@begin}%
                         \foreach \x in \@axis@list%
                         {%
                         \pgfmathparse{(\wl@end-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                        \draw[\wl@axisfontcolor!80!transparent,line width=.25pt] (\wl@currentx,-.375*\@wl@axis@height) -- ++(0,.375*\@wl@axis@height);
+                        \draw[\wl@axisfontcolor!80!transparent,line width=.25pt] (\wl@currentx,-.375*\@wl@axis@height) -- ++(0,.375*\@wl@axis@height);%
                         }%
                         \fi%
-                \pgfmathparse{\wl@end+\wl@axisstep}\pgfmathparse{int(\pgfmathresult)}
-                \edef\@axis@list{\wl@end,\pgfmathresult,...,\wl@begin}
+                \pgfmathparse{\wl@end+\wl@axisstep}\pgfmathparse{int(\pgfmathresult)}%
+                \edef\@axis@list{\wl@end,\pgfmathresult,...,\wl@begin}%
                 \foreach \x in \@axis@list%
                 {%
                 \pgfmathparse{(\wl@end-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                \draw[\wl@axisfontcolor,line width=.25pt] (\wl@currentx,-.75*\@wl@axis@height) -- ++(0,.75*\@wl@axis@height);
-                \node[\wl@axisfontcolor,font=\wl@axisfont,above,inner sep=0pt] at (\wl@currentx,-2.25*\@wl@axis@height) {\x};
+                \draw[\wl@axisfontcolor,line width=.25pt] (\wl@currentx,-.75*\@wl@axis@height) -- ++(0,.75*\@wl@axis@height);%
+                \pgfmathparse{\x/\wl@axisunit@scale}\edef\wl@xscaledvalue{\pgfmathresult}% NEW v2.1.0
+                \node[\wl@axisfontcolor,font=\wl@axisfont,above,inner sep=0pt] at (\wl@currentx,-2.25*\@wl@axis@height) {\pgfmathprintnumber{\wl@xscaledvalue}\wl@axisunit@addzeros};%
                 }%
                 \else%
                 \draw[draw=none,fill=\wl@axiscolor] ([xshift={-2.5*\@wl@axis@height}]0,\wl@height+2.5pt) rectangle ([xshift={2.5*\@wl@axis@height}]\wl@width,-2.5*\@wl@axis@height);%
-                        % minor ticks -> NEW
+                        % minor ticks -> NEW v2.0.0
                         \ifnum\wl@axisticks>0\relax%
-                        \pgfmathparse{\wl@begin+\wl@axisstep/(\wl@axisticks+1)}\pgfmathparse{int(\pgfmathresult)}
-                        \edef\@axis@list{\wl@begin,\pgfmathresult,...,\wl@end}
+                        \pgfmathparse{\wl@begin+\wl@axisstep/(\wl@axisticks+1)}\pgfmathparse{int(\pgfmathresult)}%
+                        \edef\@axis@list{\wl@begin,\pgfmathresult,...,\wl@end}%
                         \foreach \x in \@axis@list%
                         {%
                         \pgfmathparse{(\x-\wl@begin)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                        \draw[\wl@axisfontcolor!80!transparent,line width=.25pt] (\wl@currentx,-.375*\@wl@axis@height) -- ++(0,.375*\@wl@axis@height);
+                        \draw[\wl@axisfontcolor!80!transparent,line width=.25pt] (\wl@currentx,-.375*\@wl@axis@height) -- ++(0,.375*\@wl@axis@height);%
                         }%
                         \fi%
-                \pgfmathparse{\wl@begin+\wl@axisstep}\pgfmathparse{int(\pgfmathresult)}
-                \edef\@axis@list{\wl@begin,\pgfmathresult,...,\wl@end}
+                \pgfmathparse{\wl@begin+\wl@axisstep}\pgfmathparse{int(\pgfmathresult)}%
+                \edef\@axis@list{\wl@begin,\pgfmathresult,...,\wl@end}%
                 \foreach \x in \@axis@list%
                 {%
                 \pgfmathparse{(\x-\wl@begin)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                \draw[\wl@axisfontcolor,line width=.25pt] (\wl@currentx,-.75*\@wl@axis@height) -- ++(0,.75*\@wl@axis@height);
-                \node[\wl@axisfontcolor,font=\wl@axisfont,above,inner sep=0pt] at (\wl@currentx,-2.25*\@wl@axis@height) {\x};
+                \draw[\wl@axisfontcolor,line width=.25pt] (\wl@currentx,-.75*\@wl@axis@height) -- ++(0,.75*\@wl@axis@height);%
+                \pgfmathparse{\x/\wl@axisunit@scale}\edef\wl@xscaledvalue{\pgfmathresult}% NEW v2.1.0
+                \node[\wl@axisfontcolor,font=\wl@axisfont,above,inner sep=0pt] at (\wl@currentx,-2.25*\@wl@axis@height) {\pgfmathprintnumber{\wl@xscaledvalue}\wl@axisunit@addzeros};%
                 }%
                 \fi%
 }%
@@ -564,7 +601,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         \fi%
                 \fi%
 }%
-\def\wl@utils@drawbackground#1{\ignorespaces% NEW - in this version draws from UV, VIS to IV -> replaces \wl@utils@visiblespectrum#1
+\def\wl@utils@drawbackground#1{\ignorespaces% NEW v2.0.0 - in this version draws from UV, VIS to IV -> replaces \wl@utils@visiblespectrum#1
 % reprocess visible background (only visible) -> needed because of the override in keys
     \wl@counta=0%
     \wl@countb=-1%
@@ -573,8 +610,98 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
             \advance\wl@counta by1%
             }%
         \ifnum\wl@countb>-1\let\wl@back\wl@visible\fi%
+            \ifwl@usevisibleshade\relax% NEW v2.1.0
                 \pgfmathparse{int(#1*100)}\edef\wl@bright{\pgfmathresult}%
-                \pgfmathparse{1.4*\xscale+.09*\linewidth/\wl@width}\edef\wl@linewidth{\pgfmathresult}% NEW {\xscale} -> {1.4*\xscale+.09*\linewidth/\wl@width}
+                \ifnum\wl@begin>\wl@end% 0
+                    \ifnum\wl@end<380\relax% 1
+                        \pgfmathparse{(\wl@end-380)*\xscale}\edef\wl@pointA{\pgfmathresult pt}%
+                        \ifnum\wl@begin>780\relax% 2
+                            \pgfmathparse{(\wl@end-780)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                            \draw[draw=none,fill=\wl@background@UVcolor] (0,0) rectangle (\wl@pointA,\wl@height);%
+                            \draw[draw=none,fill=\wl@background@IRcolor] (\wl@pointB,0) rectangle (-\wl@width,\wl@height);%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(380,780){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade,shading angle=180] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \else% 2
+                            \pgfmathparse{(\wl@end-\wl@begin)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                            \draw[draw=none,fill=\wl@background@UVcolor] (0,0) rectangle (\wl@pointA,\wl@height);%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(380,\wl@begin){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade,shading angle=180] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \fi% 2
+                    \else% 1
+                        \ifnum\wl@begin>780\relax% 2
+                            \pgfmathparse{(\wl@end-780)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                            \draw[draw=none,fill=\wl@background@IRcolor] (\wl@pointB,0) rectangle (-\wl@width,\wl@height);%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(\wl@end,780){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade,shading angle=180] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \else% 2
+                            \pgfmathparse{(\wl@end-\wl@begin)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(\wl@end,\wl@begin){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade,shading angle=180] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \fi% 2
+                    \fi% 1
+                \else% 0
+                    \ifnum\wl@begin<380\relax% 1
+                        \pgfmathparse{(380-\wl@begin)*\xscale}\edef\wl@pointA{\pgfmathresult pt}%
+                        \ifnum\wl@end>780\relax% 2
+                            \pgfmathparse{(780-\wl@begin)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                            \draw[draw=none,fill=\wl@background@UVcolor] (0,0) rectangle (\wl@pointA,\wl@height);%
+                            \draw[draw=none,fill=\wl@background@IRcolor] (\wl@pointB,0) rectangle (\wl@width,\wl@height);%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(380,780){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \else% 2
+                            \pgfmathparse{(\wl@end-\wl@begin)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                            \draw[draw=none,fill=\wl@background@UVcolor] (0,0) rectangle (\wl@pointA,\wl@height);%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(380,\wl@end){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \fi% 2
+                    \else% 1
+                        \ifnum\wl@end>780\relax% 2
+                            \pgfmathparse{(780-\wl@begin)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                            \draw[draw=none,fill=\wl@background@IRcolor] (\wl@pointB,0) rectangle (\wl@width,\wl@height);%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(\wl@begin,780){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \else% 2
+                            \pgfmathparse{(\wl@end-\wl@begin)*\xscale}\edef\wl@pointB{\pgfmathresult pt}%
+                                \ifx\wl@back\wl@visible% 3 visible background
+                                    \pgfspectrashade(\wl@begin,\wl@end){wl@visibleshade}%
+                                    \fill[shading=wl@visibleshade] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \else% 3
+                                    \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
+                                \fi% 3
+                        \fi% 2
+                    \fi% 1
+                \fi%0
+            \else% wl@usevisibleshade (don't use shading, draw line by line...)
+                \pgfmathparse{int(#1*100)}\edef\wl@bright{\pgfmathresult}%
+                \pgfmathparse{1.4*\xscale+.09*\linewidth/\wl@width}\edef\@wl@linewidth{\pgfmathresult}% NEW v2.0.0 {\xscale} -> {1.4*\xscale+.09*\linewidth/\wl@width}
                 \ifnum\wl@begin>\wl@end% 0
                     \ifnum\wl@end<380\relax% 1
                         \pgfmathparse{(\wl@end-380)*\xscale}\edef\wl@pointA{\pgfmathresult pt}%
@@ -585,9 +712,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {780,...,380}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\wl@pointB+(780-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -597,9 +724,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {\wl@begin,...,380}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\wl@pointB+(\wl@begin-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -611,9 +738,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {780,...,\wl@end}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\wl@pointB+(780-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -622,9 +749,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {\wl@begin,...,\wl@end}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\wl@pointB+(\wl@begin-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -640,9 +767,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {380,...,780}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\wl@pointB-(780-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -652,9 +779,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {\wl@end,...,380}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\wl@pointB-(\wl@end-\x)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (\wl@pointA,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -666,9 +793,9 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {\wl@begin,...,780}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{(\x-\wl@begin)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
@@ -677,20 +804,21 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                                 \ifx\wl@back\wl@visible% 3 visible background
                                     \foreach \x in {\wl@begin,...,\wl@end}{%
                                     \wlcolor{\x}%
-                                    \colorlet{wlcolor}{wl@temp!\wl@bright!black}%
+                                    \colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}% CHANGED v2.1.0
                                     \pgfmathparse{\x-\wl@begin)*\xscale}\edef\wl@currentx{\pgfmathresult pt}%
-                                    \draw[wlcolor,line width=\wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
+                                    \draw[wlcolor,line width=\@wl@linewidth] (\wl@currentx,0) -- ++(0,\wl@height);}%
                                 \else% 3
                                     \draw[draw=none,fill=\wl@back] (0,0) rectangle (\wl@pointB,\wl@height);%
                                 \fi% 3
                         \fi% 2
                     \fi% 1
                 \fi%0
+            \fi% wl@usevisibleshade
 }%
 \def\wl@utils@drawabsorptionlines{\ignorespaces%
                 \ifnum\wl@begin>\wl@end%
                     \ifwl@intensity%
-                        \ifwl@redshift\wl@utils@redshift\fi% NEW
+                        \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x/\y in \wl@list@@%
                         {%
                         \pgfmathparse{notless(\x,\wl@end)}\edef\wl@x@nl{\pgfmathresult}%
@@ -705,7 +833,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         \fi%
                         }%
                     \else%
-                        \ifwl@redshift\wl@utils@redshift\fi% NEW
+                        \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x in \wl@list@@%
                         {%
                         \pgfmathparse{notless(\x,\wl@end)}\edef\wl@x@nl{\pgfmathresult}%
@@ -721,7 +849,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                     \fi%
                 \else%
                     \ifwl@intensity%
-                        \ifwl@redshift\wl@utils@redshift\fi% NEW
+                        \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x/\y in \wl@list@@%
                         {%
                         \pgfmathparse{notless(\x,\wl@begin)}\edef\wl@x@nl{\pgfmathresult}%
@@ -736,7 +864,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         \fi%
                         }%
                     \else%
-                        \ifwl@redshift\wl@utils@redshift\fi% NEW
+                        \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x in \wl@list@@%
                         {%
                         \pgfmathparse{notless(\x,\wl@begin)}\edef\wl@x@nl{\pgfmathresult}%
@@ -751,7 +879,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         }%
                     \fi%
                 \fi%
-\ifwl@RSvalue% NEW
+\ifwl@RSvalue% NEW v2.0.0
 \ifnum\wl@begin>\wl@end%
 \ifwl@drawaxis\pgfmathparse{-\wl@width-2.5*\@wl@axis@height}\edef\wl@redshiftinfo@x{\pgfmathresult pt}%
 \else\pgfmathparse{-\wl@width}\edef\wl@redshiftinfo@x{\pgfmathresult pt}\fi%
@@ -761,12 +889,12 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
 \fi%
 \ifwl@drawaxis\pgfmathparse{-.75*\@wl@axis@height-1.3*\ht0-2pt}\edef\wl@redshiftinfo@y{\pgfmathresult pt}\else\edef\wl@redshiftinfo@y{0pt}\fi%
 \node[below right,inner xsep=0pt,font=\wl@axisfont] at (\wl@redshiftinfo@x,\wl@redshiftinfo@y) {\wl@redshiftinfo};%
-\fi% NEW
+\fi% NEW v2.0.0
 }%
 \def\wl@utils@drawemissionlines{\ignorespaces%
                 \ifnum\wl@begin>\wl@end%
                 \ifwl@intensity%
-                    \ifwl@redshift\wl@utils@redshift\fi% NEW
+                    \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x/\y in \wl@list@@%
                         {%
                         \wlcolor{\x}%
@@ -781,7 +909,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         \fi%
                         }%
                 \else%
-                    \ifwl@redshift\wl@utils@redshift\fi% NEW
+                    \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x in \wl@list@@%
                         {%
                         \wlcolor{\x}%
@@ -797,7 +925,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                 \fi%
                 \else%
                 \ifwl@intensity%
-                    \ifwl@redshift\wl@utils@redshift\fi% NEW
+                    \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x/\y in \wl@list@@%
                         {%
                         \wlcolor{\x}%
@@ -812,7 +940,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         \fi%
                         }%
                 \else%
-                    \ifwl@redshift\wl@utils@redshift\fi% NEW
+                    \ifwl@redshift\wl@utils@redshift\fi% NEW v2.0.0
                         \foreach \x in \wl@list@@%
                         {%
                         \wlcolor{\x}%
@@ -827,7 +955,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
                         }%
                 \fi%
                 \fi%
-\ifwl@RSvalue% NEW
+\ifwl@RSvalue% NEW v2.0.0
 \ifnum\wl@begin>\wl@end%
 \ifwl@drawaxis\pgfmathparse{-\wl@width-2.5*\@wl@axis@height}\edef\wl@redshiftinfo@x{\pgfmathresult pt}%
 \else\pgfmathparse{-\wl@width}\edef\wl@redshiftinfo@x{\pgfmathresult pt}\fi%
@@ -837,7 +965,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
 \fi%
 \ifwl@drawaxis\pgfmathparse{-.75*\@wl@axis@height-1.3*\ht0-2pt}\edef\wl@redshiftinfo@y{\pgfmathresult pt}\else\edef\wl@redshiftinfo@y{0pt}\fi%
 \node[below right,inner xsep=0pt,font=\wl@axisfont] at (\wl@redshiftinfo@x,\wl@redshiftinfo@y) {\wl@redshiftinfo};%
-\fi% NEW
+\fi% NEW v2.0.0
 }%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % return: integer with position (e.g. '0' for west, ... )
@@ -849,7 +977,7 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
             \advance\wl@countc by1%
             }%
 }%
-% NEW ----------------------
+% NEW v2.0.0 ----------------------
 % redshift: lambda(obs)=lambda(emit)*{(1+v/c*cos(theta))/sqrt(1-v^2/c^2)} ---> Relativistic Doppler
 % vbar-> v/c -> normalized velocity of the source (e.g. '0.9' for v=0.9c )
 % theta ->angle between the direction of relative motion of the source and the direction of emission in the observer's frame (zero angle is directly away from the observer)
@@ -898,11 +1026,333 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
         }%
     \fi%
 }%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% NEW v2.1.0 ---------------------->
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \pgfspectrashade[type=<h|v>](start,end){name} ---> type: h-horizontal (default) | v-vertical
+\def\pgfspectrashade{\ignorespaces\@ifnextchar[\wl@pgfspectrashade{\wl@pgfspectrashade[h]}}%
+\def\wl@pgfspectrashade[#1](#2,#3)#4{\ignorespaces%
+\ifnum#2>#3\relax\PackageError{pgf-spectra}%
+{in \textbackslash pgfspectrashade the starting wavelength (#2) must be lesser then the finishing wavelength (#3)}%
+{Try typing the wavelengths in the correct order: \textbackslash pgfspectrashade(#3,#2)...}\else%
+\ifnum#3<381\relax\PackageError{pgf-spectra}{in \textbackslash pgfspectrashade the finishing wavelength (#3) must be at least 381...}%
+{Please type a finishing wavelength greater then 380...}\else%
+\ifnum#2<380\relax\def\wl@shade@begin{380}\else\pgfmathparse{int(#2)}\edef\wl@shade@begin{\pgfmathresult}\fi%
+\ifnum#3>780\relax\def\wl@shade@end{780}\else\pgfmathparse{int(#3)}\edef\wl@shade@end{\pgfmathresult}\fi%
+\pgfmathparse{(\wl@shade@end-\wl@shade@begin)/50}\edef\wl@shadecolor@step{\pgfmathresult}%
+%\foreach \n in {1,...,51}{%
+\@for\n:={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51}\do{%
+\pgfmathparse{\wl@shade@begin+(\n-1)*\wl@shadecolor@step}\edef\wl@currentwl{\pgfmathresult}%
+\wlcolor{\wl@currentwl}%
+\edef\wl@colorname{wlshcol\@Roman\n}\relax\colorlet{\wl@colorname}{wlcolor}%%
+}%
+\def\wl@test{#1}\def\wl@v{v}\def\wl@h{h}%
+\ifx\wl@test\wl@h\relax%
+% the horizontal pgfshading
+\pgfdeclarehorizontalshading{#4}{100bp}{color(0bp)=(wlshcolI); color(25bp)=(wlshcolI); color(26bp)=(wlshcolII); color(27bp)=(wlshcolIII); color(28bp)=(wlshcolIV); color(29bp)=(wlshcolV); color(30bp)=(wlshcolVI); color(31bp)=(wlshcolVII); color(32bp)=(wlshcolVIII); color(33bp)=(wlshcolIX); color(34bp)=(wlshcolX); color(35bp)=(wlshcolXI); color(36bp)=(wlshcolXII); color(37bp)=(wlshcolXIII); color(38bp)=(wlshcolXIV); color(39bp)=(wlshcolXV); color(40bp)=(wlshcolXVI); color(41bp)=(wlshcolXVII); color(42bp)=(wlshcolXVIII); color(43bp)=(wlshcolXIX); color(44bp)=(wlshcolXX); color(45bp)=(wlshcolXXI); color(46bp)=(wlshcolXXII); color(47bp)=(wlshcolXXIII); color(48bp)=(wlshcolXXIV); color(49bp)=(wlshcolXXV); color(50bp)=(wlshcolXXVI); color(51bp)=(wlshcolXXVII); color(52bp)=(wlshcolXXVIII); color(53bp)=(wlshcolXXIX); color(54bp)=(wlshcolXXX); color(55bp)=(wlshcolXXXI); color(56bp)=(wlshcolXXXII); color(57bp)=(wlshcolXXXIII); color(58bp)=(wlshcolXXXIV); color(59bp)=(wlshcolXXXV); color(60bp)=(wlshcolXXXVI); color(61bp)=(wlshcolXXXVII); color(62bp)=(wlshcolXXXVIII); color(63bp)=(wlshcolXXXIX); color(64bp)=(wlshcolXL); color(65bp)=(wlshcolXLI); color(66bp)=(wlshcolXLII); color(67bp)=(wlshcolXLIII); color(68bp)=(wlshcolXLIV); color(69bp)=(wlshcolXLV); color(70bp)=(wlshcolXLVI); color(71bp)=(wlshcolXLVII); color(72bp)=(wlshcolXLVIII); color(73bp)=(wlshcolXLIX); color(74bp)=(wlshcolL); color(75bp)=(wlshcolLI); color(100bp)=(wlshcolLI)}%
+\else\ifx\wl@test\wl@v\relax%
+% the vertical pgfshading
+\pgfdeclareverticalshading{#4}{100bp}{color(0bp)=(wlshcolI); color(25bp)=(wlshcolI); color(26bp)=(wlshcolII); color(27bp)=(wlshcolIII); color(28bp)=(wlshcolIV); color(29bp)=(wlshcolV); color(30bp)=(wlshcolVI); color(31bp)=(wlshcolVII); color(32bp)=(wlshcolVIII); color(33bp)=(wlshcolIX); color(34bp)=(wlshcolX); color(35bp)=(wlshcolXI); color(36bp)=(wlshcolXII); color(37bp)=(wlshcolXIII); color(38bp)=(wlshcolXIV); color(39bp)=(wlshcolXV); color(40bp)=(wlshcolXVI); color(41bp)=(wlshcolXVII); color(42bp)=(wlshcolXVIII); color(43bp)=(wlshcolXIX); color(44bp)=(wlshcolXX); color(45bp)=(wlshcolXXI); color(46bp)=(wlshcolXXII); color(47bp)=(wlshcolXXIII); color(48bp)=(wlshcolXXIV); color(49bp)=(wlshcolXXV); color(50bp)=(wlshcolXXVI); color(51bp)=(wlshcolXXVII); color(52bp)=(wlshcolXXVIII); color(53bp)=(wlshcolXXIX); color(54bp)=(wlshcolXXX); color(55bp)=(wlshcolXXXI); color(56bp)=(wlshcolXXXII); color(57bp)=(wlshcolXXXIII); color(58bp)=(wlshcolXXXIV); color(59bp)=(wlshcolXXXV); color(60bp)=(wlshcolXXXVI); color(61bp)=(wlshcolXXXVII); color(62bp)=(wlshcolXXXVIII); color(63bp)=(wlshcolXXXIX); color(64bp)=(wlshcolXL); color(65bp)=(wlshcolXLI); color(66bp)=(wlshcolXLII); color(67bp)=(wlshcolXLIII); color(68bp)=(wlshcolXLIV); color(69bp)=(wlshcolXLV); color(70bp)=(wlshcolXLVI); color(71bp)=(wlshcolXLVII); color(72bp)=(wlshcolXLVIII); color(73bp)=(wlshcolXLIX); color(74bp)=(wlshcolL); color(75bp)=(wlshcolLI); color(100bp)=(wlshcolLI)}%
+\fi\fi%
+\fi\fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\pgfkeys{/wl/.cd,%
+shade end/.get=\wl@shadeend,%
+shade end/.store in=\wl@shadeend,%
+shade end/.default=780,%
+shade opacity/.get=\wl@shade@opacity,%
+shade opacity/.store in=\wl@shade@opacity,%
+shade opacity/.default=1,%
+shade opacity color/.get=\wl@shade@opacitycolor,%
+shade opacity color/.store in=\wl@shade@opacitycolor,%
+shade opacity color/.default=white%
+}%
+\pgfkeys{/wl/.cd,shade end,shade opacity,shade opacity color}%
+% \pgfspectraplotshade{name} or
+% \pgfspectraplotshade[options]{name}
+\def\pgfspectraplotshade{\@ifnextchar[\wl@pgfspectraplotshade{\wl@pgfspectraplotshade[]}}%
+\def\wl@pgfspectraplotshade[#1]#2{\ignorespaces%
+\pgfkeys{/wl/.cd,shade end=780,shade opacity=1,shade opacity color=white}%
+\pgfkeys{/wl/.cd,UVcolor=wlUVcolor,IRcolor=wlIRcolor,gamma=.8}%
+\pgfkeys{/wl/.cd,#1}%
+\pgfmathparse{100*\wl@shade@opacity}\edef\@wl@shade@opacity{\pgfmathresult}%
+%
+% x[bp]=25+(380+8*(\n-1))*(50/\wl@shadeend)
+%
+\edef\wl@shadeend@pt{\wl@shadeend pt}%
+\ifdim\wl@shadeend@pt<381pt\relax%
+\PackageError{pgf-spectra}{shade end must be greater then 380}{Type a wavelength greater then 380}%
+\else%
+\pgfkeys{/pgf/number format/.cd,fixed,precision=4,set thousands separator={},assume math mode=true}%
+\pgfmathparse{25+379.9/\wl@shadeend*50}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@X@tmp}%
+\edef\xO{\wl@X@tmp bp}%
+\ifdim\wl@shadeend@pt<780pt\relax%
+\pgfkeys{/pgf/number format/.cd,fixed,precision=3,set thousands separator={},assume math mode=true}%
+\@for\n:={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51}\do{%
+\pgfmathparse{380+(\n-1)*(\wl@shadeend/50-7.6)}\edef\wl@currentwl{\pgfmathresult}%
+\wlcolor{\wl@currentwl}%
+\colorlet{wlcolor}{wl@temp!\@wl@shade@opacity!\wl@shade@opacitycolor}%
+\edef\wl@colorname{wlshcol\@Roman\n}\relax\colorlet{\wl@colorname}{wlcolor}%%
+\pgfmathparse{24+380/\wl@shadeend*50+\n-380/\wl@shadeend*\n+380/\wl@shadeend}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@X@tmp}%
+\expandafter\edef\csname x\@Roman\n\endcsname{\wl@X@tmp bp}%
+}%
+\pgfkeys{/pgf/number format/.cd,fixed,precision=4,set thousands separator={},assume math mode=true}%
+\pgfmathparse{25+(\wl@shadeend+.1)/\wl@shadeend*50}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@X@tmp}%
+\edef\xF{\wl@X@tmp bp}%
+\else%
+\pgfkeys{/pgf/number format/.cd,fixed,precision=3,set thousands separator={},assume math mode=true}%
+\@for\n:={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51}\do{%
+\pgfmathparse{380+(\n-1)*8}\edef\wl@currentwl{\pgfmathresult}%
+\wlcolor{\wl@currentwl}%
+\colorlet{wlcolor}{wl@temp!\@wl@shade@opacity!\wl@shade@opacitycolor}%
+\edef\wl@colorname{wlshcol\@Roman\n}\relax\colorlet{\wl@colorname}{wlcolor}%%
+\pgfmathparse{25+380/\wl@shadeend*50+400/\wl@shadeend*\n-400/\wl@shadeend}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@X@tmp}%
+\expandafter\edef\csname x\@Roman\n\endcsname{\wl@X@tmp bp}%
+}%
+\pgfkeys{/pgf/number format/.cd,fixed,precision=2,set thousands separator={},assume math mode=true}%
+\pgfmathparse{25+780.1/\wl@shadeend*50}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@X@tmp}%
+\edef\xF{\wl@X@tmp bp}%
+\fi% ifdim<780pt
+% the horizontal shading
+\pgfdeclarehorizontalshading{#2}{100bp}{color(0bp)=(\wl@UVcolor!\@wl@shade@opacity!\wl@shade@opacitycolor);color(\xO)=(\wl@UVcolor!\@wl@shade@opacity!\wl@shade@opacitycolor);%
+color(\xI)=(wlshcolI);color(\xII)=(wlshcolII);color(\xIII)=(wlshcolIII);color(\xIV)=(wlshcolIV);color(\xV)=(wlshcolV);color(\xVI)=(wlshcolVI);color(\xVII)=(wlshcolVII);color(\xVIII)=(wlshcolVIII);color(\xIX)=(wlshcolIX);color(\xX)=(wlshcolX);color(\xXI)=(wlshcolXI);color(\xXII)=(wlshcolXII);color(\xXIII)=(wlshcolXIII);color(\xXIV)=(wlshcolXIV);color(\xXV)=(wlshcolXV);color(\xXVI)=(wlshcolXVI);color(\xXVII)=(wlshcolXVII);color(\xXVIII)=(wlshcolXVIII);color(\xXIX)=(wlshcolXIX);color(\xXX)=(wlshcolXX);color(\xXXI)=(wlshcolXXI);color(\xXXII)=(wlshcolXXII);color(\xXXIII)=(wlshcolXXIII);color(\xXXIV)=(wlshcolXXIV);color(\xXXV)=(wlshcolXXV);color(\xXXVI)=(wlshcolXXVI);color(\xXXVII)=(wlshcolXXVII);color(\xXXVIII)=(wlshcolXXVIII);color(\xXXIX)=(wlshcolXXIX);color(\xXXX)=(wlshcolXXX);color(\xXXXI)=(wlshcolXXXI);color(\xXXXII)=(wlshcolXXXII);color(\xXXXIII)=(wlshcolXXXIII);color(\xXXXIV)=(wlshcolXXXIV);color(\xXXXV)=(wlshcolXXXV);color(\xXXXVI)=(wlshcolXXXVI);color(\xXXXVII)=(wlshcolXXXVII);color(\xXXXVIII)=(wlshcolXXXVIII);color(\xXXXIX)=(wlshcolXXXIX);color(\xXL)=(wlshcolXL);color(\xXLI)=(wlshcolXLI);color(\xXLII)=(wlshcolXLII);color(\xXLIII)=(wlshcolXLIII);color(\xXLIV)=(wlshcolXLIV);color(\xXLV)=(wlshcolXLV);color(\xXLVI)=(wlshcolXLVI);color(\xXLVII)=(wlshcolXLVII);color(\xXLVIII)=(wlshcolXLVIII);color(\xXLIX)=(wlshcolXLIX);color(\xL)=(wlshcolL);color(\xLI)=(wlshcolLI);%
+color(\xF)=(\wl@IRcolor!\@wl@shade@opacity!\wl@shade@opacitycolor);color(100bp)=(\wl@IRcolor!\@wl@shade@opacity!\wl@shade@opacitycolor)}
+\fi% ifdim<381pt
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \pgfspectraplotmap[<l|h>]{name}
+% l -> low resolution (51 colors -> 380 to 780 nm ; step 8 nm) ! Default
+% h -> high resolution (401 colors -> 380 to 780 nm ; step 1 nm)
+\def\pgfspectraplotmap{\ignorespaces\@ifnextchar[\wl@pgfspectraplotmap{\wl@pgfspectraplotmap[l]}}%
+\def\wl@pgfspectraplotmap[#1]#2{\ignorespaces%
+\def\wl@test{#1}\def\wl@l{l}\def\wl@h{h}%
+\ifx\wl@test\wl@l\relax%
+\@for\n:={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51}\do{%
+\pgfmathparse{380+(\n-1)*8}\edef\wl@currentwl{\pgfmathresult}%
+\wlcolor{\wl@currentwl}%
+\edef\wl@colorname{wlshcol\@Roman\n}\relax\colorlet{\wl@colorname}{wlcolor}%%
+}%
+% the pgfplots colormap
+\pgfplotsset{/pgfplots/colormap={#2}{color(0bp)=(wlshcolI); color(1bp)=(wlshcolII); color(2bp)=(wlshcolIII); color(3bp)=(wlshcolIV); color(4bp)=(wlshcolV); color(5bp)=(wlshcolVI); color(6bp)=(wlshcolVII); color(7bp)=(wlshcolVIII); color(8bp)=(wlshcolIX); color(9bp)=(wlshcolX); color(10bp)=(wlshcolXI); color(11bp)=(wlshcolXII); color(12bp)=(wlshcolXIII); color(13bp)=(wlshcolXIV); color(14bp)=(wlshcolXV); color(15bp)=(wlshcolXVI); color(16bp)=(wlshcolXVII); color(17bp)=(wlshcolXVIII); color(18bp)=(wlshcolXIX); color(19bp)=(wlshcolXX); color(20bp)=(wlshcolXXI); color(21bp)=(wlshcolXXII); color(22bp)=(wlshcolXXIII); color(23bp)=(wlshcolXXIV); color(24bp)=(wlshcolXXV); color(25bp)=(wlshcolXXVI); color(26bp)=(wlshcolXXVII); color(27bp)=(wlshcolXXVIII); color(28bp)=(wlshcolXXIX); color(29bp)=(wlshcolXXX); color(30bp)=(wlshcolXXXI); color(31bp)=(wlshcolXXXII); color(32bp)=(wlshcolXXXIII); color(33bp)=(wlshcolXXXIV); color(34bp)=(wlshcolXXXV); color(35bp)=(wlshcolXXXVI); color(36bp)=(wlshcolXXXVII); color(37bp)=(wlshcolXXXVIII); color(38bp)=(wlshcolXXXIX); color(39bp)=(wlshcolXL); color(40bp)=(wlshcolXLI); color(41bp)=(wlshcolXLII); color(42bp)=(wlshcolXLIII); color(43bp)=(wlshcolXLIV); color(44bp)=(wlshcolXLV); color(45bp)=(wlshcolXLVI); color(46bp)=(wlshcolXLVII); color(47bp)=(wlshcolXLVIII); color(48bp)=(wlshcolXLIX); color(49bp)=(wlshcolL); color(50bp)=(wlshcolLI)}}%
+\else\ifx\wl@test\wl@h\relax%%
+\pgfplotsset{/pgfplots/colormap={#2}{rgb(0bp)=(.3,0,.3); rgb(1bp)=(.3122,0,.3175); rgb(2bp)=(.3238,0,.335); rgb(3bp)=(.3349,0,.3525); rgb(4bp)=(.3453,0,.37); rgb(5bp)=(.3552,0,.3875); rgb(6bp)=(.3645,0,.405); rgb(7bp)=(.3732,0,.4225); rgb(8bp)=(.3813,0,.44); rgb(9bp)=(.3889,0,.4575); rgb(10bp)=(.3958,0,.475); rgb(11bp)=(.4022,0,.4925); rgb(12bp)=(.408,0,.51); rgb(13bp)=(.4132,0,.5275); rgb(14bp)=(.4178,0,.545); rgb(15bp)=(.4219,0,.5625); rgb(16bp)=(.4253,0,.58); rgb(17bp)=(.4282,0,.5975); rgb(18bp)=(.4305,0,.615); rgb(19bp)=(.4322,0,.6325); rgb(20bp)=(.4333,0,.65); rgb(21bp)=(.4339,0,.6675); rgb(22bp)=(.4338,0,.685); rgb(23bp)=(.4332,0,.7025); rgb(24bp)=(.432,0,.72); rgb(25bp)=(.4302,0,.7375); rgb(26bp)=(.4278,0,.755); rgb(27bp)=(.4249,0,.7725); rgb(28bp)=(.4213,0,.79); rgb(29bp)=(.4172,0,.8075); rgb(30bp)=(.4125,0,.825); rgb(31bp)=(.4072,0,.8425); rgb(32bp)=(.4013,0,.86); rgb(33bp)=(.3949,0,.8775); rgb(34bp)=(.3878,0,.895); rgb(35bp)=(.3802,0,.9125); rgb(36bp)=(.372,0,.93); rgb(37bp)=(.3632,0,.9475); rgb(38bp)=(.3538,0,.965); rgb(39bp)=(.3439,0,.9825); rgb(40bp)=(.3333,0,1); rgb(41bp)=(.3167,0,1); rgb(42bp)=(.3,0,1); rgb(43bp)=(.2833,0,1); rgb(44bp)=(.2667,0,1); rgb(45bp)=(.25,0,1); rgb(46bp)=(.2333,0,1); rgb(47bp)=(.2167,0,1); rgb(48bp)=(.2,0,1); rgb(49bp)=(.1833,0,1); rgb(50bp)=(.1667,0,1); %
+rgb(51bp)=(.15,0,1); rgb(52bp)=(.1333,0,1); rgb(53bp)=(.1167,0,1); rgb(54bp)=(.1,0,1); rgb(55bp)=(.0833,0,1); rgb(56bp)=(.0667,0,1); rgb(57bp)=(.05,0,1); rgb(58bp)=(.0333,0,1); rgb(59bp)=(.0167,0,1); rgb(60bp)=(0,0,1); rgb(61bp)=(0,.02,1); rgb(62bp)=(0,.04,1); rgb(63bp)=(0,.06,1); rgb(64bp)=(0,.08,1); rgb(65bp)=(0,.1,1); rgb(66bp)=(0,.12,1); rgb(67bp)=(0,.14,1); rgb(68bp)=(0,.16,1); rgb(69bp)=(0,.18,1); rgb(70bp)=(0,.2,1); rgb(71bp)=(0,.22,1); rgb(72bp)=(0,.24,1); rgb(73bp)=(0,.26,1); rgb(74bp)=(0,.28,1); rgb(75bp)=(0,.3,1); rgb(76bp)=(0,.32,1); rgb(77bp)=(0,.34,1); rgb(78bp)=(0,.36,1); rgb(79bp)=(0,.38,1); rgb(80bp)=(0,.4,1); rgb(81bp)=(0,.42,1); rgb(82bp)=(0,.44,1); rgb(83bp)=(0,.46,1); rgb(84bp)=(0,.48,1); rgb(85bp)=(0,.5,1); rgb(86bp)=(0,.52,1); rgb(87bp)=(0,.54,1); rgb(88bp)=(0,.56,1); rgb(89bp)=(0,.58,1); rgb(90bp)=(0,.6,1); rgb(91bp)=(0,.62,1); rgb(92bp)=(0,.64,1); rgb(93bp)=(0,.66,1); rgb(94bp)=(0,.68,1); rgb(95bp)=(0,.7,1); rgb(96bp)=(0,.72,1); rgb(97bp)=(0,.74,1); rgb(98bp)=(0,.76,1); rgb(99bp)=(0,.78,1); rgb(100bp)=(0,.8,1); %
+rgb(101bp)=(0,.82,1); rgb(102bp)=(0,.84,1); rgb(103bp)=(0,.86,1); rgb(104bp)=(0,.88,1); rgb(105bp)=(0,.9,1); rgb(106bp)=(0,.92,1); rgb(107bp)=(0,.94,1); rgb(108bp)=(0,.96,1); rgb(109bp)=(0,.98,1); rgb(110bp)=(0,1,1); rgb(111bp)=(0,1,.95); rgb(112bp)=(0,1,.9); rgb(113bp)=(0,1,.85); rgb(114bp)=(0,1,.8); rgb(115bp)=(0,1,.75); rgb(116bp)=(0,1,.7); rgb(117bp)=(0,1,.65); rgb(118bp)=(0,1,.6); rgb(119bp)=(0,1,.55); rgb(120bp)=(0,1,.5); rgb(121bp)=(0,1,.45); rgb(122bp)=(0,1,.4); rgb(123bp)=(0,1,.35); rgb(124bp)=(0,1,.3); rgb(125bp)=(0,1,.25); rgb(126bp)=(0,1,.2); rgb(127bp)=(0,1,.15); rgb(128bp)=(0,1,.1); rgb(129bp)=(0,1,.05); rgb(130bp)=(0,1,0); rgb(131bp)=(.0143,1,0); rgb(132bp)=(.0286,1,0); rgb(133bp)=(.0429,1,0); rgb(134bp)=(.0571,1,0); rgb(135bp)=(.0714,1,0); rgb(136bp)=(.0857,1,0); rgb(137bp)=(.1,1,0); rgb(138bp)=(.1143,1,0); rgb(139bp)=(.1286,1,0); rgb(140bp)=(.1429,1,0); rgb(141bp)=(.1571,1,0); rgb(142bp)=(.1714,1,0); rgb(143bp)=(.1857,1,0); rgb(144bp)=(.2,1,0); rgb(145bp)=(.2143,1,0); rgb(146bp)=(.2286,1,0); rgb(147bp)=(.2429,1,0); rgb(148bp)=(.2571,1,0); rgb(149bp)=(.2714,1,0); rgb(150bp)=(.2857,1,0); %
+rgb(151bp)=(.3,1,0); rgb(152bp)=(.3143,1,0); rgb(153bp)=(.3286,1,0); rgb(154bp)=(.3429,1,0); rgb(155bp)=(.3571,1,0); rgb(156bp)=(.3714,1,0); rgb(157bp)=(.3857,1,0); rgb(158bp)=(.4,1,0); rgb(159bp)=(.4143,1,0); rgb(160bp)=(.4286,1,0); rgb(161bp)=(.4429,1,0); rgb(162bp)=(.4571,1,0); rgb(163bp)=(.4714,1,0); rgb(164bp)=(.4857,1,0); rgb(165bp)=(.5,1,0); rgb(166bp)=(.5143,1,0); rgb(167bp)=(.5286,1,0); rgb(168bp)=(.5429,1,0); rgb(169bp)=(.5571,1,0); rgb(170bp)=(.5714,1,0); rgb(171bp)=(.5857,1,0); rgb(172bp)=(.6,1,0); rgb(173bp)=(.6143,1,0); rgb(174bp)=(.6286,1,0); rgb(175bp)=(.6429,1,0); rgb(176bp)=(.6571,1,0); rgb(177bp)=(.6714,1,0); rgb(178bp)=(.6857,1,0); rgb(179bp)=(.7,1,0); rgb(180bp)=(.7143,1,0); rgb(181bp)=(.7286,1,0); rgb(182bp)=(.7429,1,0); rgb(183bp)=(.7571,1,0); rgb(184bp)=(.7714,1,0); rgb(185bp)=(.7857,1,0); rgb(186bp)=(.8,1,0); rgb(187bp)=(.8143,1,0); rgb(188bp)=(.8286,1,0); rgb(189bp)=(.8429,1,0); rgb(190bp)=(.8571,1,0); rgb(191bp)=(.8714,1,0); rgb(192bp)=(.8857,1,0); rgb(193bp)=(.9,1,0); rgb(194bp)=(.9143,1,0); rgb(195bp)=(.9286,1,0); rgb(196bp)=(.9429,1,0); rgb(197bp)=(.9571,1,0); rgb(198bp)=(.9714,1,0); rgb(199bp)=(.9857,1,0); rgb(200bp)=(1,1,0); %
+rgb(201bp)=(1,.9846,0); rgb(202bp)=(1,.9692,0); rgb(203bp)=(1,.9538,0); rgb(204bp)=(1,.9385,0); rgb(205bp)=(1,.9231,0); rgb(206bp)=(1,.9077,0); rgb(207bp)=(1,.8923,0); rgb(208bp)=(1,.8769,0); rgb(209bp)=(1,.8615,0); rgb(210bp)=(1,.8462,0); rgb(211bp)=(1,.8308,0); rgb(212bp)=(1,.8154,0); rgb(213bp)=(1,.8,0); rgb(214bp)=(1,.7846,0); rgb(215bp)=(1,.7692,0); rgb(216bp)=(1,.7538,0); rgb(217bp)=(1,.7385,0); rgb(218bp)=(1,.7231,0); rgb(219bp)=(1,.7077,0); rgb(220bp)=(1,.6923,0); rgb(221bp)=(1,.6769,0); rgb(222bp)=(1,.6615,0); rgb(223bp)=(1,.6462,0); rgb(224bp)=(1,.6308,0); rgb(225bp)=(1,.6154,0); rgb(226bp)=(1,.6,0); rgb(227bp)=(1,.5846,0); rgb(228bp)=(1,.5692,0); rgb(229bp)=(1,.5538,0); rgb(230bp)=(1,.5385,0); rgb(231bp)=(1,.5231,0); rgb(232bp)=(1,.5077,0); rgb(233bp)=(1,.4923,0); rgb(234bp)=(1,.4769,0); rgb(235bp)=(1,.4615,0); rgb(236bp)=(1,.4462,0); rgb(237bp)=(1,.4308,0); rgb(238bp)=(1,.4154,0); rgb(239bp)=(1,.4,0); rgb(240bp)=(1,.3846,0); rgb(241bp)=(1,.3692,0); rgb(242bp)=(1,.3538,0); rgb(243bp)=(1,.3385,0); rgb(244bp)=(1,.3231,0); rgb(245bp)=(1,.3077,0); rgb(246bp)=(1,.2923,0); rgb(247bp)=(1,.2769,0); rgb(248bp)=(1,.2615,0); rgb(249bp)=(1,.2462,0); rgb(250bp)=(1,.2308,0); %
+rgb(251bp)=(1,.2154,0); rgb(252bp)=(1,.2,0); rgb(253bp)=(1,.1846,0); rgb(254bp)=(1,.1692,0); rgb(255bp)=(1,.1538,0); rgb(256bp)=(1,.1385,0); rgb(257bp)=(1,.1231,0); rgb(258bp)=(1,.1077,0); rgb(259bp)=(1,.0923,0); rgb(260bp)=(1,.0769,0); rgb(261bp)=(1,.0615,0); rgb(262bp)=(1,.0462,0); rgb(263bp)=(1,.0308,0); rgb(264bp)=(1,.0154,0); rgb(265bp)=(1,0,0); rgb(266bp)=(1,0,0); rgb(267bp)=(1,0,0); rgb(268bp)=(1,0,0); rgb(269bp)=(1,0,0); rgb(270bp)=(1,0,0); rgb(271bp)=(1,0,0); rgb(272bp)=(1,0,0); rgb(273bp)=(1,0,0); rgb(274bp)=(1,0,0); rgb(275bp)=(1,0,0); rgb(276bp)=(1,0,0); rgb(277bp)=(1,0,0); rgb(278bp)=(1,0,0); rgb(279bp)=(1,0,0); rgb(280bp)=(1,0,0); rgb(281bp)=(1,0,0); rgb(282bp)=(1,0,0); rgb(283bp)=(1,0,0); rgb(284bp)=(1,0,0); rgb(285bp)=(1,0,0); rgb(286bp)=(1,0,0); rgb(287bp)=(1,0,0); rgb(288bp)=(1,0,0); rgb(289bp)=(1,0,0); rgb(290bp)=(1,0,0); rgb(291bp)=(1,0,0); rgb(292bp)=(1,0,0); rgb(293bp)=(1,0,0); rgb(294bp)=(1,0,0); rgb(295bp)=(1,0,0); rgb(296bp)=(1,0,0); rgb(297bp)=(1,0,0); rgb(298bp)=(1,0,0); rgb(299bp)=(1,0,0); rgb(300bp)=(1,0,0); %
+rgb(301bp)=(1,0,0); rgb(302bp)=(1,0,0); rgb(303bp)=(1,0,0); rgb(304bp)=(1,0,0); rgb(305bp)=(1,0,0); rgb(306bp)=(1,0,0); rgb(307bp)=(1,0,0); rgb(308bp)=(1,0,0); rgb(309bp)=(1,0,0); rgb(310bp)=(1,0,0); rgb(311bp)=(1,0,0); rgb(312bp)=(1,0,0); rgb(313bp)=(1,0,0); rgb(314bp)=(1,0,0); rgb(315bp)=(1,0,0); rgb(316bp)=(1,0,0); rgb(317bp)=(1,0,0); rgb(318bp)=(1,0,0); rgb(319bp)=(1,0,0); rgb(320bp)=(1,0,0); rgb(321bp)=(.9913,0,0); rgb(322bp)=(.9825,0,0); rgb(323bp)=(.9738,0,0); rgb(324bp)=(.965,0,0); rgb(325bp)=(.9563,0,0); rgb(326bp)=(.9475,0,0); rgb(327bp)=(.9388,0,0); rgb(328bp)=(.93,0,0); rgb(329bp)=(.9213,0,0); rgb(330bp)=(.9125,0,0); rgb(331bp)=(.9038,0,0); rgb(332bp)=(.895,0,0); rgb(333bp)=(.8863,0,0); rgb(334bp)=(.8775,0,0); rgb(335bp)=(.8688,0,0); rgb(336bp)=(.86,0,0); rgb(337bp)=(.8513,0,0); rgb(338bp)=(.8425,0,0); rgb(339bp)=(.8338,0,0); rgb(340bp)=(.825,0,0); rgb(341bp)=(.8163,0,0); rgb(342bp)=(.8075,0,0); rgb(343bp)=(.7988,0,0); rgb(344bp)=(.79,0,0); rgb(345bp)=(.7813,0,0); rgb(346bp)=(.7725,0,0); rgb(347bp)=(.7638,0,0); rgb(348bp)=(.755,0,0); rgb(349bp)=(.7463,0,0); rgb(350bp)=(.7375,0,0); %
+rgb(351bp)=(.7288,0,0); rgb(352bp)=(.72,0,0); rgb(353bp)=(.7113,0,0); rgb(354bp)=(.7025,0,0); rgb(355bp)=(.6938,0,0); rgb(356bp)=(.685,0,0); rgb(357bp)=(.6763,0,0); rgb(358bp)=(.6675,0,0); rgb(359bp)=(.6588,0,0); rgb(360bp)=(.65,0,0); rgb(361bp)=(.6413,0,0); rgb(362bp)=(.6325,0,0); rgb(363bp)=(.6238,0,0); rgb(364bp)=(.615,0,0); rgb(365bp)=(.6063,0,0); rgb(366bp)=(.5975,0,0); rgb(367bp)=(.5888,0,0); rgb(368bp)=(.58,0,0); rgb(369bp)=(.5713,0,0); rgb(370bp)=(.5625,0,0); rgb(371bp)=(.5538,0,0); rgb(372bp)=(.545,0,0); rgb(373bp)=(.5363,0,0); rgb(374bp)=(.5275,0,0); rgb(375bp)=(.5188,0,0); rgb(376bp)=(.51,0,0); rgb(377bp)=(.5013,0,0); rgb(378bp)=(.4925,0,0); rgb(379bp)=(.4838,0,0); rgb(380bp)=(.475,0,0); rgb(381bp)=(.4663,0,0); rgb(382bp)=(.4575,0,0); rgb(383bp)=(.4488,0,0); rgb(384bp)=(.44,0,0); rgb(385bp)=(.4313,0,0); rgb(386bp)=(.4225,0,0); rgb(387bp)=(.4138,0,0); rgb(388bp)=(.405,0,0); rgb(389bp)=(.3963,0,0); rgb(390bp)=(.3875,0,0); rgb(391bp)=(.3788,0,0); rgb(392bp)=(.37,0,0); rgb(393bp)=(.3613,0,0); rgb(394bp)=(.3525,0,0); rgb(395bp)=(.3438,0,0); rgb(396bp)=(.335,0,0); rgb(397bp)=(.3263,0,0); rgb(398bp)=(.3175,0,0); rgb(399bp)=(.3088,0,0); rgb(400bp)=(.3,0,0); %
+}}%
+\fi\fi%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \pgfspectrarainbow[<tikz options>](<rainbow fade>,<rainbow start>,<rainbow knock out>,<rainbow background>,<rainbow transparency>){radius}
+% tikz options -> color, opacity,scope fading
+% rainbow clip -> applies a scope fading in clipped region
+% ...
+\pgfkeys{/wl/.cd,%
+rainbow fade/.get=\wl@rainbowfade,%
+rainbow fade/.store in=\wl@rainbowfade,%
+rainbow fade/.default={},%
+rainbow start/.get=\wl@rainbow@start,%
+rainbow start/.store in=\wl@rainbow@start,%
+rainbow start/.default=.6,% -> 60%
+rainbow knock out/.get=\wl@rainbow@KO,%
+rainbow knock out/.store in=\wl@rainbow@KO,%
+rainbow knock out/.default=.4,% -> 40%
+rainbow background/.get=\wl@rainbowback,%
+rainbow background/.store in=\wl@rainbowback,%
+rainbow background/.default=white,%
+rainbow transparency/.get=\wl@rainbowtransp,%
+rainbow transparency/.store in=\wl@rainbowtransp,%
+rainbow transparency/.default=0}% -> 0%
+%
+\def\pgfspectrarainbow{\ignorespaces\@ifnextchar[\pgf@spectrarainbow{\pgf@spectrarainbow[]}}%
+\def\pgf@spectrarainbow[#1]{\ignorespaces\@ifnextchar({\pgf@spectra@rainbow{#1}}{\pgf@spectra@rainbow{#1}()}}%
+%
+\def\pgf@spectra@rainbow#1(#2)#3{\ignorespaces%
+\pgfkeys{/wl/.cd,rainbow fade,rainbow start,rainbow knock out,rainbow background,rainbow transparency}%
+\pgfkeys{/wl/.cd,#2}%
+\pgfmathparse{100-\wl@rainbowtransp*100}\edef\wl@rainbow@transp{\pgfmathresult}%
+\pgfmathparse{\wl@rainbowtransp*100}\edef\wl@rainbow@transp@w{\pgfmathresult}%
+\edef\wl@rainbowend{.8875cm}\pgfmathparse{\wl@rainbow@start*\wl@rainbowend/1cm}\edef\wl@rainbowstart{\pgfmathresult cm}%
+\pgfmathparse{\wl@rainbow@KO*#3/1cm}\edef\wl@rainbowKO{\pgfmathresult cm}%%\edef\wl@rainbowKO{\wl@rainbow@KO cm}%
+\ifdim\wl@rainbowstart<\wl@rainbowend\relax%
+\ifdim\wl@rainbowstart<.0175cm\relax\edef\wl@rainbowstart{.0175cm}\fi% ensuring there is no error in radial shading
+\pgfkeys{/pgf/number format/.cd,fixed,precision=3,set thousands separator={},assume math mode=true}%
+\pgfmathparse{\wl@rainbowstart-1/50*(\wl@rainbowend-\wl@rainbowstart)}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@rainbowresult}%
+\edef\rO{\wl@rainbowresult pt}%
+\@for\n:={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51}\do{%
+\pgfmathparse{380+(\n-1)*8}\edef\wl@currentwl{\pgfmathresult}%
+\wlcolor{\wl@currentwl}%
+\edef\wl@colorname{wlshcol\@Roman\n}\relax\colorlet{\wl@colorname}{wlcolor!100!transparent!\wl@rainbow@transp}%
+\pgfmathparse{\wl@rainbowstart+1/50*(\n-1)*(\wl@rainbowend-\wl@rainbowstart)}%
+\pgfmathprintnumberto{\pgfmathresult}{\wl@rainbowresult}%
+\expandafter\edef\csname r\@Roman\n\endcsname{\wl@rainbowresult pt}%
+}%
+\pgfdeclareradialshading{pgfspectrarainbow}{\pgfpoint{0pt}{0pt}}{%
+color(0cm)=(\wl@rainbowback!\wl@rainbow@transp@w!white);color(4/5*\rO)=(\wl@rainbowback!\wl@rainbow@transp@w!white!50);color(\rO)=(white);%
+color(\rI)=(wlshcolI);color(\rII)=(wlshcolII);color(\rIII)=(wlshcolIII);color(\rIV)=(wlshcolIV);color(\rV)=(wlshcolV);color(\rVI)=(wlshcolVI);color(\rVII)=(wlshcolVII);color(\rVIII)=(wlshcolVIII);color(\rIX)=(wlshcolIX);color(\rX)=(wlshcolX);%
+color(\rXI)=(wlshcolXI);color(\rXII)=(wlshcolXII);color(\rXIII)=(wlshcolXIII);color(\rXIV)=(wlshcolXIV);color(\rXV)=(wlshcolXV);color(\rXVI)=(wlshcolXVI);color(\rXVII)=(wlshcolXVII);color(\rXVIII)=(wlshcolXVIII);color(\rXIX)=(wlshcolXIX);color(\rXX)=(wlshcolXX);%
+color(\rXXI)=(wlshcolXXI);color(\rXXII)=(wlshcolXXII);color(\rXXIII)=(wlshcolXXIII);color(\rXXIV)=(wlshcolXXIV);color(\rXXV)=(wlshcolXXV);color(\rXXVI)=(wlshcolXXVI);color(\rXXVII)=(wlshcolXXVII);color(\rXXVIII)=(wlshcolXXVIII);color(\rXXIX)=(wlshcolXXIX);color(\rXXX)=(wlshcolXXX);%
+color(\rXXXI)=(wlshcolXXXI);color(\rXXXII)=(wlshcolXXXII);color(\rXXXIII)=(wlshcolXXXIII);color(\rXXXIV)=(wlshcolXXXIV);color(\rXXXV)=(wlshcolXXXV);color(\rXXXVI)=(wlshcolXXXVI);color(\rXXXVII)=(wlshcolXXXVII);color(\rXXXVIII)=(wlshcolXXXVIII);color(\rXXXIX)=(wlshcolXXXIX);color(\rXL)=(wlshcolXL);%
+color(\rXLI)=(wlshcolXLI);color(\rXLII)=(wlshcolXLII);color(\rXLIII)=(wlshcolXLIII);color(\rXLIV)=(wlshcolXLIV);color(\rXLV)=(wlshcolXLV);color(\rXLVI)=(wlshcolXLVI);color(\rXLVII)=(wlshcolXLVII);color(\rXLVIII)=(wlshcolXLVIII);color(\rXLIX)=(wlshcolXLIX);color(\rL)=(wlshcolL);color(\rLI)=(wlshcolLI);%
+color(.95cm)=(wlshcolLI)%
+}%
+\ifx\wl@rainbowfade\@empty\relax%
+\tikz{\clip(-#3,\wl@rainbowKO) rectangle ++(2*#3,#3-\wl@rainbowKO);%
+\fill[#1,shading=pgfspectrarainbow] (0,0) circle(#3);}%
+\else%
+\tikz{\clip[scope fading=\wl@rainbowfade] (-#3,\wl@rainbowKO) rectangle ++(2*#3,#3-\wl@rainbowKO);%
+\fill[shading=pgfspectrarainbow,\wl@rainbowback,#1] (0,0) circle(#3);}%
+\fi%
+\else\PackageError{pgf-spectra}{invalid 'rainbow start' value (rainbow start=\wl@rainbow@start). The rainbow start should be greater or equal then 0 and lower then 1.}{Don�t forget that 'rainbow start' value is the fraction from witch the colors begin, relative to the center of a circle with radius 1...}%
+\fi
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \tempercolor -> Convert a temperature in Kelvin to rgb color
+%
+% The original algorithm used in this macro can be found at
+%
+%                                    https://github.com/neilbartlett/color-temperature
+%
+% More information at...
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% --------------------------------------------------------------------------------------------------------------
+% https://tannerhelland.com/2012/09/18/convert-temperature-rgb-algorithm-code.html
+%
+% �Start with a temperature, in Kelvin, somewhere between 1000 and 40000.  (Other values may work,
+% but I can't make any promises about the quality of the algorithm's estimates above 40000 K.)�
+%                                                                                                                       Tanner Helland
+% https://www.zombieprototypes.com/?p=210
+%---------------------------------------------------------------------------------------------------------------
+% and the improved algorithm at...
+% --------------------------------------------------------------------------------------------------------------
+% https://github.com/neilbartlett/color-temperature
+%
+% neilbartlett/color-temperature is licensed under the
+%
+% MIT License
+% A short and simple permissive license with conditions only requiring preservation of copyright and license notices.
+% Licensed works, modifications, and larger works may be distributed under different terms and without source code.
+%
+% Permissions
+%      Commercial use, Modification,  Distribution,  Private use
+% Limitations
+%    Liability,  Warranty
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% The MIT License (MIT)
+%
+% Copyright (c) 2015 Neil Bartlett
+%
+% Permission is hereby granted, free of charge, to any person obtaining a copy
+% of this software and associated documentation files (the "Software"), to deal
+% in the Software without restriction, including without limitation the rights
+% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+% copies of the Software, and to permit persons to whom the Software is
+% furnished to do so, subject to the following conditions:
+%
+% The above copyright notice and this permission notice shall be included in
+% all copies or substantial portions of the Software.
+%
+% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+% THE SOFTWARE.
+% � 2021 GitHub, Inc.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\definecolor{tempercolor}{rgb}{0,0,0}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% \tempercolor{Kelvin}
+\def\tempercolor#1{\ignorespaces%
+%Set Temperature = Temperature \ 100
+\edef\wl@temperatura{#1sp}%
+\ifdim\wl@temperatura>16380sp\relax% for supporting large values of T
+\pgfkeys{/pgf/number format/.cd,fixed,precision=2,fixed zerofill,set thousands separator={},assume math mode=true}%
+\pgfmathparse{#1sp/100sp*1.0026931+.002}% correction factor for the division made in sp
+\pgfmathprintnumberto{\pgfmathresult}{\wl@T@tmp}%
+\edef\wl@temperatura{\wl@T@tmp}%
+\edef\wl@temperatura@pt{\pgfmathresult pt}%
+\else%
+\pgfmathparse{#1/100}%
+\edef\wl@temperatura{\pgfmathresult}%
+\edef\wl@temperatura@pt{\pgfmathresult pt}%
+\fi%
+\ifdim\wl@temperatura@pt<10pt\relax%
+\PackageError{pgf-spectra}{tempercolor: the temperature must be at least 1000K}{Type a greater temperature...}%
+\else\ifdim\wl@temperatura@pt>400pt\relax%
+\PackageError{pgf-spectra}{tempercolor: the temperature must be at most 40000K}{Type a smaller temperature...}%
+\else%
+%Calculate Red:
+\ifdim\wl@temperatura@pt>66pt\relax%
+    \pgfmathparse{\wl@temperatura-55}\edef\wl@tempercolor@r{\pgfmathresult}%
+    \pgfmathparse{351.976906+ 0.114207*\wl@tempercolor@r-40.253663*ln(\wl@tempercolor@r)}%
+    \edef\wl@tempercolor@r{\pgfmathresult}%
+    \edef\wl@tempercolor@r@pt{\pgfmathresult pt}%
+    \ifdim\wl@tempercolor@r@pt<0pt\edef\wl@tempercolor@r{0}\relax\fi%
+    \ifdim\wl@tempercolor@r@pt>255pt\edef\wl@tempercolor@r{255}\relax\fi%
+    \pgfmathparse{\wl@tempercolor@r/255}\edef\wl@tempercolor@r{\pgfmathresult}%
+\else%
+    \edef\wl@tempercolor@r{1}%
+\fi%
+% Calculate Green:
+\ifdim\wl@temperatura@pt>66pt\relax%
+    \pgfmathparse{\wl@temperatura-50}\edef\wl@tempercolor@g{\pgfmathresult}%
+    \pgfmathparse{325.449413+0.079435*\wl@tempercolor@g -28.085296*ln(\wl@tempercolor@g)}%
+    \edef\wl@tempercolor@g{\pgfmathresult}%
+    \edef\wl@tempercolor@g@pt{\pgfmathresult pt}%
+    \ifdim\wl@tempercolor@g@pt<0pt\edef\wl@tempercolor@g{0}\relax\fi%
+    \ifdim\wl@tempercolor@g@pt>255pt\edef\wl@tempercolor@g{255}\relax\fi%
+    \pgfmathparse{\wl@tempercolor@g/255}\edef\wl@tempercolor@g{\pgfmathresult}%
+\else%
+    \pgfmathparse{\wl@temperatura-2}\edef\wl@tempercolor@g{\pgfmathresult}%
+    \pgfmathparse{-155.254856-0.445970*\wl@tempercolor@g+104.492162*ln(\wl@tempercolor@g)}%
+    \edef\wl@tempercolor@g{\pgfmathresult}%
+    \edef\wl@tempercolor@g@pt{\pgfmathresult pt}%
+    \ifdim\wl@tempercolor@g@pt<0pt\edef\wl@tempercolor@g{0}\relax\fi%
+    \ifdim\wl@tempercolor@g@pt>255pt\edef\wl@tempercolor@b{255}\relax\fi%
+    \pgfmathparse{\wl@tempercolor@g/255}\edef\wl@tempercolor@g{\pgfmathresult}%
+\fi%
+%Calculate Blue:
+\ifdim\wl@temperatura@pt<66pt\relax%
+    \ifdim\wl@temperatura@pt>20pt\relax%
+    \pgfmathparse{\wl@temperatura-10}\edef\wl@tempercolor@b{\pgfmathresult}%
+    \pgfmathparse{-254.769352+0.827410*\wl@tempercolor@b+115.679944*ln(\wl@tempercolor@b)}%
+    \edef\wl@tempercolor@b{\pgfmathresult}%
+    \edef\wl@tempercolor@b@pt{\pgfmathresult pt}%
+    \ifdim\wl@tempercolor@b@pt<0pt\edef\wl@tempercolor@b{0}\relax\fi%
+    \ifdim\wl@tempercolor@b@pt>255pt\edef\wl@tempercolor@b{255}\relax\fi%
+    \pgfmathparse{\wl@tempercolor@b/255}\edef\wl@tempercolor@b{\pgfmathresult}%
+    \else%
+    \edef\wl@tempercolor@b{0}%
+    \fi%
+\else%
+    \edef\wl@tempercolor@b{1}%
+\fi%
+\definecolor{wl@@tempercolor}{rgb}{\wl@tempercolor@r,\wl@tempercolor@g,\wl@tempercolor@b}%
+\colorlet{tempercolor}{wl@@tempercolor}%
+\fi\fi% check limits 1000K<T<40000K
+}%
+% <--- NEW v2.1.0 ------------------
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %
-% nm2rgb convert nanometer wavelength to rgb
+% nm2rgb convert nanometre wavelength to rgb
 % (380 <= Lambda <= 780 ) -> r,g,b on stack
 %
 % BASED on FORTRAN Code
@@ -921,26 +1371,23 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
 \newdimen\wlc@lorr%red (0. - 1)
 \newdimen\wlc@lorg%green (0. - 1)
 \newdimen\wlc@lorb%blue (0. - 1) % wavelength to rgb values
-\newcount\wl@counta% tmp counter
-\newcount\wl@countb% tmp counter
-\newcount\wl@countc% tmp counter
-\newcount\wl@countd% tmp counter
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 % \wlcolor{wavelength}
 \def\wlcolor#1{\ignorespaces%
+\ifx\wl@bright\undefined\relax\def\wl@bright{100}\fi% NEW v2.1.0
 \wl=#1pt%
 \@wl@gamma=\wl@gamma pt%
 % compute the rgb components
-\ifdim\wl<10pt\relax\PackageWarning{pgf-spectra}{(#1nm) wavelength out of range ignored. The wavelength must be graeter or equal to 10nm (EUV)...}\else% NEW
-\ifdim\wl<379.99999pt\relax\else%% NEW
+\ifdim\wl<10pt\relax\PackageWarning{pgf-spectra}{(#1nm) wavelength out of range ignored. The wavelength must be graeter or equal to 10nm (EUV)...}\else% NEW v2.0.0
+\ifdim\wl<379.99999pt\relax\else%% NEW v2.0.0
 \ifdim\wl<440pt\wlc@lorr=440pt\advance\wlc@lorr by-\wl\divide\wlc@lorr by60\wlc@lorg=0pt\wlc@lorb=1pt\else%
 \ifdim\wl<490pt\wlc@lorr=0pt\wlc@lorg=\wl\advance\wlc@lorg by-440pt\divide\wlc@lorg by50\wlc@lorb=1pt\else%
 \ifdim\wl<510pt\wlc@lorr=0pt\wlc@lorg=1pt\wlc@lorb=510pt\advance\wlc@lorb by-\wl\divide\wlc@lorb by20\else%
 \ifdim\wl<580pt\wlc@lorr=\wl\advance\wlc@lorr by-510pt\divide\wlc@lorr by70\wlc@lorg=1pt\wlc@lorb=0pt\else%
 \ifdim\wl<645pt\wlc@lorr=1pt\wlc@lorg=645pt\advance\wlc@lorg by-\wl\divide\wlc@lorg by65\wlc@lorb=0pt\else%
 \ifdim\wl<780.00001pt\wlc@lorr=1pt\wlc@lorg=0pt\wlc@lorb=0pt\else%
-\ifdim\wl>4000pt\relax\PackageWarning{pgf-spectra}{invalid wavelength (#1nm). The wavelength must be lesser or equal to 4000nm (NIR)...}% NEW
+\ifdim\wl>4000pt\relax\PackageWarning{pgf-spectra}{invalid wavelength (#1nm). The wavelength must be lesser or equal to 4000nm (NIR)...}% NEW v2.0.0
 \relax%
 \fi\fi\fi\fi\fi\fi\fi\fi\fi%
 % intensity correction at vision limits
@@ -949,13 +1396,17 @@ relative intensity threshold=0.25,absorption=false,axis=false,label=false,relati
 \wl@i=1pt%
 \fi\fi%
 %apply intensity at vision limits correction and  gamma
-\ifdim\wl<380pt\colorlet{wl@temp}{\wl@UVcolor}\else\ifdim\wl>780pt\colorlet{wl@temp}{\wl@IRcolor}\else% NEW
+\ifdim\wl<380pt\colorlet{wl@temp}{\wl@UVcolor}\else\ifdim\wl>780pt\colorlet{wl@temp}{\wl@IRcolor}\else% NEW v2.0.0
 \pgfmathparse{\wlc@lorr*\wl@i^\@wl@gamma}\edef\wl@red{\pgfmathresult}%
 \pgfmathparse{\wlc@lorg*\wl@i^\@wl@gamma}\edef\wl@green{\pgfmathresult}%
 \pgfmathparse{\wlc@lorb*\wl@i^\@wl@gamma}\edef\wl@blue{\pgfmathresult}%
 \definecolor{wl@temp}{rgb}{\wl@red,\wl@green,\wl@blue}%
-\fi\fi% NEW
-\colorlet{wlcolor}{wl@temp}
+\fi\fi% NEW v2.0.0
+\ifwl@usevisibleshade\relax% NEW v2.1.0
+\colorlet{wlcolor}{wl@temp!\wl@bright!\wl@backvisible}%
+\else%
+\colorlet{wlcolor}{wl@temp}%
+\fi%
 }%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
author	Karl Berry <karl@freefriends.org>	2021-05-17 20:42:39 +0000
committer	Karl Berry <karl@freefriends.org>	2021-05-17 20:42:39 +0000
commit	b6f5da4a89743f4721fee57f625adfa5f5a902e8 (patch)
tree	ff0cb53392fae20e9c72151ab2dc4253dbfb96db
parent	a8319d0562628a7cb15c911bcb2b808ef841938f (diff)