// B.Steenis Photos v4.5 janvier 2004
//01/05/04 modif bug 
//01/05/04 group color override processing
//  09/05 modif couleur par defaut pour albums absents des groupes
//  15/06 adaptation des fontes pour 800x600 et inf
//  15/06 insertion des informations de version dans les .js principaux
//  02/10 adaptation chapitres nombreux
// janvier 2005 - harmonisation hdd-site-cd

function txt_program() {
var s="Informations programme : version "+f_version()+"<BR>"
//+"15/06 Adaptation des tailles des tableaux de groupes pour affichage 800x600<BR>"
//+"15/06 Insertion des 'news' dans les scripts principaux<BR>"
//+"0506 Correction bug position des textes sur Mozilla-Firefox<bR>"
//+"0508 Modification structure page d'accueil<br>"
//+"0509 Flèches clavier et diaporama (MSIE uniq.) <br> Affichage mixte chaps+pages (SL uniq.)<br>"
//+"0509 Flèches clavier et diaporama (MSIE uniq.) <br>"
//+"0510 Simplification table mixte chaps+pages <br>"
//+"0512 Correction bugs mineurs (url/href,taille mini)<br>"
//+"0512 Mode automatique multifenêtres (debug local)<br>"
//+"0602: Refonte complète des informations de site<br>"
// 0605B generateur de statistiques
// 0610A refonte partielle du systeme d'albums/couleurs pour la vitesse - reste à faire cd et hdd partiel
// 0610B layout 800x600 et main/pointeur
// 0703A CD
// 0801A Layout Accueil
 
+"";
return(s);
}

function f_version() {return("0801A");}

function info_location_type() { var s=info_media_type(); return(s); }
function info_media_type() { var s=P_media; return(s); }

function txt_site() { var s=""; return(s); }

/*
// Default page d'accueil
function album() { return(alb_accueil()); }
function alb_accueil() { 
var s2=[
//        ["text",0,0,0.1,0.47,"center","center","18pt","Photos de Bernard Steenis"]
//       ,["text",0,0.48,0.1,0.49,"center","left","18pt","Website : http://photos.steenis.net/"]
//       ,["image",0.08,0.02,0.30,0.48,"center","center",0.30,0.45,"bs.jpg"]       

        ["text",0,0.48,0.1,0.47,"center","center","18pt","Photos de Bernard Steenis<br>Website : http://photos.steenis.net/"]
       ,["image",0.02,0.02,0.30,0.48,"center","center",0.30,0.45,"bs.jpg"]       
       ,["text",0.12,0.48,0.05,0.48,"center","left","12"
             ,"Bonjour et bienvenue sur ce site ou disque consacré à mes photos. "
//             +"Ce site a été optimisé pour MSIE v5.x ou plus récent, avec une résolution d'écran de 1024x768 ou 1280x1024. " 
//             +"Nécessite l'interpréteur JavaScript et l'ouverture de fenêtres popup. "
//             +"Pour commencer, vous pouvez cliquer sur une des cases roses dans la colonne de droite. "
             +"Pour tout renseignement, mon adresse email est : <span style=color:blue>photos@steenis.net </span> . "
             +"Vous pouvez également m'écrire si vous désirez des photos en plus haute résolution."]
       ,["text",0.24,0.48,0.05,0.48,"center","left","12",txt_program()]
       ,["text",0.28,0.48,0.05,0.48,"center","left","12",txt_site()]
       ];
if (info_media_type()=="" || info_media_type()=="site") 
  s2=s2.concat([
//["text",0.40,0.05,0.05,0.45,"center","center","12",txt_site_hdd_1()],
//["text",0.40,0.50,0.05,0.45,"center","center","12",txt_site_hdd_2()],
      //          ["text",0.40,1.00,0.05,0.27,"center","center","12",txt_site_hdd_2()]
//               ["text",0.33,0.05,0.65,0.90,"center","center","12",txt_site_hdd_3()]
["text",0.33,0.05,0.65,0.90,"center","center","12",
 "Suite à la fin des activités de Lycos Europe,<br>"
+"la plupart des albums de mon site sont temporairement indisponibles.<br>"
+"Les différents albums reviendront au fur et à mesure que j'aurai le temps de les re-uploader.<br>"
+"Merci de votre patience."]
//["special",0.52,0.05,0.45,0.9,"center","left","11pt"]
               ]); 
var s1=[["group","Page d'Accueil",,,],,s2]; return(s1);}
*/


// Default locations 
function site_root() { return (""); }
function site_info_location_main() {
var root0=site_root(); if (root0=="") root0="../";
var s0=[ // disque principal
 [root0+"",root0+"site/%N","",""] // 0 : Accueil
,[root0+"site/pages/%A%.js",root0+"site/pages/%N","",""] // 1 : Autres groupes
,[root0+"site/2000/%A%/album.js",root0+"site/2000/%A%/%N",root0+"photos/%code8.3%/%N%.jpg",root0+"photos/%code8.3%/%N%.jpg"] // 2 : Ancienne position
,[root0+"site/%an4%/%A%/%A%.js",root0+"site/%an4%/%A%/%N",root0+"photos/%code8.3%/%N%.jpg",root0+"photos/%code8.3%/%N%.jpg"] // 3 : Nouvelle position
];
var root1=site_root(); if (root1=="") root1="./";
var s1=[ // site
 [root1+"",root1+"%N","",""] // 0 : Accueil
,[root1+"pages/%A%.js",root1+"pages/%N","",""] // 1 : Autres groupes
,[root1+"2000/%A%/%A%.js",root1+"2000/%A%/%N",root1+"2000/%A%/small/%code8.1%/%N%.jpg",root1+"2000/%A%/small/%code8.1%/%N%.jpg"] // 2 : Ancienne position
,[root1+"%an4%/%A%/%A%.js",root1+"%an4%/%A%/%N",root1+"%an4%/%A%/small/%code8.1%/%N%.jpg",root1+"%an4%/%A%/small/%code8.1%/%N%.jpg"] // 3 : Nouvelle position
];
var root2=site_root(); if (root2=="") root2="./";
var s2=[ // CD ou disque auxiliaire
 [root2+"",root2+"%N","",""] // 0 : Accueil
,[root2+"pages/%A%.js",root2+"pages/%N","",""] // 1 : Autres groupes
,[root2+"2000/%A%/%A%.js",root2+"2000/%A%/%N",root2+"2000/%A%/photos/%code8.1%/%N%.jpg",root2+"2000/%A%/photos/%code8.1%/%N%.jpg"] // 2 : Ancienne position
,[root2+"%an4%/%A%/%A%.js",root2+"%an4%/%A%/%N",root2+"%an4%/%A%/photos/%code8.1%/%N%.jpg",root2+"%an4%/%A%/photos/%code8.1%/%N%.jpg"] // 3 : Nouvelle position
];
var s=[s0,s1,s2]; return(s); }


//function site_info_location_site() {
//return(s); }
//function site_info_location_cd() {
//return(s); }

function site_info_location_supp() { return(""); }
function site_info_location() { 
var t=info_location_type(); 
var s=""; 
if (t=="" || t=="hdd" || t==0) s=site_info_location_main()[0];
if (t=="site" || t==1) s=site_info_location_main()[1];
if (t=="cd" || t=="hdd2" || t==2) s=site_info_location_main()[2];
var u=site_info_location_supp();
if (u!="") s=s.concat(u);
return(s); }

//function site_info_list_main() { return(["*:3","*:-1","accueil:0:Accueil:::lightgreen-void"]); }

function site_info_list_default() { return("accueil:3:*nom*:*liste_droite*::lightgreen,void"); }
function site_info_list_main() { return(["accueil:0:Accueil:accueil"]); }
function site_info_list_supp() { return([]); }

function site_info_list_gen_CD(s) { 
var la=list_albums(); 
var s2=["accueil:0:Accueil:accueil,"+la+"::lightgreen,red"
,"#:3::accueil::lightgreen,red"];
//alert(la.split(",").length);
for (var i=0; i<s.length; i++) 
 for (var j=0 ; j<la.split(",").length; j++)
  if (s[i].split(":")[0]==la.split(",")[j]) s2=s2.concat(s[i]);
return(s2); }

//function site_info_list_main() { return(["#:3::accueil::lightgreen,void","accueil:0:Accueil:accueil"]); }
function site_info_list() { 
var t=info_media_type();
var s=site_info_list_main();
//if (t=="site") s=s.concat(site_info_list_site());
//if (t=="hdd2") s=s.concat(["#:::::lightgreen,void","*:-","accueil",list_albums()]); 
////if (t=="cd") s=s.concat(["*:-1::::lightgreen-void","accueil:0::"+list_albums(),list_albums()]);
//if (t=="cd") s=s.concat(["#:::accueil::lightgreen,void","*:-","accueil:0:Accueil:accueil,"+list_albums(),list_albums()]);
if (t=="cd" || t=="hdd2") s=site_info_list_gen_CD(s);
var s2=site_info_list_supp(); // s=s.concat(s2);
if (t=="site") s2=s2.concat(site_info_list_site());
// application defaults
 var sd=site_info_list_default();
for (var l=0;l<s.length;l++) {
var s3=s[l].split(":")[0];
for (var k=1;(k<sd.split(":").length)||(k<s[l].split(":").length);k++) { var s4="";
if (k<sd.split(":").length) if (sd.split(":")[k]!="") s4=sd.split(":")[k];
if (k<s[l].split(":").length) if (s[l].split(":")[k]!="") s4=s[l].split(":")[k];
s3=s3+":"+s4; }  
s[l]=s3;
} // application supplementaires
for (var i=0;i<s2.length;i++) for (var j=0;j<s2[i].split(":")[0].split(",").length;j++) {
var u=s2[i].split(":")[0].split(",")[j]; 
var uv=0; 
for (var l=0;l<s.length;l++) if (s[l].split(":")[0]==u) {uv=l;
var s3=u;
for (var k=1;(k<s2[i].split(":").length)||(k<s[l].split(":").length);k++) { var s4="";
if (k<s[l].split(":").length) if (s[l].split(":")[k]!="") s4=s[l].split(":")[k];
if (k<s2[i].split(":").length) if (s2[i].split(":")[k]!="") s4=s2[i].split(":")[k];
// if (k==1) if (k<s2[i].split(":").length) if (s2[i].split(":")[k]=="-") 
s3=s3+":"+s4; }  
s[l]=s3;
}
if (uv==0) { var s3=u;
for (var k=1;k<s2[i].split(":").length;k++) s3=s3+":"+s2[i].split(":")[k];
s=s.concat([s3]); }
} 
//alert(s[127]);
return(s); }

