summaryrefslogtreecommitdiff
path: root/graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty')
-rw-r--r--graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty2853
1 files changed, 2853 insertions, 0 deletions
diff --git a/graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty b/graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty
new file mode 100644
index 0000000000..8b036064f0
--- /dev/null
+++ b/graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty
@@ -0,0 +1,2853 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Hugo Gomes @ 10/10/2022 (v1.0.0)
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\NeedsTeXFormat{LaTeX2e}%
+\ProvidesPackage{pgf-PeriodicTable}[10/10/2022 pgf-PeriodicTable v1.0.0]%%
+\RequirePackage{tikz}%
+\usetikzlibrary{fadings}%
+\tikzfading[name=aumentax, left color=transparent!80, right color=transparent!1]%
+\tikzfading[name=diminuix, left color=transparent!1, right color=transparent!80]%
+\tikzfading[name=aumentay, top color=transparent!80, bottom color=transparent!1]%
+\tikzfading[name=diminuiy, bottom color=transparent!80, top color=transparent!1]%
+\RequirePackage[T1]{fontenc}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\DeclareOption{pt}{\def\pgfPT@defaultLanguage{pt}}%
+\DeclareOption{en}{\def\pgfPT@defaultLanguage{en}}%
+\DeclareOption{fr}{\def\pgfPT@defaultLanguage{fr}}%
+\DeclareOption{de}{\def\pgfPT@defaultLanguage{de}}%
+\DeclareOption{it}{\def\pgfPT@defaultLanguage{it}}%
+\DeclareOption{es}{\def\pgfPT@defaultLanguage{es}}%
+\DeclareOption{br}{\def\pgfPT@defaultLanguage{br}}%
+\ExecuteOptions{en}%
+\ProcessOptions\relax%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newcount\pgfPT@counta\newcount\pgfPT@countb%
+\newcount\pgfPT@countc\newcount\pgfPT@countd%
+\newcount\pgfPT@counte\newcount\pgfPT@countf%
+\newcount\pgfPT@num%
+\newdimen\pgfPT@dima%
+\newdimen\pgfPT@dimb%
+\newdimen\pgfPT@dimc%
+\newdimen\pgfPT@boxwd%
+\newdimen\pgfPT@boxht%
+\newdimen\pgfPT@data@Z@natwd%
+\newif\ifpgfPT@temp%
+\newif\ifpgfPT@found%
+\newif\ifpgfPTis@backcolorsolid%
+\newif\ifpgfPTis@labeldrawn%
+\newif\ifpgfPT@drawLaAc%
+\def\pgfPT@true{true}%
+\def\pgfPT@false{false}%
+\def\pgfPT@relax{}%
+\def\pgfPT@box@zerodepth#1{{\setbox0=\hbox{#1}\dp0=0pt\box0\relax}}%
+\def\pgfPT@mbox@zerodepth#1{{\setbox0=\hbox{#1}\dp0=0pt\mbox{\box0}\relax}}%
+\def\pgfPT@box@smash#1{{\setbox0=\hbox{#1}\dp0=0pt\ht0=0pt\box0\relax}}%
+\def\pgfPTg@bblespaces#1\relax{\edef\pgfPT@listn@spaces{\zap@space#1 \@empty}}%
+\newsavebox\pgfPT@radiobox%
+\newsavebox\pgfPT@econfbox%
+\newsavebox\pgfPT@tmpbox%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\@pgfPT@setlayers{%
+\edef\@pgfPT@layers{pgfPTpaperlayer,pgfPTbacklayer,\pgf@layerlist}%
+\pgfdeclarelayer{pgfPTbacklayer}%
+\pgfdeclarelayer{pgfPTpaperlayer}%
+\pgfsetlayers{\@pgfPT@layers}%
+}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\input{pgfPT.buildcell.tex}% Loading cell building macros
+\input{pgfPT.formatNumbers.tex}% Loading number formatting
+\input{pgfPT.drawing.keys.tex}% Loading keys for the Periodic Table Layout
+\input{pgfPT.backcolors.keys.tex}% Loading keys for the Periodic Table colors
+\input{pgfPT.data.tex}% Loading the data of the elements in the Periodic Table
+\input{pgfPT.names.tex}% Loading the names of the elements in the Periodic Table
+\input{pgfPT.labels.tex}% Loading language labels
+\input{pgfPT.process.language.tex}% Macros for process language labels
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% --------------------------------------------------------------------------------------------------
+% commands #################################################
+% Setting global style for the Periodic Table
+\def\pgfPTstyle[#1]{\pgfPTresetstyle\relax\tikzset{/pgfPerTable/.cd,#1}}%
+% END !! \pgfPTstyle
+%
+% Resetting global style for the Periodic Table
+\def\pgfPTresetstyle{\tikzset{/pgfPerTable/.cd,languages,other languages font,other languages color,%
+font,IUPAC,capitalize element names=false,show title,show period numbers,show group numbers,%
+show legend,legend acronyms,legend back color,show legend pins,show extra legend,legend radio color,%
+legend CS color,legend Z color,show blocks=false,show families=false,show MNM line,show periodic variations=false,%
+show label LaAc,title font,title color,cell width,cell height,cell style,label font,period label color,group label color,%
+label LaAc font,Z list,CS solid, CS liquid,CS gas,CS synt,CS font,CS render mode,CS outline color,CS outline width,%
+Z backcolor,Z color,Z font,Z align,Z padding,Z use box width=false,name color,name font,Ar color,Ar font,Ar label,Ar precision,%
+R color,R font,Rcov color,Rcov font,Rion color,Rion font,Ei color,Ei font,eneg color,eneg font,eaff color,eaff font,%
+O color,O font,Tmelt color,Tmelt font,TmeltC color,TmeltC font,Tboil color,Tboil font,TboilC color,TboilC font,%
+eDist color,eDist font,eDist sep,eConfign color,eConfign font,eConfignl color,eConfignl font,d color,d font,Cp color,Cp font,%
+kT color,kT font,ls color,ls font,ls align,ls,lsa color,lsa font,lsb color,lsb font,lsc color,lsc font,lsca color,lsca font,%
+DiscY color,DiscY font,DiscY BC scale,DiscC color,DiscC font,spectra color,spectra font,MNM line color,MNM line width,%DiscC,
+blocks font,s block color,s block font color,s block line width,p block color,p block font color,p block line width,d block color,d block font color,d block line width,%
+f block color,f block font color,f block line width,families font,r family color,r family font color,r family line width,tm family color,tm family font color,tm family line width,%
+itm family color,itm family font color,itm family line width,varR color,varR font,varEi color,varEi font,vareaff color,vareaff font,varR font color,varEi font color,vareaff font color,%
+only cells=false,only cells plus Z=false,only cells with periods and group numbers=false,%
+only cells with periods and group numbers plus Z=false,back color scheme,back color,%
+Z exercise list,exercise list in capitals,exercise list color,exercise list font,%exercise mode=false,
+d precision,E precision,ls precision,T precision,Cp precision,kT precision%
+}%
+\tikzset{/pgfPerTable/.cd,legend box,legend pins,extra legend,background}%
+}%
+% END !! \pgfPTresetstyle
+%
+% Drawing the Periodic Table
+% the main macro do draw the Periodic Table of Elements
+% \pfgfPT[<keys>] ----------------------------------------------------------------------------------------------
+% OUTPUT: a full or partial graphical Periodic Table of Elements
+\def\pgfPT{\relax\@ifnextchar[\pgfPT@draw{\pgfPT@draw[]}}%
+\def\pgfPT@draw[#1]{%
+\@pgfPT@setlayers%
+\tikz[every node/.append style={inner sep=0pt,below right}]{%
+\pgfkeys{/pgfPerTable/.cd,#1}%
+\fontfamily{\pgfPTglobalfont}\selectfont\renewcommand*\rmdefault{\pgfPTglobalfont}%
+\edef\pgfPT@doc@fsize{\f@size}%
+\input{pgfPT.coordinates.tex}%
+% loading the cell style
+\pgfPT@loadcell[\pgfPTcellstyle]%
+\ifx\pgfPTZexlist\@empty\relax%
+\else%
+ \global\pgfPTexModetrue%
+ \ifpgfPTonlycellsZ\relax\else%
+ \ifpgfPTonlycellsPerAndGroupNum\relax\else%
+ \ifpgfPTonlycellsPerAndGroupNumZ\relax\else%
+ \global\pgfPTonlycellstrue\fi\fi\fi%
+\fi%
+% process fake styles
+\ifpgfPTonlycells%
+ \pgfkeys{/pgfPerTable/.cd,back color scheme=solid,show title=false,show period numbers=false,show group numbers=false,show legend=false,show MNM line=false}%
+ % Setting all if<what>'s to false:
+ \@for\@pgfPT@tmp:=\pgfPT@contents@acronyms\do{\expandafter\csname pgfPT@\@pgfPT@tmp false\endcsname\relax}%
+\fi%
+\ifpgfPTonlycellsZ%
+ \pgfkeys{/pgfPerTable/.cd,back color scheme=solid,show title=false,show period numbers=false,show group numbers=false,show legend=false,show MNM line=false}%
+ \pgfPT@loadcell[\pgfPTcellstyle]%
+ % Setting all if<what>'s to false:
+ \@for\@pgfPT@tmp:=\pgfPT@contents@acronyms\do{\expandafter\csname pgfPT@\@pgfPT@tmp false\endcsname\relax}%
+ \pgfPT@Ztrue%
+\fi%
+\ifpgfPTonlycellsPerAndGroupNum%
+ \pgfkeys{/pgfPerTable/.cd,back color scheme=solid,show title=false,show legend=false,show MNM line=false}%
+ % Setting all if<what>'s to false:
+ \@for\@pgfPT@tmp:=\pgfPT@contents@acronyms\do{\expandafter\csname pgfPT@\@pgfPT@tmp false\endcsname\relax}%
+\fi%
+\ifpgfPTonlycellsPerAndGroupNumZ%
+ \pgfkeys{/pgfPerTable/.cd,back color scheme=solid,show title=false,show legend=false,show MNM line=false}%
+ \pgfPT@loadcell[\pgfPTcellstyle]%
+ % Setting all if<what>'s to false:
+ \@for\@pgfPT@tmp:=\pgfPT@contents@acronyms\do{\expandafter\csname pgfPT@\@pgfPT@tmp false\endcsname\relax}%
+ \pgfPT@Ztrue%
+\fi%
+% end fake styles
+% process the Z list ----->
+\pgfPT@processlist%
+% process background colors of the cells:
+% if user chooses 'solid' then all cells have the chosen color
+% else loads a color scheme ----->
+\edef\pgfPT@teststra{solid}\edef\pgfPT@teststrb{\pgfPTbcs}%
+\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPTis@backcolorsolidtrue\else\pgfPTis@backcolorsolidfalse\fi%
+\ifpgfPTis@backcolorsolid%
+\xglobal\colorlet{cpgfPTTMP}{\pgfPTbcsolid}\edef\pgfPT@@colorlist{}%
+\else%
+\edef\pgfPT@@colorlist{\csname pgfPT@backColorsScheme@\pgfPTbcs\endcsname}%
+\fi%
+% setting colors for the chemical symbols ----->
+\colorlet{solido}{\pgfPTcSQsol}%
+\colorlet{liquido}{\pgfPTcSQliq}%
+\colorlet{gasoso}{\pgfPTcSQgas}%
+\colorlet{sintetico}{\pgfPTcSQsint}%
+% getting the stroke rgb components for the outline of chemical symbols ----->
+\pgfPT@extract@rgb@stroke{\pgfPTCSolc}%
+% setting the text render mode for the chemical symbols ----->
+\edef\pgfPT@teststra{fill}\edef\pgfPT@teststrb{\pgfPTCSrender}%
+\ifx\pgfPT@teststra\pgfPT@teststrb\edef\pgfPT@CS@txt@render{0}\else\edef\pgfPT@teststra{outline}\relax%
+\ifx\pgfPT@teststra\pgfPT@teststrb\edef\pgfPT@CS@txt@render{1}\else\relax\edef\pgfPT@CS@txt@render{2}\fi\relax\fi%
+% computing and defining shifts ----->
+\pgfmathparse{-.075*\pgfPTcellwd}\edef\pgfPT@perlabel@xshift{\pgfmathresult}%
+\pgfmathparse{.075*\pgfPTcellht}\edef\pgfPT@grlabel@yshift{\pgfmathresult}%
+\pgfmathparse{.5*\pgfPTcellwd}\edef\pgfPT@@xshift{\pgfmathresult}% ??? ELIMINAR buildcell
+\pgfmathparse{-.5*\pgfPTcellht}\edef\pgfPT@CS@yshift{\pgfmathresult}% ELIMINAR buildcell
+\ifpgfPT@radio\pgfmathsetlength{\pgfPT@dima}{.9*\pgfPT@data@radio@ht}\fi%
+\savebox{\pgfPT@radiobox}{\includegraphics[height=\pgfPT@dima]{pgfPT_radio_symbol.pdf}}
+% computing and defining the font size for standard atomic weight ----->
+\ifpgfPT@Arstar\pgfPTArfont\selectfont\pgfmathsetlength{\pgfPT@dimb}{.825*\f@size}\relax\fi%
+% drawing the cells of lanthanides and actinides ----->
+\ifpgfPTIUPACMMIX%
+ \global\pgfPT@drawLaAcfalse%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=72\global\pgfPT@drawLaActrue\breakforeach\fi%
+ }%
+ \edef\pgfPT@teststrb{\pgfPTcells}%
+ \edef\pgfPT@teststra{G4}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaAcfalse\fi%
+ \edef\pgfPT@teststra{G3}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\edef\pgfPT@@cellslist{\pgfPT@cells@GIIILaAc}\fi%
+ \edef\pgfPT@teststra{P6}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\edef\pgfPT@@cellslist{\pgfPT@cells@PVIwLa}\fi%
+ \edef\pgfPT@teststra{La}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaAcfalse\edef\pgfPT@@cellslist{\pgfPT@cells@lanthanoids}\fi%
+ \edef\pgfPT@teststra{spd}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\edef\pgfPT@@cellslist{\pgfPT@cells@spdwLaAc}\fi%
+ \edef\pgfPT@teststra{d}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\edef\pgfPT@@cellslist{\pgfPT@cells@dwLaAc}\fi%
+ \ifpgfPT@drawLaAc%
+ \ifpgfPTis@backcolorsolid\relax\else\pgfPT@processbackcolor{57}\fi%
+ \draw[fill=cpgfPTTMP,line width=\pgfPTcelllinewd,draw=\pgfPTcelllinecolor] (xLa) rectangle ++(\pgfPTcellwd,-\pgfPTcellht);
+ \edef\pgfPT@teststrb{\pgfPTbcs}%
+ \edef\pgfPT@teststra{PS}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@processbackcolor{61}\fill[cpgfPTTMP] ([xshift={4/15*\pgfPTcellwd}]xLa) rectangle ++(\pgfPTcellwd/15,-\pgfPTcellht);\draw (xLa) -- ++(\pgfPTcellwd,0);\fi%
+ \edef\pgfPT@teststra{Radio}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@processbackcolor{61}\fill[cpgfPTTMP] ([xshift={4/15*\pgfPTcellwd}]xLa) rectangle ++(\pgfPTcellwd/15,-\pgfPTcellht);\draw (xLa) -- ++(\pgfPTcellwd,0);\draw ([yshift=-\pgfPTcellht]xLa) -- ++(\pgfPTcellwd,0);\fi%
+ \edef\pgfPT@teststra{Blocks}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@processbackcolor{58}\fill[cpgfPTTMP] ([xshift={1/15*\pgfPTcellwd}]xLa) rectangle ++(\pgfPTcellwd*14/15,-\pgfPTcellht);\draw (xLa) -- ++(\pgfPTcellwd,0);\fi%
+ \ifpgfPT@Z
+ \ifpgfZuseboxwidth%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,align=\pgfPTZalign,text width=\pgfPT@data@Z@wd]%
+ at (xLa) {\vbox to\pgfPT@data@Z@ht{\vfil\hspace{\pgfPTZspace}57--71\hspace{\pgfPTZspace}\vfil}};%
+ \else%
+ {\pgfPTZfont\selectfont\pgfmathparse{width("57--71")}\pgfmathsetlength{\pgfPT@data@Z@natwd}{\pgfmathresult}%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,text width=\pgfPT@data@Z@natwd,inner xsep=.5ex]%
+ at (xLa) {\vbox to\pgfPT@data@Z@ht{\vfil57--71\vfil}};}%
+ \fi%
+ \fi%
+ \ifpgfPT@name\pgfPT@setlabels[\pgfPTlanguages]{La}%
+ \edef\pgfPT@tmp@label@defaultLanguage{}\edef\pgfPT@tmp@labels@otherLanguages{}\pgfPT@counta=0\relax%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@label@defaultLanguage{\csname pgfPT@labels@La@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@labels@otherLanguages{\pgfPT@tmp@labels@otherLanguages\hbox to \pgfPTcellwd{\hfil\csname pgfPT@labels@La@\pgfPT@tmp\endcsname\hfil}\vskip-1pt}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \node[font=\pgfPTotherLangFont,text=\pgfPTnamecolor,text width=\pgfPTcellwd,text centered,inner xsep=0pt] at%
+ ([yshift=-.5*\pgfPTcellht]xLa)%
+ {\mbox{\pgfPTnamefont\pgfPT@tmp@label@defaultLanguage}\ifnum\pgfPT@counta>1\\ [-1pt]\color{\pgfPTotherLangColor}\pgfPT@tmp@labels@otherLanguages\fi};%
+ \fi%
+ \fi%
+ \global\pgfPT@drawLaAcfalse%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=104\global\pgfPT@drawLaActrue\breakforeach\fi%
+ }%
+ \edef\pgfPT@teststrb{\pgfPTcells}%
+ \edef\pgfPT@teststra{G4}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaAcfalse\fi%
+ \edef\pgfPT@teststra{G3}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\fi%
+ \edef\pgfPT@teststra{P7}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\edef\pgfPT@@cellslist{\pgfPT@cells@PVIIwAc}\fi%
+ \edef\pgfPT@teststra{Ac}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaAcfalse\edef\pgfPT@@cellslist{\pgfPT@cells@actinoids}\fi%
+ \edef\pgfPT@teststra{spd}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\fi%
+ \edef\pgfPT@teststra{d}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaActrue\fi%
+ \ifpgfPT@drawLaAc%
+ \ifpgfPTis@backcolorsolid\relax\else\pgfPT@processbackcolor{89}\fi%
+ \draw[fill=cpgfPTTMP,line width=\pgfPTcelllinewd,draw=\pgfPTcelllinecolor] (xAc) rectangle ++(\pgfPTcellwd,-\pgfPTcellht);
+ \edef\pgfPT@teststrb{\pgfPTbcs}%
+ \edef\pgfPT@teststra{PS}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@processbackcolor{93}\fill[cpgfPTTMP] ([xshift={4/15*\pgfPTcellwd}]xAc) rectangle ++(\pgfPTcellwd*11/15,-\pgfPTcellht);\draw (xAc) -- ++(\pgfPTcellwd,0);\draw ([yshift=-\pgfPTcellht]xAc) -- ++(\pgfPTcellwd,0);\fi%
+ \edef\pgfPT@teststra{Blocks}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@processbackcolor{90}\fill[cpgfPTTMP] ([xshift={1/15*\pgfPTcellwd}]xAc) rectangle ++(\pgfPTcellwd*14/15,-\pgfPTcellht);\draw (xAc) -- ++(\pgfPTcellwd,0);\draw ([yshift=-\pgfPTcellht]xAc) -- ++(\pgfPTcellwd,0);\fi%
+ \ifpgfPT@Z%
+ \ifpgfZuseboxwidth%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,align=\pgfPTZalign,text width=\pgfPT@data@Z@wd]%
+ at (xAc) {\vbox to\pgfPT@data@Z@ht{\vfil\hspace{\pgfPTZspace}89--103\hspace{\pgfPTZspace}\vfil}};%
+ \else%
+ {\pgfPTZfont\selectfont\pgfmathparse{width("89--103")}\pgfmathsetlength{\pgfPT@data@Z@natwd}{\pgfmathresult}%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,text width=\pgfPT@data@Z@natwd,inner xsep=.5ex]%
+ at (xAc) {\vbox to\pgfPT@data@Z@ht{\vfil89--103\vfil}};}%
+ \fi%
+ \fi%
+ \ifpgfPT@name\pgfPT@setlabels[\pgfPTlanguages]{Ac}%
+ \edef\pgfPT@tmp@label@defaultLanguage{}\edef\pgfPT@tmp@labels@otherLanguages{}\pgfPT@counta=0\relax%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@label@defaultLanguage{\csname pgfPT@labels@Ac@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@labels@otherLanguages{\pgfPT@tmp@labels@otherLanguages\hbox to \pgfPTcellwd{\hfil\csname pgfPT@labels@Ac@\pgfPT@tmp\endcsname\hfil}\vskip-1pt}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \node[font=\pgfPTotherLangFont,text=\pgfPTnamecolor,text width=\pgfPTcellwd,text centered,inner xsep=0pt] at%
+ ([yshift=-.5*\pgfPTcellht]xAc)%
+ {\mbox{\pgfPTnamefont\pgfPT@tmp@label@defaultLanguage}\ifnum\pgfPT@counta>1\\ [-1pt]\color{\pgfPTotherLangColor}\pgfPT@tmp@labels@otherLanguages\fi};%
+ \fi%
+ \fi%
+\else% IUPACMMXIX false
+ \edef\pgfPT@teststrb{\pgfPTcells}%
+ \edef\pgfPT@teststra{lanthanoids}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaAcfalse\xdef\pgfPT@@cellslist{\pgfPT@cells@La}\fi%
+ \edef\pgfPT@teststra{actinoids}\ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@drawLaAcfalse\xdef\pgfPT@@cellslist{\pgfPT@cells@Ac}\fi%
+\fi%
+% shifts for Z, if in the corners of the cell
+\newdimen\pgfPT@tmpwd\pgfmathsetlength{\pgfPT@tmpwd}{\pgfPTcellwd}%
+\newdimen\pgfPT@tmpht\pgfmathsetlength{\pgfPT@tmpht}{\pgfPTcellht}%
+\ifx\pgfPT@data@Z@x\undefined\relax\else%
+\ifdim\pgfPT@data@Z@x=0pt\relax\xdef\@pgfPT@Zxshift{\pgfPTcelllinewd}\fi%
+\ifdim\pgfPT@data@Z@x=\pgfPT@tmpwd\relax\xdef\@pgfPT@Zxshift{-\pgfPTcelllinewd}\fi%
+\ifdim\pgfPT@data@Z@y=0pt\relax\xdef\@pgfPT@Zyshift{\pgfPTcelllinewd}\fi%
+\ifdim\pgfPT@data@Z@y=\pgfPT@tmpht\relax\xdef\@pgfPT@Zyshift{-\pgfPTcelllinewd}\fi%
+\fi%
+% drawing the cells of the Periodic Table ----->
+\foreach \Z in \pgfPT@@cellslist {%
+ \ifpgfPTis@backcolorsolid\relax\else\pgfPT@processbackcolor{\Z}\fi%
+ \pgfPT@getdata{\Z}%
+ % drawing the cell
+ \draw[fill=cpgfPTTMP,line width=\pgfPTcelllinewd,draw=\pgfPTcelllinecolor] (\Z) rectangle ++(\pgfPTcellwd,-\pgfPTcellht);
+ % append the Z box
+ \ifpgfPT@Z%
+ \ifpgfZuseboxwidth%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,align=\pgfPTZalign,text width=\pgfPT@data@Z@wd]%
+ at ([xshift=.5*\pgfPT@data@Z@x,yshift=-.5*\pgfPT@data@Z@y]\Z) {\vbox to\pgfPT@data@Z@ht{\vfil\hspace{\pgfPTZspace}\Z\hspace{\pgfPTZspace}\vfil}};%
+ \else%
+ {\pgfPTZfont\pgfmathparse{width(\Z)}\pgfmathsetlength{\pgfPT@data@Z@natwd}{\pgfmathresult}%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,text width=\pgfPT@data@Z@natwd,inner xsep=.5ex]%
+ at ([xshift=\pgfPT@data@Z@x+.5*\@pgfPT@Zxshift,yshift=-\pgfPT@data@Z@y-.5*\@pgfPT@Zyshift]\Z) {\vbox to\pgfPT@data@Z@ht{\vfil\Z\vfil}};}%
+ \fi%
+ \fi%
+ % the Chemical Symbol
+ \ifpgfPT@CS%
+ \pgfPT@extract@rgb@fill{\pgfPT@data@cor}%
+ \node[font=\pgfPTCSfont,text width=\pgfPT@data@CS@wd,text centered]%
+ at ([xshift={\pgfPT@data@CS@x},yshift={-\pgfPT@data@CS@y}]\Z)%
+ {\vbox to\pgfPT@data@CS@ht{\vfil\pgfPT@box@zerodepth{\pgfPT@lt[\pgfPTCSolwd](\pgfPT@data@CS)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)}\vfil}};%
+ \fi%
+ % the Name
+ \ifpgfPT@name\relax%
+ \pgfPT@setnames[\pgfPTlanguages]{\Z}%
+ \edef\pgfPT@tmp@name@defaultLanguage{}\edef\pgfPT@tmp@name@otherLanguages{}\pgfPT@counta=0\relax%
+ \pgfmathsetlength{\pgfPT@boxwd}{\pgfPT@data@name@wd}%
+ \pgfPTotherLangFont\selectfont\pgfmathsetlength{\pgfPT@dima}{.25*\f@size}%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@name@defaultLanguage{\csname pgfPTdata@name@\@roman{\Z}@\pgfPT@tmp\endcsname}%
+ \ifpgfPTNames\edef\pgfPT@tmp@name@defaultLanguage{\expandafter\pgfPT@namec@p\pgfPT@tmp@name@defaultLanguage\relax}\fi%
+ \else%
+ \edef\pgfPT@tmp@n@me{\csname pgfPTdata@name@\@roman{\Z}@\pgfPT@tmp\endcsname}%
+ \ifpgfPTNames\edef\pgfPT@tmp@n@me{\expandafter\pgfPT@namec@p\pgfPT@tmp@n@me\relax}\fi%
+ \edef\pgfPT@tmp@name@otherLanguages{\pgfPT@tmp@name@otherLanguages\vskip-\pgfPT@dima\hbox to %
+ \pgfPT@boxwd{\hfil\mbox{\pgfPT@box@zerodepth{\pgfPT@tmp@n@me}}\hfil}}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \ifnum\pgfPT@counta=1\relax% one language
+ \pgfmathsetlength{\pgfPT@dimb}{.5*\pgfPT@data@name@ht}%
+ \node[font=\pgfPTnamefont,text=\pgfPTnamecolor,text width=\pgfPT@data@name@wd,text centered] at%
+ ([xshift=\pgfPT@data@name@x,yshift=-\pgfPT@data@name@y]\Z)%
+ {\vbox to \pgfPT@data@name@ht{\vfil\vbox to \pgfPT@dimb{\vfil\pgfPT@box@smash{\pgfPT@tmp@name@defaultLanguage}}\vfil}};%
+ \else% more languages
+ \pgfmathsetlength{\pgfPT@boxht}{.333*\pgfPT@data@name@ht}%
+ \node[font=\pgfPTnamefont,text=\pgfPTnamecolor,text width=\pgfPT@data@name@wd,text centered] (theName) at%
+ ([xshift=\pgfPT@data@name@x,yshift=-\pgfPT@data@name@y]\Z)%
+ {\vbox to \pgfPT@boxht{\vfil\pgfPT@box@smash{\pgfPT@tmp@name@defaultLanguage}}};%
+ \ifnum\pgfPT@counta>2\relax%
+ \pgfmathsetlength{\pgfPT@boxht}{.667*\pgfPT@data@name@ht}%
+ \pgfmathsetlength{\pgfPT@dimb}{.5*\pgfPT@data@name@ht}%
+ \node[font=\pgfPTotherLangFont,text=\pgfPTotherLangColor,text width=\pgfPT@data@name@wd,text centered,below] at ([yshift={-.2*\pgfPT@dima}]theName.south)%
+ {\vbox to \pgfPT@boxht{\vfil\vbox to \pgfPT@dimb{\vfil\pgfPT@tmp@name@otherLanguages}\vfil\vfil}};%
+ \else%
+ \pgfmathsetlength{\pgfPT@boxht}{.333*\pgfPT@data@name@ht}%
+ \pgfmathsetlength{\pgfPT@dimb}{.3*\pgfPT@data@name@ht}%
+ \node[font=\pgfPTotherLangFont,text=\pgfPTotherLangColor,text width=\pgfPT@data@name@wd,text centered,below] at ([yshift={-.2*\pgfPT@dima}]theName.south)%
+ {\vbox to \pgfPT@boxht{\vfil\vbox to \pgfPT@dimb{\vfil\pgfPT@tmp@name@otherLanguages}\vfil}};%
+ \fi%
+ \fi%
+ \fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+ \fi%
+ % the Atomic weight
+ \ifpgfPT@Ar%
+ \ifnum\pgfPTArprecision<0\relax%
+ \node[font=\pgfPTArfont,text=\pgfPTArcolor,text width=\pgfPT@data@Ar@wd,text centered]%
+ at ([xshift=\pgfPT@data@Ar@x,yshift=-\pgfPT@data@Ar@y]\Z) {\vbox to\pgfPT@data@Ar@ht{\vfil\pgfPT@box@zerodepth{\pgfPT@data@Ar}\vfil}};%
+ \else\ifnum\pgfPTArprecision>3\relax%
+ \node[font=\pgfPTArfont,text=\pgfPTArcolor,text width=\pgfPT@data@Ar@wd,text centered]%
+ at ([xshift=\pgfPT@data@Ar@x,yshift=-\pgfPT@data@Ar@y]\Z) {\vbox to\pgfPT@data@Ar@ht{\vfil\pgfPT@box@zerodepth{\pgfPT@data@Ar}\vfil}};%
+ \else%
+ \node[font=\pgfPTArfont,text=\pgfPTArcolor,text width=\pgfPT@data@Ar@wd,text centered]%
+ at ([xshift=\pgfPT@data@Ar@x,yshift=-\pgfPT@data@Ar@y]\Z) {\vbox to\pgfPT@data@Ar@ht{\vfil\pgfPT@box@zerodepth{\pgfPT@formatnumber{\pgfPTArprecision}{\pgfPT@data@Ar}}\vfil}};%
+ \fi\fi%\fi%
+ \fi%
+ \ifpgfPT@Arstar%
+ \node[font=\pgfPTArfont,%
+ text=\pgfPTArcolor,text width=\pgfPT@data@Arstar@wd,text centered]%
+ at ([xshift=\pgfPT@data@Arstar@x,yshift=-\pgfPT@data@Arstar@y]\Z) %
+ {\setbox0=\hbox{\pgfPT@data@Arstar}\ifdim\wd0>.95\textwidth\relax%
+ \vbox to\pgfPT@data@Arstar@ht{\vfil\resizebox{.95\textwidth}{!}{\pgfPT@box@zerodepth{\pgfPT@data@Arstar}}\vfil}%
+ \else\vbox to\pgfPT@data@Arstar@ht{\vfil\pgfPT@box@zerodepth{\pgfPT@data@Arstar}\vfil}\fi%
+ };%
+ \fi%
+ % radioactivity
+ \ifpgfPT@radio\relax\ifnum\pgfPT@data@radio=1\relax%
+ \node[text width=\pgfPT@data@radio@wd,text centered] at ([xshift=\pgfPT@data@radio@x,yshift=-\pgfPT@data@radio@y]\Z)%
+ {\vbox to\pgfPT@data@radio@ht{\vfil\usebox{\pgfPT@radiobox}\vfil}};%
+ \fi\fi%
+ \ifpgfPT@eConfign\relax%
+ \begin{pgfinterruptpicture}%
+ \setbox0=\hbox{\pgfPT@set@econfig[n]{\pgfPT@data@eConfign}}%
+ \global\setbox\pgfPT@econfbox\box0%
+ \end{pgfinterruptpicture}%
+ \node[text width=\pgfPT@data@eConfign@wd,text centered,font=\pgfPTeConfignfont,text=\pgfPTeConfigncolor] at ([xshift=\pgfPT@data@eConfign@x,yshift=-\pgfPT@data@eConfign@y]\Z)%
+ {\vbox to \pgfPT@data@eConfign@ht{\vfil\pgfPT@box@zerodepth{\usebox{\pgfPT@econfbox}}\vfil\vfil}};%
+ \fi%
+ % eConfignl -> Electronic Configuration (increasing n+l)
+ \ifpgfPT@eConfignl\relax%
+ \begin{pgfinterruptpicture}%
+ \setbox0=\hbox{\pgfPT@set@econfig[]{\pgfPT@data@eConfignl}}%
+ \global\setbox\pgfPT@econfbox\box0%
+ \end{pgfinterruptpicture}%
+ \node[text width=\pgfPT@data@eConfignl@wd,text centered,font=\pgfPTeConfignlfont,text=\pgfPTeConfignlcolor] at ([xshift=\pgfPT@data@eConfignl@x,yshift=-\pgfPT@data@eConfignl@y]\Z)%
+ {\vbox to \pgfPT@data@eConfignl@ht{\vfil\pgfPT@box@zerodepth{\usebox{\pgfPT@econfbox}}\vfil\vfil}};%
+ \fi%
+ % DiscC -> Discover Country
+ \ifpgfPT@DiscC\relax%
+ \pgfPT@set@country{\pgfPT@data@DiscC}%
+ \pgfmathsetlength{\pgfPT@boxht}{.8*\pgfPT@data@DiscC@ht}%
+ \node[text width=\pgfPT@data@DiscC@wd,text centered] at ([xshift=\pgfPT@data@DiscC@x,yshift=-\pgfPT@data@DiscC@y]\Z)%
+ {\vbox to\pgfPT@data@DiscC@ht{\vfil\includegraphics[height=\pgfPT@boxht]{flags/\pgfPT@country@flag.pdf}\vfil\vfil}};%
+ \fi%
+ % R -> Atomic Radius (Empirycal)
+ \ifpgfPT@R\relax%
+ \node[font=\pgfPTRfont,text=\pgfPTRcolor,text width=\pgfPT@data@R@wd,text centered]%
+ at ([xshift=\pgfPT@data@R@x,yshift=-\pgfPT@data@R@y]\Z) {\vbox to\pgfPT@data@R@ht{\vfil\pgfPT@data@R\vfil}};%
+ \fi%
+ % Rcov -> Covalente Radius
+ \ifpgfPT@Rcov\relax%
+ \node[font=\pgfPTRcovfont,text=\pgfPTRcovcolor,text width=\pgfPT@data@Rcov@wd,text centered]%
+ at ([xshift=\pgfPT@data@Rcov@x,yshift=-\pgfPT@data@Rcov@y]\Z) {\vbox to\pgfPT@data@Rcov@ht{\vfil\pgfPT@data@Rcov\vfil}};%
+ \fi%
+ % Rion -> Ionic Radius
+ \ifpgfPT@Rion\relax%
+ \node[font=\pgfPTRionfont,text=\pgfPTRioncolor,text width=\pgfPT@data@Rion@wd,text centered]%
+ at ([xshift=\pgfPT@data@Rion@x,yshift=-\pgfPT@data@Rion@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@Rion}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.975\linewidth\relax%
+ \vbox to\pgfPT@data@Rion@ht{\vfil\pgfPT@box@zerodepth{\resizebox{.95\linewidth}{\height}{\scalebox{.75}{\pgfPT@data@Rion}}}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Rion@ht{\vfil\pgfPT@box@zerodepth{\scalebox{.75}{\pgfPT@data@Rion}}\vfil}%
+ \fi%
+ };%
+ \fi%
+ % Ei -> First Ionization Energy
+ \ifpgfPT@Ei\relax%
+ \ifnum\pgfPTEprecision<0\relax%
+ \node[font=\pgfPTEifont,text=\pgfPTEicolor,text width=\pgfPT@data@Ei@wd,text centered]%
+ at ([xshift=\pgfPT@data@Ei@x,yshift=-\pgfPT@data@Ei@y]\Z) {\vbox to\pgfPT@data@Ei@ht{\vfil\pgfPT@data@Ei\vfil}};%
+ \else\ifnum\pgfPTEprecision>2\relax%
+ \node[font=\pgfPTEifont,text=\pgfPTEicolor,text width=\pgfPT@data@Ei@wd,text centered]%
+ at ([xshift=\pgfPT@data@Ei@x,yshift=-\pgfPT@data@Ei@y]\Z) {\vbox to\pgfPT@data@Ei@ht{\vfil\pgfPT@data@Ei\vfil}};%
+ \else%
+ \node[font=\pgfPTEifont,text=\pgfPTEicolor,text width=\pgfPT@data@Ei@wd,text centered]%
+ at ([xshift=\pgfPT@data@Ei@x,yshift=-\pgfPT@data@Ei@y]\Z) {\vbox to\pgfPT@data@Ei@ht{\vfil\pgfPT@formatnumber{\pgfPTEprecision}{\pgfPT@data@Ei}\vfil}};%
+ \fi\fi%
+ \fi%
+ % eneg -> Electronegativity (Pauling)
+ \ifpgfPT@eneg\relax%
+ \node[font=\pgfPTenegfont,text=\pgfPTenegcolor,text width=\pgfPT@data@eneg@wd,text centered]%
+ at ([xshift=\pgfPT@data@eneg@x,yshift=-\pgfPT@data@eneg@y]\Z) {\vbox to\pgfPT@data@eneg@ht{\vfil\pgfPT@data@eneg\vfil}};%
+ \fi%
+ % eaff -> Electroaffinity
+ \ifpgfPT@eaff\relax%
+ \ifnum\pgfPTEprecision<0\relax%
+ \node[font=\pgfPTeafffont,text=\pgfPTeaffcolor,text width=\pgfPT@data@eaff@wd,text centered]%
+ at ([xshift=\pgfPT@data@eaff@x,yshift=-\pgfPT@data@eaff@y]\Z) {\vbox to\pgfPT@data@eaff@ht{\vfil\pgfPT@data@eaff\vfil}};%
+ \else\ifnum\pgfPTEprecision>1\relax%
+ \node[font=\pgfPTeafffont,text=\pgfPTeaffcolor,text width=\pgfPT@data@eaff@wd,text centered]%
+ at ([xshift=\pgfPT@data@eaff@x,yshift=-\pgfPT@data@eaff@y]\Z) {\vbox to\pgfPT@data@eaff@ht{\vfil\pgfPT@data@eaff\vfil}};%
+ \else%
+ \node[font=\pgfPTeafffont,text=\pgfPTeaffcolor,text width=\pgfPT@data@eaff@wd,text centered]%
+ at ([xshift=\pgfPT@data@eaff@x,yshift=-\pgfPT@data@eaff@y]\Z) {\vbox to\pgfPT@data@eaff@ht{\vfil\pgfPT@formatnumber{\pgfPTEprecision}{\pgfPT@data@eaff}\vfil}};%
+ \fi\fi%
+ \fi%
+ % O -> Oxidation States
+ \ifpgfPT@O\relax%
+ \ifnum\Z=25\relax% Mn
+ \node[font=\pgfPTOfont,text=\pgfPTOcolor,text width=\pgfPT@data@O@wd,text centered]%
+ at ([xshift=\pgfPT@data@O@x,yshift=-\pgfPT@data@O@y]\Z) {\vbox to\pgfPT@data@O@ht{\vfil\pgfPT@box@zerodepth{\resizebox{.95\linewidth}{\height}{\pgfPT@data@O}}
+ \vfil}};%
+ \else%
+ \node[font=\pgfPTOfont,text=\pgfPTOcolor,text width=\pgfPT@data@O@wd,text centered]%
+ at ([xshift=\pgfPT@data@O@x,yshift=-\pgfPT@data@O@y]\Z) {\vbox to\pgfPT@data@O@ht{\vfil\pgfPT@box@zerodepth{\pgfPT@data@O}\vfil}};%
+ \fi%
+ \fi%
+ % Tmelt -> Melting Point (Kelvin)
+ \ifpgfPT@Tmelt\relax%
+ \ifnum\pgfPTTprecision<0\relax%
+ \node[font=\pgfPTTmeltfont,text=\pgfPTTmeltcolor,text width=\pgfPT@data@Tmelt@wd,text centered]%
+ at ([xshift=\pgfPT@data@Tmelt@x,yshift=-\pgfPT@data@Tmelt@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@Tmelt}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.975\linewidth\relax%
+ \vbox to\pgfPT@data@Tmelt@ht{\vfil\resizebox{.95\linewidth}{\height}{\pgfPT@data@Tmelt}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Tmelt@ht{\vfil\pgfPT@data@Tmelt\vfil}%
+ \fi%
+ };%
+ \else\ifnum\pgfPTTprecision>4\relax%
+ \node[font=\pgfPTTmeltfont,text=\pgfPTTmeltcolor,text width=\pgfPT@data@Tmelt@wd,text centered]%
+ at ([xshift=\pgfPT@data@Tmelt@x,yshift=-\pgfPT@data@Tmelt@y]\Z) {
+ \setbox0=\hbox{\pgfPT@data@Tmelt}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.975\linewidth\relax%
+ \vbox to\pgfPT@data@Tmelt@ht{\vfil\resizebox{.95\linewidth}{\height}{\pgfPT@data@Tmelt}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Tmelt@ht{\vfil\pgfPT@data@Tmelt\vfil}%
+ \fi%
+ };%
+ \else%
+ \node[font=\pgfPTTmeltfont,text=\pgfPTTmeltcolor,text width=\pgfPT@data@Tmelt@wd,text centered]%
+ at ([xshift=\pgfPT@data@Tmelt@x,yshift=-\pgfPT@data@Tmelt@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@formatnumber{\pgfPTTprecision}{\pgfPT@data@Tmelt}}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@Tmelt@ht{\vfil\resizebox{.925\linewidth}{\height}{\usebox0}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Tmelt@ht{\vfil\usebox0\vfil}%
+ \fi%
+ };%
+ \fi\fi%
+ \fi%
+ % TmeltC -> Melting Point (degrees Celsius)
+ \ifpgfPT@TmeltC\relax%
+ \ifnum\pgfPTTprecision<0\relax%
+ \node[font=\pgfPTTmeltCfont,text=\pgfPTTmeltCcolor,text width=\pgfPT@data@TmeltC@wd,text centered]%
+ at ([xshift=\pgfPT@data@TmeltC@x,yshift=-\pgfPT@data@TmeltC@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@TmeltC}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@TmeltC@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@TmeltC}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@TmeltC@ht{\vfil\pgfPT@data@TmeltC\vfil}%
+ \fi%
+ };%
+ \else\ifnum\pgfPTTprecision>4\relax%
+ \node[font=\pgfPTTmeltCfont,text=\pgfPTTmeltCcolor,text width=\pgfPT@data@TmeltC@wd,text centered]%
+ at ([xshift=\pgfPT@data@TmeltC@x,yshift=-\pgfPT@data@TmeltC@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@TmeltC}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@TmeltC@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@TmeltC}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@TmeltC@ht{\vfil\pgfPT@data@TmeltC\vfil}%
+ \fi%
+ };%
+ \else%
+ \node[font=\pgfPTTmeltCfont,text=\pgfPTTmeltCcolor,text width=\pgfPT@data@TmeltC@wd,text centered]%
+ at ([xshift=\pgfPT@data@TmeltC@x,yshift=-\pgfPT@data@TmeltC@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@formatnumber{\pgfPTTprecision}{\pgfPT@data@TmeltC}}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@TmeltC@ht{\vfil\resizebox{.925\linewidth}{\height}{\usebox0}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@TmeltC@ht{\vfil\usebox0\vfil}%
+ \fi%
+ };%
+ \fi\fi%
+ \fi%
+ % Tboil -> Boiling Point (Kelvin)
+ \ifpgfPT@Tboil\relax%
+ \ifnum\pgfPTTprecision<0\relax%
+ \node[font=\pgfPTTboilfont,text=\pgfPTTboilcolor,text width=\pgfPT@data@Tboil@wd,text centered]%
+ at ([xshift=\pgfPT@data@Tboil@x,yshift=-\pgfPT@data@Tboil@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@Tboil}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@Tboil@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@Tboil}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Tboil@ht{\vfil\pgfPT@data@Tboil\vfil}%
+ \fi%
+ };%
+ \else\ifnum\pgfPTTprecision>2\relax%
+ \node[font=\pgfPTTboilfont,text=\pgfPTTboilcolor,text width=\pgfPT@data@Tboil@wd,text centered]%
+ at ([xshift=\pgfPT@data@Tboil@x,yshift=-\pgfPT@data@Tboil@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@Tboil}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@Tboil@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@Tboil}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Tboil@ht{\vfil\pgfPT@data@Tboil\vfil}%
+ \fi%
+ };%
+ \else%
+ \node[font=\pgfPTTboilfont,text=\pgfPTTboilcolor,text width=\pgfPT@data@Tboil@wd,text centered]%
+ at ([xshift=\pgfPT@data@Tboil@x,yshift=-\pgfPT@data@Tboil@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@formatnumber{\pgfPTTprecision}{\pgfPT@data@Tboil}}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@Tboil@ht{\vfil\resizebox{.925\linewidth}{\height}{\usebox0}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@Tboil@ht{\vfil\usebox0\vfil}%
+ \fi%
+ };%
+ \fi\fi%
+ \fi%
+ % TboilC -> Boiling Point (degrees Celsius)
+ \ifpgfPT@TboilC\relax%
+ \ifnum\pgfPTTprecision<0\relax%
+ \node[font=\pgfPTTboilCfont,text=\pgfPTTboilCcolor,text width=\pgfPT@data@TboilC@wd,text centered]%
+ at ([xshift=\pgfPT@data@TboilC@x,yshift=-\pgfPT@data@TboilC@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@TboilC}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@TboilC@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@TboilC}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@TboilC@ht{\vfil\pgfPT@data@TboilC\vfil}%
+ \fi%
+ };%
+ \else\ifnum\pgfPTTprecision>2\relax%
+ \node[font=\pgfPTTboilCfont,text=\pgfPTTboilCcolor,text width=\pgfPT@data@TboilC@wd,text centered]%
+ at ([xshift=\pgfPT@data@TboilC@x,yshift=-\pgfPT@data@TboilC@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@TboilC}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@TboilC@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@TboilC}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@TboilC@ht{\vfil\pgfPT@data@TboilC\vfil}%
+ \fi%
+ };%
+ \else%
+ \node[font=\pgfPTTboilCfont,text=\pgfPTTboilCcolor,text width=\pgfPT@data@TboilC@wd,text centered]%
+ at ([xshift=\pgfPT@data@TboilC@x,yshift=-\pgfPT@data@TboilC@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@formatnumber{\pgfPTTprecision}{\pgfPT@data@TboilC}}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@TboilC@ht{\vfil\resizebox{.925\linewidth}{\height}{\usebox0}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@TboilC@ht{\vfil\usebox0\vfil}%
+ \fi%
+ };%
+ \fi\fi%
+ \fi%
+ % eDist -> Electron Distribuition
+ \ifpgfPT@eDist\relax%
+ \pgfPTeDistfont\selectfont\pgfmathsetlength{\pgfPT@dima}{.8*\f@size}%
+ \node[font=\pgfPTeDistfont\fontsize{\pgfPT@dima}{\pgfPT@dima}\selectfont,text=\pgfPTeDistcolor,text width=\pgfPT@data@eDist@wd,text centered]%
+ at ([xshift=\pgfPT@data@eDist@x,yshift=-\pgfPT@data@eDist@y]\Z) {\vbox to\pgfPT@data@eDist@ht{\vfil\pgfPT@data@eDist\vfil}};%
+ \fi%
+ % d -> Density
+ \ifpgfPT@d\relax%
+ \ifnum\pgfPTdprecision<0\relax%
+ \node[font=\pgfPTdfont,text=\pgfPTdcolor,text width=\pgfPT@data@d@wd,text centered]%
+ at ([xshift=\pgfPT@data@d@x,yshift=-\pgfPT@data@d@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@d}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@d@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@d}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@d@ht{\vfil\pgfPT@data@d\vfil}%
+ \fi%
+ };%
+ \else\ifnum\pgfPTdprecision>4\relax%
+ \node[font=\pgfPTdfont,text=\pgfPTdcolor,text width=\pgfPT@data@d@wd,text centered]%
+ at ([xshift=\pgfPT@data@d@x,yshift=-\pgfPT@data@d@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@d}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@d@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@d}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@d@ht{\vfil\pgfPT@data@d\vfil}%
+ \fi%
+ };%
+ \else%
+ \node[font=\pgfPTdfont,text=\pgfPTdcolor,text width=\pgfPT@data@d@wd,text centered]%
+ at ([xshift=\pgfPT@data@d@x,yshift=-\pgfPT@data@d@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@formatnumber{\pgfPTdprecision}{\pgfPT@data@d}}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@d@ht{\vfil\resizebox{.925\linewidth}{\height}{\usebox0}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@d@ht{\vfil\usebox0\vfil}%
+ \fi%
+ };%
+ \fi\fi%
+ \fi%
+ % Cp -> Specific heat capacity (25șC, 100kPa)
+ \ifpgfPT@Cp\relax%
+ \ifnum\pgfPTCpprecision<0\relax%
+ \node[font=\pgfPTCpfont,text=\pgfPTCpcolor,text width=\pgfPT@data@Cp@wd,text centered]%
+ at ([xshift=\pgfPT@data@Cp@x,yshift=-\pgfPT@data@Cp@y]\Z) {\vbox to\pgfPT@data@Cp@ht{\vfil\pgfPT@data@Cp\vfil}};%
+ \else\ifnum\pgfPTCpprecision>2\relax%
+ \node[font=\pgfPTCpfont,text=\pgfPTCpcolor,text width=\pgfPT@data@Cp@wd,text centered]%
+ at ([xshift=\pgfPT@data@Cp@x,yshift=-\pgfPT@data@Cp@y]\Z) {\vbox to\pgfPT@data@Cp@ht{\vfil\pgfPT@data@Cp\vfil}};%
+ \else%
+ \node[font=\pgfPTCpfont,text=\pgfPTCpcolor,text width=\pgfPT@data@Cp@wd,text centered]%
+ at ([xshift=\pgfPT@data@Cp@x,yshift=-\pgfPT@data@Cp@y]\Z) {\vbox to\pgfPT@data@Cp@ht{\vfil\pgfPT@formatnumber{\pgfPTCpprecision}{\pgfPT@data@Cp}\vfil}};%
+ \fi\fi%
+ \fi%
+ % kT -> Thermal Condutivity (25șC)
+ \ifpgfPT@kT\relax%
+ \ifnum\pgfPTkTprecision<0\relax%
+ \node[font=\pgfPTkTfont,text=\pgfPTkTcolor,text width=\pgfPT@data@kT@wd,text centered]%
+ at ([xshift=\pgfPT@data@kT@x,yshift=-\pgfPT@data@kT@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@kT}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@kT@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@kT}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@kT@ht{\vfil\pgfPT@data@kT\vfil}%
+ \fi%
+ };%
+ \else\ifnum\pgfPTkTprecision>4\relax%
+ \node[font=\pgfPTkTfont,text=\pgfPTkTcolor,text width=\pgfPT@data@kT@wd,text centered]%
+ at ([xshift=\pgfPT@data@kT@x,yshift=-\pgfPT@data@kT@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@data@kT}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@kT@ht{\vfil\resizebox{.925\linewidth}{\height}{\pgfPT@data@kT}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@kT@ht{\vfil\pgfPT@data@kT\vfil}%
+ \fi%
+ };%
+ \else%
+ \node[font=\pgfPTkTfont,text=\pgfPTkTcolor,text width=\pgfPT@data@kT@wd,text centered]%
+ at ([xshift=\pgfPT@data@kT@x,yshift=-\pgfPT@data@kT@y]\Z) {%
+ \setbox0=\hbox{\pgfPT@formatnumber{\pgfPTkTprecision}{\pgfPT@data@kT}}\pgfmathsetlength{\pgfPT@dima}{\wd0}%
+ \ifdim\pgfPT@dima>.95\linewidth\relax%
+ \vbox to\pgfPT@data@kT@ht{\vfil\resizebox{.925\linewidth}{\height}{\usebox0}\vfil}%
+ \else%
+ \vbox to\pgfPT@data@kT@ht{\vfil\usebox0\vfil}%
+ \fi%
+ };%
+ \fi\fi%
+ \fi%
+ % ls -> Lattice Structure
+ \ifpgfPT@ls\relax%
+ \pgfmathsetlength{\pgfPT@boxht}{.9*\pgfPT@data@ls@ht}%
+ % fig,txt,fig+txt,txt+fig
+ \edef\pgfPT@ls@txt{txt}%
+ \edef\pgfPT@ls@figtxt{fig+txt}%
+ \edef\pgfPT@ls@txtfig{txt+fig}%
+ \edef\pgfPT@ls@keyvalue{\pgfPTlstxtfig}
+ \ifx\pgfPT@ls@txt\pgfPT@ls@keyvalue\relax%
+ %txt
+ \node[font=\pgfPTlsfont,text=\pgfPTlscolor,text width=\pgfPT@data@ls@wd,align=\pgfPTlsalign] at ([xshift=\pgfPT@data@ls@x,yshift=-\pgfPT@data@ls@y]\Z)%
+ {\vbox to\pgfPT@data@ls@ht{\vfil\makebox[.2ex][s]{}\pgfPT@box@zerodepth{\pgfPT@data@ls}\makebox[.5ex][s]{}\vfil}};%
+ \else\ifx\pgfPT@ls@figtxt\pgfPT@ls@keyvalue\relax%
+ %fig+txt
+ \node[font=\pgfPTlsfont,text=\pgfPTlscolor,text width=\pgfPT@data@ls@wd,align=\pgfPTlsalign] at ([xshift=\pgfPT@data@ls@x,yshift=-\pgfPT@data@ls@y]\Z)%
+ {\vbox to\pgfPT@data@ls@ht{\vfil\tikz{\node (lsfig) {\makebox[.2ex][s]{}\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@data@ls.pdf}\makebox[.2ex][s]{}};%
+ \node[right,anchor=mid west] at (lsfig.east) {\pgfPT@box@zerodepth{\pgfPT@data@ls\makebox[.5ex][s]{}}};}\vfil}};%
+ \else\ifx\pgfPT@ls@txtfig\pgfPT@ls@keyvalue\relax%
+ % txt+fig
+ \node[font=\pgfPTlsfont,text=\pgfPTlscolor,text width=\pgfPT@data@ls@wd,align=\pgfPTlsalign] at ([xshift=\pgfPT@data@ls@x,yshift=-\pgfPT@data@ls@y]\Z)%
+ {\vbox to\pgfPT@data@ls@ht{\vfil\tikz{\node (lstxt) {\makebox[.2ex][s]{}\pgfPT@box@zerodepth{\pgfPT@data@ls\makebox[.5ex][s]{}}};%
+ \node[right] at (lstxt.east) {\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@data@ls.pdf}\makebox[.2ex][s]{}};}\vfil}};%
+ \else% apply the default option whatever the value of the key
+ %fig
+ \node[font=\pgfPTlsfont,text=\pgfPTlscolor,text width=\pgfPT@data@ls@wd,align=\pgfPTlsalign] at ([xshift=\pgfPT@data@ls@x,yshift=-\pgfPT@data@ls@y]\Z)%
+ {\vbox to\pgfPT@data@ls@ht{\vfil\makebox[.2ex][s]{}\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@data@ls.pdf}\makebox[.5ex][s]{}\vfil}};%
+ \fi\fi\fi%
+ \fi%
+ % lsa -> Lattice constant: a
+ \ifpgfPT@lsa\relax%
+ \ifnum\pgfPTlsprecision<0\relax%
+ \node[font=\pgfPTlsafont,text=\pgfPTlsacolor,text width=\pgfPT@data@lsa@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsa@x,yshift=-\pgfPT@data@lsa@y]\Z) {\vbox to\pgfPT@data@lsa@ht{\vfil\pgfPT@data@lsa\vfil}};%
+ \else\ifnum\pgfPTlsprecision>1\relax%
+ \node[font=\pgfPTlsafont,text=\pgfPTlsacolor,text width=\pgfPT@data@lsa@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsa@x,yshift=-\pgfPT@data@lsa@y]\Z) {\vbox to\pgfPT@data@lsa@ht{\vfil\pgfPT@data@lsa\vfil}};%
+ \else%
+ \node[font=\pgfPTlsafont,text=\pgfPTlsacolor,text width=\pgfPT@data@lsa@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsa@x,yshift=-\pgfPT@data@lsa@y]\Z) {\vbox to\pgfPT@data@lsa@ht{\vfil\pgfPT@formatnumber{\pgfPTlsprecision}{\pgfPT@data@lsa}\vfil}};%
+ \fi\fi%
+ \fi%
+ % lsb -> Lattice constant: b
+ \ifpgfPT@lsb\relax%
+ \ifnum\pgfPTlsprecision<0\relax%
+ \node[font=\pgfPTlsbfont,text=\pgfPTlsbcolor,text width=\pgfPT@data@lsb@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsb@x,yshift=-\pgfPT@data@lsb@y]\Z) {\vbox to\pgfPT@data@lsb@ht{\vfil\pgfPT@data@lsb\vfil}};%
+ \else\ifnum\pgfPTlsprecision>1\relax%
+ \node[font=\pgfPTlsbfont,text=\pgfPTlsbcolor,text width=\pgfPT@data@lsb@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsb@x,yshift=-\pgfPT@data@lsb@y]\Z) {\vbox to\pgfPT@data@lsb@ht{\vfil\pgfPT@data@lsb\vfil}};%
+ \else%
+ \node[font=\pgfPTlsbfont,text=\pgfPTlsbcolor,text width=\pgfPT@data@lsb@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsb@x,yshift=-\pgfPT@data@lsb@y]\Z) {\vbox to\pgfPT@data@lsb@ht{\vfil\pgfPT@formatnumber{\pgfPTlsprecision}{\pgfPT@data@lsb}\vfil}};%
+ \fi\fi%
+ \fi%
+ % lsc -> Lattice constant: c
+ \ifpgfPT@lsc\relax%
+ \ifnum\pgfPTlsprecision<0\relax%
+ \node[font=\pgfPTlscfont,text=\pgfPTlsccolor,text width=\pgfPT@data@lsc@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsc@x,yshift=-\pgfPT@data@lsc@y]\Z) {\vbox to\pgfPT@data@lsc@ht{\vfil\pgfPT@data@lsc\vfil}};%
+ \else\ifnum\pgfPTlsprecision>1\relax%
+ \node[font=\pgfPTlscfont,text=\pgfPTlsccolor,text width=\pgfPT@data@lsc@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsc@x,yshift=-\pgfPT@data@lsc@y]\Z) {\vbox to\pgfPT@data@lsc@ht{\vfil\pgfPT@data@lsc\vfil}};%
+ \else%
+ \node[font=\pgfPTlscfont,text=\pgfPTlsccolor,text width=\pgfPT@data@lsc@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsc@x,yshift=-\pgfPT@data@lsc@y]\Z) {\vbox to\pgfPT@data@lsc@ht{\vfil\pgfPT@formatnumber{\pgfPTlsprecision}{\pgfPT@data@lsc}\vfil}};%
+ \fi\fi%
+ \fi%
+ % lsca -> Lattice c/a ratio:
+ \ifpgfPT@lsca\relax%
+ \ifnum\pgfPTlsprecision<0\relax%
+ \node[font=\pgfPTlscafont,text=\pgfPTlscacolor,text width=\pgfPT@data@lsca@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsca@x,yshift=-\pgfPT@data@lsca@y]\Z) {\vbox to\pgfPT@data@lsca@ht{\vfil\pgfPT@data@lsca\vfil}};%
+ \else\ifnum\pgfPTlsprecision>1\relax%
+ \node[font=\pgfPTlscafont,text=\pgfPTlscacolor,text width=\pgfPT@data@lsca@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsca@x,yshift=-\pgfPT@data@lsca@y]\Z) {\vbox to\pgfPT@data@lsca@ht{\vfil\pgfPT@data@lsca\vfil}};%
+ \else%
+ \node[font=\pgfPTlscafont,text=\pgfPTlscacolor,text width=\pgfPT@data@lsca@wd,text centered]%
+ at ([xshift=\pgfPT@data@lsca@x,yshift=-\pgfPT@data@lsca@y]\Z) {\vbox to\pgfPT@data@lsca@ht{\vfil\pgfPT@formatnumber{\pgfPTlsprecision}{\pgfPT@data@lsca}\vfil}};%
+ \fi\fi%
+ \fi%
+ % DiscY -> Discover Year
+ \ifpgfPT@DiscY\relax%
+ \node[font=\pgfPTDiscYfont,text=\pgfPTDiscYcolor,text width=\pgfPT@data@DiscY@wd,text centered]%
+ at ([xshift=\pgfPT@data@DiscY@x,yshift=-\pgfPT@data@DiscY@y]\Z) {\vbox to\pgfPT@data@DiscY@ht{\vfil\mbox{\pgfPT@data@DiscY}\vfil}};%
+ \fi%
+ % spectra -> spectra
+ \ifpgfPT@spectra\relax%
+ \ifnum\pgfPT@data@spectra=1\relax%
+ \pgfmathsetlength{\pgfPT@boxht}{.9*\pgfPT@data@spectra@ht}%
+ \node[text width=\pgfPT@data@spectra@wd,text centered] at ([xshift=\pgfPT@data@spectra@x,yshift=-\pgfPT@data@spectra@y]\Z)%
+ {\setbox0=\vbox to\pgfPT@data@spectra@ht{\vfil\includegraphics[height=\pgfPT@boxht]{spectra/pgfPT_spec\Z.pdf}\vfil\vfil}
+ \ifdim\wd0>.95\textwidth\relax\vbox to\pgfPT@data@spectra@ht{\resizebox{.75\textwidth}{!}{\usebox0}}\else\usebox0\fi%
+ };%
+ \fi%
+ \fi%
+}% end foreach \Z
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\ifpgfPTexMode%
+ \expandafter\pgfPT@get@limits\pgfPT@@cellslist\relax%
+ \pgfmathsetcount{\pgfPT@countc}{\pgfPT@limits@min-1}%
+ \pgfmathsetcount{\pgfPT@countd}{\pgfPT@limits@max+1}%
+ \pgfPT@counta=1\pgfPT@countb=0\relax\edef\pgfPT@ex@add{}%
+ {\pgfPTZexlistfont\selectfont\pgfmathparse{height("A")}\xdef\pgfPT@htA{\pgfmathresult}}%
+ \@for\Z:=\pgfPTZexlist\do{%
+ \ifnum\Z>\pgfPT@countc\relax\ifnum\Z<\pgfPT@countd\relax% puts the letter if only inside the limits of the cells drawn...
+ \node[font=\pgfPTZexlistfont,text=\pgfPTZexlistcolor,text width=\pgfPTcellwd,text centered,inner sep=0pt,anchor=base] %
+ at ([xshift={.5*\pgfPTcellwd},yshift={-.5*\pgfPTcellht-.5*\pgfPT@htA}]\Z)%
+ {\pgfPT@ex@add\ifpgfPTexCapitals\@Alph\pgfPT@counta\relax\else\@alph\pgfPT@counta\relax\fi};%
+ \advance\pgfPT@counta by1\relax%
+ \ifnum\pgfPT@counta=27\relax
+ \ifnum\pgfPT@countb=0\relax\edef\pgfPT@ex@add{a}\else%
+ \ifnum\pgfPT@countb=1\relax\edef\pgfPT@ex@add{b}\else%
+ \ifnum\pgfPT@countb=2\relax\edef\pgfPT@ex@add{c}\else%
+ \ifnum\pgfPT@countb=3\relax\edef\pgfPT@ex@add{d}%
+ \fi\fi\fi\fi%
+ \pgfPT@counta=1\advance\pgfPT@countb by1\relax%
+ \ifpgfPTexCapitals\edef\pgfPT@ex@add{\expandafter\uppercase{\pgfPT@ex@add}}\fi%
+ \fi%
+ \fi\fi% limits
+ }%
+ \global\pgfPTexModefalse\global\pgfPTonlycellsfalse%
+\fi%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% labels of periods and groups -----> \pgfPT@@cellslist
+% periods -->
+\ifpgfPTperlabels%
+\global\pgfPTis@labeldrawnfalse%
+\foreach \per in {1,...,7} {%
+ \edef\pgfPT@@perlist{\csname pgfPT@cells@P\@Roman\per\endcsname}%
+ \foreach \Zsearch in \pgfPT@@perlist{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue%
+ \ifpgfPTIUPACMMIX\edef\pgfPT@teststrb{\pgfPTcells}\edef\pgfPT@teststra{d}\ifx\pgfPT@teststra\pgfPT@teststrb\ifnum\Z>48\pgfmathparse{-1.075*\pgfPTcellwd}\edef\pgfPT@perlabel@xshift{\pgfmathresult}\fi\fi\fi%
+ \node[left,font=\pgfPTlabfont,text=\pgfPTlabpercolor] at%
+ ([xshift=\pgfPT@perlabel@xshift,yshift=\pgfPT@CS@yshift]\Z) {\per};\breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+}%
+% process if labels 'lanthanoids' & 'actinoids' are shown in block f -->
+\ifx\pgfPTLaAclabelsUSER\@empty% USER CHOICE VALUE IS EMPTY
+ \ifpgfPTIUPACMMIX\pgfPTLaAclabelsfalse\else\pgfPTLaAclabelstrue\fi% EU
+\else\ifx\pgfPTLaAclabelsUSER\pgfPT@true\pgfPTLaAclabelstrue\else\ifx\pgfPTLaAclabelsUSER\pgfPT@false\pgfPTLaAclabelsfalse% USER
+ \else%
+ \ifpgfPTIUPACMMIX\pgfPTLaAclabelsfalse\else\pgfPTLaAclabelstrue\fi%
+ \PackageError{pgfPT}{value of key 'show label LaAc' must be 'true' or 'false' not '\pgfPTLaAclabelsUSER'. It will be ignored...}%
+ \fi\fi% USER doesn't provide 'true'|'false'
+\fi%
+% lanthanoids -->
+\global\pgfPTis@labeldrawnfalse%
+\ifpgfPTIUPACMMIX%
+\pgfPT@setlabels[\pgfPTlanguages]{La}%
+ \edef\pgfPT@tmp@label@defaultLanguage{}\edef\pgfPT@tmp@labels@otherLanguages{}\pgfPT@counta=0\relax%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@label@defaultLanguage{\csname pgfPT@labels@La@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@labels@otherLanguages{\pgfPT@tmp@labels@otherLanguages\hbox to 0pt{\hfil\csname pgfPT@labels@La@\pgfPT@tmp\endcsname\hfil}\vskip-1pt}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \pgfPTlabLaAcfont\selectfont\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}%
+ \pgfmathparse{width("\pgfPT@tmp@label@defaultLanguage")}%
+ \edef\pgfPT@labelboxwd{\pgfmathresult}%
+ \foreach \Zsearch in \pgfPT@cells@lanthanoids{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue%
+ \node[left,font=\pgfPTlabfont,text=\pgfPTlabpercolor] at ([xshift=\pgfPT@perlabel@xshift,yshift=\pgfPT@CS@yshift]\Z) {6};%
+ \ifpgfPTLaAclabels\pgfPT@processbackcolor{57}%
+ %\node[below left,font=\pgfPTlabLaAcfont,text=cpgfPTTMP,inner ysep=0pt] at ([xshift=\pgfPT@perlabel@xshift]\Z)%
+ %{\pgfPT@labels@La};\fi%
+ \node[below left,font=\pgfPTlabLaAcfont,text=cpgfPTTMP,inner ysep=0pt,text width=\pgfPT@labelboxwd] at ([xshift=\pgfPT@perlabel@xshift]\Z)%
+ {\pgfPT@tmp@label@defaultLanguage\ifnum\pgfPT@counta>1\relax\fontsize{\pgfPT@dima}{\pgfPT@dima}\selectfont\\ [-1pt]\pgfPT@tmp@labels@otherLanguages\fi};\fi%
+ \breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+\else%
+ \pgfPT@setlabels[\pgfPTlanguages]{La}%
+ \edef\pgfPT@tmp@label@defaultLanguage{}\edef\pgfPT@tmp@labels@otherLanguages{}\pgfPT@counta=0\relax%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@label@defaultLanguage{\csname pgfPT@labels@La@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@labels@otherLanguages{\pgfPT@tmp@labels@otherLanguages\hbox to 0pt{\hfil\csname pgfPT@labels@La@\pgfPT@tmp\endcsname\hfil}\vskip-1pt}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \pgfPTlabLaAcfont\selectfont\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}%
+ \pgfmathparse{width("\pgfPT@tmp@label@defaultLanguage")}%
+ \edef\pgfPT@labelboxwd{\pgfmathresult}%
+ \foreach \Zsearch in \pgfPT@cells@La{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue%
+ \node[left,font=\pgfPTlabfont,text=\pgfPTlabpercolor] at ([xshift=\pgfPT@perlabel@xshift,yshift=\pgfPT@CS@yshift]\Z) {6};%
+ \ifpgfPTLaAclabels\pgfPT@processbackcolor{57}%
+ \node[below left,font=\pgfPTlabLaAcfont,text=cpgfPTTMP,inner ysep=0pt,text width=\pgfPT@labelboxwd] at ([xshift=\pgfPT@perlabel@xshift]\Z)%
+ {\pgfPT@tmp@label@defaultLanguage\ifnum\pgfPT@counta>1\relax\fontsize{\pgfPT@dima}{\pgfPT@dima}\selectfont\\ [-1pt]\pgfPT@tmp@labels@otherLanguages\fi};\fi%
+ \breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+ \fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+\fi%
+\fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+% actinoids -->
+\global\pgfPTis@labeldrawnfalse%
+\ifpgfPTIUPACMMIX%
+ \pgfPT@setlabels[\pgfPTlanguages]{Ac}%
+ \edef\pgfPT@tmp@label@defaultLanguage{}\edef\pgfPT@tmp@labels@otherLanguages{}\pgfPT@counta=0\relax%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@label@defaultLanguage{\csname pgfPT@labels@Ac@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@labels@otherLanguages{\pgfPT@tmp@labels@otherLanguages\hbox to 0pt{\hfil\csname pgfPT@labels@Ac@\pgfPT@tmp\endcsname\hfil}\vskip-1pt}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \pgfPTlabLaAcfont\selectfont\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}%
+ \pgfmathparse{width("\pgfPT@tmp@label@defaultLanguage")}%
+ \edef\pgfPT@labelboxwd{\pgfmathresult}%
+ \foreach \Zsearch in \pgfPT@cells@actinoids{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue%
+ \node[left,font=\pgfPTlabfont,text=\pgfPTlabpercolor] at ([xshift=\pgfPT@perlabel@xshift,yshift=\pgfPT@CS@yshift]\Z) {7};%
+ \ifpgfPTLaAclabels\pgfPT@processbackcolor{89}%
+ \node[below left,font=\pgfPTlabLaAcfont,text=cpgfPTTMP,inner ysep=0pt,text width=\pgfPT@labelboxwd] at ([xshift=\pgfPT@perlabel@xshift]\Z)%
+ {\pgfPT@tmp@label@defaultLanguage\ifnum\pgfPT@counta>1\relax\fontsize{\pgfPT@dima}{\pgfPT@dima}\selectfont\\ [-1pt]\pgfPT@tmp@labels@otherLanguages\fi};\fi%
+ \breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+\else%
+ \pgfPT@setlabels[\pgfPTlanguages]{Ac}%
+ \edef\pgfPT@tmp@label@defaultLanguage{}\edef\pgfPT@tmp@labels@otherLanguages{}\pgfPT@counta=0\relax%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@label@defaultLanguage{\csname pgfPT@labels@Ac@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@labels@otherLanguages{\pgfPT@tmp@labels@otherLanguages\hbox to 0pt{\hfil\csname pgfPT@labels@Ac@\pgfPT@tmp\endcsname\hfil}\vskip-1pt}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \pgfPTlabLaAcfont\selectfont\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}%
+ \pgfmathparse{width("\pgfPT@tmp@label@defaultLanguage")}%
+ \edef\pgfPT@labelboxwd{\pgfmathresult}%
+ \foreach \Zsearch in \pgfPT@cells@Ac{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue%
+ \node[left,font=\pgfPTlabfont,text=\pgfPTlabpercolor] at ([xshift=\pgfPT@perlabel@xshift,yshift=\pgfPT@CS@yshift]\Z) {7};%
+ \ifpgfPTLaAclabels\pgfPT@processbackcolor{89}%
+ \node[below left,font=\pgfPTlabLaAcfont,text=cpgfPTTMP,inner ysep=0pt,text width=\pgfPT@labelboxwd] at ([xshift=\pgfPT@perlabel@xshift]\Z)%
+ {\pgfPT@tmp@label@defaultLanguage\ifnum\pgfPT@counta>1\relax\fontsize{\pgfPT@dima}{\pgfPT@dima}\selectfont\\ [-1pt]\pgfPT@tmp@labels@otherLanguages\fi};\fi%
+ \breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+ \fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+\fi%
+\fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+\fi%
+% groups -->
+\ifpgfPTgrlabels%
+\global\pgfPTis@labeldrawnfalse%
+\ifpgfPTIUPACMMIX%
+\foreach \group in {1,2,4,5,...,18} {%
+ \edef\pgfPT@@grlist{\csname pgfPT@cells@G\@Roman\group\endcsname}%
+ \foreach \Zsearch in \pgfPT@@grlist{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue\node[above,font=\pgfPTlabfont,text=\pgfPTlabgrcolor] at%
+ ([xshift=\pgfPT@@xshift,yshift=\pgfPT@grlabel@yshift]\Z) {\group};\breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+}%
+\global\pgfPTis@labeldrawnfalse%
+\foreach \Zsearch in \pgfPT@cells@GIIILaAc{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue\node[above,font=\pgfPTlabfont,text=\pgfPTlabgrcolor] at%
+ ([xshift=\pgfPT@@xshift,yshift=\pgfPT@grlabel@yshift]\Z) {3};\breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+}%
+\else%
+\foreach \group in {1,...,18} {%
+ \edef\pgfPT@@grlist{\csname pgfPT@cells@G\@Roman\group\endcsname}%
+ \foreach \Zsearch in \pgfPT@@grlist{%
+ \foreach \Z in \pgfPT@@cellslist {%
+ \ifnum\Z=\Zsearch\global\pgfPTis@labeldrawntrue\node[above,font=\pgfPTlabfont,text=\pgfPTlabgrcolor] at%
+ ([xshift=\pgfPT@@xshift,yshift=\pgfPT@grlabel@yshift]\Z) {\group};\breakforeach\fi%
+ }%
+ \ifpgfPTis@labeldrawn\global\pgfPTis@labeldrawnfalse\breakforeach\fi%
+ }%
+}%
+\fi%
+\fi%
+% End of labels
+%
+% Legend and title ----->
+% title -->
+\ifpgfPTtitulo\pgfPT@setlabels[\pgfPTlanguages]{titulo}%
+%
+\edef\pgfPT@tmp@titulo@defaultLanguage{}\edef\pgfPT@tmp@titulo@otherLanguages{}\pgfPT@counta=0\relax%
+\pgfmathsetlength{\pgfPT@boxwd}{18*\pgfPTcellwd}%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@counta=0\relax%
+ \edef\pgfPT@tmp@titulo@defaultLanguage{\csname pgfPT@labels@titulo@\pgfPT@tmp\endcsname}%
+ \else%
+ \edef\pgfPT@tmp@titulo@otherLanguages{\pgfPT@tmp@titulo@otherLanguages\hbox to \pgfPT@boxwd{\hfil\mbox{\csname pgfPT@labels@titulo@\pgfPT@tmp\endcsname}\hfil}}%
+ \fi%
+ \advance\pgfPT@counta by 1\relax%
+ }%
+ \node[font=\pgfPTtitlefont,text=\pgfPTtitlecolor,above right,text width=18*\pgfPTcellwd,text centered,inner xsep=0pt] (theTitle) at (title)%
+ {\pgfPT@tmp@titulo@defaultLanguage};%
+ \ifnum\pgfPT@counta>1\relax%
+ \pgfPTtitlefont\selectfont\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}%
+ \node[font=\pgfPTotherLangFont\fontsize{\pgfPT@dima}{\pgfPT@dima}\selectfont,text=\pgfPTotherLangColor,below,text width=18*\pgfPTcellwd,text centered,inner xsep=0pt] at ([yshift={-.075*\pgfPTcellht}]theTitle.south)%
+ {\vbox{\pgfPT@tmp@titulo@otherLanguages}};%
+ \fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+ \fi%
+\fi%
+% legend -->
+\ifpgfPTlegenda%
+\pgfPT@countb=0\relax\@for\pgfPT@tmp:=\pgfPTlanguages\do{\advance\pgfPT@countb by 1\relax}%
+\ifpgfPTlegacro% use acronyms ##############################################
+\label{legenda::acro}%
+\draw[fill=\pgfPTlegendbackcolor,draw=\pgfPTcelllinecolor,line width=\pgfPTcelllinewd] (0) rectangle ++(\pgfPTcellwd,-\pgfPTcellht);
+ % append the Z box
+ \ifpgfPT@Z\fontfamily{\pgfPTglobalfont}\pgfPTZfont\selectfont%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont,text=\pgfPTZcolor,below right,inner sep=1.5pt] (LZ)%
+ at ([xshift=\pgfPT@data@Z@x,yshift=-\pgfPT@data@Z@y]0) {Z};%
+ \fi%
+ % the Chemical Symbol
+ \ifpgfPT@CS%
+ \pgfPT@extract@rgb@fill{\pgfPTlegendCScolor}%
+ \fontfamily{\pgfPTglobalfont}\pgfPTCSfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.5*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.3*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.35*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.2*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\fi\fi%
+ \pgfPT@setacro[\pgfPTlanguages]{CS}%
+ \node[font=\pgfPTCSfont,text width=\pgfPT@data@CS@wd,text centered,text depth=0pt,minimum height=\pgfPT@data@CS@ht] (LCS)%
+ at ([xshift=\pgfPT@data@CS@x,yshift=-\pgfPT@data@CS@y]0)
+ {\pgfPT@lt[\pgfPTCSolwd](\pgfPT@theacro)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)};
+ % pin it...
+ \ifpgfPTlegendapins%
+ \pgfmathsetlength{\pgfPT@dimc}{\pgfPT@data@CS@x+\pgfPT@data@CS@wd}%
+ \ifdim\pgfPT@dimc<\pgfPTcellwd\pgfmathsetlength{\pgfPT@dimc}{\pgfPTcellwd-\pgfPT@dimc}\else\pgfmathsetlength{\pgfPT@dimc}{0pt}\fi%
+ \draw[fill=black!30,line width=.05pt,draw=black!50] (LCS.east) circle(.05*\pgfPTcellwd) ++(.05*\pgfPTcellwd,0) -- ++(\pgfPT@dimc+.35*\pgfPTcellwd,0);
+ \pgfPTCSfont\selectfont\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.45*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.3*\f@size}
+ \else\pgfmathsetlength{\pgfPT@dima}{.5*\f@size}\fi%
+ \fontsize{\pgfPT@doc@fsize}{\pgfPT@doc@fsize}\selectfont\relax%
+ \node[legendpins,%
+ text width={.7*\pgfPTcellwd+.2*(\pgfPT@countb-1)*\pgfPTcellwd-4pt},font=\fontfamily{\pgfPTglobalfont}\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,inner xsep=2pt,inner ysep=1pt]
+ at ([xshift={\pgfPT@dimc+.2*\pgfPTcellwd},yshift={.25*\pgfPT@data@CS@ht}]LCS.east)%
+ {%
+ \pgfPT@extract@rgb@fill{solido}\pgfPT@pinEstado{solido}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ \\ [.5ex]\pgfPT@extract@rgb@fill{liquido}\pgfPT@pinEstado{liquido}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ \\ [.5ex]\pgfPT@extract@rgb@fill{gasoso}\pgfPT@pinEstado{gasoso}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ \\ [.5ex]\pgfPT@extract@rgb@fill{sintetico}\pgfPT@pinEstado{sintetico}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ };%
+ \fi\fi%
+ % the Name
+ \ifpgfPT@name%
+ \fontfamily{\pgfPTglobalfont}\pgfPTnamefont\selectfont%
+ \node[font=\pgfPTnamefont,text=\pgfPTnamecolor,text width=\pgfPT@data@name@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@name@ht]%
+ at ([xshift=\pgfPT@data@name@x,yshift=-\pgfPT@data@name@y]0)%
+ {N};%
+ \fi%
+ % the Atomic weight
+ \ifpgfPT@Ar%
+ \edef\pgfPT@tmptest{\pgfPTArlabel}\edef\pgfPT@tmp@m{m}%
+ \ifx\pgfPT@tmptest\pgfPT@tmp@m\relax\let\pgfPT@labels@Ar\pgfPT@labels@Ar@m\else\let\pgfPT@labels@Ar\pgfPT@labels@Ar@w\fi%
+ \fontfamily{\pgfPTglobalfont}\pgfPTArfont\selectfont%
+ \node[font=\pgfPTArfont,text=\pgfPTArcolor,text width=\pgfPT@data@Ar@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Ar@ht]%
+ at ([xshift=\pgfPT@data@Ar@x,yshift=-\pgfPT@data@Ar@y]0)%
+ {Ar};%
+ \fi%
+ \ifpgfPT@Arstar%
+ \edef\pgfPT@tmptest{\pgfPTArlabel}\edef\pgfPT@tmp@m{m}%
+ \ifx\pgfPT@tmptest\pgfPT@tmp@m\relax\let\pgfPT@labels@Arstar\pgfPT@labels@Arstar@m\else\let\pgfPT@labels@Arstar\pgfPT@labels@Arstar@w\fi%
+ \fontfamily{\pgfPTglobalfont}\pgfPTArfont\selectfont%
+ \node[font=\pgfPTArfont,text=\pgfPTArcolor,text width=\pgfPT@data@Arstar@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Arstar@ht]%
+ at ([xshift=\pgfPT@data@Arstar@x,yshift=-\pgfPT@data@Arstar@y]0)%
+ {Ar};%
+ \fi%
+ % radioactivity
+ \ifpgfPT@radio\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}%
+ \fontfamily{\pgfPTglobalfont}\pgfPTotherLangFont\selectfont%
+ \node[text width=\pgfPT@data@radio@wd,text centered,inner sep=0pt,opacity=.25] (Lradio)%
+ at ([xshift=\pgfPT@data@radio@x,yshift=-\pgfPT@data@radio@y]0)
+ {\includegraphics[height=\pgfPT@data@radio@ht]{pgfPT_radio_symbol.pdf}};
+ \node[text width=\pgfPT@data@radio@wd,text centered,inner sep=0pt,font=\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,%
+ text depth=0pt,minimum height=\pgfPT@data@radio@ht,text=\pgfPTlegendradiocolor]%
+ at ([xshift=\pgfPT@data@radio@x,yshift=-\pgfPT@data@radio@y]0)
+ {Ra};
+ \fi%
+ % R -> Atomic Radius (Empirycal)
+ \ifpgfPT@R%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTRfont,text=\pgfPTRcolor,text width=\pgfPT@data@R@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@R@ht]%
+ at ([xshift=\pgfPT@data@R@x,yshift=-\pgfPT@data@R@y]0)%
+ {R};%
+ \fi%
+ % Rcov -> Covalente Radius
+ \ifpgfPT@Rcov%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTRcovfont,text=\pgfPTRcovcolor,text width=\pgfPT@data@Rcov@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Rcov@ht]%
+ at ([xshift=\pgfPT@data@Rcov@x,yshift=-\pgfPT@data@Rcov@y]0)%
+ {Rc};%
+ \fi%
+ % Rion -> Ionic Radius
+ \ifpgfPT@Rion%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTRionfont,text=\pgfPTRioncolor,text width=\pgfPT@data@Rion@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Rion@ht]%
+ at ([xshift=\pgfPT@data@Rion@x,yshift=-\pgfPT@data@Rion@y]0)%
+ {Ri};%
+ \fi%
+ % Ei -> First Ionization Energy
+ \ifpgfPT@Ei%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTEifont,text=\pgfPTEicolor,text width=\pgfPT@data@Ei@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Ei@ht]%
+ at ([xshift=\pgfPT@data@Ei@x,yshift=-\pgfPT@data@Ei@y]0)%
+ {Ei};%
+ \fi%
+ % eneg -> Electronegativity (Pauling)
+ \ifpgfPT@eneg%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTenegfont,text=\pgfPTenegcolor,text width=\pgfPT@data@eneg@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@eneg@ht]%
+ at ([xshift=\pgfPT@data@eneg@x,yshift=-\pgfPT@data@eneg@y]0)%
+ {en};%
+ \fi%
+ % eaff -> Electroaffinity
+ \ifpgfPT@eaff%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTeafffont,text=\pgfPTeaffcolor,text width=\pgfPT@data@eaff@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@eaff@ht]%
+ at ([xshift=\pgfPT@data@eaff@x,yshift=-\pgfPT@data@eaff@y]0)%
+ {Eea};%
+ \fi%
+ % O -> Oxidation States
+ \ifpgfPT@O%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTOfont,text=\pgfPTOcolor,text width=\pgfPT@data@O@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@O@ht]%
+ at ([xshift=\pgfPT@data@O@x,yshift=-\pgfPT@data@O@y]0)%
+ {O};%
+ \fi%
+ % Tmelt -> Melting Point (Kelvin)
+ \ifpgfPT@Tmelt%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{Tmelt}%
+ \node[font=\pgfPTTmeltfont,text=\pgfPTTmeltcolor,text width=\pgfPT@data@Tmelt@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Tmelt@ht]%
+ at ([xshift=\pgfPT@data@Tmelt@x,yshift=-\pgfPT@data@Tmelt@y]0)%
+ {\pgfPT@theacro\ifpgfPT@TmeltC\hspace{.15ex}K\fi};%{Tm};%
+ \fi%
+ % TmeltC -> Melting Point (degrees Celsius)
+ \ifpgfPT@TmeltC%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{TmeltC}%
+ \node[font=\pgfPTTmeltCfont,text=\pgfPTTmeltCcolor,text width=\pgfPT@data@TmeltC@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@TmeltC@ht]%
+ at ([xshift=\pgfPT@data@TmeltC@x,yshift=-\pgfPT@data@TmeltC@y]0)%
+ {\pgfPT@theacro\ifpgfPT@Tmelt\hspace{.15ex}C\fi};%{Tm};%
+ \fi%
+ % Tboil -> Boiling Point (Kelvin)
+ \ifpgfPT@Tboil%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{Tboil}%
+ \node[font=\pgfPTTboilfont,text=\pgfPTTboilcolor,text width=\pgfPT@data@Tboil@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Tboil@ht]%
+ at ([xshift=\pgfPT@data@Tboil@x,yshift=-\pgfPT@data@Tboil@y]0)%
+ {\pgfPT@theacro\ifpgfPT@TboilC\hspace{.15ex}K\fi};%{Tb};%
+ \fi%
+ % TboilC -> Boiling Point (degrees Celsius)
+ \ifpgfPT@TboilC%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{TboilC}%
+ \node[font=\pgfPTTboilCfont,text=\pgfPTTboilCcolor,text width=\pgfPT@data@TboilC@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@TboilC@ht]%
+ at ([xshift=\pgfPT@data@TboilC@x,yshift=-\pgfPT@data@TboilC@y]0)%
+ {\pgfPT@theacro\ifpgfPT@Tboil\hspace{.15ex}C\fi};%{Tb};%
+ \fi%
+ % eDist -> Electron Distribuition
+ \ifpgfPT@eDist%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{eDist}%
+ \node[font=\pgfPTeDistfont,text=\pgfPTeDistcolor,text width=\pgfPT@data@eDist@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@eDist@ht]%
+ at ([xshift=\pgfPT@data@eDist@x,yshift=-\pgfPT@data@eDist@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % eConfign -> Electronic Configuration (increasing n)
+ \ifpgfPT@eConfign%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{eConfign}%
+ \node[font=\pgfPTeConfignfont,text=\pgfPTeConfigncolor,text width=\pgfPT@data@eConfign@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@eConfign@ht]%
+ at ([xshift=\pgfPT@data@eConfign@x,yshift=-\pgfPT@data@eConfign@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % eConfignl -> Electronic Configuration (increasing n+l)
+ \ifpgfPT@eConfignl%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{eConfignl}%
+ \node[font=\pgfPTeConfignlfont,text=\pgfPTeConfignlcolor,text width=\pgfPT@data@eConfignl@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@eConfignl@ht]%
+ at ([xshift=\pgfPT@data@eConfignl@x,yshift=-\pgfPT@data@eConfignl@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % d -> Density
+ \ifpgfPT@d%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTdfont,text=\pgfPTdcolor,text width=\pgfPT@data@d@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@d@ht]%
+ at ([xshift=\pgfPT@data@d@x,yshift=-\pgfPT@data@d@y]0)%
+ {d};%
+ \fi%
+ % Cp -> Specific heat capacity (25șC, 100kPa)
+ \ifpgfPT@Cp%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTCpfont,text=\pgfPTCpcolor,text width=\pgfPT@data@Cp@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@Cp@ht]%
+ at ([xshift=\pgfPT@data@Cp@x,yshift=-\pgfPT@data@Cp@y]0)%
+ {Cp};%
+ \fi%
+ % kT -> Thermal Condutivity (25șC)
+ \ifpgfPT@kT%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \node[font=\pgfPTkTfont,text=\pgfPTkTcolor,text width=\pgfPT@data@kT@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@kT@ht]%
+ at ([xshift=\pgfPT@data@kT@x,yshift=-\pgfPT@data@kT@y]0)%
+ {kT};%
+ \fi%
+ % ls -> Lattice Structure
+ \ifpgfPT@ls%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{ls}%
+ \node[font=\pgfPTlsfont,text=\pgfPTlscolor,text width=\pgfPT@data@ls@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@ls@ht]%
+ at ([xshift=\pgfPT@data@ls@x,yshift=-\pgfPT@data@ls@y]0)%
+ {\pgfPT@theacro};%
+ \ifpgfPTlegendaextra%
+ \fontfamily{\pgfPTglobalfont}\pgfPTlsfont\selectfont%
+ \ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.67*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.78*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.625*\f@size}\fi%
+ \ifpgfPT@DiscC% insere a legenda extra para a estrutura da rede (existindo as bandeiras)
+ \ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@boxht}{.66*\f@size}\else\pgfmathsetlength{\pgfPT@boxht}{.75*\f@size}\fi%
+ \pgfmathsetlength{\pgfPT@boxwd}{.2*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=1.8*\pgfPTcellwd,font=\pgfPTlsfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlscolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at (EXTRA) {%
+ \global\pgfPT@countc=0%
+ \@for\pgfPT@lssigla:={bcc,bcort,ctetr,dia,fcc,fcort,hcp,hex,mono,rho,sc,tric,tetr}\do{%
+ \pgfPT@legend{ls@\pgfPT@lssigla}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt,font=\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@lssigla.pdf}\\ [-.55ex]\pgfPT@lssigla};%
+ \node[below right,text width=1.55*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.north east) {%
+ \pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}%
+ \pgfPT@tmp@labels@otherLanguages}\fi%
+ };%
+ }%
+ \global\advance\pgfPT@countc by1\relax%
+ \ifnum\pgfPT@countc<13\relax\vspace{-.1775ex}\newline\fi%
+ }%
+ };
+ \else% apenas a estrutura da rede
+ \pgfmathsetlength{\pgfPT@boxht}{.75*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.25*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=2*\pgfPTcellwd,font=\pgfPTlsfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlscolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at ([xshift=\pgfPTcellwd]EXTRA) {%
+ \global\pgfPT@countc=0%
+ \@for\pgfPT@lssigla:={bcc,bcort,ctetr,dia,fcc,fcort,hcp,hex,mono,rho,sc,tric,tetr}\do{%
+ \pgfPT@legend{ls@\pgfPT@lssigla}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@lssigla.pdf}\\ [-.75ex]\pgfPT@lssigla};%
+ \node[below right,text width=1.55*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.north east) {%
+ \pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}%
+ \pgfPT@tmp@labels@otherLanguages}\fi%
+ };%
+ }%
+ \global\advance\pgfPT@countc by1\relax%
+ \ifnum\pgfPT@countc<13\relax\vspace{-.1775ex}\newline\fi%
+ }%
+ };
+ \fi%
+ \fi% legenda extra
+ \fi%
+ % lsa -> Lattice constant: a
+ \ifpgfPT@lsa%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{lsa}%
+ \node[font=\pgfPTlsafont,text=\pgfPTlsacolor,text width=\pgfPT@data@lsa@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@lsa@ht]%
+ at ([xshift=\pgfPT@data@lsa@x,yshift=-\pgfPT@data@lsa@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % lsb -> Lattice constant: b
+ \ifpgfPT@lsb%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{lsb}%
+ \node[font=\pgfPTlsbfont,text=\pgfPTlsbcolor,text width=\pgfPT@data@lsb@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@lsb@ht]%
+ at ([xshift=\pgfPT@data@lsb@x,yshift=-\pgfPT@data@lsb@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % lsc -> Lattice constant: c
+ \ifpgfPT@lsc%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{lsc}%
+ \node[font=\pgfPTlscfont,text=\pgfPTlsccolor,text width=\pgfPT@data@lsc@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@lsc@ht]%
+ at ([xshift=\pgfPT@data@lsc@x,yshift=-\pgfPT@data@lsc@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % lsca -> Lattice c/a ratio:
+ \ifpgfPT@lsca%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{lsca}%
+ \node[font=\pgfPTlscafont,text=\pgfPTlscacolor,text width=\pgfPT@data@lsca@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@lsca@ht]%
+ at ([xshift=\pgfPT@data@lsca@x,yshift=-\pgfPT@data@lsca@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % DiscY -> Discover Year
+ \ifpgfPT@DiscY%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{DiscY}%
+ \node[font=\pgfPTDiscYfont,text=\pgfPTDiscYcolor,text width=\pgfPT@data@DiscY@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@DiscY@ht]%
+ at ([xshift=\pgfPT@data@DiscY@x,yshift=-\pgfPT@data@DiscY@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % DiscC -> Discover Country
+ \ifpgfPT@DiscC%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{DiscC}%
+ \node[font=\pgfPTDiscCfont,text=\pgfPTDiscCcolor,text width=\pgfPT@data@DiscC@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@DiscC@ht]%
+ at ([xshift=\pgfPT@data@DiscC@x,yshift=-\pgfPT@data@DiscC@y]0)%
+ {\pgfPT@theacro};%
+ \ifpgfPTlegendaextra%
+ \fontfamily{\pgfPTglobalfont}\pgfPTDiscCfont\selectfont%
+ \ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.67*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}\edef\pgfPT@nodepos{below right}\edef\pgfPT@nodeat{north east}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.78*\f@size}\edef\pgfPT@nodepos{right}\edef\pgfPT@nodeat{east}\fi%
+ \ifpgfPT@ls% insere a legenda extra para as bandeiras (existindo a estrutura da rede)
+ \pgfmathsetlength{\pgfPT@boxht}{.6*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.2*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=2*\pgfPTcellwd,font=\pgfPTDiscCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTDiscCcolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at ([xshift=2*\pgfPTcellwd]EXTRA) {%
+ \@for\pgfPT@country:={0,1,2,3,4,5,8,11,12,13,14,15,17,18,20,21,22,25}\do{%
+ \pgfPT@set@country{\pgfPT@country}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{flags/\pgfPT@country@flag.pdf}};%
+ \global\pgfPT@countc=0%
+ \node[\pgfPT@nodepos,text width=1.75*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.\pgfPT@nodeat) {%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@countc=0\relax%
+ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}%
+ \else%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}
+ \ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}}%
+ \fi%
+ \global\advance\pgfPT@countc by1\relax%
+ }%
+ };%
+ }%
+ \ifnum\pgfPT@country<25\relax\vspace{1pt}\newline\fi%
+ }%
+ };
+ \else% apenas as bandeiras
+ \pgfmathsetlength{\pgfPT@boxht}{.6*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.2*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=2.5*\pgfPTcellwd,font=\pgfPTDiscCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTDiscCcolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at ([xshift=.875*\pgfPTcellwd]EXTRA) {%
+ \@for\pgfPT@country:={0,1,2,3,4,5,8,11,12,13,14,15,17,18,20,21,22,25}\do{%
+ \pgfPT@set@country{\pgfPT@country}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{flags/\pgfPT@country@flag.pdf}};%
+ \global\pgfPT@countc=0%
+ \node[below right,text width=3.75*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.north east) {%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@countc=0\relax%
+ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}%
+ \else%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}
+ \ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}}%
+ \fi%
+ \global\advance\pgfPT@countc by1\relax%
+ }%
+ };%
+ }%
+ \ifnum\pgfPT@country<25\relax\vspace{1pt}\newline\fi%
+ }%
+ };
+ \fi%
+ \fi% legenda extra
+ \fi%
+ % spectra -> spectra
+ \ifpgfPT@spectra%
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+ \pgfPT@setacro[\pgfPTlanguages]{spectra}%
+ \node[font=\pgfPTspectrafont,text=\pgfPTspectracolor,text width=\pgfPT@data@spectra@wd,text centered,inner xsep=0pt,%
+ text depth=0pt,minimum height=\pgfPT@data@spectra@ht]%
+ at ([xshift=\pgfPT@data@spectra@x,yshift=-\pgfPT@data@spectra@y]0)%
+ {\pgfPT@theacro};%
+ \fi%
+ % acronyms description
+ \fontfamily{\pgfPTglobalfont}\fontsize{\pgfPT@doc@fsize}{\pgfPT@doc@fsize}\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.4*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.3*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.3*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.2*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.45*\f@size}\fi\fi%
+ \node[below right,text width={2.5*\pgfPTcellwd+.3*(\pgfPT@countb-1)*\pgfPTcellwd-4pt},inner sep=2pt,font=\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,%
+ fill=\pgfPTlegendbackcolor,line width=\pgfPTcelllinewd] (legend) %
+ at ([yshift={-\pgfPTcellht-.3*\pgfPT@doc@fsize}]0)%
+ {%
+ \edef\pgfPTCScolor{\pgfPTlegendCScolor}\edef\pgfPTradiocolor{\pgfPTlegendradiocolor}\edef\pgfPTArstarcolor{\pgfPTArcolor}%
+ \ifx\pgfPTlegendZcolor\@empty\relax\edef\pgfPTZcolor{\pgfPTZback}\else\edef\pgfPTZcolor{\pgfPTlegendZcolor}\fi%
+ \@for\pgfPT@tmp:=\pgfPT@legend@content\do{%
+ \tikz{\node[text={\csname pgfPT\pgfPT@tmp color\endcsname},text depth=0pt,
+ font=\fontfamily{\pgfPTglobalfont}\selectfont\csname pgfPT\pgfPT@tmp font\endcsname\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont] %
+ {\pgfPT@setacro[\pgfPTlanguages]{\pgfPT@tmp}\pgfPT@theacro%
+ \edef\pgfPT@test@tmp{\pgfPT@tmp}%
+ \ifpgfPT@TboilC\ifpgfPT@Tboil\edef\pgfPT@test@TboilC{TboilC}\ifx\pgfPT@test@tmp\pgfPT@test@TboilC\hspace{.15ex}C\fi\fi\fi%
+ \ifpgfPT@Tboil\ifpgfPT@TboilC\edef\pgfPT@test@Tboil{Tboil}\ifx\pgfPT@test@tmp\pgfPT@test@Tboil\hspace{.15ex}K\fi\fi\fi%
+ \ifpgfPT@TmeltC\ifpgfPT@Tmelt\edef\pgfPT@test@TmeltC{TmeltC}\ifx\pgfPT@test@tmp\pgfPT@test@TmeltC\hspace{.15ex}C\fi\fi\fi%
+ \ifpgfPT@Tmelt\ifpgfPT@TmeltC\edef\pgfPT@test@Tmelt{Tmelt}\ifx\pgfPT@test@tmp\pgfPT@test@Tmelt\hspace{.15ex}K\fi\fi\fi%
+ :\ %
+ \pgfPT@acroDesc{\pgfPT@tmp}\pgfPT@tmp@acro@defaultLanguage\pgfPT@setUnit{\pgfPT@tmp}\ \ifnum\pgfPT@counta>1\relax%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}\pgfPT@tmp@acro@otherLanguages}\fi};%
+ }\\ %
+ }% end do \pgfPT@legend@content
+ };% end node
+ \begin{pgfonlayer}{pgfPTbacklayer}
+ \path[line width=\pgfPTcelllinewd,legendbox,rounded corners=2pt] %
+ ([xshift=2pt,yshift=-2pt]legend.south east) rectangle ([xshift=-2pt,yshift=2pt]0);%
+ \end{pgfonlayer}
+ \fontfamily{\pgfPTglobalfont}\selectfont%
+\else% use full description #################################################
+\label{legenda::full}%
+\pgfPT@count@note=0%
+\ifnum\pgfPT@countb>1\relax%
+ \edef\pgfPT@legendscale{1.75}%
+ \pgfmathparse{2*\pgfPT@loadcell@scaleX}\edef\pgfPT@legendscaleX{\pgfmathresult}%
+ \pgfmathparse{2*\pgfPT@loadcell@scaleY}\edef\pgfPT@legendscaleY{\pgfmathresult}%
+\else%
+ \edef\pgfPT@legendscale{1.5}%
+ \pgfmathparse{1.5*\pgfPT@loadcell@scaleX}\edef\pgfPT@legendscaleX{\pgfmathresult}%
+ \pgfmathparse{1.5*\pgfPT@loadcell@scaleY}\edef\pgfPT@legendscaleY{\pgfmathresult}%
+\fi%
+\pgfmathsetlength{\pgfPT@dima}{\pgfPT@legendscaleX}%
+\pgfmathsetlength{\pgfPT@dimb}{\pgfPT@legendscaleY}%
+\ifdim\pgfPT@dima>2.25pt\relax%
+\edef\pgfPT@legendscaleX{2.25}%
+\fi%
+\ifdim\pgfPT@dimb>2.25pt\relax%
+\edef\pgfPT@legendscaleY{2.25}%
+\fi%
+\ifdim\pgfPT@dima>\pgfPT@dimb\relax%
+ \edef\pgfPT@txtscale{\pgfPT@legendscaleY}%
+\else%
+ \edef\pgfPT@txtscale{\pgfPT@legendscaleX}%
+\fi%
+\fontsize{\pgfPT@doc@fsize}{\pgfPT@doc@fsize}\selectfont\relax%
+\draw[fill=\pgfPTlegendbackcolor] (0) rectangle ++({\pgfPT@legendscaleX*\pgfPTcellwd},-\pgfPT@legendscaleY*\pgfPTcellht);
+ \ifpgfPT@Z\fontfamily{\pgfPTglobalfont}\pgfPTZfont\selectfont\pgfmathsetlength{\pgfPT@dima}{1.5*\pgfPT@loadcell@scaleX*\f@size}%
+ \node[fill=\pgfPTZback,font=\pgfPTZfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTZcolor,below right,inner sep=1.5pt] (LZ)%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Z@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Z@y]0) {Z};%
+ \fontfamily{\pgfPTglobalfont}\pgfPTZfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.5*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.4*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.4*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.3*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Z}%
+ \node[right,font=\pgfPTZfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTZback,text width=\pgfPT@data@Z@wd,inner xsep=1pt]%
+ at (LZ.east) {\pgfPT@putleglabel{Z}};%
+ \fi%
+ % the Chemical Symbol
+ \ifpgfPT@CS\pgfPT@extract@rgb@fill{\pgfPTlegendCScolor}%
+ \fontfamily{\pgfPTglobalfont}\pgfPTCSfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.5*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.3*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.35*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.2*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.5*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@legend{CS}%
+ \edef\pgfPT@checkf@nt{fmm}\edef\pgfPT@f@nt{\f@family}%
+ \ifx\pgfPT@f@nt\pgfPT@checkf@nt\relax\pgfmathsetlength{\pgfPT@dima}{.65*\pgfPT@dima}\pgfmathparse{-.75*\pgfPT@dima}\edef\pgfPT@extra@shift{\pgfmathresult}\else\edef\pgfPT@extra@shift{0pt}\fi%
+ \node[font=\fontfamily{\pgfPTglobalfont}\selectfont\pgfPTCSfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text width={\pgfPT@legendscaleX*\pgfPT@data@CS@wd},text centered,text depth=0pt] (LCS)%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@CS@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@CS@y+\pgfPT@extra@shift]0)
+ {\pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ %[-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi};
+ % pin it...
+ \ifpgfPTlegendapins%
+ \pgfmathsetlength{\pgfPT@dimc}{\pgfPT@data@CS@x+\pgfPT@data@CS@wd}%
+ \ifdim\pgfPT@dimc<\pgfPTcellwd\pgfmathsetlength{\pgfPT@dimc}{\pgfPTcellwd-\pgfPT@dimc}\else\pgfmathsetlength{\pgfPT@dimc}{0pt}\fi%
+ \draw[fill=black!30,line width=.05pt,draw=black!50] (LCS.east) circle(.05*\pgfPTcellwd) ++(.05*\pgfPTcellwd,0) -- ++(\pgfPT@dimc+.35*\pgfPTcellwd,0);
+ \pgfPTCSfont\selectfont\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.45*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.3*\f@size}
+ \else\pgfmathsetlength{\pgfPT@dima}{.5*\f@size}\fi%
+ \fontfamily{\pgfPTglobalfont}\fontsize{\pgfPT@doc@fsize}{\pgfPT@doc@fsize}\selectfont\relax%
+ \node[legendpins,%
+ text width={.7*\pgfPT@legendscale*\pgfPTcellwd-4pt},font=\fontfamily{\pgfPTglobalfont}\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,inner xsep=2pt,inner ysep=1pt]
+ at ([xshift={\pgfPT@legendscaleX*\pgfPT@dimc+.2*\pgfPTcellwd},yshift={.25*\pgfPT@data@CS@ht}]LCS.east)%
+ {%
+ \pgfPT@extract@rgb@fill{solido}\pgfPT@pinEstado{solido}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ \\ [.5ex]\pgfPT@extract@rgb@fill{liquido}\pgfPT@pinEstado{liquido}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ \\ [.5ex]\pgfPT@extract@rgb@fill{gasoso}\pgfPT@pinEstado{gasoso}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ \\ [.5ex]\pgfPT@extract@rgb@fill{sintetico}\pgfPT@pinEstado{sintetico}%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@label@defaultLanguage)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ \ifnum\pgfPT@counta>1\relax\\ [-.5ex]%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont%
+ \pgfPT@lt[\pgfPTCSolwd](\pgfPT@tmp@labels@otherLanguages)(\pgfPT@rs,\pgfPT@gs,\pgfPT@bs)(\pgfPT@rf,\pgfPT@gf,\pgfPT@bf)(\pgfPT@CS@txt@render)%
+ }\fi%
+ };%
+ \fi\fi%
+ % the Name
+ \ifpgfPT@name%
+ \fontfamily{\pgfPTglobalfont}\pgfPTnamefont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{name}%
+ \node[font=\pgfPTnamefont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTnamecolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@name@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@name@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@name@y]0)%
+ {%
+ \pgfPT@putleglabel{name}%
+ };%
+ \fi%
+ % the Atomic weight
+ \ifpgfPT@Ar%
+ \edef\pgfPT@tmptest{\pgfPTArlabel}\edef\pgfPT@tmp@m{m}%
+ \ifx\pgfPT@tmptest\pgfPT@tmp@m\relax\let\pgfPT@labels@Ar\pgfPT@labels@Ar@m\else\let\pgfPT@labels@Ar\pgfPT@labels@Ar@w\fi%
+ \fontfamily{\pgfPTglobalfont}\pgfPTArfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Ar}%
+ \node[font=\pgfPTArfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTArcolor,text depth=0pt,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Ar@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Ar@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Ar@y]0)%
+ {%
+ \pgfPT@putleglabel{Ar}%
+ };%
+ \fi%
+ \ifpgfPT@Arstar%
+ \edef\pgfPT@tmptest{\pgfPTArlabel}\edef\pgfPT@tmp@m{m}%
+ \ifx\pgfPT@tmptest\pgfPT@tmp@m\relax\let\pgfPT@labels@Arstar\pgfPT@labels@Arstar@m\else\let\pgfPT@labels@Arstar\pgfPT@labels@Arstar@w\fi%
+ \fontfamily{\pgfPTglobalfont}\pgfPTArfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Arstar}%
+ \node[font=\pgfPTArfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTArcolor,text depth=0pt,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Arstar@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Arstar@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Arstar@y]0)%
+ {
+ \pgfPT@putleglabel{Arstar}%
+ };
+ \fi%
+ % radioactivity
+ \ifpgfPT@radio%
+ \pgfmathsetlength{\pgfPT@dima}{\pgfPT@data@radio@ht*\pgfPT@loadcell@scaleY}%
+ \node[text width={\pgfPT@legendscaleX*\pgfPT@data@radio@wd-2pt},text centered,inner sep=1pt,opacity=.6] (Lradio)%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@radio@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@radio@y]0)
+ {\includegraphics[height=\pgfPT@dima]{pgfPT_radio_symbol.pdf}};
+ % pin it...
+ \ifpgfPTlegendapins%
+ \fontfamily{\pgfPTglobalfont}\pgfPTotherLangFont\selectfont%
+ \ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.65*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.45*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi%
+ \fontsize{\pgfPT@doc@fsize}{\pgfPT@doc@fsize}\selectfont\relax%
+ \pgfPT@pinEstado{radio}%
+ \pgfmathsetlength{\pgfPT@dimc}{\pgfPT@data@radio@x+\pgfPT@data@radio@wd}%
+ \ifdim\pgfPT@dimc<\pgfPTcellwd\pgfmathsetlength{\pgfPT@dimc}{\pgfPTcellwd-\pgfPT@dimc}\else\pgfmathsetlength{\pgfPT@dimc}{0pt}\fi%
+ \draw[fill=black!30,line width=.05pt,draw=black!50] (Lradio.east) circle(.05*\pgfPTcellwd) ++(.05*\pgfPTcellwd,0) -- ++(.35*\pgfPTcellwd,0);
+ \node[font=\pgfPTotherLangFont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text width={.7*\pgfPT@legendscale*\pgfPTcellwd-4pt},%
+ legendpins,%
+ inner xsep=2pt,inner ysep=1pt,anchor=west,text=\pgfPTlegendradiocolor]
+ at ([xshift={\pgfPT@legendscaleX*\pgfPT@dimc+.2*\pgfPTcellwd}]Lradio.east)%
+ {\pgfPT@tmp@label@defaultLanguage%
+ \ifnum\pgfPT@counta>1\relax\\ [-.25ex]{\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}%
+ \pgfPT@tmp@labels@otherLanguages}\fi%
+ };
+ \fi%
+ \fi%
+ % R -> Atomic Radius (Empirycal)
+ \ifpgfPT@R%
+ \fontfamily{\pgfPTglobalfont}\pgfPTRfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{R}%
+ \node[font=\pgfPTRfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTRcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@R@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@R@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@R@y]0)%
+ {
+ \pgfPT@putleglabel{R}%
+ };
+ \fi%
+ % Rcov -> Covalente Radius
+ \ifpgfPT@Rcov%
+ \fontfamily{\pgfPTglobalfont}\pgfPTRcovfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Rcov}%
+ \node[font=\pgfPTRcovfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTRcovcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Rcov@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Rcov@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Rcov@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@pm]{Rcov}%
+ };
+ \fi%
+ % Rion -> Ionic Radius
+ \ifpgfPT@Rion%
+ \fontfamily{\pgfPTglobalfont}\pgfPTRionfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Rion}%
+ \node[font=\pgfPTRionfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTRioncolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Rion@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Rion@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Rion@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@pm]{Rion}%
+ };
+ \fi%
+ % Ei -> First Ionization Energy
+ \ifpgfPT@Ei%
+ \fontfamily{\pgfPTglobalfont}\pgfPTEifont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Ei}%
+ \node[font=\pgfPTEifont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTEicolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Ei@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Ei@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Ei@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@kJmol]{Ei}%
+ };
+ \fi%
+ % eneg -> Electronegativity (Pauling)
+ \ifpgfPT@eneg%
+ \fontfamily{\pgfPTglobalfont}\pgfPTenegfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{eneg}%
+ \node[font=\pgfPTArfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTenegcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@eneg@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@eneg@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@eneg@y]0)%
+ {
+ \pgfPT@putleglabel{eneg}%
+ };
+ \fi%
+ % eaff -> Electroaffinity
+ \ifpgfPT@eaff%
+ \fontfamily{\pgfPTglobalfont}\pgfPTeafffont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{eaff}%
+ \node[font=\pgfPTeafffont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTeaffcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@eaff@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@eaff@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@eaff@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@kJmol]{eaff}%
+ };
+ \fi%
+ % O -> Oxidation States
+ \ifpgfPT@O%
+ \fontfamily{\pgfPTglobalfont}\pgfPTOfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{O}%
+ \node[font=\pgfPTOfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTOcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@O@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@O@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@O@y]0)%
+ {
+ \pgfPT@putleglabel{O}%
+ };
+ \fi%
+ % Tmelt -> Melting Point (Kelvin)
+ \ifpgfPT@Tmelt%
+ \fontfamily{\pgfPTglobalfont}\pgfPTTmeltfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Tmelt}%
+ \node[font=\pgfPTTmeltfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTTmeltcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Tmelt@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Tmelt@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Tmelt@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@kelvin]{Tmelt}%
+ };
+ \fi%
+ % TmeltC -> Melting Point (degrees Celsius)
+ \ifpgfPT@TmeltC%
+ \fontfamily{\pgfPTglobalfont}\pgfPTTmeltCfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{TmeltC}%
+ \node[font=\pgfPTTmeltCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTTmeltCcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@TmeltC@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@TmeltC@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@TmeltC@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@degC]{TmeltC}%
+ };
+ \fi%
+ % Tboil -> Boiling Point (Kelvin)
+ \ifpgfPT@Tboil%
+ \fontfamily{\pgfPTglobalfont}\pgfPTTboilfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Tboil}%
+ \node[font=\pgfPTTboilfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTTboilcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Tboil@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Tboil@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Tboil@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@kelvin]{Tboil}%
+ };
+ \fi%
+ % TboilC -> Boiling Point (degrees Celsius)
+ \ifpgfPT@TboilC%
+ \fontfamily{\pgfPTglobalfont}\pgfPTTboilCfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{TboilC}%
+ \node[font=\pgfPTTboilCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTTboilCcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@TboilC@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@TboilC@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@TboilC@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@degC]{TboilC}%
+ };
+ \fi%
+ % eDist -> Electron Distribuition
+ \ifpgfPT@eDist%
+ \fontfamily{\pgfPTglobalfont}\pgfPTeDistfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{eDist}%
+ \node[font=\pgfPTeDistfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTeDistcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@eDist@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@eDist@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@eDist@y]0)%
+ {
+ \pgfPT@putleglabel{eDist}%
+ };
+ \fi%
+ % eConfign -> Electronic Configuration (increasing n)
+ \ifpgfPT@eConfign%
+ \fontfamily{\pgfPTglobalfont}\pgfPTeConfignfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{eConfig}%
+ \node[font=\pgfPTeConfignfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTeConfigncolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@eConfign@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@eConfign@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@eConfign@y]0)%
+ {
+ \pgfPT@putleglabel{eConfign}%
+ };
+ \fi%
+ % eConfignl -> Electronic Configuration (increasing n+l)
+ \ifpgfPT@eConfignl%
+ \fontfamily{\pgfPTglobalfont}\pgfPTeConfignlfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{eConfig}%
+ \node[font=\pgfPTeConfignlfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTeConfignlcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@eConfignl@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@eConfignl@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@eConfignl@y]0)%
+ {
+ \pgfPT@putleglabel{eConfignl}%
+ };
+ \fi%
+ % d -> Density
+ \ifpgfPT@d%
+ \fontfamily{\pgfPTglobalfont}\pgfPTdfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{d}%
+ \node[font=\pgfPTdfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTdcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@d@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@d@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@d@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@d]{d}%
+ };
+ \fi%
+ % Cp -> Specific heat capacity (25șC, 100kPa)
+ \ifpgfPT@Cp%
+ \fontfamily{\pgfPTglobalfont}\pgfPTCpfont\selectfont\advance\pgfPT@count@note by1\relax%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{Cp}%
+ \node[font=\pgfPTCpfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTCpcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@Cp@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@Cp@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@Cp@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@Cp]{Cp}%
+ };
+ \fi%
+ % kT -> Thermal Condutivity (25șC)
+ \ifpgfPT@kT%
+ \fontfamily{\pgfPTglobalfont}\pgfPTkTfont\selectfont\advance\pgfPT@count@note by1\relax%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{kT}%
+ \node[font=\pgfPTkTfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTkTcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@kT@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@kT@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@kT@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@kT]{kT}%
+ };
+ \fi%
+ % NOTES for Cp & kT:
+ \ifnum\pgfPT@count@note=1\relax%
+ \ifpgfPT@Cp%
+ \fontfamily{\pgfPTglobalfont}\pgfPTCpfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTCpfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTCpcolor,inner ysep=1pt] %
+ at ([yshift=-\pgfPT@legendscaleY*\pgfPTcellht]0.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(a)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C,100\hspace{.1ex}kPa};%
+ \else\ifpgfPT@kT%
+ \pgfPTkTfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTkTfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTkTcolor,inner ysep=1pt] %
+ at ([yshift=-\pgfPT@legendscaleY*\pgfPTcellht]0.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(a)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C};%
+ \fi\fi%
+ \else\ifnum\pgfPT@count@note=2\relax% \pgfPT@count@note=1
+ \ifdim\pgfPT@data@kT@y=\pgfPT@data@Cp@y\relax%
+ \ifdim\pgfPT@data@kT@x>\pgfPT@data@Cp@x\relax% Cp -> a ; kT -> b
+ \pgfPTCpfont\selectfont% Cp ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTCpfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTCpcolor,inner ysep=1pt] (noteA)%
+ at ([yshift=-\pgfPT@legendscaleY*\pgfPTcellht]0.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(a)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C,100\hspace{.1ex}kPa};%
+ \pgfPTkTfont\selectfont% kT ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTkTfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTkTcolor,inner ysep=1pt] %
+ at ([yshift=.65ex]noteA.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(b)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C};%
+ \else% kT -> a ; Cp -> b
+ \pgfPTkTfont\selectfont% kT ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTkTfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTkTcolor,inner ysep=1pt] (noteA)%
+ at ([yshift=-\pgfPT@legendscaleY*\pgfPTcellht]0.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(a)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C};%
+ \pgfPTCpfont\selectfont% Cp ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTCpfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTCpcolor,inner ysep=1pt] %
+ at ([yshift=.65ex]noteA.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(b)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C,100\hspace{.1ex}kPa};%
+ \fi%
+ \else%\pgfPT@data@kT@y=\pgfPT@data@Cp@y\fi%
+ \ifdim\pgfPT@data@kT@y>\pgfPT@data@Cp@y\relax% Cp -> a ; kT -> b
+ \pgfPTCpfont\selectfont% Cp ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTCpfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTCpcolor,inner ysep=1pt] (noteA)%
+ at ([yshift=-\pgfPT@legendscaleY*\pgfPTcellht]0.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(a)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C,100\hspace{.1ex}kPa};%
+ \pgfPTkTfont\selectfont% kT ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTkTfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTkTcolor,inner ysep=1pt] %
+ at ([yshift=.65ex]noteA.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(b)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C};%
+ \else% kT -> a ; Cp -> b
+ \pgfPTkTfont\selectfont% kT ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTkTfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTkTcolor,inner ysep=1pt] (noteA)%
+ at ([yshift=-\pgfPT@legendscaleY*\pgfPTcellht]0.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(a)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C};%
+ \pgfPTCpfont\selectfont% Cp ---->
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \pgfmathsetlength{\pgfPT@dimc}{.555*\pgfPT@dima}%
+ \node[below right,font=\pgfPTCpfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTCpcolor,inner ysep=1pt] %
+ at ([yshift=.65ex]noteA.south west) {%
+ \raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont(b)} %
+ @ 25\raisebox{.777ex}{\fontsize{\pgfPT@dimc}{\pgfPT@dimc}\selectfont o}C,100\hspace{.1ex}kPa};%
+ \fi\fi%
+ \fi\fi% \else\ifnum\pgfPT@count@note=2
+ % END OF NOTES for Cp & kT <-------
+ % ls -> Lattice Structure
+ \ifpgfPT@ls%
+ \fontfamily{\pgfPTglobalfont}\pgfPTlsfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.5*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.3*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.2*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{ls}%
+ \node[font=\pgfPTlsfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlscolor,%
+ text width={0.75*\pgfPT@legendscaleX*\pgfPT@data@ls@wd},text centered,inner xsep=0pt]%
+ at ([xshift={0.25*\pgfPT@legendscaleX*\pgfPT@data@ls@wd+\pgfPT@legendscaleX*\pgfPT@data@ls@x},yshift=-\pgfPT@legendscaleY*\pgfPT@data@ls@y]0)%
+ {
+ \pgfPT@putleglabel{ls}%
+ };
+ \ifpgfPTlegendaextra%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\fi\fi%
+ \ifpgfPT@DiscC% insere a legenda extra para a estrutura da rede (existindo as bandeiras)
+ \pgfmathsetlength{\pgfPT@boxht}{.77*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.2*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=1.8*\pgfPTcellwd,font=\pgfPTlsfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlscolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at (EXTRA) {%
+ \global\pgfPT@countc=0%
+ \@for\pgfPT@lssigla:={bcc,bcort,ctetr,dia,fcc,fcort,hcp,hex,mono,rho,sc,tric,tetr}\do{%
+ \pgfPT@legend{ls@\pgfPT@lssigla}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@lssigla.pdf}\\ [-.5ex]\pgfPT@lssigla};%
+ \node[below right,text width=1.55*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.north east) {%
+ \pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}%
+ \pgfPT@tmp@labels@otherLanguages}\fi%
+ };%
+ }%
+ \global\advance\pgfPT@countc by1\relax%
+ \ifnum\pgfPT@countc<13\relax\vspace{-.1775ex}\newline\fi%
+ }%
+ };
+ \else% apenas a estrutura da rede
+ \pgfmathsetlength{\pgfPT@boxht}{.75*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.25*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=2*\pgfPTcellwd,font=\pgfPTlsfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlscolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at ([xshift=\pgfPTcellwd]EXTRA) {%
+ \global\pgfPT@countc=0%
+ \@for\pgfPT@lssigla:={bcc,bcort,ctetr,dia,fcc,fcort,hcp,hex,mono,rho,sc,tric,tetr}\do{%
+ \pgfPT@legend{ls@\pgfPT@lssigla}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{lattice/pgfPT_ls_\pgfPT@lssigla.pdf}\\ [-.5ex]\pgfPT@lssigla};%
+ \node[below right,text width=1.55*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.north east) {%
+ \pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}%
+ \pgfPT@tmp@labels@otherLanguages}\fi%
+ };%
+ }%
+ \global\advance\pgfPT@countc by1\relax%
+ \ifnum\pgfPT@countc<13\relax\vspace{-.1775ex}\newline\fi%
+ }%
+ };
+ \fi%
+ \fi% legenda extra
+ \fi%
+ % lsa -> Lattice constant: a
+ \ifpgfPT@lsa%
+ \fontfamily{\pgfPTglobalfont}\pgfPTlsafont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{lsa}%
+ \node[font=\pgfPTlsafont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlsacolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@lsa@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@lsa@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@lsa@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@pm]{lsa}%
+ };
+ \fi%
+ % lsb -> Lattice constant: b
+ \ifpgfPT@lsb%
+ \fontfamily{\pgfPTglobalfont}\pgfPTlsbfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{lsb}%
+ \node[font=\pgfPTlsbfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlsbcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@lsb@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@lsb@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@lsb@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@pm]{lsb}%
+ };
+ \fi%
+ % lsc -> Lattice constant: c
+ \ifpgfPT@lsc%
+ \fontfamily{\pgfPTglobalfont}\pgfPTlscfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{lsc}%
+ \node[font=\pgfPTlscfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlsccolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@lsc@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@lsc@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@lsc@y]0)%
+ {
+ \pgfPT@putleglabel[\pgfPT@labels@unit@pm]{lsc}%
+ };
+ \fi%
+ % lsca -> Lattice c/a ratio:
+ \ifpgfPT@lsca%
+ \fontfamily{\pgfPTglobalfont}\pgfPTlscafont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{lsca}%
+ \node[font=\pgfPTlscafont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTlscacolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@lsca@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@lsca@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@lsca@y]0)%
+ {
+ \pgfPT@putleglabel{lsca}%
+ };
+ \fi%
+ % DiscY -> Discover Year
+ \ifpgfPT@DiscY%
+ \fontfamily{\pgfPTglobalfont}\pgfPTDiscYfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{DiscY}%
+ \node[font=\pgfPTDiscYfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTDiscYcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@DiscY@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@DiscY@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@DiscY@y]0)%
+ {
+ \pgfPT@putleglabel{DiscY}%
+ };
+ \fi%
+ % DiscC -> Discover Country
+ \ifpgfPT@DiscC%
+ \fontfamily{\pgfPTglobalfont}\pgfPTDiscCfont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{DiscC}%
+ \node[font=\pgfPTDiscCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTDiscCcolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@DiscC@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@DiscC@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@DiscC@y]0)%
+ {
+ \pgfPT@putleglabel{DiscC}%
+ };
+ \ifpgfPTlegendaextra%
+ \ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.67*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}\edef\pgfPT@nodepos{below right}\edef\pgfPT@nodeat{north east}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.78*\f@size}\edef\pgfPT@nodepos{right}\edef\pgfPT@nodeat{east}\fi%
+ \ifpgfPT@ls% insere a legenda extra para as bandeiras (existindo a estrutura da rede)
+ \pgfmathsetlength{\pgfPT@boxht}{.6*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.2*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=2*\pgfPTcellwd,font=\pgfPTDiscCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTDiscCcolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at ([xshift=2*\pgfPTcellwd]EXTRA) {%
+ \@for\pgfPT@country:={0,1,2,3,4,5,8,11,12,13,14,15,17,18,20,21,22,25}\do{%
+ \pgfPT@set@country{\pgfPT@country}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{flags/\pgfPT@country@flag.pdf}};%
+ \global\pgfPT@countc=0%
+ \node[\pgfPT@nodepos,text width=1.75*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.\pgfPT@nodeat) {%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@countc=0\relax%
+ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}%
+ \else%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}
+ \ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}}%
+ \fi%
+ \global\advance\pgfPT@countc by1\relax%
+ }%
+ };%
+ }%
+ \ifnum\pgfPT@country<25\relax\vspace{1pt}\newline\fi%
+ }%
+ };
+ \else% apenas as bandeiras
+ \pgfmathsetlength{\pgfPT@boxht}{.6*\f@size}%
+ \pgfmathsetlength{\pgfPT@boxwd}{.2*\pgfPTcellwd}%
+ \node[extralegend,%
+ text width=2.5*\pgfPTcellwd,font=\pgfPTDiscCfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTDiscCcolor,%
+ inner xsep=2pt,inner ysep=1pt]
+ at ([xshift=.875*\pgfPTcellwd]EXTRA) {%
+ \@for\pgfPT@country:={0,1,2,3,4,5,8,11,12,13,14,15,17,18,20,21,22,25}\do{%
+ \pgfPT@set@country{\pgfPT@country}%
+ \tikz{%
+ \node[text width=\pgfPT@boxwd,text centered,inner sep=0pt] (exFlag) at (0,0) {\includegraphics[height=\pgfPT@boxht]{flags/\pgfPT@country@flag.pdf}};%
+ \global\pgfPT@countc=0%
+ \node[below right,text width=3.75*\pgfPTcellwd,inner xsep=0pt] at ([xshift=.025*\pgfPTcellwd]exFlag.north east) {%
+ \@for\pgfPT@tmp:=\pgfPTlanguages\do{%
+ \ifnum\pgfPT@countc=0\relax%
+ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}%
+ \else%
+ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{\pgfPTotherLangColor}
+ \ \pgfPT@box@zerodepth{\csname pgfPT@country@name@\pgfPT@tmp\endcsname}}%
+ \fi%
+ \global\advance\pgfPT@countc by1\relax%
+ }%
+ };%
+ }%
+ \ifnum\pgfPT@country<25\relax\vspace{1pt}\newline\fi%
+ }%
+ };
+ \fi%
+ \fi% legenda extra
+ \fi%
+ % spectra -> spectra
+ \ifpgfPT@spectra%
+ \fontfamily{\pgfPTglobalfont}\pgfPTspectrafont\selectfont%
+ \ifnum\pgfPT@countb=2\relax\pgfmathsetlength{\pgfPT@dima}{.7*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size*\pgfPT@txtscale}%
+ \else\ifnum\pgfPT@countb>2\relax\pgfmathsetlength{\pgfPT@dima}{.6*\f@size*\pgfPT@txtscale}\pgfmathsetlength{\pgfPT@dimb}{.35*\f@size*\pgfPT@txtscale}%
+ \else\pgfmathsetlength{\pgfPT@dima}{.85*\f@size*\pgfPT@txtscale}\fi\fi%
+ \pgfPT@leglabel{spectra}%
+ \node[font=\pgfPTspectrafont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTspectracolor,%
+ text width={\pgfPT@legendscaleX*\pgfPT@data@spectra@wd},text centered,inner xsep=0pt]%
+ at ([xshift=\pgfPT@legendscaleX*\pgfPT@data@spectra@x,yshift=-\pgfPT@legendscaleY*\pgfPT@data@spectra@y]0)%
+ {
+ \pgfPT@putleglabel{spectra}%
+ };
+ \fi%
+ \global\pgfPT@dima=0pt\relax%
+\fi\fi% end legend
+% End of Legend and title
+% MNM line (Metal Non Metal line)
+% get the limits of Z
+\ifpgfPTMNMline%
+\expandafter\pgfPT@get@limits\pgfPT@@cellslist\relax%
+\ifnum\pgfPT@limits@min=1\relax\ifnum\pgfPT@limits@max=118\relax\ifnum\pgfPT@element@count>87\relax% draw the line
+\draw[line width=\pgfPTMNMlinewidth,\pgfPTMNMlinecolor] (5.north west)%
+ -- ++(0,-\pgfPTcellht) -- ++(\pgfPTcellwd,0)%
+ -- ++(0,-\pgfPTcellht) -- ++(\pgfPTcellwd,0)%
+ -- ++(0,-\pgfPTcellht) -- ++(\pgfPTcellwd,0)%
+ -- ++(0,-\pgfPTcellht) -- ++(\pgfPTcellwd,0)%
+ -- ++(0,-\pgfPTcellht);%
+\fi\fi\fi%
+\fi%
+% Blocks
+\ifpgfPTblocos%
+% get the limits of Z
+\expandafter\pgfPT@get@limits\pgfPT@@cellslist\relax%
+\ifnum\pgfPT@limits@min=1\relax\ifnum\pgfPT@limits@max=118\relax\ifnum\pgfPT@element@count>87\relax%
+% draw the blocks
+\pgfPT@countb=0\relax\@for\pgfPT@tmp:=\pgfPTlanguages\do{\advance\pgfPT@countb by 1\relax}%
+\fontfamily{\pgfPTglobalfont}\pgfPTblocksfont\selectfont%
+\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+\else\pgfmathsetlength{\pgfPT@dima}{\f@size}\fi%
+% bloco s
+\pgfPT@legend{blocos}%
+\colorlet{pgfPTcolortemp}{\pgfPTsblockcolor}%
+\draw[line width=\pgfPTsblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTsblockcolor,opacity=.7] %
+(1) -- ++(\pgfPTcellwd,0) -- (4) -- ++(\pgfPTcellwd,0) -- ([xshift=\pgfPTcellwd,yshift=-\pgfPTcellht]88) -- ([yshift=-\pgfPTcellht]87) -- cycle;
+\draw[line width=\pgfPTsblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTsblockcolor,opacity=.7] (2) -- ++(\pgfPTcellwd,0) -- ++(0,-\pgfPTcellht) -- ++(-\pgfPTcellwd,0) -- cycle;%
+\ifx\pgfPTsblockfontcolor\@empty\relax%
+\let\pgfPTtxtcolor\pgfPTsblockcolor\relax%
+\else%
+\let\pgfPTtxtcolor\pgfPTsblockfontcolor\relax%
+\fi%
+\colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+\node[font=\pgfPTblocksfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTsblocklinewidth,%
+draw=pgfPTcolortemp!50!black,fill=white,text width=1.8*\pgfPTcellwd,text centered,inner ysep=.5ex,%
+text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+at (\pgfPTcellwd,-1.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+% bloco p
+\pgfPT@legend{blocop}%
+\colorlet{pgfPTcolortemp}{\pgfPTpblockcolor}%
+\draw[line width=\pgfPTpblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTpblockcolor,opacity=.7] %
+(5) -- ++(6*\pgfPTcellwd,0) -- ++(0,-6*\pgfPTcellht) -- ++(-6*\pgfPTcellwd,0) -- cycle;%
+\ifx\pgfPTpblockfontcolor\@empty\relax%
+\let\pgfPTtxtcolor\pgfPTpblockcolor\relax%
+\else%
+\let\pgfPTtxtcolor\pgfPTpblockfontcolor\relax%
+\fi%
+\colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+\node[font=\pgfPTblocksfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTpblocklinewidth,%
+draw=pgfPTcolortemp!50!black,fill=white,text width=1.8*\pgfPTcellwd,text centered,inner ysep=.5ex,%
+text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+at (15*\pgfPTcellwd,-1.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+% bloco d
+\pgfPT@legend{blocod}%
+\colorlet{pgfPTcolortemp}{\pgfPTdblockcolor}%
+\ifpgfPTIUPACMMIX%
+ \draw[line width=\pgfPTdblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTdblockcolor,opacity=.7] %
+ (21) -- ++(10*\pgfPTcellwd,0) -- ++(0,-4*\pgfPTcellht) -- ++(-9*\pgfPTcellwd,0) -- ++(0,2*\pgfPTcellht)%
+ -- ++(-\pgfPTcellwd,0) -- ++(0,2*\pgfPTcellht) -- cycle;%
+ \edef\pgfPT@testa{spd}%
+ \ifx\pgfPTcells\pgfPT@testa\relax% f isn't present
+ \else%
+ \draw[line width=\pgfPTdblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTdblockcolor,opacity=.7] %
+ (57) -- ++(\pgfPTcellwd,0) -- ++(0,-2*\pgfPTcellht) -- ++(-\pgfPTcellwd,0) -- cycle;%
+ \fi%
+ \ifx\pgfPTdblockfontcolor\@empty\relax%
+ \let\pgfPTtxtcolor\pgfPTdblockcolor\relax%
+ \else%
+ \let\pgfPTtxtcolor\pgfPTdblockfontcolor\relax%
+ \fi%
+ \colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+ \node[font=\pgfPTblocksfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTdblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=1.8*\pgfPTcellwd,text centered,inner ysep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (7*\pgfPTcellwd,-3.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\else%
+ \draw[line width=\pgfPTdblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTdblockcolor,opacity=.7] %
+ (21) -- ++(10*\pgfPTcellwd,0) -- ++(0,-4*\pgfPTcellht) -- ++(-10*\pgfPTcellwd,0) -- ++(0,4*\pgfPTcellht) -- cycle;%
+ \ifx\pgfPTdblockfontcolor\@empty\relax%
+ \let\pgfPTtxtcolor\pgfPTdblockcolor\relax%
+ \else%
+ \let\pgfPTtxtcolor\pgfPTdblockfontcolor\relax%
+ \fi%
+ \colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+ \node[font=\pgfPTblocksfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTdblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=1.8*\pgfPTcellwd,text centered,inner ysep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (7*\pgfPTcellwd,-3.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\fi%
+% bloco f
+\edef\pgfPT@testa{spd}%
+\ifx\pgfPTcells\pgfPT@testa\relax% no block f
+\else%
+\pgfPT@legend{blocof}%
+\colorlet{pgfPTcolortemp}{\pgfPTfblockcolor}%
+\draw[line width=\pgfPTfblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTfblockcolor,opacity=.7] %
+ (58) -- ++(14*\pgfPTcellwd,0) -- ++(0,-2*\pgfPTcellht) -- ++(-14*\pgfPTcellwd,0) -- cycle;%
+\ifx\pgfPTfblockfontcolor\@empty\relax%
+\let\pgfPTtxtcolor\pgfPTfblockcolor\relax%
+\else%
+\let\pgfPTtxtcolor\pgfPTfblockfontcolor\relax%
+\fi%
+\colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+\ifpgfPTIUPACMMIX%
+ \node[font=\pgfPTblocksfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTfblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=1.8*\pgfPTcellwd,text centered,inner ysep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (10*\pgfPTcellwd,-8*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\else%
+ \node[font=\pgfPTblocksfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTfblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=1.8*\pgfPTcellwd,text centered,inner ysep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (9.5*\pgfPTcellwd,-8*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\fi% IUPAC
+\fi%
+\fi\fi\fi\fi% END Blocks
+%
+% Families
+\ifpgfPTfamilias%
+\label{familias}%
+% get the limits of Z
+\expandafter\pgfPT@get@limits\pgfPT@@cellslist\relax%
+\ifnum\pgfPT@limits@min=1\relax\ifnum\pgfPT@limits@max=118\relax\ifnum\pgfPT@element@count>87\relax%
+% draw the families
+\pgfPT@countb=0\relax\@for\pgfPT@tmp:=\pgfPTlanguages\do{\advance\pgfPT@countb by 1\relax}%
+\fontfamily{\pgfPTglobalfont}\pgfPTfamiliesfont\selectfont%
+\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.75*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.55*\f@size}%
+\else\pgfmathsetlength{\pgfPT@dima}{\f@size}\fi%
+% elementos representativos
+\pgfPT@legend{blocor}%
+\colorlet{pgfPTcolortemp}{\pgfPTrblockcolor}%
+\draw[line width=\pgfPTrblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTrblockcolor,opacity=.7] %
+(1) -- ++(\pgfPTcellwd,0) -- ++(0,-\pgfPTcellht) -- ++(\pgfPTcellwd,0) -- ++(0,-6*\pgfPTcellht)%
+ -- ++(-2*\pgfPTcellwd,0) -- cycle;
+\draw[line width=\pgfPTrblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTrblockcolor,opacity=.7] %
+(12*\pgfPTcellwd,-\pgfPTcellht) -- ++(5*\pgfPTcellwd,0) -- ++(0,\pgfPTcellht)%
+ -- ++(\pgfPTcellwd,0) -- ++(0,-7*\pgfPTcellht) -- ++(-6*\pgfPTcellwd,0) -- cycle;%
+\ifx\pgfPTrblockfontcolor\@empty\relax%
+\let\pgfPTtxtcolor\pgfPTrblockcolor\relax%
+\else%
+\let\pgfPTtxtcolor\pgfPTrblockfontcolor\relax%
+\fi%
+\colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+\node[font=\pgfPTfamiliesfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTrblocklinewidth,%
+draw=pgfPTcolortemp!50!black,fill=white,text width=5*\pgfPTcellwd,text centered,inner sep=.5ex,%
+text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid,above] (ler)%
+at (7*\pgfPTcellwd,-1.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\draw[line width=0.25ex,pgfPTcolortemp!50!black,-stealth,double,double distance=1pt] (ler.west) .. controls ++(-.5*\pgfPTcellwd,0) .. (2*\pgfPTcellwd,-1.5*\pgfPTcellht);%
+\draw[line width=0.25ex,pgfPTcolortemp!50!black,-stealth,double,double distance=1pt] (ler.east) .. controls ++(.5*\pgfPTcellwd,0) .. (12*\pgfPTcellwd,-1.5*\pgfPTcellht);%
+% metais de transicao
+\pgfPT@legend{blocot}%
+\colorlet{pgfPTcolortemp}{\pgfPTtblockcolor}%
+\ifpgfPTIUPACMMIX%
+ \draw[line width=\pgfPTtblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTtblockcolor,opacity=.7] %
+ (21) -- ++(10*\pgfPTcellwd,0) -- ++(0,-4*\pgfPTcellht) -- ++(-9*\pgfPTcellwd,0) -- ++(0,2*\pgfPTcellht)%
+ -- ++(-\pgfPTcellwd,0) -- ++(0,2*\pgfPTcellht) -- cycle;%
+ \edef\pgfPT@testa{spd}%
+ \ifx\pgfPTcells\pgfPT@testa\relax% f isn't present
+ \else%
+ \draw[line width=\pgfPTtblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTtblockcolor,opacity=.7] %
+ (57) -- ++(\pgfPTcellwd,0) -- ++(0,-2*\pgfPTcellht) -- ++(-\pgfPTcellwd,0) -- cycle;%
+ \fi%
+ \ifx\pgfPTtblockfontcolor\@empty\relax%
+ \let\pgfPTtxtcolor\pgfPTtblockcolor\relax%
+ \else%
+ \let\pgfPTtxtcolor\pgfPTtblockfontcolor\relax%
+ \fi%
+ \colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+ \node[font=\pgfPTfamiliesfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTtblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=4*\pgfPTcellwd,text centered,inner sep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (7*\pgfPTcellwd,-3.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\else%
+ \draw[line width=\pgfPTtblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTtblockcolor,opacity=.7] %
+ (21) -- ++(10*\pgfPTcellwd,0) -- ++(0,-4*\pgfPTcellht) -- ++(-10*\pgfPTcellwd,0) -- ++(0,4*\pgfPTcellht) -- cycle;%
+ \ifx\pgfPTtblockfontcolor\@empty\relax%
+ \let\pgfPTtxtcolor\pgfPTtblockcolor\relax%
+ \else%
+ \let\pgfPTtxtcolor\pgfPTtblockfontcolor\relax%
+ \fi%
+ \colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+ \node[font=\pgfPTfamiliesfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTtblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=4*\pgfPTcellwd,text centered,inner sep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (7*\pgfPTcellwd,-3.5*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\fi%
+% metais de transicao internos
+\edef\pgfPT@testa{spd}%
+\ifx\pgfPTcells\pgfPT@testa\relax% f isn't present
+\else%
+\pgfPT@legend{blocoi}%
+\colorlet{pgfPTcolortemp}{\pgfPTiblockcolor}%
+\draw[line width=\pgfPTiblocklinewidth,pgfPTcolortemp!50!black,fill=\pgfPTiblockcolor,opacity=.7] %
+(58) -- ++(14*\pgfPTcellwd,0) -- ++(0,-2*\pgfPTcellht) -- ++(-14*\pgfPTcellwd,0) -- cycle;%
+\ifx\pgfPTiblockfontcolor\@empty\relax%
+\let\pgfPTtxtcolor\pgfPTiblockcolor\relax%
+\else%
+\let\pgfPTtxtcolor\pgfPTiblockfontcolor\relax%
+\fi%
+\colorlet{pgfPTfontcolortemp}{\pgfPTtxtcolor}%
+\ifpgfPTIUPACMMIX%
+ \node[font=\pgfPTfamiliesfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTiblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=5*\pgfPTcellwd,text centered,inner sep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (10*\pgfPTcellwd,-8*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\else%
+ \node[font=\pgfPTfamiliesfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,line width=\pgfPTiblocklinewidth,%
+ draw=pgfPTcolortemp!50!black,fill=white,text width=5*\pgfPTcellwd,text centered,inner sep=.5ex,%
+ text=pgfPTfontcolortemp,rounded corners=2pt,minimum height=.5*\pgfPTcellht,anchor=mid] %
+ at (9.5*\pgfPTcellwd,-8*\pgfPTcellht) {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}%
+ \ifnum\pgfPT@counta>1\relax\\ {\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont\color{pgfPTfontcolortemp!85!transparent}%
+ \pgfPT@tmp@labels@otherLanguages}\fi};
+\fi%
+\fi%
+\fi\fi\fi\fi% END Families
+% Variacoes
+\edef\@pgfPT@varpage@xshift{0pt}%
+\edef\@pgfPT@varpage@yshift{0pt}%
+\ifpgfPTvariations%
+% get the limits of Z
+\expandafter\pgfPT@get@limits\pgfPT@@cellslist\relax%
+\ifnum\pgfPT@limits@min=1\relax\ifnum\pgfPT@limits@max=118\relax\ifnum\pgfPT@element@count>87\relax% draw the periodic variations (Ei, Eion, Eaff)
+\pgfPT@countb=0\relax\@for\pgfPT@tmp:=\pgfPTlanguages\do{\advance\pgfPT@countb by 1\relax}%
+% Determine shifts for the variations
+\pgfPT@countc=0\relax%
+\ifpgfPT@R\advance\pgfPT@countc by1\relax\fi%
+\ifpgfPT@Ei\advance\pgfPT@countc by1\relax\fi%
+\ifpgfPT@eaff\advance\pgfPT@countc by1\relax\fi%
+\ifnum\pgfPT@countc=1\relax%
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{0}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \pgfmathparse{\pgfPTcellwd+.1875*\pgfPTcellwd}\edef\@pgfPT@varpage@xshift{\pgfmathresult}%
+ \pgfmathparse{.625*\pgfPTcellwd}\edef\@pgfPT@varpage@yshift{\pgfmathresult}%
+\else\ifnum\pgfPT@countc=2\relax%
+ \pgfmathparse{1.725*\pgfPTcellwd+.1875*\pgfPTcellwd}\edef\@pgfPT@varpage@xshift{\pgfmathresult}%
+ \pgfmathparse{.725*\pgfPTcellwd+.625*\pgfPTcellwd}\edef\@pgfPT@varpage@yshift{\pgfmathresult}%
+ \pgfmathparse{.725*\pgfPTcellwd}\edef\pgfPT@var@shift{\pgfmathresult}%
+ % R & Ei
+ \ifpgfPT@R\ifpgfPT@Ei\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@Ei@y\relax%
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@Eivar@shift{0}%
+ \else%
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \fi%
+ \fi\fi%
+ % R & eaff
+ \ifpgfPT@R\ifpgfPT@eaff\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \else%
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shift}%
+ \fi%
+ \fi\fi%
+ % Ei & eaff
+ \ifpgfPT@Ei\ifpgfPT@eaff\relax%
+ \ifdim\pgfPT@data@Ei@y<\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \else%
+ \edef\pgfPT@Eivar@shift{0}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shift}%
+ \fi%
+ \fi\fi%
+\else\ifnum\pgfPT@countc=3\relax%
+ \pgfmathparse{2.45*\pgfPTcellwd+.1875*\pgfPTcellwd}\edef\@pgfPT@varpage@xshift{\pgfmathresult}%
+ \pgfmathparse{1.45*\pgfPTcellwd+.625*\pgfPTcellwd}\edef\@pgfPT@varpage@yshift{\pgfmathresult}%
+ \pgfmathparse{.725*\pgfPTcellwd}\edef\pgfPT@var@shift{\pgfmathresult}%
+ \pgfmathparse{1.45*\pgfPTcellwd}\edef\pgfPT@var@shiftshift{\pgfmathresult}%
+ % R->Ei->eaff
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@Ei@y\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@eaff@y\relax%
+ \ifdim\pgfPT@data@Ei@y<\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \else%
+ % R->eaff->Ei
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@Eivar@shift{0}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shift}%
+ \fi\fi\fi%
+ % Ei->R->eaff
+ \ifdim\pgfPT@data@Ei@y<\pgfPT@data@R@y\relax%
+ \ifdim\pgfPT@data@Ei@y<\pgfPT@data@eaff@y\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \else%
+ % Ei->eaff->R
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shift}%
+ \fi\fi\fi%
+ % eaff->R->Ei
+ \ifdim\pgfPT@data@eaff@y<\pgfPT@data@R@y\relax%
+ \ifdim\pgfPT@data@eaff@y<\pgfPT@data@Ei@y\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@Ei@y\relax%
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@Eivar@shift{0}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shiftshift}%
+ \else%
+ % eaff->Ei->R
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shiftshift}%
+ \fi\fi\fi%
+ % R=Ei->eaff
+ \ifdim\pgfPT@data@R@y=\pgfPT@data@Ei@y\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \else%
+ % R->eaff->Ei
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@Eivar@shift{0}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shift}%
+ \fi\fi%
+ % R->Ei=eaff
+ \ifdim\pgfPT@data@R@y=\pgfPT@data@eaff@y\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@Eif@y\relax%
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shiftshift}%
+ \else%
+ % R->eaff->Ei
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \fi\fi%
+ % R=eaff->Ei
+ \ifdim\pgfPT@data@R@y=\pgfPT@data@eaff@y\relax%
+ \ifdim\pgfPT@data@R@y<\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shiftshift}%
+ \else%
+ % R->eaff->Ei
+ \edef\pgfPT@Rvar@shift{\pgfPT@var@shiftshift}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{0}%
+ \fi\fi%
+ % R=eaff=Ei
+ \ifdim\pgfPT@data@R@y=\pgfPT@data@eaff@y\relax%
+ \ifdim\pgfPT@data@R@y=\pgfPT@data@eaff@y\relax%
+ \edef\pgfPT@Rvar@shift{0}%
+ \edef\pgfPT@Eivar@shift{\pgfPT@var@shift}%
+ \edef\pgfPT@eaffvar@shift{\pgfPT@var@shiftshift}%
+ \fi\fi%
+\fi\fi\fi%
+% end of shifts
+% R var
+\ifpgfPT@R%
+\fontfamily{\pgfPTglobalfont}\pgfPTvarRfont\selectfont%
+\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.65*\f@size}%
+\else\pgfmathsetlength{\pgfPT@dima}{\f@size}\fi%
+\colorlet{pgfPTcolortemp}{\pgfPTvarRcolor}\colorlet{pgfPTfontcolortemp}{\pgfPTvarRfontcolor}%
+\pgfPT@pinEstado{Rdim}%
+\draw[fill=\pgfPTvarRcolor,\pgfPTvarRcolor,path fading=diminuix] %
+(-\pgfPTcellwd-\pgfPT@Rvar@shift,\pgfPTcellht+\pgfPT@Rvar@shift) -- ++(0,.1875*\pgfPTcellwd) -- ++(19*\pgfPTcellwd,0) %
+-- ++(-.09375*\pgfPTcellwd,.25*\pgfPTcellwd) -- ++(.375*\pgfPTcellwd,-.4375*\pgfPTcellwd) %
+-- ++(-.375*\pgfPTcellwd,-.4375*\pgfPTcellwd) -- ++(.09375*\pgfPTcellwd,.25*\pgfPTcellwd) %
+-- ++(-19*\pgfPTcellwd,0) -- ++(0,.1875*\pgfPTcellwd) -- cycle;%
+\node[font=\pgfPTvarRfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTvarRfontcolor,anchor=mid,minimum height=.375*\pgfPTcellwd] (variacao)%
+ at (9*\pgfPTcellwd-\pgfPT@Rvar@shift,\pgfPTcellht+\pgfPT@Rvar@shift) %
+ {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}};%
+ \ifnum\pgfPT@counta>1\relax%
+ \node[font=\pgfPTvarRfont\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont,text=pgfPTfontcolortemp!85!transparent,above]%
+ at (variacao.north) {\pgfPT@tmp@labels@otherLanguages};\fi%
+\pgfPT@pinEstado{Raum}%
+\draw[fill=\pgfPTvarRcolor,\pgfPTvarRcolor,path fading=aumentay] %
+(-\pgfPTcellwd-\pgfPT@Rvar@shift,\pgfPTcellht+\pgfPT@Rvar@shift) -- ++(-.1875*\pgfPTcellwd,0) -- ++(0,-8*\pgfPTcellht) %
+-- ++(-.25*\pgfPTcellwd,.09375*\pgfPTcellwd) -- ++(.4375*\pgfPTcellwd,-.375*\pgfPTcellwd) %
+-- ++(.4375*\pgfPTcellwd,.375*\pgfPTcellwd) -- ++(-.25*\pgfPTcellwd,-.09375*\pgfPTcellwd) %
+-- ++(0,8*\pgfPTcellht) -- ++(-.1875*\pgfPTcellwd,0) -- cycle;%
+\node[font=\pgfPTvarRfont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTvarRfontcolor,rotate=270,anchor=mid,minimum height=.375*\pgfPTcellwd] (variacao)%
+ at (-\pgfPTcellwd-\pgfPT@Rvar@shift,-3.5*\pgfPTcellht+\pgfPT@Rvar@shift) %
+ {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}};%
+ \ifnum\pgfPT@counta>1\relax%
+ \node[font=\pgfPTvarRfont\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont,text=pgfPTfontcolortemp!85!transparent,rotate=270,below]%
+ at ([xshift=-.0375*\pgfPTcellwd]variacao.south) {\pgfPT@tmp@labels@otherLanguages};\fi%
+\draw[fill=pgfPTcolortemp!60!black,draw=pgfPTcolortemp!60!black] (-\pgfPTcellwd-\pgfPT@Rvar@shift,\pgfPTcellht+\pgfPT@Rvar@shift) circle(.3125*\pgfPTcellwd) %
+ node[font=\pgfPTvarRfont,text=pgfPTcolortemp!25!white,anchor=mid] {R};%
+\fi%
+% Ei var
+\ifpgfPT@Ei%
+\fontfamily{\pgfPTglobalfont}\pgfPTvarEifont\selectfont%
+\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.65*\f@size}%
+\else\pgfmathsetlength{\pgfPT@dima}{\f@size}\fi%
+\colorlet{pgfPTcolortemp}{\pgfPTvarEicolor}\colorlet{pgfPTfontcolortemp}{\pgfPTvarEifontcolor}%
+\pgfPT@pinEstado{Eiaum}%
+\draw[fill=\pgfPTvarEicolor,\pgfPTvarEicolor,path fading=aumentax] %
+(-\pgfPTcellwd-\pgfPT@Eivar@shift,\pgfPTcellht+\pgfPT@Eivar@shift) -- ++(0,.1875*\pgfPTcellwd) -- ++(19*\pgfPTcellwd,0) %
+-- ++(-.09375*\pgfPTcellwd,.25*\pgfPTcellwd) -- ++(.375*\pgfPTcellwd,-.4375*\pgfPTcellwd) %
+-- ++(-.375*\pgfPTcellwd,-.4375*\pgfPTcellwd) -- ++(.09375*\pgfPTcellwd,.25*\pgfPTcellwd) %
+-- ++(-19*\pgfPTcellwd,0) -- ++(0,.1875*\pgfPTcellwd) -- cycle;%
+\node[font=\pgfPTvarEifont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTvarEifontcolor,anchor=mid,minimum height=.375*\pgfPTcellwd] (variacao)%
+ at (9*\pgfPTcellwd-\pgfPT@Eivar@shift,\pgfPTcellht+\pgfPT@Eivar@shift) %
+ {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}};%
+ \ifnum\pgfPT@counta>1\relax%
+ \node[font=\pgfPTvarEifont\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont,text=pgfPTfontcolortemp!85!transparent,above]%
+ at (variacao.north) {\pgfPT@tmp@labels@otherLanguages};\fi%
+\pgfPT@pinEstado{Eidim}%
+\draw[fill=\pgfPTvarEicolor,\pgfPTvarEicolor,path fading=diminuiy] %
+(-\pgfPTcellwd-\pgfPT@Eivar@shift,\pgfPTcellht+\pgfPT@Eivar@shift) -- ++(-.1875*\pgfPTcellwd,0) -- ++(0,-8*\pgfPTcellht) %
+-- ++(-.25*\pgfPTcellwd,.09375*\pgfPTcellwd) -- ++(.4375*\pgfPTcellwd,-.375*\pgfPTcellwd) %
+-- ++(.4375*\pgfPTcellwd,.375*\pgfPTcellwd) -- ++(-.25*\pgfPTcellwd,-.09375*\pgfPTcellwd) %
+-- ++(0,8*\pgfPTcellht) -- ++(-.1875*\pgfPTcellwd,0) -- cycle;%
+\node[font=\pgfPTvarEifont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTvarEifontcolor,rotate=270,anchor=mid,minimum height=.375*\pgfPTcellwd] (variacao)%
+ at (-\pgfPTcellwd-\pgfPT@Eivar@shift,-3.5*\pgfPTcellht+\pgfPT@Eivar@shift) %
+ {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}};%
+ \ifnum\pgfPT@counta>1\relax%
+ \node[font=\pgfPTvarEifont\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont,text=pgfPTfontcolortemp!85!transparent,rotate=270,below]%
+ at ([xshift=-.0375*\pgfPTcellwd]variacao.south) {\pgfPT@tmp@labels@otherLanguages};\fi%
+\draw[fill=pgfPTcolortemp!60!black,draw=pgfPTcolortemp!60!black] (-\pgfPTcellwd-\pgfPT@Eivar@shift,\pgfPTcellht+\pgfPT@Eivar@shift) circle(.3125*\pgfPTcellwd) %
+ node[font=\pgfPTvarEifont,text=pgfPTcolortemp!25!white,anchor=mid] {E\raisebox{-.2ex}{i}};%
+\fi%
+% Eaff var
+\ifpgfPT@eaff%
+\fontfamily{\pgfPTglobalfont}\pgfPTvareafffont\selectfont%
+\ifnum\pgfPT@countb>1\relax\pgfmathsetlength{\pgfPT@dima}{.85*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.65*\f@size}%
+\else\pgfmathsetlength{\pgfPT@dima}{\f@size}\fi%
+\colorlet{pgfPTcolortemp}{\pgfPTvareaffcolor}\colorlet{pgfPTfontcolortemp}{\pgfPTvareafffontcolor}%
+\pgfPT@pinEstado{eaffaum}%
+\draw[fill=\pgfPTvareaffcolor,\pgfPTvareaffcolor,path fading=aumentax] %
+(-\pgfPTcellwd-\pgfPT@eaffvar@shift,\pgfPTcellht+\pgfPT@eaffvar@shift) -- ++(0,.1875*\pgfPTcellwd) -- ++(19*\pgfPTcellwd,0) %
+-- ++(-.09375*\pgfPTcellwd,.25*\pgfPTcellwd) -- ++(.375*\pgfPTcellwd,-.4375*\pgfPTcellwd) %
+-- ++(-.375*\pgfPTcellwd,-.4375*\pgfPTcellwd) -- ++(.09375*\pgfPTcellwd,.25*\pgfPTcellwd) %
+-- ++(-19*\pgfPTcellwd,0) -- ++(0,.1875*\pgfPTcellwd) -- cycle;%
+\node[font=\pgfPTvareafffont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTvareafffontcolor,anchor=mid,minimum height=.375*\pgfPTcellwd] (variacao)%
+ at (9*\pgfPTcellwd-\pgfPT@eaffvar@shift,\pgfPTcellht+\pgfPT@eaffvar@shift) %
+ {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}};%
+ \ifnum\pgfPT@counta>1\relax%
+ \node[font=\pgfPTvareafffont\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont,text=pgfPTfontcolortemp!85!transparent,above]%
+ at (variacao.north) {\pgfPT@tmp@labels@otherLanguages};\fi%
+\pgfPT@pinEstado{eaffdim}%
+\draw[fill=\pgfPTvareaffcolor,\pgfPTvareaffcolor,path fading=diminuiy] %
+(-\pgfPTcellwd-\pgfPT@eaffvar@shift,\pgfPTcellht+\pgfPT@eaffvar@shift) -- ++(-.1875*\pgfPTcellwd,0) -- ++(0,-8*\pgfPTcellht) %
+-- ++(-.25*\pgfPTcellwd,.09375*\pgfPTcellwd) -- ++(.4375*\pgfPTcellwd,-.375*\pgfPTcellwd) %
+-- ++(.4375*\pgfPTcellwd,.375*\pgfPTcellwd) -- ++(-.25*\pgfPTcellwd,-.09375*\pgfPTcellwd) %
+-- ++(0,8*\pgfPTcellht) -- ++(-.1875*\pgfPTcellwd,0) -- cycle;%
+\node[font=\pgfPTvareafffont\fontsize{\the\pgfPT@dima}{\the\pgfPT@dima}\selectfont,text=\pgfPTvareafffontcolor,rotate=270,anchor=mid,minimum height=.375*\pgfPTcellwd] (variacao)%
+ at (-\pgfPTcellwd-\pgfPT@eaffvar@shift,-3.5*\pgfPTcellht+\pgfPT@eaffvar@shift) %
+ {\pgfPT@box@zerodepth{\pgfPT@tmp@label@defaultLanguage}};%
+ \ifnum\pgfPT@counta>1\relax%
+ \node[font=\pgfPTvareafffont\fontsize{\the\pgfPT@dimb}{\the\pgfPT@dimb}\selectfont,text=pgfPTfontcolortemp!85!transparent,rotate=270,below]%
+ at ([xshift=-.0375*\pgfPTcellwd]variacao.south) {\pgfPT@tmp@labels@otherLanguages};\fi%
+\draw[fill=pgfPTcolortemp!60!black,draw=pgfPTcolortemp!60!black] (-\pgfPTcellwd-\pgfPT@eaffvar@shift,\pgfPTcellht+\pgfPT@eaffvar@shift) circle(.3125*\pgfPTcellwd) %
+ node[font=\pgfPTvareafffont,text=pgfPTcolortemp!25!white,anchor=mid] {E\raisebox{-.2ex}{ea}};%
+\fi%
+\fi\fi\fi\fi% END Variacoes
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\label{background}
+% the background (paper)
+\expandafter\pgfPT@get@limits\pgfPT@@cellslist\relax%
+\ifnum\pgfPT@limits@min=1\relax\ifnum\pgfPT@limits@max=118\relax%
+\pgfPT@dima=0pt\pgfPT@dimb=0pt\relax%
+\ifpgfPTperlabels%
+\begin{pgfinterruptpicture}%
+\setbox0=\hbox{\fontfamily{\pgfPTglobalfont}\pgfPTlabfont\selectfont7}\global\pgfPT@dima=\wd0%
+\end{pgfinterruptpicture}%
+\pgfmathsetlength{\pgfPT@dima}{-\pgfPT@dima+2*\pgfPT@perlabel@xshift}%
+\else%
+\pgfmathsetlength{\pgfPT@dima}{\pgfPT@perlabel@xshift}%
+\fi% pgfPTperlabels
+\ifpgfPTtitulo%
+\begin{pgfinterruptpicture}%
+\setbox0=\hbox{\fontfamily{\pgfPTglobalfont}\pgfPTtitlefont\selectfont P}\global\pgfPT@dimb=\ht0%
+\end{pgfinterruptpicture}%
+\pgfmathsetlength{\pgfPT@dimb}{\pgfPT@dimb+.5*\pgfPTcellht+5pt}%
+\else%
+\ifpgfPTgrlabels%
+\begin{pgfinterruptpicture}%
+\setbox0=\hbox{\fontfamily{\pgfPTglobalfont}\pgfPTlabfont\selectfont7}\global\pgfPT@dimb=\ht0%
+\end{pgfinterruptpicture}%
+\pgfmathsetlength{\pgfPT@dimb}{\pgfPT@dimb+5pt}%
+\else%
+\pgfmathsetlength{\pgfPT@dimb}{5pt}%
+\fi% pgfPTgrlabels
+\fi% pgfPTtitulo
+\ifpgfPTvariations%
+\pgfmathparse{.4375*\pgfPTcellwd}\edef\@paper@right@shift{\pgfmathresult}%
+\pgfmathparse{.2125*\pgfPTcellwd}\edef\@paper@bottom@shift{\pgfmathresult}%
+\else%
+\edef\@paper@right@shift{0pt}%
+\edef\@paper@bottom@shift{0pt}%
+\fi%
+\ifnum\pgfPT@element@count=118\relax%
+\begin{pgfonlayer}{pgfPTpaperlayer}
+\path[thebackground] ([xshift={\pgfPT@dima-\@pgfPT@varpage@xshift},yshift={\pgfPT@dimb+\@pgfPT@varpage@yshift}]\pgfPT@limits@min)
+rectangle
+([xshift={\pgfPTcellwd-\pgfPT@perlabel@xshift+\@paper@right@shift},yshift={-3.5*\pgfPTcellht-5pt}]\pgfPT@limits@max);%
+\end{pgfonlayer}
+\else\ifnum\pgfPT@element@count>87\relax% s,p,d
+\begin{pgfonlayer}{pgfPTpaperlayer}
+\path[thebackground] ([xshift={\pgfPT@dima-\@pgfPT@varpage@xshift},yshift={\pgfPT@dimb+\@pgfPT@varpage@yshift}]\pgfPT@limits@min)
+rectangle
+([xshift={\pgfPTcellwd-\pgfPT@perlabel@xshift+\@paper@right@shift},yshift={-\pgfPTcellht-5pt-\@paper@bottom@shift}]\pgfPT@limits@max);%
+\end{pgfonlayer}\fi%
+\fi% \pgfPT@element@count=118
+\fi\fi% min=1 & max 118
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\fontseries{\seriesdefault}\fontshape{\shapedefault}\selectfont% Restoring the font settings to normal mode in the document
+}% end tikz
+}%
+% END !! \pgfPT -----------------------------------------------------------------------------------
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% ---------------------------------------------------------------------------------------------------
+% Internal Utils ################################################
+% internal macro -> pgfPT@processlist -----------------------------------------------------------
+% Analyze the key and store the list of Z numbers in \pgfPT@@cellslist ------------------------
+\def\pgfPT@processlist{%
+ \ifcat1\pgfPTcells\relax%
+ %\pgfPTcells is a list of Z numbers
+ \edef\pgfPT@@cellslist{\pgfPTcells}%
+ \else%
+ %\pgfPTcells is a <name>
+ \pgfPT@counta=1\pgfPT@countb=0%
+ \def\pgfPT@stra{\expandafter\string\pgfPTcells}\edef\pgfPT@teststra{\pgfPT@stra}%
+ \@for\@myarg:=\pgfPT@cells@names@list\do{%
+ \def\pgfPT@strb{\expandafter\string\@myarg}\edef\pgfPT@teststrb{\pgfPT@strb}%
+ \ifx\pgfPT@teststra\pgfPT@teststrb\pgfPT@countb=\pgfPT@counta\fi%
+ \advance\pgfPT@counta by1%
+ }%
+ \ifnum\pgfPT@countb=0\relax\edef\pgfPT@@cellslist{\csname pgfPT@cells@\pgfPTcells\endcsname}\else%
+ \ifnum\pgfPT@countb=1\relax\edef\pgfPT@@cellslist{\pgfPT@cells@GIwH}\else%
+ \ifnum\pgfPT@countb>1\relax%
+ \ifnum\pgfPT@countb>19\relax\def\pgfPT@fchar{P}\advance\pgfPT@countb by-19\relax%
+ \ifnum\pgfPT@countb>7\relax\def\pgfPT@extra{full}\advance\pgfPT@countb by-2\else\def\pgfPT@extra{}\fi%
+ \else%
+ \advance\pgfPT@countb by-1\def\pgfPT@fchar{G}\def\pgfPT@extra{}%
+ \fi%
+ \edef\pgfPT@@cellslist{\csname pgfPT@cells@\pgfPT@fchar\@Roman\pgfPT@countb\pgfPT@extra\endcsname}%
+ \fi%
+ \fi%
+ \fi%
+ \fi%
+}%
+% END !! \pgfPT@processlist ----------------------------------------------------------------------
+%
+% INPUT: number list -> {??,...,??}
+% OUTPUT \pgfPT@limits@min & \pgfPT@limits@max %% & \pgfPT@element@count
+\def\pgfPT@get@limits#1\relax{%
+\expandafter\pgfPT@get@limits@min#1,\relax%
+\expandafter\pgfPT@get@limits@max#1,\relax%
+}%
+\def\pgfPT@get@limits@min#1,#2\relax{\edef\pgfPT@limits@min{#1}}%
+\def\pgfPT@get@limits@max#1,#2\relax{%
+\edef\pgfPT@testa{#2}\edef\pgfPT@testb{}%
+\ifx\pgfPT@testa\pgfPT@testb\relax%
+\edef\pgfPT@limits@max{#1}\edef\pgfPT@element@count{1}%
+\else%
+\pgfPT@countf=1%
+\@for\pgfPT@tmp:=#2\do{\ifx\pgfPT@tmp\pgfPT@testb\relax\else\edef\pgfPT@limits@max{\pgfPT@tmp}\fi}%
+\global\pgfPT@countf=0\relax%
+\foreach \n in \pgfPT@@cellslist{\global\advance\pgfPT@countf by1}\edef\pgfPT@element@count{\the\pgfPT@countf}\relax%
+\fi%
+}%
+%
+% internal macro -> \pgfPT@processbackcolor ---------------------------------------------------
+% Analyze the cells back color scheme and store the current color in cpgfPTTMP ---------------
+\def\pgfPT@processbackcolor#1{%
+ \global\pgfPT@counta=1\global\pgfPT@countb=#1%%
+ \foreach \R/\G/\B in \pgfPT@@colorlist {%
+ \ifnum\pgfPT@counta=\pgfPT@countb\relax\xglobal\definecolor{cpgfPTTMP}{rgb}{\R,\G,\B}\breakforeach\fi%
+ \global\advance\pgfPT@counta by1%
+ }%
+}%
+% END !! \pgfPT@processbackcolor ---------------------------------------------------------------
+%
+% internal macro -> \pgfPT@lt --------------------------------------------------------------------
+% renders text via pdfliteral: -------------
+% #1 outline width width #2 txt #3 #4 #5 rgb stroke color #6 #7 #8 rgb fill color -----------
+% #9 txt render mode (0 - fill 1 - stroke 2 - fill then stroke ---------
+\def\pgfPT@lt[#1](#2)(#3,#4,#5)(#6,#7,#8)(#9){\pdfliteral direct {#1 w #3 #4 #5 RG #6 #7 #8 rg #9 Tr}{#2}\pdfliteral direct {0 0 0 rg 1 w 0 Tr}}%
+% END !! \pgfPT@lt --------------------------------------------------------------------------------
+%
+% internals macros -> \pgfPT@extract@rgb@stroke ---------------------------------------------
+% \pgfPT@set@rgb@stroke ------------------------------------------------
+% \pgfPT@extract@rgb@fill ------------------------------------------------
+% \pgfPT@set@rgb@fill ----------------------------------------------------
+% auxiliary macros to set the rgb components of one color ---------------------------------------
+% with use of \extractcolorspecs from xcolor package ---------------------------------------------
+% each component is stored in \pgfPT@«r, g or b» & «s or f» -------------------------------------
+\def\pgfPT@extract@rgb@stroke#1{\extractcolorspecs{#1}{\pgfPTcolmodel}{\pgfPTcolinfo}\expandafter\pgfPT@set@rgb@stroke\pgfPTcolinfo\relax}%
+\def\pgfPT@set@rgb@stroke#1,#2,#3\relax{\def\pgfPT@rs{#1}\def\pgfPT@gs{#2}\def\pgfPT@bs{#3}}%
+\def\pgfPT@extract@rgb@fill#1{\extractcolorspecs{#1}{\pgfPTcolmodel}{\pgfPTcolinfo}\expandafter\pgfPT@set@rgb@fill\pgfPTcolinfo\relax}%
+\def\pgfPT@set@rgb@fill#1,#2,#3\relax{\def\pgfPT@rf{#1}\def\pgfPT@gf{#2}\def\pgfPT@bf{#3}}%
+% END !! \pgfPT@«color macros» ------------------------------------------------------------------
+%
+% #########################################################
+% built-in cell styles
+\def\pgfPT@builtincells@names{pgfPT2lang,pgfPT3lang,pgfPTR,pgfPTEi,pgfPTeaff,pgfPTREi,pgfPTls,pgfPTdisc}%
+%
+\pgfPT@builtincellstyle{pgfPT2lang}(6,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4-5;1-3;name),%
+(6;1-3;Ar)%
+]%
+\pgfPT@builtincellstyle{pgfPT3lang}(7,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4-6;1-3;name),%
+(7;1-3;Ar)%
+]%
+\pgfPT@builtincellstyle{pgfPTR}(5,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4;1-3;name),%
+(5;1-3;R)%
+]%
+\pgfPT@builtincellstyle{pgfPTEi}(5,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4;1-3;name),%
+(5;1-3;Ei)%
+]%
+\pgfPT@builtincellstyle{pgfPTeaff}(5,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4;1-3;name),%
+(5;1-3;eaff)%
+]%
+\pgfPT@builtincellstyle{pgfPTREi}(6,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4;1-3;name),%
+(5;1-3;R),(6;1-3;Ei)%
+]%
+\pgfPT@builtincellstyle{pgfPTls}(5,3)[%
+(1;1-2.5;Z),(1;2.5-3;ls),%
+(2-3;1.5-3.5;CS),(4;1-3;name),%
+(5;1-3;Ar)%
+]%
+\pgfPT@builtincellstyle{pgfPTdisc}(6,3)[%
+(1;1-2;Z),(1;3;radio),%
+(2-3;1.5-3.5;CS),(4;1-3;name),%
+(5;1-3;DiscC),%
+(6;1-3;DiscY)%
+]%
+% #########################################################
+\endinput%