/* AUTEUR: Naigeon */
/* DATE DE CREATION: 30/03/1999 */

<!-- Debut script

// *************************************************
// Ce qui suit prépare l'exécution d'un fichier midi
// en arrière-plan suite au chargement de la page.
// Voir aussi plus bas, après le titre "Bienvenue".
// *************************************************

var RepSons = "mes_sons/" ;	// chemin relatif des fichiers midi
var TabSons= new Array ;	// tableau de chaînes détenant les
TabSons[ 0 ]= "domadju" ;	// petits noms des fichiers midi 
TabSons[ 1 ]= "dangier" ;
TabSons[ 2 ]= "homkyrue" ;
TabSons[ 3 ]= "moncueur" ;
TabSons[ 4 ]= "doulcam" ;
TabSons[ 5 ]= "virgbarb" ;
TabSons[ 6 ]= "pacebrum" ;
TabSons[ 7 ]= "ditamour" ;
TabSons[ 8 ]= "bvirgjos" ;
TabSons[ 9 ]= "jamesmou" ;
TabSons[ 10 ]= "victmgky" ;
TabSons[ 11 ]= "perso/bicisagt" ;
TabSons[ 12 ]= "atbrosse" ;
TabSons[ 13 ]= "cart/cart_contra14" ;
TabSons[ 14 ]= "mortnar" ;
TabSons[ 15 ]= "avregduf" ;
TabSons[ 16 ]= "ozrec2p1" ;
TabSons[ 17 ]= "ggabrcnz12" ;
TabSons[ 18 ]= "ancilock" ;
TabSons[ 19 ]= "doucmemquat" ;
TabSons[ 20 ]= "espoirlarue" ;
TabSons[ 21 ]= "tousbienghiz" ;
TabSons[ 22 ]= "festdeo" ;
TabSons[ 23 ]= "grilcnz6" ;
TabSons[ 24 ]= "virgmou" ;
TabSons[ 25 ]= "coeurlas" ;
TabSons[ 26 ]= "desgoud" ;
TabSons[ 27 ]= "holbfnrl" ;
TabSons[ 28 ]= "busnsoud" ;
TabSons[ 29 ]= "pitie" ;
TabSons[ 30 ]= "encnin" ;
TabSons[ 31 ]= "perso/encnidim" ;
TabSons[ 32 ]= "copenhague/copen3v" ;
TabSons[ 33 ]= "busnmalh" ;
TabSons[ 34 ]= "perso/gloromp" ;

MaxSons	= TabSons.length - 1 ;	// plus haut index valide du tableau

var TabDeltas = new Array ;		// corrections de volume sonore ;
TabDeltas[ "domadju" ] = 0 ;
TabDeltas[ "dangier" ] = 2 ;
TabDeltas[ "homkyrue" ] = 30 ;
TabDeltas[ "moncueur" ] = 50 ;
TabDeltas[ "doulcam" ] = 20 ;
TabDeltas[ "virgbarb" ] = 55 ;
TabDeltas[ "pacebrum" ] = 25 ;
TabDeltas[ "ditamour" ] = 3 ;
TabDeltas[ "bvirgjos" ] = 65 ;
TabDeltas[ "jamesmou" ] = 25 ;
TabDeltas[ "victmgky" ] = 20 ;
TabDeltas[ "perso/bicisagt" ] = 25 ;
TabDeltas[ "atbrosse" ] = 50 ;
TabDeltas[ "cart/cart_contra14" ] = 25 ;
TabDeltas[ "mortnar" ] = 48 ;
TabDeltas[ "avregduf" ] = 85 ;
TabDeltas[ "ozrec2p1" ] = 20 ;
TabDeltas[ "ggabrcnz12" ] = 25 ;
TabDeltas[ "ancilock" ] = 45 ;
TabDeltas[ "doucmemquat" ] = 20 ;
TabDeltas[ "espoirlarue" ] = 27 ;
TabDeltas[ "tousbienghiz" ] = 22 ;
TabDeltas[ "festdeo" ] = 18 ;
TabDeltas[ "grilcnz6" ] = 25 ;
TabDeltas[ "virgmou" ] = 30 ;
TabDeltas[ "coeurlas" ] = 4 ;
TabDeltas[ "desgoud" ] = 18 ;
TabDeltas[ "holbfnrl" ] = 14 ;
TabDeltas[ "busnsoud" ] = 25 ;
TabDeltas[ "pitie" ] = 20 ;
TabDeltas[ "encnin" ] = 18 ;
TabDeltas[ "perso/encnidim" ] = 0 ;
TabDeltas[ "copenhague/copen3v" ] = 15 ;
TabDeltas[ "busnmalh" ] = 25 ;
TabDeltas[ "perso/gloromp" ] = 75 ;