/*
function site_info_color() { 
var t=info_location_type();
var s=["lightgreen","void"];
if (t=="") s=site_info_color_main();
if (t=="site") s=site_info_color_site();
return(s); }
*/
/*
// generateur liste CD
function list_albums() { return (""); }
function site_info_list_hdd2() {
var s=site_info_list_main().concat(["*:-1",list_albums()]); return(s); }
function site_info_list_cd() {
var s=site_info_list_main().concat(["*:-1",list_albums()]);
s[0]="accueil:0:Accueil:"+list_albums(); return(s); }
*/

// generateur de statistiques
function txt_site_hdd_1() {
var q=txt_site_nombre();
if (q!="") {
var p2=new Array(q.length);
p2[0]=[[[16,      ,,,],,"**** Albums ****"],[[16,      ,,,],,      "photos"], [[16,      ,,,],,     "-- % --"] , [[16,       ,,,],,"Nouveautés"] ];
for (var i=1;i<q.length;i++)
p2[i]=[[[16,"blue",,,],,q[i].split(":")[0]],   [[16,"blue",,"right",],,q[i].split(":")[1]], [[16,"blue",,"center",],,q[i].split(":")[2]] , [[16,"green",,"center",],,q[i].split(":")[3]]];
var s="Statistiques - Nombre de photos (depuis mai 2002)";
var p=[,[1,"black",],,p2]
s=s+"<br>"+f_table(p);
} return(s); }

function txt_site_statistics() {return("");}
function txt_site_hdd_2() {
var s="";
var z=txt_site_statistics();
if (z!="") {
var fs=14;
if (W_X>1270) fs=16;
if (W_X>1590) fs=18;
if (W_X<1000) fs=10; 
var s="Statistiques <br> "+z[0].split(":")[0]+" <br><br>"+z[1][0];
var q=z[1];
var p2=new Array(-1+q.length);
//p2[0]=  [[[fs,"red",,"center",],,"*** Total ***"],   [[fs,"red",,"right",],,z[0].split(":")[1]], [[fs,"red",,"right",],,"100"] ];
//p2[1]=  [[[fs,      ,,,],,"*** Album ***"],          [[fs,      ,,,],,      "pag.lues"],         [[fs,      ,,,],,     "- % -"]  ];
for (var i=1;i<q.length;i++)
p2[i-1]=[[[fs,q[i].split(":")[0],,,],,q[i].split(":")[1]],[[fs,q[i].split(":")[0],,"right",],,q[i].split(":")[2]], [[fs,q[i].split(":")[0],,"right",],,q[i].split(":")[3]] ] ;
var p=[,[1,"black",],,p2];
s=s+"<br>"+f_table(p);
s=s+"<br>"+z[2][0];
var q=z[2];
var p2=new Array(-1+q.length);
//p2[0]=  [[[fs,      ,,,],,"*** Album ***"],[[fs,      ,,,],,      "pages"], [[fs,      ,,,],,     "pg.l./pg."]  ];
for (var i=1;i<q.length;i++)
p2[i-1]=  [[[fs,q[i].split(":")[0],,,],,q[i].split(":")[1]],[[fs,q[i].split(":")[0],,"right",],,q[i].split(":")[2]], [[fs,q[i].split(":")[0],,"right",],,q[i].split(":")[3]] ]; 
var p=[,[1,"black",],,p2];
s=s+"<br>"+f_table(p);
} return(s); }

// generateur de planning
function txt_site_planning() {return("");}
function txt_site_hdd_3() {
var fs=14;
if (W_X>1270) fs=18;
if (W_X>1590) fs=20;
if (W_X<1000) fs=10;
var s="";
var q=txt_site_planning(); 
if (q!="") {
var p2=new Array(q.length);
p2[0]=[[[fs,      ,,,],,"Date"],[[fs,      ,,,],,      "album"], [[fs,      ,,,],,     "Nbr. ph."] , [[fs,       ,,,],,"disponible"] ];
for (var i=1;i<q.length;i++) {
var icolor=q[i].split(":")[1]; 
var icursor="default"; if (icolor!="red") icursor="pointer";
p2[i]=[[[fs,icolor,,,,icursor],q[i].split(":")[0],q[i].split(":")[2]]   
      ,[[fs,icolor,,,,icursor],q[i].split(":")[0],q[i].split(":")[3]]
      ,[[fs,icolor,,"right",,icursor],q[i].split(":")[0],q[i].split(":")[4]] 
      ,[[fs,icolor,,"center",,icursor],q[i].split(":")[0],q[i].split(":")[5]]
      ,[[fs,icolor,,,,icursor],q[i].split(":")[0],q[i].split(":")[6]]
      ]; }
s="<span style=color:green>Nouveautés</span> et <span style=color:red>planning estimé</span>";
var p=[,[1,"black",],,p2];
s=s+"<br>"+f_table(p);
} 	return(s); }


function site_info() { 
var s1=site_info_location();
var s2=site_info_list();
//var s3=site_info_color();
var s=[s1,s2/*,s3*/];// color inclus dans liste ... 
return(s); }


//function txt_site() {return("");}

// variables globales 

function code_page(pagenum) { switch(pagenum) {
case "2000": return("---2VV--------"); break;
case "2201": return("-2H------4H----"); break;
case "3012": return("4V------2VV-----"); break;
case "3021": return("2VV------4V-----"); break;
case "3112": return("-3H----2VV------"); break;
case "3121": return("-2VV------3H----"); break;	
case "3191": return("7V-1H-----4V-----"); break;
case "3201": return("-5H--1V----1H----"); break;
case "3202": return("-1H--1V----1H----"); break;
case "3212": return("-3H-----7V-1H----"); break;
case "3381": return("1H----1H----5H---"); break;
case "3391": return("H----3H----6H---"); break;
case "3392": return("1H----5H----5H---"); break;
case "4000": return("2VV------2VV-----"); break;
case "4111": return("7V-1H-----2VV-----"); break;
case "4112": return("1V-1H-----2VV-----"); break;
case "4113": return("-3H----VVV------"); break;
case "4123": return("2VV------7V-1H----"); break;
case "4124": return("2VV------1V-1H----"); break;
case "4131": return("-VVV------3H----"); break;
case "4191": return("-1H--2V--VV------"); break;
case "4192": return("-5H--V--VV------"); break;
case "4201": return("-1VH----3V--1H----"); break;
case "4202": return("-1HV----1V--1H----"); break;
case "4203": return("7V-1H-----7V-1H----"); break;
case "4204": return("1V-1H-----1V-1H----"); break;
case "4301": return("5H---1V-1H----1H---"); break;
case "4302": return("1H---1V-1H----1H---"); break;
case "4311": return("3H----5H-1V---1H---"); break;
case "4312": return("3H----1H-1V---1H---"); break;
case "4321": return("5H-1V---1H----3H---"); break;
case "4322": return("1H-1V---1H----3H---"); break;
case "4391": return("1V-2H-------HH---"); break;
case "4392": return("7V-H------HH----"); break;
case "4394": return("HH-----7V-H-----"); break;
case "4400": return("-HH------HH----"); break;
case "4402": return("3H----HH----3H---"); break;
case "4491": return("H----3H----HH---"); break;
case "4492": return("HH----3H----6H---"); break;
case "4493": return("6H----3H----HH---"); break;
case "4494": return("2H----2H----HH---"); break;
case "5009": return("V4V---V---VV-----"); break;
case "5023": return("2VV------VVV-----"); break;
case "5032": return("VVV------2VV-----"); break; 
case "5121": return("7V-1H-----VVV-----"); break;
case "5122": return("1V-1H-----VVV-----"); break;
case "5134": return("VVV------7V-1H----"); break;
case "5135": return("VVV------1V-1H----"); break;
case "5223": return("-HH----VVV------"); break;	
case "5232": return("-VVV------HH----"); break;
case "5301": return("1HV----1H--1V--1H---"); break;
case "5302": return("1VH----1H--1V--1H---"); break;
case "5401": return("5H-1V---1H----HH---"); break;
case "5402": return("1H-1V---1H----HH---"); break;
case "5403": return("HH----5H-1V---1H---"); break;
case "5404": return("HH----1H-1V---1H---"); break;
case "5491": return("H-H---H-1V---H---"); break;
case "5501": return("3H----HH----HH---"); break;
case "5502": return("HH----3H----HH---"); break;
case "5503": return("HH----HH----3H---"); break;
case "5508": return("HH----H--H--H---"); break;
case "5509": return("H--H--H--H--H---"); break;
case "6000": return("VVV------VVV-----"); break;
case "6600": return("HH----HH----HH---"); break;
case "void": return("-----------"); break;
}}

function convert_page_definition(s) {
var u=new Array(12);
for (var i=0;i<12;i++) u[i]=new Array(12); 
for (var i=0;i<12;i++) for(var j=0;j<12;j++) u[i][j]=0;
var x=0; var y=0;
var v="";
for (var i=0;i<s.length;i++) {
var c=s.substring(i,i+1).toLowerCase();
if (c=="h") {
 v=v+y+","+x+",H;"; // alert(v);
 for (var j=0;j<6;j++) for (var k=0;k<4;k++) u[y+k][x+j]=1; // alert(u);
 x=x+6;
 for (;u[y][x]==1;x++); // alert(x+" "+y);
} else if (c=="v") {
 v=v+y+","+x+",V;";
 for (var j=0;j<4;j++) for (var k=0;k<6;k++) u[y+k][x+j]=1;
 x=x+4;
 for (;u[y][x]==1;x++);
} else if (parseInt(c)>0) {
 var n=parseInt(c);
 for (var m=0;m<n;m++) {
 x++; for (;u[y][x]==1;x++); }
} else if (c=="-") {
 x=0; y++;
 for (;u[y][x]==1;x++);
}}
if (v.length>0) v=v.substring(0,v.length-1);
v=v.split(";");
return(v);
}

