function cassini(carte,coord,colnb,flag) {
/* ============================================================
  Ce script a été réalisé par Jean-François BAQUET pour Gedail
 toute autre utilisation réclame son accord.
  Remerciements à David JOURDAN et Sylvain CHARDON pour les 
 informations sur Gallica
=============================================================== */
/* blocage avec Internet explorer en remote à déboguer */
	maxx = new Array(0,23,15,18,15,21,20,17,16);
	maxy = new Array(0,15,23,15,19,15,15,15,15);
	minx1 = new Array(0,7,15,14,3,3,9,11,2);
	miny1 = new Array(0,5,7,7,9,6,6,8,9);
	if (colnb == 'n-b') {
	incs = new Array(0,1,1,2,3,4,5,175,5,5,173,173,173,173,173,173,173,173,173,173,173,174,174,174,174,174,174,174,174,6,173,173,173,173,173,173,173,173,173,173,173,174,174,174,174,174,174,174,7,8,6,171,171,171,171,171,171,171,171,171,172,172,172,172,172,8,171,171,171,171,171,171,171,171,171,171,171,171,171,171,171,171,171,171,171,171,8,8,169,169,169,169,169,169,169,169,169,169,8,168,168,168,168,168,168,168,168,168,168,169,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,171,11,170,170,170,170,170,163,169,169,169,169,169,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,170,0,169,169,169,169,169,10,168,168,168,169,170,170,172,173,174,18,37,53,98,99,130,156);
        types = new Array(0,1,0,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,2,2,1,1,1,2);
	lastl = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,56,0,0,0,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,0,0,40,0,0,0,0,0,0,0,0,0,0,0,42,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,0,0,35,0,0,0,0,0,0,0,0,0,21,0,28,0,0,0,0,0,0,0,0,0,0,0,0,0);
	lasth = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
	var nbcol = 'couleur';		         
	var alt = '-> Couleur';
	}
	else {
	incs = new Array(0,0,1,1,2,3,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,7,7,7,7,7,7,7,7,8,6,7,7,7,7,7,7,7,7,7,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,9,6,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,9,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,10,11,11,11,11,11,11,11,3,10,10,10,10,10,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,0,10,10,10,10,10,10,10,10,10,10,169,171,171,172,173,-150,-130,-111,-62,-61,-29,-1);
        types = new Array(0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,3,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,2,2,2,2,2,1,1,1,1,1,1,1,1,5,4,1,1,1,1,1,1,1,1,1,1,1,0,1,1,5,5,6,2,2,7,7,1,1,1,4,8,4,1,1,1,1,4,1,2);
	lastl = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,88,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,172,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,172,184,24,0,0,24,24,0,0,0,0,212,0,0,0,0,0,0,0,0);
	lasth = new Array(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,104,0,0,0,0,0,0,0,0,0,0,0,0,0,0,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,92,0,116,0,0,0,0,68,0,0);
	var nbcol = 'n-b';
	var alt = '-> Noir et Blanc';
	}
	var num = Number(carte);
	if (num > 182 || num < 1 || num == 160) { 
		window.alert("La carte " + carte + " n'existe pas"); return; 
	}
	if ( coord.length < 3 || coord.length > 5 ) { window.alert("Coordonnées " + coord + " incorrectes"); return; }
	var tiret = coord.indexOf("-");
	if ( tiret < 0) { window.alert("Coordonnées " + coord + " incorrectes"); return; }
	var x = Number(coord.slice(0,tiret));
	var y = Number(coord.slice(tiret+1));
	if ( x > maxx[types[num]]  || y > maxy[types[num]]) { window.alert("Coordonnées " + coord + " incorrectes"); return; }
	if (x == 0) { x = 1; }
	if (x == maxx[types[num]]) { x = maxx[types[num]]-1; }
	if (y == 0) { y = 1; }
	if (y == maxy[types[num]]) { y = maxy[types[num]]-1; }
	img = new Array(3); cur = new Array(3); sizex = new Array(3); sizey = new Array(3); sdir = new Array(3);
	for (i=0; i < 3; i++) { img[i] = new Array(3); cur[i] = new Array(3); sizex[i] = new Array(3); sizey[i] = new Array(3); sdir[i] = new Array(3); }
	cur[0][0] = 'nw-resize'; cur[0][1] = 'n-resize'; cur[0][2] = 'ne-resize';
	cur[1][0] = 'w-resize'; cur[1][1] = 'crosshair'; cur[1][2] = 'e-resize';
	cur[2][0] = 'sw-resize'; cur[2][1] = 's-resize'; cur[2][2] = 'se-resize';
	decal = new Array(3); decal[0] = -1; decal[1] = 0; decal[2] = +1; 
	var xn = 0; var yn = 0; 
	var wwidth = 35;
	var wheight = 30;
	var reduc = 93/100;
	if (screen.width >= 800  && screen.height > 800) { reduc = 1; }
	if (screen.width <= 800  && screen.height <= 600) { reduc = 600/800; }
	for (i=0; i < 3; i++) {
	   yn = y + decal[i]; 
	   for (j=0; j < 3; j++) {
		xn = x + decal[j];
		if (yn < miny1[types[num]] || (yn == miny1[types[num]] && xn < minx1[types[num]])) { sdir[i][j] = '0'; }
		else { 
		   if ( (xn == 23 && yn == 15) || (xn == 15 && yn == 23) ) { sdir[i][j] = '2'; }
		   else { sdir[i][j] = '1'; }
		}
/* window.alert(xn + "-" + yn + " num " + num + " type " + types[num] + " minx1 " + minx1[types[num]] + " miny1 " + miny1[types[num]] + " -> " + sdir[i][j] ); return; */
		img[i][j] = String(xn) + '-' + String(yn);
		if ( xn == maxx[types[num]] ) { sizex[i][j] = Math.round(reduc*(256-lastl[num])); }
		else { sizex[i][j] = Math.round(reduc*256); }
		if (i == 0) { wwidth += sizex[i][j]; }
		if ( yn == maxy[types[num]] ) { sizey[i][j] = Math.round(reduc*(256-lasth[num])); }
		else { sizey[i][j] = Math.round(reduc*256); }
		if (j == 0) { wheight += sizey[i][j]; }
	   }
	}
	var dir = "http://gallica.bnf.fr/Fonds_ImagesZoom/077/07711";
	num = incs[num]+num+503;
	fenetreImg = window.open("","_blank",'menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=no,resizable=yes,copyhistory=no,top=0,width=' + wwidth  + ',height=' + wheight ); 
	fenetreImg.document.write('<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">\n');
	fenetreImg.document.write('<HTML><HEAD><TITLE>Carte de Cassini n&deg;' + carte + ' ' + coord + ' du site gallica.bnf.fr</TITLE>\n');
  if (navigator.appName.substring(0,9) != 'Microsoft') { 
	fenetreImg.document.write('<SCRIPT LANGUAGE=\'javascript\' TYPE=\'text/javascript\' SRC=\'cassini.jvs\'></SCRIPT>\n'); 
	fenetreImg.document.write('</HEAD><BODY BGCOLOR="#F0F0F0"><CENTER>\n');
	for (i=0; i < 3; i++) { 
	    for (j=0; j < 3; j++) { 
		if ( i == 1 && j == 1) {
			fenetreImg.document.write('<A HREF="javascript:cassini(\'' + carte + '\',\'' + img[1][1] + '\',\'' + nbcol + '\',\'1\')">');
			fenetreImg.document.write('<IMG WIDTH='+ sizex[1][1] + ' HEIGHT='+ sizey[1][1] + '  STYLE="cursor:' + cur[1][1] + '" SRC="'+ dir + num + '/0000001/TileGroup' + sdir[1][1] + '/5-' + img[1][1] + '.jpg" BORDER=0 ALT="' + alt + '"></A>');
		 }
		 else {
			fenetreImg.document.write('<A HREF="javascript:cassini(\'' + carte + '\',\'' + img[i][j] + '\',\'' + colnb + '\',\'1\')">');
			fenetreImg.document.write('<IMG WIDTH='+ sizex[i][j] + ' HEIGHT='+ sizey[i][j] + '  STYLE="cursor:' + cur[i][j] + '" SRC="'+ dir + num + '/0000001/TileGroup' + sdir[i][j] + '/5-' + img[i][j] + '.jpg" BORDER=0 ALT="->Cassini ' + carte + '-' + img[i][j] + '"></A>');
		 }
	    }
	}
  } else {
  /* Internet Explorer est un gros tas de m.. */
	fenetreImg.document.write('</HEAD><BODY BGCOLOR="#F0F0F0"><CENTER>\n');
	for (i=0; i < 3; i++) { 
	    for (j=0; j < 3; j++) { 
		if ( i == 1 && j == 1) {
			fenetreImg.document.write('<IMG WIDTH='+ sizex[1][1] + ' HEIGHT='+ sizey[1][1] + '" SRC="'+ dir + num + '/0000001/TileGroup' + sdir[1][1] + '/5-' + img[1][1] + '.jpg" BORDER=0>');
		 }
		 else {
			fenetreImg.document.write('<IMG WIDTH='+ sizex[i][j] + ' HEIGHT='+ sizey[i][j] + '" SRC="'+ dir + num + '/0000001/TileGroup' + sdir[i][j] + '/5-' + img[i][j] + '.jpg" BORDER=0>');
		 }
	    }
	}
  }
	fenetreImg.document.write('\n</CENTER></BODY></HTML>');
	fenetreImg.document.close();
	if (flag == 1) { close(); }  
	return;
}