var TabCompos = new Array ;		// noms des compositeurs ;
TabCompos[ "domadju" ] = "Claudio Monteverdi" ;
TabCompos[ "dangier" ] = "Anonyme fin XVe" ;
TabCompos[ "homkyrue" ] = "Pierre de La Rue" ;
TabCompos[ "moncueur" ] = "Claudin de Sermisy" ;
TabCompos[ "doulcam" ] = "Claudin de Sermisy" ;
TabCompos[ "virgbarb" ] = "Jacques Barbireau" ;
TabCompos[ "pacebrum" ] = "Antoine Brumel" ;
TabCompos[ "ditamour" ] = "Pierre Vermont" ;
TabCompos[ "bvirgjos" ] = "Josquin Des Prez" ;
TabCompos[ "jamesmou" ] = "Jean Mouton" ;
TabCompos[ "victmgky" ] = "Tomas Luis de Victoria" ;
TabCompos[ "perso/bicisagt" ] = "Alanus Argentorati :-)" ;
TabCompos[ "atbrosse" ] = "Anonyme (in Attaingnant)" ;
TabCompos[ "cart/cart_contra14" ] = "Adriano Banchieri" ;
TabCompos[ "mortnar" ] = "Robert Morton" ;
TabCompos[ "avregduf" ] = "Guillaume Dufay" ;
TabCompos[ "ozrec2p1" ] = "Diego Ortiz" ;
TabCompos[ "ggabrcnz12" ] = "Giovanni Gabrieli" ;
TabCompos[ "ancilock" ] = "Johannes Ockeghem" ;
TabCompos[ "doucmemquat" ] = "Pierre Sandrin" ;
TabCompos[ "espoirlarue" ] = "Pierre de La Rue" ;
TabCompos[ "tousbienghiz" ] = "Hayne van Ghizeghem" ;
TabCompos[ "festdeo" ] = "Constanzo Festa" ;
TabCompos[ "grilcnz6" ] = "Giovanni Battista Grillo" ;
TabCompos[ "virgmou" ] = "Jean Mouton" ;
TabCompos[ "coeurlas" ] = "Roland de Lassus" ;
TabCompos[ "desgoud"] = "Claude Goudimel" ;
TabCompos[ "holbfnrl"] = "Antony Holborne" ;
TabCompos[ "busnsoud"] = "Antoine Busnois" ;
TabCompos[ "pitie" ] = "Claudin de Sermisy" ;
TabCompos[ "encnin" ] = "Juan del Encina" ;
TabCompos[ "perso/encnidim" ] = "Encina / Naigeon :-)" ;
TabCompos[ "copenhague/copen3v" ] = "Anonyme (Copenhague)" ;
TabCompos[ "busnmalh"] = "Antoine Busnois" ;
TabCompos[ "perso/gloromp" ] = "Alanus Argentorati :-)" ;

function ChoixNumHasard( min, max )
// rend un entier au hasard entre min et max bornes comprises
{
	return min + Math.ceil( (max-min+1)*Math.random() ) - 1 ;
}

function ChoixFichierSon()
// Rend une chaîne valant le petit nom de l'un des fi-
// chiers midi pris au hasard dans le tableau TabSons
{
	return TabSons[ ChoixNumHasard( 0, MaxSons ) ] ;
}

// Parties immuables d'une instruction EMBED qui sera générée dans la page par
// un document.write inséré où doit apparaître le midi sound player (cf + bas)
var debEmbed = '<EMBED SRC="' ;
var volEmbed ='" VOLUME=' ;
var finEmbed = ' WIDTH=145 HEIGHT=60 HIDDEN=FALSE AUTOSTART=TRUE>' ;
var volBase = 20 ;	// volume sonore commun de départ (il sera pour chaque pièce
					// augmenté d'une quantité définie par le tableau TabDeltas)