function convert_code8(l) { //alert(l); 
if (l.length>0) {
var imagename=l[0];
var v=imagename;
for (var i=1;i<l.length;i++) {
imagename=imagename.substring(0,8-l[i].length)+l[i]; 
v=v+"-"+imagename; }
return(v.split("-")); } else return("");
}

function f_span(p) {
// p= [[top,left],TXT] 
var t="<SPAN style='position:absolute;cursor=default"
if (p[0]!=null) if (p[0][0]!=null) t=t+"; top:"+parseInt(p[0][0]);
if (p[0]!=null) if (p[0][1]!=null) t=t+"; left:"+parseInt(p[0][1]);
t=t+"'>"+p[1]+"</SPAN>";
return(t);
}

function f_table(p) {
// p=[[height,width],[border,bordercolor,bgcolor],[valign,align],[[[font-size,color,bgcolor,align,width,CURSOR],onclick,TXT],...],...] CURSOR V0610B
var t="<TABLE";
if (p[0]!=null) if (p[0][0]!=null) t=t+" height="+parseInt(p[0][0]);
if (p[0]!=null) if (p[0][1]!=null) t=t+" width="+parseInt(p[0][1]);
if (p[1]!=null) if (p[1][0]!=null) t=t+" border="+p[1][0];
if (p[1]!=null) if (p[1][1]!=null) t=t+" bordercolor="+p[1][1];
if (p[1]!=null) if (p[1][2]!=null) t=t+" bgcolor="+p[1][2];
//if (p[2]!=null) if (p[2][0]!=null) t=t+" valign="+p[2][0];
//if (p[2]!=null) if (p[2][1]!=null) t=t+" align="+p[2][1];
t=t+">";
for (var i=0;i<p[3].length;i++) { 
	var q=p[3][i];
	t=t+"<TR"; 
if (p[2]!=null) if (p[2][0]!=null) t=t+" valign="+p[2][0];
        t=t+">";
	for (var j=0;j<q.length;j++) { 
		var r=q[j];
		t=t+"<TD";
		if (r[3]!=null) t=t+" colspan="+r[3];
		if (r[0]!=null) if (r[0][4]!=null) t=t+" width="+r[0][4];
if (p[2]!=null) if (p[2][1]!=null) t=t+" align="+p[2][1];
		if (r[0]!=null) if (r[0][3]!=null) t=t+" align="+r[0][3];
		if (r[0]!=null) if (r[0][2]!=null) t=t+" bgcolor="+r[0][2];
		t=t+" style='";
		if (r[0]!=null) if (r[0][0]!=null) t=t+"; font-size:"+r[0][0];
		if (r[0]!=null) if (r[0][1]!=null) t=t+"; color:"+r[0][1];
                if (r[0]!=null) if (r[0].length>5) if (r[0][5]!=null) t=t+"; cursor:"+r[0][5];
		t=t+"'";
		if (r[1]!=null) t=t+" onclick=javascript:go_click('"+r[1]+"')";
		t=t+">"
		if (r[2]!=null) t=t+r[2]
		t=t+"</TD>";

		}
	t=t+"</TR>";
	}		
t=t+"</TABLE>";
return(t);
}

function f_image(p) {
// p=[[height,width],alt,onclick,NAME,CURSOR] CURSOR V0601B
var t="<IMG "; 
if (p[4]!=null) t=t+"style=cursor:"+p[4]+" "; 
if (p[0]!=null)	if (p[0][0]!=null) t=t+" height="+parseInt(p[0][0]);
if (p[0]!=null) if (p[0][1]!=null) t=t+" width="+parseInt(p[0][1]);
if (p[1]!=null) t=t+" alt="+p[1];
if (p[2]!=null) t=t+" onclick=javascript:go_click('"+p[2]+"')";
t=t+" src="+p[3]+">";
return(t);
}


function coord(s,p) {
// s = [Y,X] relative
// p = [[Y,X] dim, [Y,X] depl]
var y=0; var x=0;
if (p[0]!=null) {y=s[0]*p[0][0]; x=s[1]*p[0][1];}
if (p[1]!=null) {y=y+p[1][0]; x=x+p[1][1];}
return([y,x]);
}


function get_parameters() {
// valeurs par defaut
X_frame=1;
//P_album=site_info()[1][0].split(":")[0];
//P_album=Z_Albums[0].split(":")[0]; 
P_album="";
//P_album=get_default_album();
P_page=1;
P_npages=1;
P_oldpage=0;
P_oldnpages=0;
P_photo=0;
P_showname=0;
P_mode=0;
P_delay=0; P_delayaction="";
P_nofullscreen=0;
P_size_X=0; P_size_Y=0;
P_special="";
P_media="";
var params=window.location.search.toLowerCase().split("?");
if (params.length==2) { 
params=params[1].split("&");
//alert(params);
for (var i=0;i<params.length;i++) {
var pname=params[i].split("=")[0];
var pvalue=params[i].split("=")[1];
if (pname=="frame") X_frame=parseInt(pvalue);
if (pname=="album") P_album=pvalue;
if (pname=="page") P_page=parseInt(pvalue);
if (pname=="npages") P_npages=parseInt(pvalue);
if (pname=="oldpage") P_oldpage=parseInt(pvalue);
if (pname=="oldnpages") P_oldnpages=parseInt(pvalue);
if (pname=="photo") P_photo=parseInt(pvalue);
if (pname=="showname") P_showname=parseInt(pvalue);
if (pname=="mode") P_mode=parseInt(pvalue);
if (pname=="delay") { P_delay=parseInt(pvalue.split("/")[0]); P_delayaction=pvalue.split("/")[1]; }
//if (pname=="nofullscreen") P_nofullscreen=parseInt(pvalue);
if (pname=="size") { P_size_X=parseInt(pvalue.split("x")[0]); P_size_Y=parseInt(pvalue.split("x")[1]); }
if (pname=="special") P_special=pvalue;
if (pname=="media") P_media=pvalue;
//alert(P_size_X);
}}}

function get_url() {
var url=window.location.href/*.toLowerCase()*/.split("?")[0];
//alert(url);
url=url+"?frame="+X_frame;
url=url+"&album="+P_album;
if (P_page>1) url=url+"&page="+P_page;
if (P_npages>1) url=url+"&npages="+P_npages;
if (P_oldpage>0) url=url+"&oldpage="+P_oldpage;
if (P_oldnpages>0) url=url+"&oldnpages="+P_oldnpages;
if (P_photo>0) url=url+"&photo="+P_photo;
if (P_showname>0) url=url+"&showname="+P_showname;
if (P_mode>0) url=url+"&mode="+P_mode;
if (P_delay>0) url=url+"&delay="+P_delay+"/"+P_delayaction;
if (P_size_X>0) url=url+"&size="+P_size_X+"x"+P_size_Y;
if (X_frame!=3) if (P_special!="") url=url+"&special="+P_special;
if (X_frame==3) if(EXEC_Curr=="body") if (A_type=="album") url=url+"&special="+A_thispage;
if (P_media!="") url=url+"&media="+P_media;
//alert(url);
return(url);
}

function arrowPress() { 
if (A_type=="album") { 
var xk=event.keyCode;
//alert(xk);
  if (xk == 37) { /* left arrrow*/ go_click("*-1"); } 
  if (xk == 38) { /*   up arrrow*/ go_click("*--");  } 
  if (xk == 39) { /*right arrrow*/ go_click("*+1"); } 
  if (xk == 40) { /* down arrrow*/ go_click("*++");  }  
}}


function go_transfer() {
//alert(get_url());
if (X_frame==3) {
var old_url=window.location.href;
var old_delay=P_delay;  
if (old_url!=get_url()) {
X_frame=1; P_delay=0; pop=window.open(get_url(),"pop",""); P_delay=old_delay; X_frame=3; 
}}
window.location.href=get_url();
}

function adjust_page() {
if (A_type=="album") /* if (P_photo==0) */ {
var tmp_npages=P_npages; if (P_photo>0) tmp_npages=1;
if (P_page+tmp_npages*tmp_npages-1>A_npages) P_page=A_npages-tmp_npages*tmp_npages+1;
if (P_page<1) P_page=1; }
go_transfer(); // window.location.href=get_url();
}
function adjust_page_s() {
if (A_type=="album") /* if (P_photo==0) */ {
var tmp_npages=1;// if (P_photo>0) tmp_npages=1;
if (P_page+tmp_npages*tmp_npages-1>A_npages) P_page=1;
if (P_page<1) P_page=1; }
go_transfer(); // window.location.href=get_url();
}

function adjust_photo() {
if (P_photo>A_pages[P_page-1].split(":")[1].split("-").length) 
 {P_page=P_page+1; P_photo=1;}
if (P_photo<1) 
 {P_page=P_page-1; if(P_page>0) P_photo=A_pages[P_page-1].split(":")[1].split("-").length; }
if (P_page==0) 
 {P_page=1; P_photo=1;}
if (P_page>A_npages) 
 {P_page=A_npages; P_photo=A_pages[P_page-1].split(":")[1].split("-").length; }
go_transfer(); // window.location.href=get_url();
}
function adjust_photo_s() {
if (P_photo>A_pages[P_page-1].split(":")[1].split("-").length) 
 {P_page=P_page+1; P_photo=1;}
if (P_photo<1) 
 {P_page=P_page-1; if(P_page>0) P_photo=A_pages[P_page-1].split(":")[1].split("-").length; }
if (P_page==0) 
 {P_page=1; P_photo=1;}
if (P_page>A_npages) 
 {P_page=1; P_photo=1; }
go_transfer(); // window.location.href=get_url();
}

