%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Hugo Gomes @ 29/05/2023 v2.0.1 % Hugo Gomes @ 20/02/2023 v2.0.0 % Hugo Gomes @ 08/11/2022 v1.0.1 % Hugo Gomes @ 10/10/2022 v1.0.0 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \NeedsTeXFormat{LaTeX2e}% \ProvidesPackage{pgf-PeriodicTable}[29/05/2023 pgf-PeriodicTable v2.0.1]%% \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@TRUE{TRUE}% \def\pgfPT@false{false}% \def\pgfPT@relax{}% \def\pgfPT@space{ }% \def\pgfPT@unit@d@gcm{g/cm3}% v1.0.1 \def\pgfPT@unit@d@gdm{g/dm3}% v1.0.1 \def\pgfPT@unit@d@both{both}% v1.0.1 \def\pgfPT@unit@ls@A{A}% v1.0.1 \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 \input{pgfPT.input.library.tex}% Loading the input library mechanism (new v2.0.0) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % -------------------------------------------------------------------------------------------------- % 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,name align,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,% d unit,d precision,E precision,ls unit,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[] ---------------------------------------------------------------------------------------------- % 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'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'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'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'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% v1.0.1 \ifx\pgfPTNames\pgfPT@true\relax\edef\pgfPT@tmp@name@defaultLanguage{\expandafter\pgfPT@namec@p\pgfPT@tmp@name@defaultLanguage\relax}\else% \ifx\pgfPTNames\pgfPT@TRUE\relax\edef\pgfPT@tmp@name@defaultLanguage{\pgfPT@makeUppercase\pgfPT@tmp@name@defaultLanguage\relax}\fi\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% v1.0.1 \ifx\pgfPTNames\pgfPT@true\relax\edef\pgfPT@tmp@n@me{\expandafter\pgfPT@namec@p\pgfPT@tmp@n@me\relax}\else% \ifx\pgfPTNames\pgfPT@TRUE\relax\edef\pgfPT@tmp@n@me{\pgfPT@makeUppercase\pgfPT@tmp@n@me\relax}\fi\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,align=\pgfPTnamealign] 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,align=\pgfPTnamealign] (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,align=\pgfPTnamealign,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,align=\pgfPTnamealign,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% \edef\pgfPT@maxprecision{4}% \ifx\pgfPTdunit\pgfPT@unit@d@gcm\relax% g/cm3 \pgfPT@shiftdot[3]{\pgfPT@data@d}\let\pgfPT@data@d\pgfPT@shiftval\relax% \edef\pgfPT@maxprecision{7}% \else\ifx\pgfPTdunit\pgfPT@unit@d@both\relax% g/cm3 (solid, liquid, synthetic) g/dm3 (gas) \edef\pgfPT@testestado{gasoso}\ifx\pgfPT@data@cor\pgfPT@testestado\relax\else% \pgfPT@shiftdot[3]{\pgfPT@data@d}\let\pgfPT@data@d\pgfPT@shiftval\relax\edef\pgfPT@maxprecision{7}\fi% \fi\fi% \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>\pgfPT@maxprecision\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% \edef\pgfPT@maxprecision{1}% \ifx\pgfPTlsunit\pgfPT@unit@ls@A\relax% angstrom \pgfPT@shiftdot[2]{\pgfPT@data@lsa}\let\pgfPT@data@lsa\pgfPT@shiftval\relax% \edef\pgfPT@maxprecision{3}% \fi% \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>\pgfPT@maxprecision\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% \edef\pgfPT@maxprecision{1}% \ifx\pgfPTlsunit\pgfPT@unit@ls@A\relax% angstrom \pgfPT@shiftdot[2]{\pgfPT@data@lsb}\let\pgfPT@data@lsb\pgfPT@shiftval\relax% \edef\pgfPT@maxprecision{3}% \fi% \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>\pgfPT@maxprecision\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% \edef\pgfPT@maxprecision{1}% \ifx\pgfPTlsunit\pgfPT@unit@ls@A\relax% angstrom \pgfPT@shiftdot[2]{\pgfPT@data@lsc}\let\pgfPT@data@lsc\pgfPT@shiftval\relax% \edef\pgfPT@maxprecision{3}% \fi% \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>\pgfPT@maxprecision\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 ############################################## \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}{.35*\f@size}\pgfmathsetlength{\pgfPT@dimb}{.25*\f@size} \else\pgfmathsetlength{\pgfPT@dima}{.4*\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,align=\pgfPTnamealign,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 ################################################# \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}{.45*\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},align=\pgfPTnamealign,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@ls]{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@ls]{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@ls]{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% % 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 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % 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{% \def\pgfPT@processlist@firstchar##1##2\relax{\edef\pgfPT@tmp{##1}}% \expandafter\pgfPT@processlist@firstchar\pgfPTcells\relax% \ifcat1\pgfPT@tmp\relax% %\pgfPTcells is a list of Z numbers \edef\pgfPT@@cellslist{\pgfPTcells}% \else% %\pgfPTcells is a \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 --------- \ifx\pdfliteral\undefined\relax% \ifx\pdfextension\undefined\relax% XeLaTeX \def\pgfPT@lt[#1](#2)(#3,#4,#5)(#6,#7,#8)(#9){\special{pdf:literal direct #1 w #3 #4 #5 RG #6 #7 #8 rg #9 Tr}#2\special{pdf:literal direct 0 0 0 rg 1 w 0 Tr}}% \else% LuaLaTeX \protected\def\pdfliteral{\pdfextension literal} \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}}% \fi% \else% pdfLaTeX \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}}% \fi% % 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%