// Write the top of each Web page in the genealogy var firstfield = ""; var aT="@"; var m2="mailto:"; function eM(a1,a2){eMwin=window.open(m2+a1+aT+a2,"eMw"); eMwin.close(); return} //Mail me. function w(str){document.writeln(str)} w(''); //w(''); w(''); w(''); w('

'); w('

The Genealogy of Walter Gilbert

'); w(title+'

'); if (name1 != "") w(' '+name1+'
'); if (name2 != "") w(' '+name2); w('

'); w('

'); // Calc. on which tree page this ancestor belongs t8 = new Array(); for(i=0; i<7; i++){t8[i] = 2*Math.pow(8,i)}; //1, 8, 64, 512,... id = 2*Math.floor(parseInt(fullid)/2); for(i=1; i<7; i++) if(id < t8[i]) break; for(j=1; j<4; j++){ if(id < t8[i-1]) break; id = Math.floor(id/2)} strid = "00000000"+id; strid = "t"+strid.substring(strid.length-7,99)+".htm" // Write out the little window with links to either // (if no frames) The pedigree tree entry for this person (or ancestor) and the index page // (if in frames) Only the pedigree tree entry for this person (or ancestor) w('
'); if (parent.frames.length == 0) w('Full Index
'); w("Ancestral tree".link(strid)+'
');