function go_click(s) {
//alert(s); 
if (s=="*FRAME1") {X_frame=1; go_transfer();}
if (s=="") s="//";
if (s=="/*/") { if (P_delay==0) s="/5000/*+s"; else s="//"; }
if (s.substring(0,1)=="/") { 
P_delay=parseInt(s.split("/")[1]); P_delayaction=s.split("/")[2]; adjust_page();}
if (s=="*close") window.parent.close();
if (s=="*ret") { // retour du mode photo au mode page
P_photo=0; P_page=P_oldpage; adjust_page(); }
if (s=="*num") {
P_showname=1-P_showname; adjust_page(); }
//if (s=="*mod") {
//P_mode=1-P_mode; adjust_page(); }
if (s=="*p:1") {
P_photo=0; P_npages=1; adjust_page(); }
if (s=="*p:2") {
P_photo=0; P_npages=2; adjust_page(); }
if (s=="*p:3") {
P_photo=0; P_npages=3; adjust_page(); }
if (s=="*m:1") {
P_photo=0; P_mode=1; adjust_page(); }
if (s=="*m:2") {
P_photo=0; P_mode=2; adjust_page(); }
if (s=="*m:3") {
P_photo=0; P_mode=3; adjust_page(); }
if (s=="*m:4") {
P_photo=0; P_mode=4; adjust_page(); }
if (s=="*m:5") {
P_photo=0; P_mode=5; adjust_page(); }
if (s=="*m:6") {
P_photo=0; P_mode=6; adjust_page(); }
/* modes : 1=> rien ; x3=>3 si chaps ; x2=>2 ; x1=>4
           2=> pages seules ; x3=>5 si chaps ; x2=>1 ; x1=>4
           3=> chapitres seuls ; x3=>1 ; x2=>5 ; x1=>6
           4=> miniatures ; x3=>3 si chaps ; x2=>2 ; x1=>1
           5=> chapitres, pages dans chapitres uniq. ; x3=>2 ; x2=>3 ; x1=>6
           6=> chapitres, toutes pages x3=>2 ; x2=>3 ; x1=>5
*/
if (s=="*m:x1") {
P_photo=0; //if (P_mode==2) P_mode=5; else P_mode=2; adjust_page(); 
     if (P_mode==1 || P_mode==2) {P_mode=4; adjust_page();} 
else if (P_mode==3 || P_mode==5) {P_mode=6; adjust_page();} 
else if (P_mode==4)              {P_mode=1; adjust_page();}
else if (P_mode==6)              {P_mode=5; adjust_page();} }
if (s=="*m:x2") { 
P_photo=0; //if (P_mode==2) P_mode=5; else P_mode=2; adjust_page(); 
     if (P_mode==1 || P_mode==4) {P_mode=2; adjust_page();} 
else if (P_mode==5 || P_mode==6) {P_mode=3; adjust_page();} 
else if (P_mode==2)              {P_mode=1; adjust_page();}
else if (P_mode==3)              {P_mode=5; adjust_page();} }
if (s=="*m:x3") if(A_nchap>0) { 
P_photo=0; //if (P_mode==3) P_mode=5; else P_mode=3; adjust_page(); 
     if (P_mode==1 || P_mode==4) {P_mode=3; adjust_page();} 
else if (P_mode==5 || P_mode==6) {P_mode=2; adjust_page();} 
else if (P_mode==2)              {P_mode=5; adjust_page();}
else if (P_mode==3)              {P_mode=1; adjust_page();} }
if (s=="*-1") {
if (P_photo==0) { // change page
P_page=P_page-1; adjust_page(); } else { // change photo
P_photo=P_photo-1; adjust_photo(); }}
if (s=="*+1") {
if (P_photo==0) { // change page
P_page=P_page+1; adjust_page(); } else { // change photo
P_photo=P_photo+1; adjust_photo(); }}
if (s=="*+s") {
if (P_photo==0) { // change page
P_page=P_page+1; adjust_page_s(); } else { // change photo
P_photo=P_photo+1; adjust_photo_s(); }}
if (s=="*--") {
if (P_photo==0) { // change page
P_page=P_page-P_npages*P_npages; adjust_page(); } else { // change photo
P_photo=1; P_page=P_page-1; adjust_page(); }}
if (s=="*++") {
if (P_photo==0) { // change page
P_page=P_page+P_npages*P_npages; adjust_page(); } else { // change photo
P_photo=1; P_page=P_page+1; adjust_page(); }}
if (s.substring(0,5)=="*size") { var s=s.substring(5,s.length);
P_size_X=parseInt(s.split("x")[0]); P_size_Y=parseInt(s.split("x")[1]);
go_transfer(); }
// default !!
if (s.substring(0,1)==":") { // lien dans l'album
if (s.split(":").length>1) var s_page=parseInt(s.split(":")[1]); else var s_page=1;
if (s.split(":").length>2) var s_photo=parseInt(s.split(":")[2]); else var s_photo=0;
if (P_photo==0) if (s_photo>0) P_oldpage=P_page;
P_photo=s_photo; P_page=s_page; adjust_page(); }
// defaut : lien externe
var s_album=s.split(":")[0]; 
//alert(s);
if (s_album.substring(0,1)=="#") {s_album=s_album.split("#")[1]; var s_force=1; } else var s_force=0;
if ((is_link_valid(s_album)>-1) || (s_force==1)) {
P_oldpage=0; P_oldnpages=0;
if (s_album!=P_album) P_mode=0;
var s_page=(s.split(":")[1]); if (s_page==null) s_page=1;
var s_photo=(s.split(":")[2]); if (s_photo==null) s_photo=0;
P_photo=s_photo; P_page=s_page; P_album=s_album;
go_transfer(); // window.location.href=get_url();
}
}



function get_file_location(name,order)
{
var album_class=parseInt(A_album[1]);
//var album_search=site_info()[0][album_class][order].split("%");
var album_search=Z_Locations[album_class][order].split("%");
var file_location=""; 
for (var i=0;i<album_search.length;i++) {
     if (i%2==0) file_location=file_location+album_search[i];
else if (album_search[i]=="A") file_location=file_location+P_album;
else if (album_search[i]=="N") file_location=file_location+name;
else if (album_search[i]=="an4") file_location=file_location+P_album.substring(P_album.length-4,P_album.length);
else if (album_search[i]=="code8.1") file_location=file_location+name.substring(0,6);
else if (album_search[i]=="code8.3") file_location=file_location
   +parseInt(20-parseInt(parseInt(name.substring(0,2))/80))
   +name.substring(0,2)+"/"+name.substring(0,4)+"/"+name.substring(0,6);
} return(file_location); 
}

function main_head() { 
// frames :
// 0 => démarage, normale
// 1 => frameset pour éliminer les scrollbars
// 2 => principale
// 3 => commande
//alert("head");
EXEC_Curr="head"; 
get_parameters(); 
get_main_infos(); 
if (P_album=="") P_album=get_default_album();
if (X_frame>3) {X_frame=0; P_special="nofull"; }
/*
A_album=""; // get album file location
for (var i=0; i<Z_Albums.length; i++) for (var ii=0; ii<Z_Albums[i].split(":")[0].split(",").length; ii++)
  if (Z_Albums[i].split(":")[0].split(",")[ii]==P_album || Z_Albums[i].split(":")[0]=="*") {
if (A_album=="") { A_album=Z_Albums[i].split(":"); A_album[0]=P_album; }
else { if (Z_Albums[i].split(":").length>1) {
       if (Z_Albums[i].split(":")[1]==-1) { if (A_album[1]>0) A_album[1]=-A_album[1]; }
       else if (Z_Albums[i].split(":")[1]==0) {if (A_album[1]<0) A_album[1]=-A_album[1]; }
       else A_album[1]=Z_Albums[i].split(":")[1]; } else {if (A_album[1]<0) A_album[1]=-A_album[1]; }
  for (var iii=2; iii<Z_Albums[i].split(":").length; iii++) if (Z_Albums[i].split(":")[iii]!="") A_album[iii]=Z_Albums[i].split(":")[iii];
}} alert(A_album); alert(get_A_album(P_album)); 
*/ 
//A_album=get_A_album(P_album); alert(A_album.length);
A_album=get_main_info_album2(P_album).split(":"); //alert(A_album.length);
specific_file_name=get_file_location("",0); 
if (X_frame==0) {
if (P_special=="print") { X_frame=1; pop_print=window.open(get_url(),"pop_print",""); } else {
props="resizable=1,location=1,top=0,left=0,width="+parseInt(screen.width*0.9)+",height="+parseInt(screen.height*0.7);
//props="top=0,left=0,resizable=1"; //,resizeable=no,scrollbars=no,toolbar=no,menubar=no,location=no,status=no,directories=no";
if (P_special!="nofull") props=props+",fullscreen=yes";
else props=props+",menubar=1"; //props=props+",width="+(screen.width-10)+",height="+(screen.height-30); 
X_frame=1; pop=window.open(get_url(),"pop",props);  X_frame=0; 
props="resizable=1,location=1,top="+parseInt(screen.height*0.8)+",left=0,width="+parseInt(screen.width*0.9)+",height="+parseInt(screen.height*0.1);
if (P_special=="nofull") { X_frame=3; pop2=window.open(get_url(),"pop2",props);  X_frame=0;}
}
//alert("XF0 OK");
} else if (X_frame==3) { 
} else if (X_frame==1) {
if (P_special=="print") { 
document.write("<FRAMESET ROWS='*"); for (var i=0;i<P_npages-1;i++) document.write(" ,*"); document.write("'>");
} else document.write("<FRAMESET>");
X_frame=2;
if (P_special=="print") for (var i=0;i<P_npages;i++) { 
document.write("<FRAME  SRC=",get_url(),">"); P_page++; 
} else
document.write("<FRAME noresize scrolling=no frameborder=0 marginwidth=0 marginheight=0 SRC=",get_url(),">"); 
document.write("</FRAMESET>"); 
//alert("XF1 OK");
}  
// for all frames else if (X_frame==2) {
//for (var i=0; i<site_info()[1].length; i++) 
}//}

