diff options
Diffstat (limited to 'graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty')
-rw-r--r-- | graphics/pgf/contrib/pgf-periodictable/pgf-PeriodicTable.sty | 2853 |
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% |