#!/usr/bin/perl
#A lancer du terminal pour avoir l'heure en français
use locale;
require "sources.pl"; # %nompays (en anglais puis français) et %pop (en anglais) + routines

$nombredeclassesDePays=3;
@choixpays1=(France,Germany,Italy,Spain,Sweden,'United Kingdom','Korea-South'); #en anglais
@choixpays2=(France,Portugal,US,Netherlands,Belgium,Japan); 
@choixpays3=(France,Brazil,Switzerland,Turkey,Luxembourg, Greece); 

##### print $virgmax,"\n"; #= nb max de jours pour décès -1	
	
#Fabrication de listes pour tikz %'valeurspaysseuil', 'valeurspaysseuillog', 'valeurspaysseuilpop', 'valeurspaysseuilpoplog'
@listedeshash=('casdujouridx','casdujourdate','valeurspays', 'accrjour', 'accrjourpop', 'accrjourmob', 'accrjourmobpop','valeurspaysseuil', 'valeurspaysseuillog','valeurspaysseuilpop','valeurspaysseuilpoplog'); #$casdujouridx{$date,$pays}
foreach $ll (@listedeshash) #fabrique des listes du type @casdujouridxFrance
	{
	foreach $p (keys %memopays)
	{	
	my @tmp=split (",",$$ll{$p});
	#index
	$p=~s/ //g; #GB!!! United Kingdom
	my $index=$ll.$p;
	@$index= @tmp;
	}
}

#FABRIQUE TIKZ	
#Labels simples
#Génial:	
$xticklabelbanal=join(",",(@datefrance)[$debut..$#datefrance]); #( stat($filename) )[9,10];
$xticklabelbanal=  "xticklabels=\{".$xticklabelbanal."\},";
$xtickbanal=join(",",($debut..$#datefrance));
$xtickbanal= "xtick=\{".$xtickbanal."\},";

$xticklabelmorts=$xtickmorts=join(",",(0..$virgmax)); #de 0 au max.
$xticklabelmorts="xticklabels=\{".$xticklabelmorts."\},";
$xtickmorts="xtick=\{".$xtickmorts."\},";

if ($methode=~/seuil/)
	{$lesticks=$xtickmorts."\n".$xticklabelmorts;}
else 	{$lesticks=$xtickbanal."\n".$xticklabelbanal;}

foreach my $num (1..$nombredeclassesDePays) #bien garder ne mémoire $num pour les légendes
	{
	my $listetmppays="choixpays".$num;
	push (@listetravail,$listetmppays);
	}
#Méthodes à enlever dès le 2e choix de pays
$virer2{accrjour}=$virer2{accrjourmob}=$virer2{valeurspaysseuil}=$virer2{valeurspaysseuilpoplog}=1;
	
foreach my $l (@listetravail)
	{
	$nummemo=$l;
	$nummemo=~s/choixpays//g; #pour enlever des graphes inutiles
	$entreeslegende="legend entries=\{";
	$payspourintro="";
	foreach $p (@$l)
	{
	$entreeslegende.=$nompays{$p}." ($hashtotalidx{$#datefrance,$p} décès),";
	$payspourintro.= " $nompays{$p},";
	}
$payspourintro=~s/,$//g;		
$entreeslegende=~s/,$//g;	$entreeslegende.="\}";
$entreeslegende=~s/France/France métr\./;
$intro2journal="Pays étudiés dans cette partie: $payspourintro";

print T "\\section{$intro2journal}\n";

foreach $methode ('accrjour', 'accrjourpop', 'accrjourmob', 'accrjourmobpop','valeurspaysseuil', 'valeurspaysseuillog', 'valeurspaysseuilpop', 'valeurspaysseuilpoplog')
	{
	
	if ($nummemo >1)
		{next  if $virer2{$methode};
		$gallegende="caption".$nummemo;
		$caption{$methode}=$$gallegende{$methode};
		}
		#$labelcaption{$methode}="\\label{".$methode."} "; #multiplié, donc problématique

	if ($methode=~/seuil/)
	{$lesticks=$xtickmorts."\n".$xticklabelmorts;}
else 	{$lesticks=$xtickbanal."\n".$xticklabelbanal;}

	print T "\\newpage\n
	\\subsection{Méthode $methode}
$introfigtikz
$labelimage{$methode}
$lesticks
$entreeslegende\n\]\n";
$milieutikz="";
foreach $p (@$l) #choixpays1
	{
	$q=$p;
	$q=~s/ //g; #encore GB
	$fonctionpays= $methode.$q;
	$milieutikz.="\\addplot $optionsaddplot{$p} ".addplotseuilauto($methode,@$fonctionpays)."\n";
	}
	$finaltikz=$milieutikz."\\end{axis} \n \\end{tikzpicture}\\end{center}  \n
".$caption{$methode}." ".$labelcaption{$methode}."\n\n \\end{figure}\n";
	print T $finaltikz,"\n\n";
		}		
	}
		
print T  "\n
\\input{intro.tex}
\\end{document}\n";
#print T "\\end{document}\n";
close (T);

system ("pdflatex $fic");
system ("pdflatex $fic");