function get_window_resolution() {
//alert(document.body.clientWidth);
if (window.innerWidth != null) 
     {W_X=window.innerWidth; W_Y=window.innerHeight;}                  // netscape style
else {W_X=document.body.clientWidth; W_Y=document.body.clientHeight;}  // microsoft style
if (P_size_X>0) { W_X=P_size_X; W_Y=P_size_Y; }
}

function get_main_info_album2(alb) {
var s=Z_Albums;
var sd=site_info_list_default();
var t=alb+":-1";
for (var i=2;i<sd.split(":").length;i++) t=t+":"+sd.split(":")[i];
for (var i=0;i<s.length;i++) if (s[i].split(":")[0]==alb) t=s[i];
return(t); }

/*
function get_main_info_album(alb) { 
//alert(Z_Albums); alert(get_main_info_album2(alb));
//var s=site_info()[1]; 
var s=Z_Albums;
//alert(s);
var x=[[0,0],[alb,"","","","",["",""]]];
//x[1][5]=[s[0].split(":")[5].split(",")[0],s[0].split(":")[5].split(",")[1]];
for (var i=0; i<s.length; i++) for(var j=0; j<s[i].split(":")[0].split(",").length; j++) 
 if (s[i].split(":")[0].split(",")[j]==alb || s[i].split(":")[0]=="*" ) {
var t=s[i].split(":");
var u=["","","","","",","];
for (var k=0; k<t.length; k++) u[k]=t[k];
u[5]=u[5]+",";
//if (u[1]=="") if (x[1][1]!="") x[0][0]=1;
if (u[1]=="") x[0][0]=1; // blank => restore album
//if (u[1]==-1 || u[1]=="-") if (x[1][1]>0) x[0][0]=0;
if (u[1]==-1 || u[1]=="-") x[0][0]=0; // - => cancel album
if (u[1]>0) {x[0][0]=1; x[0][1]=i; x[1][1]=u[1];} // number => validate album+location
if (u[1]!="") if (u[1]==0) {x[0][0]=1; x[0][1]=i; x[1][1]=u[1];} // 0 idem
for (var k=2; k<5; k++) if (u[k]!="") x[1][k]=u[k];
for (var k=0; k<2; k++) if (u[5].split(",")[k]!="") x[1][5][k]=u[5].split(",")[k];
}  // if (alb=="accueil") alert(x);
var xdef=get_main_info_album_default();
for (var k=1; k<5; k++) if (x[1][k]=="") x[1][k]=xdef[k];
for (var k=0; k<2; k++) if (x[1][5][k]=="") x[1][5][k]=xdef[5][k];
return (x);}

function get_main_info_album_default() {
var s=Z_Albums;
var x=["","","","","",["",""]];
for (var i=0; i<s.length; i++) if (s[i].split(":")[0]=="#") {
var t=s[i].split(":");
var u=["","","","","",","];
for (var k=0; k<t.length; k++) u[k]=t[k];
u[5]=u[5]+",";
for (var k=1; k<5; k++) if (u[k]!="") x[k]=u[k];
for (var k=0; k<2; k++) if (u[5].split(",")[k]!="") x[5][k]=u[5].split(",")[k];
} 
return(x); }
*/

function get_A_album(alb) { return (get_main_info_album(alb)[1]); }

function get_default_album() {
//var s=site_info()[1]; 
//var s=Z_Albums;
//var x="";
//for (var i=0; i<s.length; i++) if (s[i].split(":").length>1) if (s[i].split(":")[1]!="")if (s[i].split(":")[1]==0) x=s[i].split(":")[0].split(",")[0]; 
//var x=get_main_info_album_default()[3].split(",")[0];
var x=site_info_list_default().split(":")[0];
return(x); }

function is_link_valid2(alb) { 
var s=get_main_info_album2(alb).split(":"); return(s[1]); }
function get_album_name2(alb) { 
var s=get_main_info_album2(alb).split(":"); return(s[2]); }
function get_link_color2(alb) {  //return("blue"); }
var s=get_main_info_album2(alb).split(":"); 
var t=s[5];
if (t.split(",")[0]!=t) { if (s[1]<0) t=t.split(",")[1]; else t=t.split(",")[0]; }
return(t); }


function is_link_valid(alb) { return (is_link_valid2(alb)); }
//var s=get_main_info_album(alb)[0]; if (s[0]==0) return(-1); else return(s[1]); }
function get_album_name(alb) { return(get_album_name2(alb)); }
//var s=get_main_info_album(alb); return(s[1][2]); }
function get_link_color(alb) { return(get_link_color2(alb)); }//return("blue"); }
//var s=get_main_info_album(alb); if (s[0][0]==0) return(s[1][5][1]); else return(s[1][5][0]); }


function get_main_infos() { 
var s=site_info();
//Z_Albums : main_head, get_parameters (defaut), is_link_valid, main_column
Z_Albums=s[1];
//Z_Location : non modifié
Z_Locations=s[0];
//Z_Colors : main_group, get_link_color => disparait ...
//Z_Colors=s[2];
}


function get_album_infos() {
get_main_infos();
var A=album();
if (A[0][0]==null) var A_tmp="group"; else var A_tmp=A[0][0].toLowerCase(); 
if (A_tmp=="album" || A_tmp==P_album) A_type="album";
if (A_tmp=="group") A_type="group"; 
if (A_type=="album") {
A_name=A[0][1]; 
A_titre=A[1][0];
A_color=A[0][2];
A_subtype=A[0][3];
//A[0][4] liens droite - sera déplacé dans site.js
A_fullname=A[1][0]; // actuellement 1 seul bloc
A_pages=A[2][0]; // idem liste des pages
A_thispage=""; for (var i=0;i<P_npages*P_npages;i++) A_thispage=A_thispage+"$"+A_pages[P_page+i-1]; // to check if modified
A_npages=A_pages.length;
if (A.length>3) {
A_chap=A[3][0]; // liste des chapitres
A_nchap=A_chap.length; } else A_nchap=0;
A_nphotos=0;
for (var i=0;i<A_npages;i++) A_nphotos=A_nphotos+A_pages[i].split(":")[1].split("-").length;
A_imageloc=get_file_location("",1); 
// mode affichage modification
//alert(A_album);
//if (A_album.length>4) if (A_album[4]>0) if (P_mode==0) P_mode=A_album[4];
// gestion mode
if (P_mode==0) { if (A_nchap>0) P_mode=5; else P_mode=2; } //alert(A_nchap);
} else if (A_type=="group") {
A_name=A[0][1];
A_groups=A[2];
}}



function draw_album_page(p) {
var s="";
var page_pos=[p[1],p[0]]; var page_size=[p[1]]; var page_num=p[2];
var minipage=0; if (p[3]!=null) if(p[3]=="minipage") minipage=1;
if (p[3]!=null) if(p[3]=="minipage2") minipage=2;
var page_0=A_pages[page_num-1].split(":");
var page_1=page_0[0]; // type de page
if (page_1.split("-")[11]==null) page_1=code_page(page_0[0]);
var page_2=convert_page_definition(page_1);
var page_3=page_0[1].split("-");
if (A_subtype=="code8") page_3=convert_code8(page_3);
//draw_main(["image",0,0,1,1,"center","center",,,"","","",2,A_color],p);
// (1) image arrière plan
if (P_photo==0 || minipage==1) if (minipage<2) if (page_0.length>3) if (page_0[3].length>0) {
s=f_image([coord([1,1],page_size),,,A_imageloc+page_0[3]]);
s=f_span([coord([0,0],page_pos),s]);
document.write(s);}
// (2) bordure principale
//draw_main(["image",0,0,1,1,"center","center",0.99,0.99,A_imageloc+page_0[3]],p);
s=f_table([coord([1,1],page_size),[2,A_color],,[[[,":"+page_num+":0",]]]]);
s=f_span([coord([0,0],page_pos),s]);
document.write(s);
//draw_main(["text",0,0,1,1,"center","center",,," ",,":"+p[5]+":0",2,A_color],p);
// calcul de la taille de font commentaires sur photos
var fontsize=parseInt(15*page_size[0][0]/768);
// (3) photos principales
if (P_photo==0 || minipage>0) for (var i=0;i<page_3.length;i++) {
var page_4=page_2[i].split(",");
var pos_Y=parseInt(page_4[0]); 
var pos_X=parseInt(page_4[1]);
var photo_VH=page_4[2];
if (photo_VH=="V") {var dim_Y=6; var dim_X=4; }
if (photo_VH=="H") {var dim_Y=4; var dim_X=6; }
pos_Y=pos_Y/12; pos_X=pos_X/12; dim_Y=dim_Y/12; dim_X=dim_X/12;
// (3.1) photo proprement dite
if (minipage<2) {
if (p[3]=="print") var orderloc=3; else var orderloc=2;
s=f_image([coord([dim_Y*0.985,dim_X*0.985],page_size),page_3[i],":"+page_num+":"+parseInt(i+1),get_file_location(page_3[i],orderloc)]);
s=f_span([coord([pos_Y+dim_Y*0.01,pos_X+dim_X*0.01],page_pos),s]);
document.write(s); }
//draw_main(["image",pos_Y,pos_X,dim_Y,dim_X,"center","center",dim_Y*0.98,dim_X*0.98,
//  get_file_location(page_3[i],2),page_3[i],":"+p[5]+":"+parseInt(i+1)],p);
// (3.2) nom des photos
if (P_showname==1) if (minipage==0) if (fontsize>5) {
s=f_table([,,,[[[[fontsize,,"white"],,page_3[i]]]]]);
s=f_span([coord([pos_Y+dim_Y*0.01,pos_X+dim_X*0.01],page_pos),s]);
document.write(s);}
if (minipage==2) { 
var tmp_imname=page_3[i]; if (photo_VH=="V") tmp_imname=tmp_imname.substring(0,4)+"<BR>"+tmp_imname.substring(4,8);
var tmp_col="lightyellow"; if (i==P_photo-1) tmp_col="yellow";
s=f_table([coord([dim_Y*0.985,dim_X*0.985],page_size),[1],["center","center"],[[[[4*fontsize,,tmp_col,"center"],":"+page_num+":"+parseInt(i+1),tmp_imname]]]]);
s=f_span([coord([pos_Y+dim_Y*0.01,pos_X+dim_X*0.01],page_pos),s]);
document.write(s);}
//draw_main(["text",pos_Y+0.01,pos_X+0.01,,,"top","left",fontsize,"black/white",page_3[i]],p);
// (3.3) copyrights 
if (page_0.length>2) if(page_0[2].length>0) if (page_0[2].split("-").length==page_3.length) if(fontsize>5) {
s=f_table([,,,[[[[fontsize,,"white"],,page_0[2].split("-")[i]]]]]);
s=f_span([coord([pos_Y+dim_Y*0.92,pos_X+dim_X*0.01],page_pos),s]);
if (info_media_type()=="site") document.write(s);} 
//draw_main(["text",pos_Y+dim_Y-0.11,pos_X+0.01,,,"top","left",fontsize,"black/white",page_0[2].split("-")[i]],p);
} else { // mode photo
fontsize=parseInt(22*page_size[0][0]/768);
var i=P_photo-1;
var page_4=page_2[i].split(",");
var photo_VH=page_4[2];
if (photo_VH=="V") {var pos_Y=0; var pos_X=2; var dim_Y=12; var dim_X=8; }
if (photo_VH=="H") {var pos_Y=2; var pos_X=0; var dim_Y=8; var dim_X=12; }
pos_Y=pos_Y/12; pos_X=pos_X/12; dim_Y=dim_Y/12; dim_X=dim_X/12;
s=f_image([coord([dim_Y,dim_X],page_size),page_3[i],"*ret",get_file_location(page_3[i],3)]);
s=f_span([coord([pos_Y,pos_X],page_pos),s]);
document.write(s);
//draw_main(["image",pos_Y,pos_X,dim_Y,dim_X,"center","center",dim_Y*0.99,dim_X*0.99,
//  get_file_location(page_3[i],3),"",":-1"],p);
// nom de la photo
var pos_Y=0; var pos_X=0;
if (photo_VH=="V") {var dim_Y=12; var dim_X=2; }
if (photo_VH=="H") {var dim_Y=2; var dim_X=12; }
dim_Y=dim_Y/12; dim_X=dim_X/12; 
s=f_table([coord([dim_Y,dim_X],page_size),,["center","center"],[[[[fontsize,,"white","center"],,page_3[i]]]]]);
s=f_span([coord([pos_Y,pos_X],page_pos),s]);
document.write(s);
//draw_main(["text",pos_Y,pos_X,dim_Y,dim_X,"center","center",fontsize,"black/white",page_3[i]],p);
}
// textes generaux
if (P_photo==0 || minipage==1) if (minipage<2) if (page_0.length>4) if(page_0[4].length>0) {
var page_5=page_0[4].split(";"); 
for (var i=0;i<page_5.length;i++) {
var gtext=page_5[i].split(",");
fontsize=parseInt(gtext[3]*page_size[0][0]/768);
s=f_table([,,,[[[[fontsize,gtext[2],"white"],,gtext[4]]]]]);
s=f_span([coord([gtext[0],gtext[1]],page_pos),s]);
document.write(s);
//draw_main(["text",gtext[0],gtext[1],,,"top","left",fontsize,gtext[2]+"/white",gtext[4]],p);
}}
}

