set fileContentList {
{}
{
% This file is interpreted by tcl so each LaTeX back slash must be duplicated
%\\documentclass[brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao]{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
%\\documentclass[brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo]{tdiinpe}
\\documentclass[brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao]{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}

\\repositorio{$thisRepository} %% repositório onde está depositado o documento

\\RequirePackage{comment}

\\begin{comment}

[[

set siteList {
hermes2.dpi.inpe.br:1905
marte.dpi.inpe.br:80
mtc-m05.sid.inpe.br:80
mtc-m16.sid.inpe.br:80
{mtc-m15.sid.inpe.br 800}
{ismm.dpi.inpe.br 800}
{mtc-m18.sid.inpe.br 800}
{md-m09.sid.inpe.br 800}
mtc-m12.sid.inpe.br:80
mtc-m17.sid.inpe.br:80
{plutao.dpi.inpe.br 800}
bibdigital.sid.inpe.br:80
}

set referenceTypeTable(AR) {Artigo em revista}
set referenceTypeTable(AE) {Artigo em evento}
set referenceTypeTable(CL) {Cap\'itulo de Livro}
set referenceTypeTable(eP) {ePrint}
set referenceTypeTable(L) {Livro}
set referenceTypeTable(MA) {Material Audiovisual}
set referenceTypeTable(MNP) {MAN NTC PUD}
set referenceTypeTable(R) {Relat\'orio}
set referenceTypeTable(TD) {Tese e disserta\c{c}\~ao}

set referenceTypeList {AR L MNP CL AE TD R eP MA}	;# specifies the display order
set totalNumberOfSearches [[expr [[llength $referenceTypeList]] * 2]]

set referenceTypeTable2(AR) {referencetype, Journal Article}
set referenceTypeTable2(AE) {referencetype, Conference Proceedings}
set referenceTypeTable2(CL) {referencetype, Book Section}
set referenceTypeTable2(eP) {referencetype, Electronic Source}
set referenceTypeTable2(L) {secondarytype, l* and referencetype, book and not referencetype, section}
set referenceTypeTable2(MA) {referencetype, Audiovisual Material}
set referenceTypeTable2(MNP) {secondarytype, MAN or secondarytype, NTC or secondarytype, PUD}
set referenceTypeTable2(R) {referencetype, Report}
set referenceTypeTable2(TD) {referencetype, Thesis}

proc CreateDataSet {args} {
set i 0
set data {}
foreach input [[lindex $args 0]] {
set line {}
foreach list $args {
lappend line [[lindex $list $i]]
}
lappend data $line
incr i
}
return [[join $data \n]]
}

proc CreateSequence {numberOfItems firstSequenceItem increment} {
set sequenceItem $firstSequenceItem
for {set i 1} {$i <= $numberOfItems} {incr i} {
lappend sequence $sequenceItem
set sequenceItem [[expr $sequenceItem + $increment]]
}
return $sequence
}

foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType)"
lappend numberOfRecordsList [[DisplayNumberOfEntries2 $searchExpression]]
set searchExpression "$referenceTypeTable2($referenceType) and size, *"
lappend numberOfFullTextList [[DisplayNumberOfEntries2 $searchExpression]]
}

foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType)"
lappend numberOfRecordsList [[DisplayNumberOfEntries2 $searchExpression]]
set searchExpression "$referenceTypeTable2($referenceType) and size, *"
lappend numberOfFullTextList [[DisplayNumberOfEntries2 $searchExpression]]
}

set hei 0.2
set dxticks 1.2
set barWidth 0.40
set firstSequenceItem [[expr 2 * $barWidth]]
set xmax [[expr ([[llength $referenceTypeList]] - 1) * $dxticks + 4 * $barWidth]]
set maxValue [[expr round(1.1 * [[lindex [[lsort -integer $numberOfRecordsList]] end]])]]	;# 58
set factor [[expr pow(10, [[string length $maxValue]] - 1)]]	;# 10.0
set numberOfUnits [[expr int(ceil($maxValue / $factor))]]	;# 6
set maxTable(1) 1; set dticksTable(1) 0.2
set maxTable(2) 2; set dticksTable(2) 0.4
set maxTable(3) 3; set dticksTable(3) 0.5
set maxTable(4) 4; set dticksTable(4) 1
set maxTable(5) 5; set dticksTable(5) 1
set maxTable(6) 6; set dticksTable(6) 1
set maxTable(7) 8; set dticksTable(7) 2
set maxTable(8) 8; set dticksTable(8) 2
set maxTable(9) 10; set dticksTable(9) 2
set ymax [[expr int($maxTable($numberOfUnits) * $factor)]]	;# 60
set dyticks [[expr int($dticksTable($numberOfUnits) * $factor)]]	;# 10

]]

\\end{comment}

\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex

\\begin{document}

\\input{./document}

\\begin{flushleft}
\\renewcommand{\\baselinestretch}{0.9}
\\footnotesize
\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
(última data de atualização: [[clock format [[clock seconds]] -format "%d/%m/%Y às %H:%M"]]).
\\end{flushleft}

\\end{document}
}
{bar.dat}
{[[
CreateDataSet [[CreateSequence [[llength $referenceTypeList]] $firstSequenceItem $dxticks]] $numberOfRecordsList $numberOfFullTextList
]]}
{bar.gle}
{
size 15.4 7.4	! size of the paper

set font ss lwidth 0.01
set alabeldist .8

include "./color.gle"
! include "barstyles.gle"

bar_colormap_pixels = 200
bar_gridline_width = 0.01

sub bar_colormap x1 y1 x2 y2 b g
amove x1 y1
begin clip
begin path clip
box x2-x1 y2-y1
end path
colormap y 0 1 0 1 1 bar_colormap_pixels x2-x1 yg(ygmax)-yg(ygmin) color
end clip
box x2-x1 y2-y1 fill clear
end sub

sub bar_colormap_palette_labels x1 y1 x2 y2 value palette$ fmt$
if value >= 0 then
y1 = y1 + bar_gridline_width
y2 = y2 + bar_gridline_width
else
y1 = y1 - bar_gridline_width
y2 = y2 - bar_gridline_width
end if
amove x1 y1
colormap y 0 1 0 1 1 bar_colormap_pixels x2-x1 y2-y1 palette palette\$
! draw data labels
gsave
set just bc hei 0.16
if value < 0 then y2 = yg(0)
amove (x1+x2)/2 y2+0.1
write format\$(value, fmt\$)
grestore
end sub

sub palette_shade_purple_gray z
return palette_shade_gray(z, 180, 100, 180)
end sub

sub bar_purplecolormap x1 y1 x2 y2 b g
bar_colormap_palette_labels x1 y1 x2 y2 b palette_shade_purple_gray "fix 0"
end sub

sub palette_shade_yellow_gray z
return palette_shade_gray(z, 255, 200, 100)
end sub

sub bar_yellowcolormap x1 y1 x2 y2 b g
bar_colormap_palette_labels x1 y1 x2 y2 b palette_shade_yellow_gray "fix 0"
end sub

amove 0 1.8
begin graph
center
data   "bar.dat"
! title  "Distribui\\c{c}\\~ao por esp\\'ecie"
xtitle "Tipos de refer\\^encia"
ytitle "N\\'umero de itens"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [[expr $barWidth + 0.04]] style purplecolormap,yellowcolormap
end graph

begin key
justify bc
absolute -1.8+(pagewidth()/2) 0
hei $hei
nobox
[[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]]
end key

begin key
justify bc
absolute 1.7+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255(180,100,180) text "Registro"
fill rgb255(255,200,100) text "Texto completo"
end key

}
}