/////////////////////////////////////////////////////////////////
// PIANO CHORD NAME FINDER 37 in JAVASCRIPT Version 4.01
// by Jim Cranwell (cranwell(at)yahoo.com)
// This program is Copyright 2005 by Jim Cranwell.
// You may not reprint or redistribute this code.
//////////////////////////////////////////////////////////////////
var remote = null;
function rs(u,n,h,w,s){
if (remote != null){
if (!remote.closed){remote.close();}}
remote=window.open(u,n,'height='+h+',width='+w+',left=5,top=5,resizable=yes,scrollbars='+s);}
var nameit="";
var titleit="";
var pnamex = " ";
function titler(){titleit=window.prompt("name or title?",titleit);}
function newin(num,pr){
var wingen = window.open("", "wingen", "scrollbars=yes,toolbar=no,menubar=no,resizable=yes,top=5,left=5,width=750,height=450");
var gen = wingen.document;
gen.open("text/html", "replace");wingen.focus();
if (titleit.length>0){gen.write("" +titleit+ "");}
else{gen.write("" +chordname[0]+"");}
gen.write("");
gen.write("");
gen.write("");
gen.write("");
gen.writeln(" http://www.gootar.com/piano ~~~ " + titleit + " ~~~ ");
gen.write("
");
gen.writeln(" piano chord chart");
gen.writeln("
");
gen.writeln(" octothorpe |#| dash = sharp or flat ");
gen.writeln("| tb vb ds jz kl enk no msg " +Date()+ " |");
gen.writeln(" print this page");
gen.write("");
gen.close(); }
var fix = 7;
var zz = 0;
var toon = "EADGBE";
var pr = 0;
var num = new Array();
num[0] = new Array();
var prst = new Array();
var notead = new Array();
prst[0] =24; // xxxx36
var pptsx = new Array();
var aaa = "1";
var chordname = new Array();
chordname[pr] = "";
var chordnotes = new Array();
chordnotes[pr] = "";
var lefty = " ";
var pink = 0;
var Q2 = " ";
// 3 7 10 spaces
var z = 1;
var w = 0;
var tlv =0;
var flagit = 1
var notes = new Array("","-9 ","add9 ","m ","","","flat5 ","","aug5 ","","7th ","maj7 ")
var mmm = new Array(0, 1, 2,3, 4, 5,6,7, 8, 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24);
var fixit= new Array(25,1,26,3,27,28,6,29,8,30,10,31,32,13,33,15,34,35,18,36,20,37,22,38,39);
var pfixit=new Array(14,0,15,1,16,17,3,18,4,19, 5,20,21, 7,22, 8,23,24,10,25,11,26,12,27,28);
var tttt = new Array(1,0,0,0,1,0,0,1,0,0,0,0);
var ttt = new Array(0,0,0,0,0,0,0,0,0,0,0,0);
var tt = new Array(0,0,0,0,0,0,0,0,0,0,0,0);
var num2 = new Array();
for (j=0;j<25;j++) {num2[j]=88;}
var P = new Array("C ","C# ","D ","Eb ","E ","F ","F# ","G ","G# ","A ","Bb ","B ","C ");
var pam = new Array("R","d2","2","m3","3","4","d5","5","a5","6","b7","7")
P[20] = ".";
var Q1 = new Array();
for (j=0;j<25;j++) {Q1[j]=".";}
var Q2 = "";
var rrr=1;
var sss=1;
function fs(fff){rrr=0;
//if (document.forms.prima.shownote.checked==1){rrr=1; alert(rrr)}
if (fff=='1'){P = new Array("C ","C# ","D ","D# ","E ","F ","F# ","G ","G# ","A ","A# ","B ","C ")}
if (fff=='0'){P = new Array("C ","Db ","D ","Eb ","E ","F ","Gb ","G ","Ab ","A ","Bb ","B ","C ")}
P[20] = ".";
Q2 = "";
for(j=0; j<25; j++){ //leave12
if(num2[j]!=88){Q1[j] = P[(mmm[j])%12]; }; Q2 = Q2+ Q1[j];
}//forj
document.forms.prima.res9.value =Q2;
//window.alert(ttt)
if (flagit !=2) {binaar(ttt)};
}//fs
var zzzz = 0;
//var capolist = "s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,black37,white37,blue37,green37,red37,white17,white6726,white8"
function number(z ,k) { flagit = 3;
if (document.forms.prima.onmousex2.checked==1 && k=='3'){
jjj=z; k='5'; playit(z);
if (pptsx[aaa]=='-1'){
pptsx[aaa]= eval(z); stoptimer();
if ((ppts[aaa]%12)==(pptsx[aaa]%12)){stt = stt + (stoptime - startime)};
// 25 26 27 28 29 30 31 32 33
//black,white,blue,green,red,white26,white40,white12,purple.gif
// db black db2 white
if (aaa>0){jjj=fixit[ppts[aaa-1]];
if (jjj<25) {document.images[jjj+fix].src=imageDB[25].src;} // bl
if (jjj>=25){document.images[jjj+fix].src=imageDB[26].src;} // wh
}//
document.forms.prima.res3.value = "Correct was " + P[ppts[aaa]%12]
document.forms.prima.res4.value = " You Picked " + P[pptsx[aaa]%12]
document.images[fixit[ppts[aaa]]+fix].src=imageDB[27].src; //blucorcomp
//document.images[2+fix-18].src=inote[ppts[aaa]+ifix+sf].src;
if ((ppts[aaa])==(pptsx[aaa])){
document.images[fixit[ppts[aaa]]+fix].src=imageDB[28].src;
document.images[fixit[pptsx[aaa]]+fix].src=imageDB[28].src; }// gcor
else if ((ppts[aaa]%12)==(pptsx[aaa]%12)){
document.images[fixit[ppts[aaa]]+fix].src=imageDB[33].src;
document.images[fixit[pptsx[aaa]]+fix].src=imageDB[33].src; }// poct
else {document.images[fixit[pptsx[aaa]]+fix].src=imageDB[29].src;}// rincuser
}//if
return false}//;
//alert(k)
// alert(z);//alert("zz="+zz);alert(fixit[z]);
if (fixit[z]<25) {zz=0;}
if (fixit[z]>=25){zz=1;}
tlv=0;
if (z-w < 0) {tlv=12;} //xxxx24
if(document.forms.prima.shownote.checked==1){rrr=sss=(z+tlv-w)%12} else {rrr=27; sss=28}
if ((z=='72')&&(k=='4')){for(b=0;b<(25);b++){num2[b]=88;} //forb
for(j=0;j<(25);j++){ // 13 14
if (fixit[j]<25) {document.images[fixit[j]+fix].src=imageDB[25].src;}
if (fixit[j]>=25){document.images[fixit[j]+fix].src=imageDB[26].src;}
Q1[j]="."; }//forj
clearit(); z=0; k=='2'; }//if72
//was12
if (k=='1'){document.forms.prima.res7.value =P[(mmm[z%12])];}
if ((num2[z]!=88) && (k=='1') && (document.forms.prima.dur.selectedIndex!=5)){ playit(z);}
//on click and somethng already there.... erase it
if (((num2[z])!=(88))&&(k=='3')){ k=2;
if (num2[fixit[z]]< 25){document.images[fixit[z]+fix].src=imageDB[25].src;}
if (num2[fixit[z]]>=25){document.images[fixit[z]+fix].src=imageDB[26].src;}
num2[z]=88; zip(z,k); binaar(ttt);
}//ifnum2z
if (num2[z]==z){
if(k=='1'){ document.images[fixit[z]+fix].src=imageDB[29].src;}
if(k=='2' && zz=='0'){ document.images[fixit[z]+fix].src=imageDB[sss].src;}
if(k=='2' && zz=='1'){ document.images[fixit[z]+fix].src=imageDB2[sss].src;}
} //num2[z]
if ((num2[z])!=((mmm[z]))){ docit(z,k) ;}
//washere
if (k=='3'){ if (document.forms.prima.dur.selectedIndex!=5) {playit(z);}; binaar(ttt); }
//return z%6; alert(num2);alert(z);
}//number
function docit(z,k){ // alert(num2) // alert((z+24-w+zz)%24);black25,white37,blue37,green37,red37
if (num2[z]==88){ Q1[z] = P[20];}
if ((k=='1')&&(fixit[z]< 25)){document.images[fixit[z]+fix].src=imageDB[rrr].src; }
if ((k=='1')&&(fixit[z]>=25)){document.images[fixit[z]+fix].src=imageDB2[rrr].src; }
if ((k=='3')){document.images[fixit[z]+fix].src=imageDB[28].src; zip(z,k)}
if ((k=='2')&&(fixit[z]< 25)){document.images[fixit[z]+fix].src=imageDB[25].src;}
if ((k=='2')&&(fixit[z]>=25)){document.images[fixit[z]+fix].src=imageDB[26].src;}
if ((num2[z]!=88)&&(k=='3')){ Q1[z] = P[(mmm[z])%12];}
Q2 = "";
for(j=0; j<25; j++){Q2 = Q2+ Q1[j];}
document.forms.prima.res9.value =Q2;
}//docit ¯ ® § € ¦¦³³³·×
function zip(z,k) { clearit();
if (k=='3'){num2[z]=z;}
ttt = new Array(0,0,0,0,0,0,0,0,0,0,0,0);
// new 05
document.forms.prima.chords.selectedIndex=0; //???12
for (j=0;j<25;j++) { if (num2[j]!=88){ttt[num2[j]%12] =1 }} ;
//alert(num2)
}//zip
function clearit(){
document.forms.prima.res1.value ="";
document.forms.prima.res2.value ="";
document.forms.prima.res3.value ="";
document.forms.prima.res4.value ="";
document.forms.prima.res5.value ="";
document.forms.prima.res6.value ="";
document.forms.prima.pichord.value ="";
}
function msgit(){
w = document.forms.prima.key.selectedIndex;
if(flagit == '1'){major()}
if(flagit == '2'){scales()}
if(flagit == '3'){major()}
}//msgit
function scales(){flagit = 2;
z =document.forms.prima.scale.selectedIndex; // alert(z)
// tttt = 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);
// tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1,1,0,1,0,1,1,0,1,0,1,0,1,1,0);
// if(z=='7'){tttt = new Array(1,0,0,1,0,1,1,1,0,0,1,0,1,0,0,1,0,1,1,1,0,0,1,0); z=12 }
// if(z=='6'){z=11}
// if(z=='5'){z=9}
// if(z=='4'){z=7}
// if(z=='3'){z=5}
// if(z=='2'){z=4}
// if(z=='1'){z=2}
// if(z > '7'){z=12 }
var sch =document.forms.prima.scale.selectedIndex;
schxt = document.forms.prima.scale.options[sch].text; // alert(schxt)
if (schxt=="Madelynian"){ tttt = new Array(1,1,0,1,0,1,1,0,1,0,1,0,1)};
if (schxt=="Pentatonic blues"){ tttt = new Array(1,0,0,1,0,1,1,1,0,0,1,0,1)};
if (schxt=="Aeolian"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Algerian"){ tttt = new Array(1,0,1,1,0,1,1,1,1,0,0,1,1)};
if (schxt=="Arabian (a)"){ tttt = new Array(1,0,1,1,0,1,1,0,1,1,0,1,1)};
if (schxt=="Arabian (b)"){ tttt = new Array(1,0,1,0,1,1,1,0,1,0,1,0,1)};
if (schxt=="Asavari Theta"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Balinese"){ tttt = new Array(1,1,0,1,0,0,0,1,1,0,0,0,1)};
if (schxt=="Bilaval Theta"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1,1)};
if (schxt=="Bhairav Theta"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,0,1,1)};
if (schxt=="Bhairavi Theta"){ tttt = new Array(1,1,0,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Byzantine"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,0,1,1)};
if (schxt=="Chinese"){ tttt = new Array(1,0,0,0,1,0,1,1,0,0,0,1,1)};
if (schxt=="Chinese Mongolian"){ tttt = new Array(1,0,1,0,1,0,0,1,0,1,0,0,1)};
if (schxt=="Chromatic") { tttt = new Array(1,1,1,1,1,1,1,1,1,1,1,1,1)};
if (schxt=="Diminished"){ tttt = new Array(1,0,1,1,0,1,1,0,1,1,0,1,1)};
if (schxt=="Dorian"){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,1,0,1)};
if (schxt=="Egyptian"){ tttt = new Array(1,0,1,0,0,1,0,1,0,0,1,0,1)};
if (schxt=="Ethiopian (A raray)"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1,1)};
if (schxt=="Ethiopian (Geez & ezel)"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Harmonic Minor"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,0,1,1)};
if (schxt=="Hawaiian"){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,0,1,1)};
if (schxt=="Hindustan"){ tttt = new Array(1,0,1,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Hungarian Major"){ tttt = new Array(1,0,0,1,1,0,1,1,0,1,1,0,1)};
if (schxt=="Hungarian Gypsy"){ tttt = new Array(1,0,1,1,0,0,1,1,1,0,0,1,1)};
if (schxt=="Hungarian Gypsy Persian"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,0,1,1)};
if (schxt=="Hungarian Minor"){ tttt = new Array(1,0,1,1,0,0,1,1,1,0,0,1,1)};
if (schxt=="Ionian"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1,1)};
if (schxt=="Japanese (A)"){ tttt = new Array(1,1,0,0,0,1,0,1,1,0,0,0,1)};
if (schxt=="Japenese (B)"){ tttt = new Array(1,0,1,0,0,1,0,1,1,0,0,0,1)};
if (schxt=="Japanese (Ichikosucho)"){ tttt = new Array(1,0,1,0,1,1,1,1,0,1,0,1,1)};
if (schxt=="Japanese (Taishikicho)"){ tttt = new Array(1,0,1,0,1,1,1,1,0,1,1,1,1)};
if (schxt=="Javaneese"){ tttt = new Array(1,1,0,1,0,1,0,1,0,1,1,0,1)};
if (schxt=="Jewish (Adonai Malakh)"){ tttt = new Array(1,1,1,1,0,1,0,1,0,1,1,0,1)};
if (schxt=="Jewish (Ahava Raba)"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Jewish (Ahava Raba)"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Jewish (Magan Abot)"){ tttt = new Array(1,1,0,1,1,0,1,0,1,0,1,1,1)};
if (schxt=="Kafi Theta"){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,1,0,1)};
if (schxt=="Kalyan Theta"){ tttt = new Array(1,0,1,0,1,0,1,1,0,1,0,1,1)};
if (schxt=="Khamaj Theta"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,1,0,1)};
if (schxt=="Locrian"){ tttt = new Array(1,1,0,1,0,1,1,0,1,0,1,0,1)};
if (schxt=="Lydian"){ tttt = new Array(1,0,1,0,1,0,1,1,0,1,0,1,1)};
if (schxt=="Major"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1,1)};
if (schxt=="Marva Theta"){ tttt = new Array(1,1,0,0,1,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Bhavapriya"){ tttt = new Array(1,1,1,0,0,1,0,1,1,1,0,0,1)};
if (schxt=="Mela Chakravakam"){ tttt = new Array(1,1,0,0,1,1,0,1,0,1,1,0,1)};
if (schxt=="Mela Chalanata"){ tttt = new Array(1,0,0,1,1,1,0,1,0,0,1,1,1)};
if (schxt=="Mela Charukesi"){ tttt = new Array(1,0,1,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Mela Chitrambari"){ tttt = new Array(1,0,1,0,1,0,1,1,0,0,1,1,1)};
if (schxt=="Mela Dharmavati"){ tttt = new Array(1,0,1,1,0,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Dhatuvardhani"){ tttt = new Array(1,0,0,1,1,0,1,1,1,0,0,1,1)};
if (schxt=="Mela Dhavalambari"){ tttt = new Array(1,1,0,0,1,0,1,1,1,1,0,0,1)};
if (schxt=="Mela Dhenuka"){ tttt = new Array(1,1,0,1,0,1,0,1,1,0,0,1,1)};
if (schxt=="Mela Dhirasankarabharana"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1,1)};
if (schxt=="Mela Divyamani"){ tttt = new Array(1,1,0,0,1,0,1,1,0,0,1,1,1)};
if (schxt=="Mela Gamanasrama"){ tttt = new Array(1,1,0,0,1,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Ganamurti"){ tttt = new Array(1,1,1,0,0,1,0,1,1,0,0,1,1)};
if (schxt=="Mela Gangeyabhusani"){ tttt = new Array(1,0,0,1,1,1,0,1,1,0,0,1,1)};
if (schxt=="Mela Gaurimanohari"){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,0,1,1)};
if (schxt=="Mela Gavambodhi"){ tttt = new Array(1,1,0,1,0,0,1,1,1,1,0,0,1)};
if (schxt=="Mela Gayakapriya"){ tttt = new Array(1,1,0,0,1,1,0,1,1,1,0,0,1)};
if (schxt=="Mela Hanumattodi"){ tttt = new Array(1,1,0,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Mela Harikambhoji"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,1,0,1)};
if (schxt=="Mela Hatakambari"){ tttt = new Array(1,1,0,0,1,1,0,1,0,0,1,1,1)};
if (schxt=="Mela Hemavati"){ tttt = new Array(1,0,1,1,0,0,1,1,0,1,1,0,1)};
if (schxt=="Mela Jalarnavam"){ tttt = new Array(1,1,1,0,0,0,1,1,1,0,1,0,1)};
if (schxt=="Mela Jhalavarali"){ tttt = new Array(1,1,1,0,0,0,1,1,1,0,0,1,1)};
if (schxt=="Mela Jhankaradhvani"){ tttt = new Array(1,0,1,1,0,1,0,1,1,1,0,0,1)};
if (schxt=="Mela Jyotisvarupini"){ tttt = new Array(1,0,0,1,1,0,1,1,1,0,1,0,1)};
if (schxt=="Mela Kamavarardhani"){ tttt = new Array(1,1,0,0,1,0,1,1,1,0,0,1,1)};
if (schxt=="Mela Kanakangi"){ tttt = new Array(1,1,1,0,0,1,0,1,1,1,0,0,1)};
if (schxt=="Mela Kantamani"){ tttt = new Array(1,0,1,0,1,0,1,1,1,1,0,0,1)};
if (schxt=="Mela Kharaharapriya"){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,1,0,1)};
if (schxt=="Mela Kiravani"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,0,1,1)};
if (schxt=="Mela Kokilapriya"){ tttt = new Array(1,1,0,1,0,1,0,1,0,1,0,1,1)};
if (schxt=="Mela Kosalam"){ tttt = new Array(1,0,0,1,1,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Latangi"){ tttt = new Array(1,0,1,0,1,0,1,1,1,0,0,1,1)};
if (schxt=="Mela Manavati"){ tttt = new Array(1,1,1,0,0,1,0,1,0,1,0,1,1)};
if (schxt=="Mela Mararanjani"){ tttt = new Array(1,0,1,0,1,1,0,1,1,1,0,0,1)};
if (schxt=="Mela Mayamalavagaula"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,0,1,1)};
if (schxt=="Mela Mechakalyani"){ tttt = new Array(1,0,1,0,1,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Naganandini"){ tttt = new Array(1,0,1,0,1,1,0,1,0,0,1,1,1)};
if (schxt=="Mela Namanarayani"){ tttt = new Array(1,1,0,0,1,0,1,1,1,0,1,0,1)};
if (schxt=="Mela Nasikabhusani"){ tttt = new Array(1,0,0,1,1,0,1,1,0,1,1,0,1)};
if (schxt=="Mela Natabhairavi"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Mela Natakapriya"){ tttt = new Array(1,1,0,1,0,1,0,1,0,1,1,0,1)};
if (schxt=="Mela Navanitam"){ tttt = new Array(1,1,1,0,0,0,1,1,0,1,1,0,1)};
if (schxt=="Mela Nitimati"){ tttt = new Array(1,0,1,1,0,0,1,1,0,0,1,1,1)};
if (schxt=="Mela Pavani"){ tttt = new Array(1,1,1,0,0,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Ragavardhani"){ tttt = new Array(1,0,0,1,1,1,0,1,1,0,1,0,1)};
if (schxt=="Mela Raghupriya"){ tttt = new Array(1,1,1,0,0,0,1,1,0,0,1,1,1)};
if (schxt=="Mela Ramapriya"){ tttt = new Array(1,1,0,0,1,0,1,1,0,1,1,0,1)};
if (schxt=="Mela Rasikapriya"){ tttt = new Array(1,0,0,1,1,0,1,1,0,0,1,1,1)};
if (schxt=="Mela Ratnangi"){ tttt = new Array(1,1,1,0,0,1,0,1,1,0,1,0,1)};
if (schxt=="Mela Risabhapriya"){ tttt = new Array(1,0,1,0,1,0,1,1,1,0,1,0,1)};
if (schxt=="Mela Rupavati"){ tttt = new Array(1,1,0,1,0,1,0,1,0,0,1,1,1)};
if (schxt=="Mela Sadvidhamargini"){ tttt = new Array(1,1,0,1,0,0,1,1,0,1,1,0,1)};
if (schxt=="Mela Salagam"){ tttt = new Array(1,1,1,0,0,0,1,1,1,1,0,0,1)};
if (schxt=="Mela Sanmukhapriya"){ tttt = new Array(1,0,1,1,0,0,1,1,1,0,1,0,1)};
if (schxt=="Mela Sarasangi"){ tttt = new Array(1,0,1,0,1,1,0,1,1,0,0,1,1)};
if (schxt=="Mela Senavati"){ tttt = new Array(1,1,0,1,0,1,0,1,1,1,0,0,1)};
if (schxt=="Mela Simhendramadhyama"){ tttt = new Array(1,0,1,1,0,0,1,1,1,0,0,1,1)};
if (schxt=="Mela Subhapantuvarali"){ tttt = new Array(1,1,0,1,0,0,1,1,1,0,0,1,1)};
if (schxt=="Mela Sucharitra"){ tttt = new Array(1,0,0,1,1,0,1,1,1,1,0,0,1)};
if (schxt=="Mela Sulini"){ tttt = new Array(1,0,0,1,1,1,0,1,0,1,0,1,1)};
if (schxt=="Mela Suryakantam"){ tttt = new Array(1,1,0,0,1,1,0,1,0,1,0,1,1)};
if (schxt=="Mela Suvarnangi"){ tttt = new Array(1,1,1,0,0,0,1,1,0,1,0,1,1)};
if (schxt=="Mela Syamalangi"){ tttt = new Array(1,0,1,1,0,0,1,1,1,1,0,0,1)};
if (schxt=="Mela Tanarupi"){ tttt = new Array(1,1,1,0,0,1,0,1,0,0,1,1,1)};
if (schxt=="Mela Vaschaspati"){ tttt = new Array(1,0,1,0,1,0,1,1,0,1,1,0,1)};
if (schxt=="Mela Vagadhisvari"){ tttt = new Array(1,0,0,1,1,1,0,1,0,1,1,0,1)};
if (schxt=="Mela Vakulabharanam"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Mela Vanaspati"){ tttt = new Array(1,1,1,0,0,1,0,1,0,1,1,0,1)};
if (schxt=="Mela Varunapriya"){ tttt = new Array(1,0,1,1,0,1,0,1,0,0,1,1,1)};
if (schxt=="Mela Visvambari"){ tttt = new Array(1,1,0,0,1,0,1,1,0,0,1,1,1)};
if (schxt=="Mela Yagapriya"){ tttt = new Array(1,0,0,1,1,1,0,1,1,1,0,0,1)};
if (schxt=="Melodic Minor"){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,0,1,1)};
if (schxt=="Mixolydian"){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,1,0,1)};
if (schxt=="Mohammedan"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,0,1,1)};
if (schxt=="Neapolitan"){ tttt = new Array(1,1,0,1,0,1,0,1,1,0,0,1,1)};
if (schxt=="Oriental (a)"){ tttt = new Array(1,1,0,0,1,1,1,0,1,0,1,0,1)};
if (schxt=="Overtone Dominant"){ tttt = new Array(1,0,1,0,1,0,1,1,0,1,1,0,1)};
if (schxt=="Pentatonic Major"){ tttt = new Array(1,0,1,0,1,0,0,1,0,1,0,0,1)};
if (schxt=="Pentatonic Minor"){ tttt = new Array(1,0,0,1,0,1,0,1,0,0,1,0,1)};
if (schxt=="Persian"){ tttt = new Array(1,1,0,0,1,1,1,0,1,0,0,1,1)};
if (schxt=="Phrygian"){ tttt = new Array(1,1,0,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Purvi Theta"){ tttt = new Array(1,1,0,0,1,0,1,1,1,0,0,1,1)};
if (schxt=="Roumanian Minor"){ tttt = new Array(1,0,1,1,0,0,1,1,0,1,1,0,1)};
if (schxt=="Spanish Gypsy"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Todi Theta"){ tttt = new Array(1,1,0,1,0,0,1,1,1,0,0,1,1)};
if (schxt=="Whole Tone"){ tttt = new Array(1,0,1,0,1,0,1,0,1,0,1,0,1)};
if (schxt=="Augmented"){ tttt = new Array(1,0,0,1,1,0,0,1,1,0,0,1,1)};
if (schxt=="Blues"){ tttt = new Array(1,0,0,1,0,1,1,1,0,0,1,0,1)};
if (schxt=="Diatonic"){ tttt = new Array(1,0,1,0,1,0,0,1,0,1,0,0,1)};
if (schxt=="Double Harmonic"){ tttt = new Array(1,1,0,0,1,1,0,1,1,0,0,1,1)};
if (schxt=="Eight Tone Spanish"){ tttt = new Array(1,1,0,1,1,1,1,0,1,0,1,0,1)};
if (schxt=="Enigmatic"){ tttt = new Array(1,1,0,0,1,0,1,0,1,0,1,1,1)};
if (schxt=="Hirajoshi"){ tttt = new Array(1,0,1,1,0,0,0,1,1,0,0,0,1)};
if (schxt=="Kumoi"){ tttt = new Array(1,0,1,1,0,0,0,1,0,1,0,0,1)};
if (schxt=="Leading Whole Tone"){ tttt = new Array(1,0,1,0,1,0,1,0,1,0,1,1,1)};
if (schxt=="Lydian Augmented"){ tttt = new Array(1,0,1,0,1,0,1,0,1,1,0,1,1)};
if (schxt=="Neapolitan Major"){ tttt = new Array(1,1,0,1,0,1,0,1,0,1,0,1,1)};
if (schxt=="Neapolitan Minor"){ tttt = new Array(1,1,0,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Oriental (b)"){ tttt = new Array(1,1,0,0,1,1,1,0,0,1,1,0,1)};
if (schxt=="Pelog"){ tttt = new Array(1,1,0,1,0,0,0,1,1,0,0,0,1)};
if (schxt=="Prometheus"){ tttt = new Array(1,0,1,0,1,0,1,0,0,1,1,0,1)};
if (schxt=="Prometheus Neapolitan"){ tttt = new Array(1,1,0,0,1,0,1,0,0,1,1,0,1)};
if (schxt=="Six Tone Symmetrical"){ tttt = new Array(1,1,0,0,1,1,0,0,1,1,0,0,1)};
if (schxt=="Super Locrian"){ tttt = new Array(1,1,0,1,1,0,1,0,1,0,1,0,1)};
if (schxt=="Lydian Minor"){ tttt = new Array(1,0,1,0,1,0,1,1,1,0,1,0,1)};
if (schxt=="Lydian Diminished"){ tttt = new Array(1,0,1,1,0,0,1,1,0,1,0,1,1)};
if (schxt=="Nine Tone Scale"){ tttt = new Array(1,0,1,1,1,0,1,1,1,1,0,1,1)};
if (schxt=="Auxiliary Diminished"){ tttt = new Array(1,0,1,1,0,1,1,0,1,1,0,1,1)};
if (schxt=="Auxiliary Augmented"){ tttt = new Array(1,0,1,0,1,0,1,0,1,0,1,0,1)};
if (schxt=="Auxiliary Diminished Blues"){ tttt = new Array(1,1,0,1,1,0,1,1,0,1,1,0,1)};
if (schxt=="Major Locrian"){ tttt = new Array(1,0,1,0,1,1,1,0,1,0,1,0,1)};
if (schxt=="Overtone"){ tttt = new Array(1,0,1,0,1,0,1,1,0,1,1,0,1)};
if (schxt=="Hindu"){ tttt = new Array(1,0,1,0,1,1,0,1,1,0,1,0,1)};
if (schxt=="Diminished Whole Tone"){ tttt = new Array(1,1,0,1,1,0,1,0,1,0,1,0,1)};
if (schxt=="Pure Minor"){ tttt = new Array(1,0,1,1,0,1,0,1,1,0,1,0,1)};
if (schxt=="Half Diminished (Locrian)"){ tttt = new Array(1,1,0,1,0,1,1,0,1,0,1,0,1)};
if (schxt=="Half Dim Two (Locrian two)"){ tttt = new Array(1,0,1,1,0,1,1,0,1,0,1,0,1)};
if (schxt=="Dominant Seventh"){ tttt = new Array(1,0,1,0,0,1,0,1,0,1,1,0,1)};
//if(z > '7'){
// xxxx for(j=0;j<(12);j++){tttt[j+12] = tttt[j] ;}
// alert (tttt)
// } //
// xxxx z=12
z=0
modes(z,tttt); }
//////////////////////////////////////
var tm= 5000; //
var tmx= 250; //
var tiid = null; //
var sdx = 0; //
var rander = 0; //
var xxcctt = new Array();//
function durr(){
z =document.forms.prima.dur.selectedIndex;
if (z==0){tmx=1000};
if (z==1){tmx=500};
if (z==2){tmx=250};
if (z==3){tmx=100};
if (z==4){tmx=0};
if (z==5){tmx=0}; }//
//black37,white37,blue37,green37,red37,white17,white6726,white8,purp37,oran37
function modesx(){ //alert(xxcctt)
if (xxcctt.length) {
playit(xxcctt[sdx]);
document.images[fixit[xxcctt[sdx]]+fix].src=imageDB[rx].src; }//;
tiid = setTimeout("modesx()", tmx);
sdx=sdx+1;
if (sdx>=xxcctt.length) {clearTimeout(tiid)}//;
}//
function modesound(num2){
if (document.forms.prima.dur.selectedIndex==5){return false}//
sdx = 0; rander = (rander + 1)%4
if (rander==0){rx = 29};if (rander==1){rx = 27};if (rander==2){rx = 29};if (rander==3){rx = 27}
//if (zzzsound[aaa]=="-1"){return false }
xcnt=0; xxcctt = new Array();
for(j=0;j<(25);j++){
if (num2[(j)%25]!=88){ xxcctt[xcnt]=(j)%25; xcnt = xcnt + 1;
if (document.forms.prima.dur.selectedIndex==4){
playit((j)%25);
}//
}//ifttt //if (xcnt == ff){j=401}
}//forj
if (document.forms.prima.dur.selectedIndex!=4){clearTimeout(tiid);modesx()}//
}//modes
//////////////////////////////////////
function modes(z,tttt){ clearit();
var h = z; w = document.forms.prima.key.selectedIndex;
for (j=0;j<25;j++) {num2[j]=88; Q1[j]=".";
if (fixit[j]< 25){document.images[fixit[j]+fix].src=imageDB[25].src;}
if (fixit[j]>=25){document.images[fixit[j]+fix].src=imageDB[26].src;}
}//forj
//j<(25 tt4) will add octave note for scales
var tt4 = 12;
if (flagit == 2){tt4=13}; //was 25 not 37
for(j=0;j<(tt4);j++){
//mod 12 ???? xxxx 24
if (tttt[(j+h)%24]=='1'){ //leave12
Q1[(j+w)%25] = P[(mmm[(j+w)%25])%12];
if (document.forms.prima.shownote.checked==1){rrr=j%24} else {rrr=28}
if (fixit[(j+w)%25]<25) {document.images[fixit[(j+w)%25]+fix].src=imageDB[rrr].src;}
if (fixit[(j+w)%25]>=25){document.images[fixit[(j+w)%25]+fix].src=imageDB2[rrr].src;}
num2[(j+w)%25]=(j+w)%25; }//iftttt
}//forj
Q2 = "";
for(j=0; j<25; j++){Q2 = Q2+ Q1[j];}
chordnotes[pr]=document.forms.prima.res9.value =Q2;
document.forms.prima.pichord.value =P[document.forms.prima.key.selectedIndex] + " " +
document.forms.prima.scale.options[document.forms.prima.scale.selectedIndex].text;
if (document.forms.prima.onmousex.checked==1){ modesound(num2) }//
}//modes
/////////////////////////////////////////////////
function startimer(){startime = new Date();}//
function stoptimer(){stoptime = new Date();}//
function setpitch(){ stt = 0 ;aaa=-1; bbb=0; bbbb=0; tickx();
ppp=document.forms.prima.perp.selectedIndex;;
if (ppp==0){pppp=10;tm=6000};
if (ppp==1){pppp=25;tm=5000};
if (ppp==2){pppp=100;tm=4000};
document.forms.prima.res1.value ="Guess the Notes";
ppts = new Array()
pptsx = new Array()
for(j=0; j=pppp){stoptimer(); document.forms.prima.onmousex2.checked=0;
stt = stt + (stoptime - startime); tickx(); //alert(ppts + " "+ pptsx)
for(j=0; j=9){
Hscorex = scorex;
pnamex = escape(window.prompt("Name?",pnamex));
document.cookie = "pageScorex="+Hscorex+";expires=" + expireDate.toGMTString()
document.cookie = "personx="+pnamex+";expires=" + expireDate.toGMTString()
}//
}//ifa
}//pp
function cookieVal(cookieName) {
thisCookie = document.cookie.split("; ")
for (i=0; i=14)){num[pr][pfixit[b]] = "|o" ;}
}//
} //if(num2[b]!=88)
if(num2[b]==88){//was14 xxxx21
if (document.forms.prima.octo.checked==1){
if (pfixit[b] < 14) {num[pr][pfixit[b]] = "|#";}
if ((pfixit[b] >=14)){num[pr][pfixit[b]] = "| ";}
} else {
if (pfixit[b] < 14) {num[pr][pfixit[b]] = " █";}
if ((pfixit[b] >=14)){num[pr][pfixit[b]] = "| ";}
}//
}
}//forb
if (document.forms.prima.octo.checked==1){
num[pr][2]="| "; num[pr][6]="| ";num[pr][9]="| ";num[pr][13]="| ";
//num[pr][16]="| ";num[pr][20]="| "; <---- for the 37
} else {
num[pr][2]=" "; num[pr][6]=" ";num[pr][9]=" ";num[pr][13]=" ";
//num[pr][16]=" ";num[pr][20]=" ";
}//
pr = pr + 1; // alert(num);
} // savit
function process2(callingElement) {
chordname[pr] = document.forms.prima.pichord.value = callingElement.value;}
function binaar(ttt){ csave='';
tt = new Array(0,0,0,0,0,0,0,0,0,0,0,0)
ttxx = new Array(0,0,0,0,0,0,0,0,0,0,0,0)
for(j=0; j<12; j++){if(ttt[j]==1){ttxx[(j)%12]=1}}
chord=""; WC = 1;
for(c=0; c<12; c++){
if(ttxx[c]==1){ chord=P[c]; sd = "";
for(j=0; j<12; j++){
if (ttxx[(c+j)%12]==1){chord= chord + notes[j];tt[j] = 1; sd = sd + pam[j];}}
if (tt[5]&&tt[10]&&(tt[2]||tt[4])){chord=chord + "11th ";}
if (chord.indexOf("11th")=='-1'){if (sd.indexOf("4")>0){chord = chord + "sus4 ";}}
//** 6th and 7th and (11th or 5th)
if (tt[9]&&tt[10]){chord=chord + "13th ";}
if (chord.indexOf("13th")=='-1'){if (sd.indexOf("6")>0){chord = chord + "6th ";}}
if (sd.indexOf("m33")=='1'){chord = chord + "#9 ";}
if (sd=="R235") {chord = P[c] + "add9 ";}
if (sd=="R2356") {chord = P[c] + "6/9 ";}
if (sd=="R2456") {chord = P[c] + "6/9 sus4 ";}
if (sd=="R2m356") {chord = P[c] + "minor 6/9 ";}
if (sd=="Rd2m356") {chord = P[c] + "minor 6th flat9 ";}
if (sd=="R3d5a56") {chord = P[c] + "6th flat5 flat13 ";}
if (sd=="Rm3d5a56") {chord = P[c] + "minor 6th flat5 flat13 ";}
if (sd=="Rm3d55") {chord = P[c] + "minor #11th ";}
if (sd=="Rm33d5") {chord = P[c] + "flat5 #9th ";}
if ((sd=="Rm335")||(sd=="Rm335")){chord = P[c] + "sharp 9th ";}
if (sd=="Rm3d5") {chord = P[c] + "dim ";}
if (sd=="Rm3d56") {chord = P[c] + "dim7 ";}
if (sd=="Rm3d5b7"){chord = P[c] + "Ø half dimº ";}
if (sd.indexOf("7")>'0' && sd.indexOf("6")=='-1'){
if (sd=="Rm3a5b7"){chord = P[c] + "m7#5 ";}
if (sd=="R3a5b7"){chord = P[c] + "7#5 ";}
if (sd=="R3d5b7"){chord = P[c] + "7b5 ";}
if (sd=="Rm33a5b7"){chord = P[c] + "7 #5 #9th ";}
if (sd=="R3d55b7") {chord = P[c] + "seventh #11th ";}
if (sd=="R3d557") {chord = P[c] + "Maj7 #11th ";}
if (sd=="Rm33d55b7") {chord = P[c] + "seventh #9th #11th ";}
if (sd=="Rm335a5b7") {chord = P[c] + "seventh #9th flat13 ";}
if (sd=="Rd23d5b7") {chord = P[c] + "seventh flat5 flat9 ";}
if (sd=="Rd235a5b7") {chord = P[c] + "7th flat9 flat13 ";}
if (sd=="Rd2m35b7" || sd=="Rd2m3b7") {chord = P[c] + "minor 7th flat9 ";}
if (sd=="Rd2m35a5b7") {chord = P[c] + "minor 7th flat9 flat13 ";}
if (sd=="Rm35a5b7") {chord = P[c] + "minor 7th flat13 ";}
if (sd=="Rd2m3d5b7") {chord = P[c] + "minor 7th flat5 flat9 ";}
if ((sd=="Rm335b7")||(sd=="Rm33b7")){chord = P[c] + "7th sharp 9th ";}
if (sd=="Rm33d5b7") {chord = P[c] + "7th aug9 dimº5 ";}
if (sd.indexOf("2")>'0'){
if (sd=="Rd23a5b7") {chord = P[c] + "seventh flat9 flat13 ";}
if (sd=="R235b7"||sd=="R23b7"||sd=="R2b7") {chord=P[c] + "ninth ";}
if (sd=="R2m35b7"||sd=="R2m3b7"){chord = P[c] + "minor ninth ";}
if (sd=="R2357"||sd=="R257") {chord = P[c] + "major ninth ";}
if (sd=="R23a57"||sd=="R2a57") {chord = P[c] + "major ninth aug5 ";}
if (sd=="R23d57"||sd=="R2d57") {chord = P[c] + "major ninth flat5 ";}
if (sd=="R23d5b7"||sd=="R2d5b7") {chord = P[c] + "ninth flat5 ";}
//if (sd=="R23d5b7") {chord = P[c] + "ninth dimº5 ";}
if (sd=="R23a5b7"||sd=="R2a5b7") {chord = P[c] + "ninth aug5 ";}
if (sd=="R23d55b7"||sd=="R2d55b7") {chord = P[c] + "ninth #11th ";}
if (sd=="R2m3d5b7") {chord = P[c] + "minor ninth dimº5 ";}
if (sd=="R2m3a5b7") {chord = P[c] + "minor ninth aug5 ";}
if (sd=="R2m357") {chord = P[c] + "minor ninth maj7th ";}
if (sd=="Rd235b7") {chord = P[c] + "seventh dimº9th ";}
if (sd=="R25b7") {chord = P[c] + "7sus2 ";}
}//sd2
if (sd.indexOf("4")>'0'){
if (sd=="R2345b7"||sd=="R34b7"||sd=="R234b7"||sd=="R24b7"||sd=="R345b7"||sd=="R245b7"){chord = P[c]+ "eleventh ";}
if (sd=="R234a5b7"||sd=="R34a5b7"||sd=="R24a5b7"){chord = P[c]+ "eleventh aug5 ";}
if (sd=="R234d5b7"||sd=="R34d5b7"||sd=="R24d5b7"){chord = P[c]+ "eleventh flat5 ";}
if (sd=="Rd24d5b7"){chord = P[c]+ "eleventh flat5 flat9 ";}
if (sd=="R23457"||sd=="R347"||sd=="R2347"||sd=="R247"||sd=="R3457"||sd=="R2457"){chord = P[c]+ "major eleventh ";}
if (sd=="R2m345b7"||sd=="Rm34b7"||sd=="R2m34b7"||sd=="Rm345b7"){chord = P[c] + "minor eleventh ";}
if (sd=="R2m34a5b7"||sd=="Rm34a5b7"){chord = P[c] + "minor eleventh aug5 ";}
if (sd=="R2m34d5b7"||sd=="Rm34d5b7"){chord = P[c] + "minor eleventh flat5 ";}
if (sd=="Rd2345b7"||sd=="Rd245b7"||sd=="Rd234b7"||sd=="Rd24b7"){chord = P[c] + "eleventh dimº9th ";}
}//sd4 R24d5b7
}//sd7
if (sd.indexOf("6b7")>'0'){ //R3d556b7
if (sd=="R234d556b7"||sd=="R23d556b7"||sd=="R24d556b7"||sd=="R2d556b7"||sd=="R34d556b7"||sd=="R3d556b7"||sd=="R4d556b7"||sd=="Rd556b7"){chord = P[c] + "thirteenth #11th ";}
if (sd=="R2m34a56b7"||sd=="R2m3a56b7"||sd=="Rm34a56b7"||sd=="Rm3a56b7"){chord = P[c] + "minor thirteenth #5th ";}
if (sd=="R2m34d56b7"||sd=="R2m3d56b7"||sd=="Rm34d56b7"||sd=="Rm3d56b7"){chord = P[c] + "minor thirteenth flat5 ";}
if (sd=="R234a56b7"||sd=="R23a56b7"||sd=="R24a56b7"||sd=="R2a56b7"||sd=="R34a56b7"||sd=="R3a56b7"||sd=="R4a56b7"||sd=="Ra56b7"){chord = P[c] + "thirteenth #5th ";}
if (sd=="R234d56b7"||sd=="R23d56b7"||sd=="R24d56b7"||sd=="R2d56b7"||sd=="R34d56b7"||sd=="R3d56b7"||sd=="R4d56b7"||sd=="Rd56b7"){chord = P[c] + "thirteenth flat5 ";}
if (sd=="R2m3456b7"||sd=="R2m346b7"||sd=="R2m356b7"||sd=="R2m36b7"||sd=="Rm3456b7"||sd=="Rm346b7"||sd=="Rm356b7"||sd=="Rm36b7"){chord = P[c] + "minor thirteenth ";}
if (sd=="R23456b7"||sd=="R2346b7"||sd=="R2356b7"||sd=="R2456b7"||sd=="R246b7"||sd=="R236b7"||sd=="R256b7"||sd=="R26b7"||sd=="R3456b7"||sd=="R346b7"||sd=="R356b7"||sd=="R36b7"||sd=="R46b7"||sd=="R456b7"||sd=="R56b7"||sd=="R6b7"){chord = P[c] + "thirteenth ";}
if (sd=="Rd23456b7"||sd=="Rd2346b7"||sd=="Rd2356b7"||sd=="Rd2456b7"||sd=="Rd246b7"||sd=="Rd236b7"||sd=="Rd256b7"||sd=="Rd26b7"){chord = P[c] + "thirteenth flat9 ";}
if (sd=="Rd2m3456b7"||sd=="Rd2m346b7"||sd=="Rd2m356b7"||sd=="Rd2m36b7"){chord = P[c] + "minor thirteenth flat9 ";}
}//sd6b7 Rd2m356b7
if (sd.indexOf("67")>'0'){
if (sd=="Rm3567" || sd=="R2m34567"){chord = P[c] + "minor/major thirteenth ";}
if (sd=="R234a567"||sd=="R23a567"||sd=="R24a567"||sd=="R2a567"||sd=="R34a567"||sd=="R3a567"||sd=="R4a567"||sd=="Ra567"){chord = P[c] + "major thirteenth aug5 ";}
if (sd=="R234d567"||sd=="R23d567"||sd=="R24d567"||sd=="R2d567"||sd=="R34d567"||sd=="R3d567"||sd=="R4d567"||sd=="Rd567"){chord = P[c] + "major thirteenth flat5 ";}
if (sd=="R234567"||sd=="R23467"||sd=="R23567"||sd=="R24567"||sd=="R2467"||sd=="R2367"||sd=="R2567"||sd=="R267"||sd=="R34567"||sd=="R3467"||sd=="R3567"||sd=="R367"||sd=="R467"||sd=="R4567"||sd=="R567"||sd=="R67"){chord = P[c] + "major thirteenth ";}
if (sd=="Rd234567"||sd=="Rd23467"||sd=="Rd23567"||sd=="Rd24567"||sd=="Rd2467"||sd=="Rd2367"||sd=="Rd2567"||sd=="Rd267"){chord = P[c] + "maj13th flat9 ";}
}//sd67
if ((tt[4]=='1')&&((tt[3]=='1')||(tt[5]=='1'))){chord=chord + "w3 ";}
if ((tt[7]=='1')&&((tt[6]=='1')||(tt[8]=='1'))){chord=chord + "w5 ";}
if ((tt[4]=='0')&&(tt[3]=='0')&&(tt[5]=='0')){chord=chord + "no3 ";}
if ((tt[7]=='0')&&(tt[6]!='1')&&(tt[8]!='1')){chord=chord + "no5 ";}
if (sd=="R25") {chord = P[c] + "sus2 ";}
if (sd=="R5") {chord = P[c] + "5 ";}
if (sd=="R2m345") {chord = P[c] + "m add2add4 ";}
if (sd=="R2345") {chord = P[c] + "add2add4 ";}
if (sd=="R345") {chord = P[c] + "add4 ";}
if (sd=="Rm345") {chord = P[c] + "m add4 ";}
if (sd=="R2m35") {chord = P[c] + "m add9 ";}
//works better with indexC
if ((document.forms.prima.key.selectedIndex == c)||(WC=='1')){
//if ((csave.length > chord.length)||(WC=='1')){
csave=chord; wcs=WC
if(document.forms.prima.chords.selectedIndex==0){//alert(tt)
tttt=tt; //sdx=chtext=sd;
// for(d=0; d<21; d++ ){if (sdx0){}}//ford
}//ifindex0
document.forms.prima.pichord.value = chordname[pr] = csave ;
chordnotes[pr] =Q2
}//ifcsave
chord = chord + " |" + sd
if (WC=='7'){WC=wcs};
if (WC=='1'){document.forms.prima.res1.value =chord;}
if (WC=='2'){document.forms.prima.res2.value =chord;}
if (WC=='3'){document.forms.prima.res3.value =chord;}
if (WC=='4'){document.forms.prima.res4.value =chord;}
if (WC=='5'){document.forms.prima.res5.value =chord;}
if (WC=='6'){document.forms.prima.res6.value =chord;}
WC = WC + 1; tt = new Array(0,0,0,0,0,0,0,0,0,0,0,0) }}}
function major(){ flagit = 1;
w = document.forms.prima.key.selectedIndex;
var ch =document.forms.prima.chords.selectedIndex;
chxt = document.forms.prima.chords.options[ch].text;
// below tttt erased the whole user chord save by accident
// tttt = new Array(1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
if (chxt=='maj') { tttt = new Array(1,0,0,0,1,0,0,1,0,0,0,0);}
if (chxt=='min') { tttt = new Array(1,0,0,1,0,0,0,1,0,0,0,0);}
if (chxt=='7th') { tttt = new Array(1,0,0,0,1,0,0,1,0,0,1,0);}
if (chxt=="7#5") { tttt = new Array(1,0,0,0,1,0,0,0,1,0,1,0);}
if (chxt=="7b5") { tttt = new Array(1,0,0,0,1,0,1,0,0,0,1,0);}
if (chxt=="7b9") { tttt = new Array(1,1,0,0,1,0,0,1,0,0,1,0);}
if (chxt=="7#11") { tttt = new Array(1,0,0,0,1,0,1,1,0,0,1,0);}
if (chxt=='m7') { tttt = new Array(1,0,0,1,0,0,0,1,0,0,1,0);}
if (chxt=="m7#5") { tttt = new Array(1,0,0,1,0,0,0,0,1,0,1,0);}
if (chxt=='maj7') { tttt = new Array(1,0,0,0,1,0,0,1,0,0,0,1);}
if (chxt=='maj7#5'){tttt = new Array(1,0,0,0,1,0,0,0,1,0,0,1);}
if (chxt=='maj7b5'){tttt = new Array(1,0,0,0,1,0,1,0,0,0,0,1);}
if (chxt=="m/maj7"){tttt = new Array(1,0,0,1,0,0,0,1,0,0,0,1);}
if (chxt=='6th') { tttt = new Array(1,0,0,0,1,0,0,1,0,1,0,0);}
if (chxt=='m6th') { tttt = new Array(1,0,0,1,0,0,0,1,0,1,0,0);}
if (chxt=='aug') { tttt = new Array(1,0,0,0,1,0,0,0,1,0,0,0);}
if (chxt=='dim') { tttt = new Array(1,0,0,1,0,0,1,0,0,0,0,0);}
if (chxt=='dim7') { tttt = new Array(1,0,0,1,0,0,1,0,0,1,0,0);}
if (chxt=="Ø7") { tttt = new Array(1,0,0,1,0,0,1,0,0,0,1,0);}
if (chxt=='sus4') { tttt = new Array(1,0,0,0,0,1,0,1,0,0,0,0);}
if (chxt=='7sus4'){ tttt = new Array(1,0,0,0,0,1,0,1,0,0,1,0);}
// r 2 3 4 5 6 7 r 9 E T
if (chxt=='9th') { tttt = new Array(1,0,1,0,1,0,0,1,0,0,1,0);}
if (chxt=='madd9'){ tttt = new Array(1,0,1,1,0,0,0,1,0,0,0,0);}
if (chxt=='m9th') { tttt = new Array(1,0,1,1,0,0,0,1,0,0,1,0);}
if (chxt=='maj9') { tttt = new Array(1,0,1,0,1,0,0,1,0,0,0,1);}
if (chxt=="m/maj9"){tttt = new Array(1,0,1,1,0,0,0,1,0,0,0,1);}
if (chxt=='add9') { tttt = new Array(1,0,1,0,1,0,0,1,0,0,0,0);}
if (chxt=='sus2') { tttt = new Array(1,0,1,0,0,0,0,1,0,0,0,0);}
if (chxt=='7sus2'){ tttt = new Array(1,0,1,0,0,0,0,1,0,0,1,0);}
if (chxt=='11th') { tttt = new Array(1,0,1,0,1,1,0,1,0,0,1,0);}
if (chxt=='m11th'){ tttt = new Array(1,0,1,1,0,1,0,1,0,0,1,0);}
if (chxt=='13th') { tttt = new Array(1,0,1,0,1,1,0,1,0,1,1,0);}
if (chxt=='m13th'){ tttt = new Array(1,0,1,1,0,1,0,1,0,1,1,0);}
if (chxt=='maj13'){ tttt = new Array(1,0,1,0,1,1,0,1,0,1,0,1);}
if (chxt=="m/maj13"){tttt = new Array(1,0,1,1,0,1,0,1,0,1,0,1);}
if (chxt=='6/9') { tttt = new Array(1,0,1,0,1,0,0,1,0,1,0,0);}
if (chxt=='flat5'){ tttt = new Array(1,0,0,0,1,0,1,0,0,0,0,0);}
if (chxt=='7#9') { tttt = new Array(1,0,0,1,1,0,0,0,0,0,1,0);}
if (chxt=='7#9 w5'){tttt = new Array(1,0,0,1,1,0,0,1,0,0,1,0);}
if (chxt=='7#9 no5'){tttt = new Array(1,0,0,1,1,0,0,0,0,0,1,0);}
if (chxt=='m7b5') { tttt = new Array(1,0,0,1,0,0,1,0,0,0,1,0);}
if (chxt=="5") { tttt = new Array(1,0,0,0,0,0,0,1,0,0,0,0);}
if (chxt=="7b9b13"){tttt = new Array(1,1,0,0,1,0,0,1,1,0,1,0);}
if (chxt=="7b9/13"){tttt = new Array(1,1,0,0,1,0,0,1,0,1,1,0);}
if (chxt=="7#9#11"){tttt = new Array(1,0,0,1,1,0,1,1,0,0,1,0);}
z=0; modes(z,tttt);
for(j=0; j<12; j++){ttt[(j+w)%12]=0; if(tttt[j]==1){ttt[(j+w)%12]=1}}
binaar(ttt);
}//