function main_album() {
// cherche la localisation de la page principale suppose fenêtre plein écran
// donc fenêtre carrée de coté W_Y qui commence au coin en haut à gauche
// teste si album ou photo
if (P_photo==0) var npages=P_npages; else var npages=1;
var page_Y=W_Y/npages;
for (var iy=0;iy<npages;iy++) for (var ix=0;ix<npages;ix++) 
if (P_page+iy*npages+ix-1<A_npages) 
//draw_album_page(["page",iy*page_Y,ix*page_Y,page_Y,page_Y,P_page+iy*P_npages+ix]);
draw_album_page([[iy*page_Y,ix*page_Y],[page_Y,page_Y],P_page+iy*P_npages+ix]);
}

function main_album_A4() {
// dimension pour page A4
// seul pris en compte mode 1 page
P_photo=0; P_npages=0;
var page_X=750; //anc. 710
var page_Y=1050; // anc.1010
draw_album_page([[50,0],[page_X,page_X],P_page,"print"]);
draw_album_page([[820,0],[210,210],P_page,"minipage2"]); // anc. 800,0
s=f_table([[60,500],,["center","center"],[[[[24,,,"center"],,A_titre],[[24,,,"center"],,"Page "+P_page]]]]);
s=f_span([[950,210],s]);
//draw_album_page([[150,0],[page_X,page_X],P_page]);
//draw_album_page([[850,0],[160,160],P_page,"minipage2"]);
//s=f_table([[60,500],,["center","center"],[[[[24,,,"center"],,A_titre],[[24,,,"center"],,"Page "+P_page]]]]);
//s=f_span([[950,210],s]);
document.write(s);
}

function main_group() {
// même remarque
//var p=["group",0,0,W_Y,W_Y];
var page_size=[[W_Y,W_Y]]; var page_pos=[[W_Y,W_Y],[0,0]];
//var fontsize=14;
var fontsize=parseInt(14*page_size[0][0]/768);
// (1) bordure principale
s=f_table([coord([1,1],page_size),[2,"black"],,[[[]]]]);
s=f_span([coord([0,0],page_pos),s]);
document.write(s);
for (var i=0;i<A_groups.length;i++) {
var group=A_groups[i];
if (group[0]=="image") {
var accept=1; if (group.length>10)  if (get_link_color(group[10])=="void") accept=0; 
s=f_image([coord([group[7],group[8]],page_size),,,get_file_location(group[9],1)]);
s=f_span([coord([group[1],group[2]],page_pos),s]);
if (accept==1) document.write(s); }
else if (group[0]=="text") {
var x_font=parseInt(group[7]); x_font=x_font-14+fontsize; x_font=x_font+"pt"; 
s=f_table([coord([group[3],group[4]],page_size),,[group[5],group[6]],[[[[x_font,,,group[6]],,group[8]]]]]);
s=f_span([coord([group[1],group[2]],page_pos),s]);
document.write(s); }
else if (group[0]=="special") { 
var x_font=parseInt(group[7]); x_font=x_font-14+fontsize; x_font=x_font+"pt"; 
var x_text=txt_program()+"<BR>"+txt_site();
s=f_table([coord([group[3],group[4]],page_size),,[group[5],group[6]],[[[[x_font,,,group[6]],,x_text]]]]);
s=f_span([coord([group[1],group[2]],page_pos),s]);
document.write(s);  }
else if (group[0]=="table") { 

//var tstamp0=new Date(); var tstamp1=tstamp0.getMilliseconds()+1000*tstamp0.getSeconds(); 
var accept=1; if (group.length>7)  if (get_link_color(group[7])=="void") accept=0; 
var x_font=parseInt(group[5]); x_font=x_font-14+fontsize; x_font=x_font+"pt"; 
//alert(fontsize);
s=new Array(group[6].length);
for (i1=0;i1<group[6].length;i1++) {
s[i1]=new Array(group[6][i1].length)
for (i2=0;i2<group[6][i1].length;i2++) {
 if (group[6][i1][i2]!=null) {
  var tmp_color=group[6][i1][i2][1];
  var tmp_cursor="default";
  var tmp_album=group[6][i1][i2][2];
  if(tmp_album!="") tmp_color=get_link_color(tmp_album);
  if(tmp_album!="") if (is_link_valid(tmp_album)>-1) tmp_cursor="pointer";
//alert(tmp_album+"=>"+tmp_color);
/*
  if (tmp_color.substring(0,1)!=" ") { tmp_color="white";
    if (is_link_valid(tmp_album)>-1) tmp_color=Z_Colors[0]; else tmp_color=Z_Colors[1];
 // alert(site_info()[2].length);
    for (var ik=2;ik<Z_Colors.length;ik++) 
     { xtmp_color=Z_Colors[ik].split(":")[0]; xtmp_alist=Z_Colors[ik].split(":")[1].split(",");
       for (var il=0;il<xtmp_alist.length;il++) if (xtmp_alist[il]==tmp_album) tmp_color=xtmp_color; } 
    }
*/
  if (tmp_color=="void") if (i2==0) tmp_color="white";
  if (tmp_color=="void") s[i1][i2]=[,,]; else
  s[i1][i2]=[[fontsize,,tmp_color,,,tmp_cursor],group[6][i1][i2][2],group[6][i1][i2][0]]; 
 } else s[i1][i2]=[,,];
}
 // recherche lien de la 1ere colonne de la ligne ...
if (group[6][i1].length>1) {
var tmp2_color="void"; var tmp2_album="void";
for (i2=1;i2<group[6][i1].length;i2++) if (s[i1][i2][0]!=null) {
    var tmp_color=s[i1][i2][0][2];
    var tmp_album=s[i1][i2][1];
    if(tmp_color!="void") if ((tmp2_album=="void") || (is_link_valid(tmp_album)>-1))
          {tmp2_color=tmp_color; tmp2_album=tmp_album;} 
}
s[i1][0][0][2]=tmp2_color; s[i1][0][1]=tmp2_album;
if (tmp2_album=="void") s[i1][0]=[,,];
}
}
//var tstamp0=new Date(); var tstamp2=tstamp0.getMilliseconds()+1000*tstamp0.getSeconds(); 
//var tstamp=tstamp2-tstamp1; if (tstamp<0) tstamp=tstamp+60000; alert(tstamp);

s=f_table([,[1,"black","white"],,s]);
s=f_span([coord([group[1],group[2]],page_pos),s]);
if (accept==1) document.write(s);
}}}