tFacsimImage = new Array ;
tFacsimImage[ 0 ] = "fsock_g_4.jpg" ;
tFacsimImage[ 1 ] = "fsjosq_g_4.jpg" ;
tFacsimImage[ 2 ] = "fsbarb_g_4.jpg" ;
tFacsimImage[ 3 ] = "fscomp_g_4.jpg" ;
tFacsimImage[ 4 ] = "fsockmi_4.jpg" ;
tFacsimImage[ 5 ] = "fsruereq_4.jpg" ;
tFacsimImage[ 6 ] = "fscop9_4.jpg" ;
tFacsimImage[ 7 ] = "fscop56_4.jpg" ;
tFacsimImage[ 8 ] = "fscop6_4.jpg" ;
var tFacsimMax = tFacsimImage.length - 1 ;


// *** Choix de la vignette de fac-simile
// *** et de son titre + nom de l'auteur

tFacsimTitre = new Array ;
tFacsimTitre[ 0 ] = "Kyrie" ;
tFacsimTitre[ 1 ] = "Kyrie" ;
tFacsimTitre[ 2 ] = "Kyrie" ;
tFacsimTitre[ 3 ] = "Omnium bonorum" ;
tFacsimTitre[ 4 ] = "Kyrie" ;
tFacsimTitre[ 5 ] = "Requiem" ;
tFacsimTitre[ 6 ] = "De tous biens" ;
tFacsimTitre[ 7 ] = "Soudainement..." ;
tFacsimTitre[ 8 ] = "N'araige..." ;

tFacsimAuteur = new Array ;
tFacsimAuteur[ 0 ] = "Ockeghem" ; 
tFacsimAuteur[ 1 ] = "Josquin" ;
tFacsimAuteur[ 2 ] = "Barbireau" ; 
tFacsimAuteur[ 3 ] = "Compère" ;
tFacsimAuteur[ 4 ] = "Ockeghem" ; 
tFacsimAuteur[ 5 ] = "De LaRue" ; 
tFacsimAuteur[ 6 ] = "Ghizeghem" ; 
tFacsimAuteur[ 7 ] = "Busnois" ; 
tFacsimAuteur[ 8 ] = "Morton" ; 

tFacsimHauteur = new Array ;
tFacsimHauteur[ 0 ] = 180 ; 
tFacsimHauteur[ 1 ] = 175 ; 
tFacsimHauteur[ 2 ] = 179 ; 
tFacsimHauteur[ 3 ] = 177 ; 
tFacsimHauteur[ 4 ] = 192 ; 
tFacsimHauteur[ 5 ] = 192 ; 
tFacsimHauteur[ 6 ] = 191 ; 
tFacsimHauteur[ 7 ] = 190 ; 
tFacsimHauteur[ 8 ] = 192 ; 

tFacsimLargeur = new Array ;
tFacsimLargeur[ 0 ] = 134 ; 
tFacsimLargeur[ 1 ] = 132 ; 
tFacsimLargeur[ 2 ] = 132 ; 
tFacsimLargeur[ 3 ] = 132 ; 
tFacsimLargeur[ 4 ] = 132 ; 
tFacsimLargeur[ 5 ] = 132 ; 
tFacsimLargeur[ 6 ] = 138 ; 
tFacsimLargeur[ 7 ] = 134 ; 
tFacsimLargeur[ 8 ] = 134 ; 

var IndexFacsim = -1 ;

function ChoixIndexFacsim()
{
	if( IndexFacsim == -1 )
		IndexFacsim = ChoixNumHasard( 0, tFacsimMax ) ;
	return IndexFacsim ;
}

function FacsimTitre()
{
	return tFacsimTitre[ ChoixIndexFacsim() ] ;
}

function FacsimAuteur()
{
	return tFacsimAuteur[ ChoixIndexFacsim() ] ;
}

function FacsimImage()
{
	return tFacsimImage[ ChoixIndexFacsim() ] ;
}

function FacsimAlt()
{
	return FacsimTitre() + " - " + FacsimAuteur() ;
}

function FacsimDims()
{
	return 'WIDTH=' + tFacsimLargeur[ ChoixIndexFacsim() ]
 		   + ' HEIGHT=' + tFacsimHauteur[ ChoixIndexFacsim() ] ;
}

function FacsimLien()
{
	return '<IMG SRC="mes_facs/' + FacsimImage()
		  + '" BORDER=0 '
		  + FacsimDims()
		  + ' ALT="' + FacsimAlt() + '">' ; 
}

//  Fin script -->