/* ANCIENNE VERSION
function is_link_valid(s) {
var v=-1; 
for (var l=0;l<Z_Albums.length;l++) for (var ll=0;ll<Z_Albums[l].split(":")[0].split(",").length;ll++)
  if (s==Z_Albums[l].split(":")[0].split(",")[ll] || Z_Albums[l].split(":")[0]=="*") { if (l==0) v=0; 
    if (Z_Albums[l].split(":").length>1) 
      { var w=Z_Albums[l].split(":")[1]; if (w==-1) {if (v>0) v=-v;} if (w==0 || w=="") {if (v<0) v=-v;} if (w>0) v=l;}
      else {if (v<0) v=-v;}  
}
if (v>-1) if (Z_Albums[v].split(":")[1]<0) v=-1; 
alert(s+"=>"+v+"<<"+get_main_info_album(s)); return(v);
}
*/
/* ANCIENNE VERSION 
function get_link_color(s) { // return color 
var tmp_album=s;
var tmp_color="void";
    if (is_link_valid(tmp_album)>-1) tmp_color=Z_Colors[0]; else tmp_color=Z_Colors[1];
    for (var ik=2;ik<Z_Colors.length;ik++) 
     { xtmp_color=Z_Colors[ik].split(":")[0]; xtmp_alist=Z_Colors[ik].split(":")[1].split(",");
       for (var il=0;il<xtmp_alist.length;il++) if (xtmp_alist[il]==tmp_album) tmp_color=xtmp_color; } 
alert(s+"=>"+tmp_color+"<<"+get_main_info_album(s));
return(tmp_color);
}
*/



function main_column() {
// même remarque 
// var p=["column",0,W_Y,W_Y,W_X-W_Y];
var col_size=[[W_Y,W_X-W_Y]]; var col_pos=[[W_Y,W_X-W_Y],[0,W_Y]];
var maincol_font=14;
var maincol_font2=11;
if (W_Y<750) { maincol_font=12; maincol_font2=10; }
// (1) Fermer la fenêtre
var version="(c) B. Steenis ver "+f_version()+" ["+W_X+"x"+W_Y+"]";
s=f_table([coord([0,1],col_size),[1],,[[[[maincol_font2,,,"center",,"default"],,version],[[11,,"red","center",,"pointer"],"*close","X"]]]]);
s=f_span([coord([0,0],col_pos),s]);
document.write(s);
//draw_main(["text",0,0,,1,"center","center",15,"black/white","Essai"],p);
//alert(A_album);
//alert("Page "+P_page+"/"+A_npages+" - Total : "+A_nphotos+" photos");
// (2) Informations
s=[];
if (A_type=="group") s=[[[[maincol_font,,"yellow","center",,"default"],,A_name]]]; // nom de l'album
if (A_type=="album") s=[[[[maincol_font,,"yellow","center",,"default"],,A_titre]],
  [[[maincol_font,,"yellow","center",,"default"],,"Page "+P_page+"/"+A_npages+" - Total : "+A_nphotos+" photos"]]];
s=f_table([coord([0,1],col_size),[1],,s]);
s=f_span([coord([0.03,0],col_pos),s]);
document.write(s);
// (3) Fenêtre de saisie
s="<input type=text name=xuser><input type=submit value='' onclick=go_click(xuser.value)>";
s=f_table([coord([0,1],col_size),[1],,[[[[maincol_font,,"red","center"],,s]]]]);
s=f_span([coord([0.13,0],col_pos),s]);
document.write(s);
// (4) Liens Valides
var links=A_album[3].split(",");
var nlinks=0;
for (var i=0;i<links.length;i++) {
//var linkvalid=-1; for (var l=0;l<Z_Albums.length;l++) if (links[i]==Z_Albums[l].split(":")[0]) linkvalid=l;
if (is_link_valid(links[i])>-1) nlinks++; }
// affiche seulement le premier en mode photo
if (A_type=="album") if (P_photo>0) if (nlinks>2) nlinks=2;
if (A_type=="album") if (P_mode>1) if (nlinks>2) nlinks=2;
s=new Array(nlinks);
var thislink=0;
for (var i=0;i<links.length;i++) {
//var linkvalid=-1; for (var l=0;l<Z_Albums.length;l++) if (links[i]==Z_Albums[l].split(":")[0]) 
//{ linkvalid=l; var linkname=Z_Albums[l].split(":")[2]; }
var linkvalid=is_link_valid(links[i]);
if (linkvalid>-1) { var linkname=get_album_name(links[i]); //Z_Albums[linkvalid].split(":")[2];
if (thislink<nlinks) s[thislink]=[[[maincol_font,,"pink","center",,"pointer"],links[i],linkname]]; 
thislink++; }}
s=f_table([coord([0,1],col_size),[1],,s]);
s=f_span([coord([0.18,0],col_pos),s]);
document.write(s);

// (5) fabrication de la table complete
A_oldnchap=A_nchap;
if (A_type=="album") if (P_mode==5 || P_mode==2 || P_mode==3 || P_mode==6) if (P_photo==0) {
// Maximum par ligne
var thisfont=13; thisfont=maincol_font2;
var parligne=parseInt(col_size[0][1]/24);
var nbrligne=parseInt(1+(A_npages-1)/parligne);
if (P_mode==2) A_nchap=0;
var displigne=nbrligne+2*A_nchap; 
if (P_mode==3) displigne=A_nchap;
s=new Array(displigne); for (i=0;i<displigne;i++) s[i]=[[,,]];
var currentpage=1 ; var currentchap=0; var dispchap=1; var currentdispline=0;
for (i=0;i<displigne;i++) {
if (A_nchap>0) var chapname=A_chap[currentchap].split(":")[1]; else dispchap=0; 
if (A_nchap>0) var chappage=parseInt(A_chap[currentchap].split(":")[0]); else var chappage=1; 
if (A_nchap>0) { if (currentchap==A_nchap-1) var nextchappage=A_npages+1; else var nextchappage=parseInt(A_chap[currentchap+1].split(":")[0]) }
               else var nextchappage=A_npages+1; 
if (dispchap==1) {
var thiscolor="lightcyan"; 
s[i]=[[[thisfont,,thiscolor,"left"],":"+parseInt(chappage)+":0",chapname,parligne-1],[[thisfont,,thiscolor,"right"],":"+parseInt(chappage)+":0",chappage,1]];
if (P_page>chappage-1) if (P_page<nextchappage) { s[i][0][0][2]="cyan"; currentdispline=i; }
if (P_mode==3 || (P_mode==5 && (P_page<chappage || P_page>nextchappage-1)) ) 
  { currentpage=nextchappage; dispchap=1; currentchap=currentchap+1; 
  if (currentchap>A_nchap-1) {  var lastligne=i; i=displigne; } } else dispchap=0;
} else  {
s[i]=new Array(parligne); for (var j=0;j<parligne;j++) {
thisnum=currentpage+j-1;
if (thisnum<nextchappage-1)  
  s[i][j]=[[maincol_font2,,"lightyellow","center",,"pointer"],":"+parseInt(thisnum+1)+":0",thisnum+1];
  else s[i][j]=[,,]; 
if (thisnum+2>P_page) if (thisnum+1<P_page+P_npages*P_npages) if (thisnum<nextchappage-1) { s[i][j][0][2]="yellow"; currentdispline=i; } 
} 
currentpage=currentpage+parligne;
if (currentpage>nextchappage-1) { currentpage=nextchappage; dispchap=1; currentchap=currentchap+1; 
if (currentchap>A_nchap-1) {var lastligne=i; i=displigne; } }
} } 
var maxtblline=20; maxtblline=parseInt(W_Y/35); // alert(maxtblline);
if (lastligne<maxtblline) { var s2=new Array(lastligne+1); for (var i=0;i<lastligne+1;i++) s2[i]=s[i]; }
 else                     { var debutligne=currentdispline-parseInt(maxtblline/2); if (debutligne<0) debutligne=0; 
                                                                         if (debutligne>lastligne-maxtblline) debutligne=lastligne-maxtblline;
                            var s2=new Array(maxtblline+1); for (var i=0;i<maxtblline+1;i++) s2[i]=s[i+debutligne]; }  
s=f_table([coord([0,1],col_size),[1],,s2]); 
s=f_span([coord([0.26,0],col_pos),s]);
document.write(s); }
A_nchap=A_oldnchap;

/*
// (5A) Table des matières - max 18 entrées
var maxtmat=22;
var thisfont=13;
if (A_type=="album") if (P_mode==3) if (P_photo==0) {
if (A_nchap>0) / *if (A_nchap<maxtmat+1)* / { // code chapitres > 18 plus tard
// on determine le chap courant
var thischap=0;
for (var i=0;i<A_nchap;i++) {var chappage=parseInt(A_chap[i].split(":")[0]); if (P_page>=chappage) thischap=i; } 
if (A_nchap<maxtmat+1) { var chap1=0; var chap2=A_nchap; }  
 else { if (thischap<maxtmat/2) {var chap1=0; var chap2=maxtmat;} 
  else if (thischap>A_nchap-maxtmat/2) {var chap2=A_nchap; var chap1=A_nchap-maxtmat;  } 
  else { var chap1=thischap-maxtmat/2; var chap2=thischap-maxtmat/2+maxtmat; } }
s=new Array(chap2-chap1);
for (var i=chap1;i<chap2;i++) { 
var chapname=A_chap[i].split(":")[1]; 
var chappage=parseInt(A_chap[i].split(":")[0]);
//if (i<A_nchap-1) var chappps=parseInt(A_chap[i+1].split(":")[0]); else var chappps=A_npages+1;
if / *(P_page>=chappage && P_page<chappps)* / (i==thischap) var thiscolor="yellow"; else var thiscolor="lightyellow";
s[i-chap1]=[[[thisfont,,thiscolor,"left"],":"+parseInt(chappage)+":0",chapname],[[thisfont,,thiscolor,"right"],":"+parseInt(chappage)+":0",chappage]];
}
s=f_table([coord([0,1],col_size),[1],,s]);
s=f_span([coord([0.26,0],col_pos),s]);
document.write(s); }}
*/
/*
// (5B) Tableau des pages
if (A_type=="album") if (P_mode==2) if (P_photo==0) {
// Maximum par ligne
var parligne=parseInt(col_size[0][1]/24);
var nbrligne=parseInt(1+(A_npages-1)/parligne);
var displigne=nbrligne;
var maxligne=23; var startnum=0; var demiligne=parseInt(maxligne/2);
if (nbrligne>maxligne) { 
var currentline=parseInt(1+(P_page-1)/parligne);
if (currentline>demiligne) startnum=currentline-demiligne;
if (nbrligne-currentline<demiligne) startnum=nbrligne-maxligne;  
displigne=maxligne; }
s=new Array(displigne);
for (var i=0;i<displigne;i++) {
s[i]=new Array(parligne);
for (var j=0;j<parligne;j++) {
var thisnum=i*parligne+j+startnum*parligne;
if (thisnum<A_npages)  
  s[i][j]=[[11,,"lightyellow","center"],":"+parseInt(thisnum+1)+":0",thisnum+1];
  else s[i][j]=[,,]; 
if (thisnum+2>P_page) if (thisnum+1<P_page+P_npages*P_npages) if (thisnum<A_npages) s[i][j][0][2]="yellow"; }}
if (startnum>0) s[0][0]=[[11,,"cyan","center"],":1:0",1];
if (startnum+maxligne<nbrligne) s[displigne-1][parligne-1]=[[11,,"cyan","center"],":"+A_npages+":0",A_npages];
s=f_table([coord([0,1],col_size),[1],,s]);
s=f_span([coord([0.26,0],col_pos),s]);
document.write(s); }
*/

// (5C) Mini-pages
if (A_type=="album") if (P_photo>0) { 
var minipage_size=coord([0.295,0.9],col_size); if (minipage_size[1]<minipage_size[0]) minipage_size[0]=minipage_size[1]; else minipage_size[1]=minipage_size[0];
var minipage_pos=coord([0.56,0.05],col_pos);
draw_album_page([minipage_pos,minipage_size,P_page,"minipage"]);
var minipage_size=coord([0.295,0.9],col_size); if (minipage_size[1]<minipage_size[0]) minipage_size[0]=minipage_size[1]; else minipage_size[1]=minipage_size[0];
var minipage_pos=coord([0.26,0.05],col_pos);
draw_album_page([minipage_pos,minipage_size,P_page,"minipage2"]);
//alert (minipage_pos);
}
if (A_type=="album") if (P_photo==0) if (P_mode==4) {
var minipage_size=coord([0.295,0.9],col_size); if (minipage_size[1]<minipage_size[0]) minipage_size[0]=minipage_size[1]; else minipage_size[1]=minipage_size[0];
var minipage_pos=coord([0.56,0.05],col_pos);
if (P_page<A_npages) draw_album_page([minipage_pos,minipage_size,P_page+1,"minipage"]);
var minipage_size=coord([0.295,0.9],col_size); if (minipage_size[1]<minipage_size[0]) minipage_size[0]=minipage_size[1]; else minipage_size[1]=minipage_size[0];
var minipage_pos=coord([0.26,0.05],col_pos);
if (P_page>1) draw_album_page([minipage_pos,minipage_size,P_page-1,"minipage"]);
//alert (minipage_pos);
} 
// (6bis) mini table pages
if (A_type=="album") if (P_photo==0) {
var parligne=parseInt(col_size[0][1]/24);
if (parligne>9) var specligne=2; else if (parligne>5) var specligne=1; else var specligne=0;
s=new Array(1); 
s[0]=new Array(5+specligne*4); 
for (var i=1;i<specligne+1;i++) {
s[0][i]=[[thisfont,,"lightcyan","center",,"pointer"],":"+parseInt(1+i)+":0","+"+i]; 
s[0][4+specligne*4-i]=[[thisfont,,"lightcyan","center",,"pointer"],":"+parseInt(A_npages-i)+":0","- "+i];
s[0][2+specligne*2-i]=[[thisfont,,"lightyellow","center",,"pointer"],":"+parseInt(P_page-i)+":0","- "+i];
s[0][2+specligne*2+i]=[[thisfont,,"lightyellow","center",,"pointer"],":"+parseInt(P_page+i)+":0","+"+i]; }
s[0][0]=[[thisfont,,"cyan","center",,"pointer"],":1:0","001"];
var thispage=A_npages+"."; if (A_npages<10) thispage="0"+thispage; if (A_npages<100) thispage="0"+thispage;
s[0][4+specligne*4]=[[thisfont,,"cyan","center",,"pointer"],":"+parseInt(A_npages)+":0",thispage.substring(0,3)];
var thispage=P_page+"."; if (P_page<10) thispage="0"+thispage; if (P_page<100) thispage="0"+thispage;
s[0][2+specligne*2]=[[thisfont,,"yellow","center",,"pointer"],,thispage.substring(0,3)];
s[0][1+specligne]=[]; s[0][3+specligne*3]=[]; 
s=f_table([coord([0,1],col_size),[1],,s]); 
s=f_span([coord([0.86,0],col_pos),s]); //anc 0.87
document.write(s); 
}
// (6) boutons
//var s1=[,,"lightyellow","center"];
//var s2=[,,"pink","center"];
if (A_type=="album") {
/*
s=[[ [[,,"lightyellow","center"],"*p:1","[1]"],[[,,"lightyellow","center"],"*p:2","[4]"],[[,,"lightyellow","center"],"*p:3","[9]"] ],
   [ [[,,"pink","center"],"*-1","<<"],[[,,"lightyellow","center"],"*num","NUM"],[[,,"pink","center"],"*+1",">>"]] ,
   [ [[,,"pink","center"],"*--","<<<<"],[[,,"lightyellow","center"],"*mod","MOD"],[[,,"pink","center"],"*++",">>>>"]] ];
if (P_photo==0) s[0][P_npages-1][0][2]="yellow";
if (P_showname==1) s[1][1][0][2]="yellow";
if (P_mode==1) s[2][1][0][2]="yellow";
*/
thiswidth=col_size[0][1]/4;
s=[[ [[maincol_font,,"lightyellow","center",thiswidth,"pointer"],"*p:1","[1]"],
     [[maincol_font,,"lightyellow","center",thiswidth,"pointer"],"*p:2","[4]"],
     [[maincol_font,,"lightyellow","center",thiswidth,"pointer"],"*p:3","[9]"],
     [[maincol_font,,"lightyellow","center",thiswidth,"pointer"],"*num","NUM"] ],
/*
   [ [[maincol_font,,"lightcyan","center"],"*m:1","Liens"],
     [[maincol_font,,"lightcyan","center"],"*m:2","Pages"],
     [[maincol_font,,"lightcyan","center"],"*m:3","Chaps"],
     [[maincol_font,,"lightcyan","center"],"*m:4","Minis"] ],
*/
   [ [[maincol_font,,"lightcyan","center",,"pointer"],"*m:x3","Chaps"],
     [[maincol_font,,"lightcyan","center",,"pointer"],"*m:x2","Pages"],
     [[maincol_font,,"lightcyan","center",,"pointer"],"*m:x1","   "],
     [[maincol_font,,"lightcyan","center",,"pointer"],"/*/","Diapo"] ],

   [ [[maincol_font,,"pink","center",,"pointer"],"*--","<<"],
     [[maincol_font,,"pink","center",,"pointer"],"*-1","<"],
     [[maincol_font,,"pink","center",,"pointer"],"*+1",">"],
     [[maincol_font,,"pink","center",,"pointer"],"*++",">>"] ] ];
s[0][P_npages-1][0][2]="yellow";
//if (P_mode>0) s[1][P_mode-1][0][2]="cyan";
/* modes : 1=> rien
           2=> pages seules 
           3=> chapitres seuls
           4=> miniatures, osolete
           5=> chapitres, pages dans chapitres uniq.
           6=> chapitres, toutes pages
*/
if (P_mode==2 ) s[1][1][0][2]="cyan";
if (P_mode==3 ) s[1][0][0][2]="cyan";
if (P_mode==5 ) { s[1][0][0][2]="cyan"; s[1][1][0][2]="cyan"; }
if (P_mode==6 ) { s[1][0][0][2]="cyan"; s[1][1][0][2]="cyan"; s[1][2][0][2]="cyan";}
if (P_delay>0)  s[1][3][0][2]="cyan";
if (P_showname==1) s[0][3][0][2]="yellow";
s=f_table([coord([0,1],col_size),[1],,s]);
s=f_span([coord([0.89,0],col_pos),s]);  // anc 0.90
document.write(s); }	
}


function main_body(s) { 
EXEC_Curr="body";
if (X_frame==2) {
document.write("<BODY>");
get_window_resolution();
get_album_infos();
if (P_special=="print") {
if (A_type=="album") main_album_A4();
} else {
if (A_type=="album") main_album();
if (A_type=="group") main_group();
main_column(); }
document.write("</BODY>");
document.onkeydown = arrowPress; 
if (P_delay>0) { var PP_DA="go_click('"+P_delayaction+"')"; setTimeout(PP_DA,P_delay); }
}
if (X_frame==0) {
document.write("<BODY>");
get_window_resolution();
get_album_infos();
document.write("<HR>");
document.write("Si vous ne voyez rien d'autre que cette fenêtre, le problème est que vous devez autoriser l'ouverture de fenêtre 'popup'.<br>");
document.write("Si vous ne savez comment faire, vous pouvez utiliser la procédure suivante : <br>");
document.write("1. Maximisez cette fenêtre (pour un meilleur résultat, appuyez ensuite sur [F11])<br>");
document.write("2. Cliquez sur le lien suivant :");

var s=[[ [[,,"lightyellow","center",150],"*FRAME1","ICI"] ]];

s=f_table([coord([0,1],150),[1],,s]);
//s=f_span([coord([0.90,0],0),s]);
document.write(s);
document.write("<HR>");
}
if (X_frame==3) {
document.write("<BODY>");
get_window_resolution();
get_album_infos();
// (3) Fenêtre de saisie
s="<input type=text name=xuser size=50><input type=submit value='' onclick=go_click(xuser.value)>";
// s=f_table([coord([0,1],[[0,250]]),[1],,[[[[,,"orange","center"],,s]]]]);
// s=f_span([coord([0,0],0),s]);
document.write(s);
document.write("</BODY>");
document.onkeydown = arrowPress; 
if (P_delay>0) { var PP_DA="go_click('"+P_delayaction+"')"; setTimeout(PP_DA,P_delay); }
}
}