BUSCA-ACORDES 1.0 Versión GUITARRA

"); document.write("

Mostrando: "+chordName+"

"); document.write("

"+notes+"

"); document.write("

"); document.write(""); document.write(""); document.write(""); document.write(""); document.write(""); document.write("

"); document.write("
"); document.write(""); document.write("
"); document.write("1  

"); document.write("2  

"); document.write("3  

"); document.write("4  

"); document.write("5  

"); document.write("6  

"); document.write("7  

"); document.write("8  

"); document.write("9  

"); document.write("10  

"); document.write("11  

"); document.write("12  

"); document.write("13  

"); document.write("14  

"); document.write("15  

"); document.write("16  

"); document.write("17  

"); document.write("18  

"); document.write("19  

"); document.write("20  

"); document.write("21  

"); document.write("22  

"); // paint open strgs if (frets6[1]=="| ") frets6[1] = "X "; if (frets5[1]=="| ") frets5[1] = "X "; if (frets4[1]=="| ") frets4[1] = "X "; if (frets3[1]=="| ") frets3[1] = "X "; if (frets2[1]=="| ") frets2[1] = "X "; if (frets1[1]=="| ") frets1[1] = "X "; document.write(frets6[1]+frets5[1]+frets4[1]+frets3[1]+frets2[1]+frets1[1]+"
"); //paint nut if (frets6[0]=="x") document.write("
"); else if (frets5[0]=="x") document.write("=
"); else if (frets4[0]=="x") document.write("===
"); else if (frets3[0]=="x") document.write("=====
"); else if (frets2[0]=="x") document.write("=======
"); else if (frets1[0]=="x") document.write("=========
"); else document.write("===========
"); //paint frets 1 ~ 22 var j=3; var i=1; while(i<23) { document.write(frets6[j]+frets5[j]+frets4[j]+frets3[j]+frets2[j]+frets1[j]+"
"); if (frets6[0]=="x") document.write("
"); else if (frets5[0]=="x") document.write("-
"); else if (frets4[0]=="x") document.write("---
"); else if (frets3[0]=="x") document.write("-----
"); else if (frets2[0]=="x") document.write("-------
"); else if (frets1[0]=="x") document.write("---------
"); else document.write("-----------
"); j=j+2; i++; } //end page document.write("
"); document.write(""); document.write("
Hosted by www.Geocities.ws

"); } function find_chord(parms){ var myRoot = find_chord.arguments[0]; var myChordFormula = find_chord.arguments[1].split(','); var notesArray = new Array; notesArray[0] = myRoot; for(i=0;i<(myChordFormula.length);i++){ var tempIndex = (parseInt(notesArray[i]) + parseInt(myChordFormula[i])) if (tempIndex > 12) tempIndex=tempIndex%12; notesArray[i+1] = tempIndex; } return notesArray; } function populate_fret_notes (str6,str5,str4,str3,str2,str1,acc){ // this function populates the fret6~fret1 arrays with the corresponding note value based on tuning //str6 for(i=0;i12) str6=str6%12; var z = searchChordNotes(str6); if (z==true) {frets6[i+1] = convert_notes(str6,acc); str6++;} if (z==false && str6 == "x") {frets6[i+1] = "  "; frets6[i] = "x";} if (z==false && str6 != "x") {frets6[i+1] = "| "; str6++;} i++; } //str5 for(i=0;i12) str5=str5%12; var z = searchChordNotes(str5); if (z==true) {frets5[i+1] = convert_notes(str5,acc); str5++;} if (z==false && str5 == "x") {frets5[i+1] = "  "; frets5[i] = "x";} if (z==false && str5 != "x") {frets5[i+1] = "| "; str5++;} i++; } //str4 for(i=0;i12) str4=str4%12; var z = searchChordNotes(str4); if (z==true) {frets4[i+1] = convert_notes(str4,acc); str4++;} if (z==false && str4 == "x") {frets4[i+1] = "  "; frets4[i] = "x";} if (z==false && str4 != "x") {frets4[i+1] = "| "; str4++;} i++; } //str3 for(i=0;i12) str3=str3%12; var z = searchChordNotes(str3); if (z==true) {frets3[i+1] = convert_notes(str3,acc); str3++;} if (z==false && str3 == "x") {frets3[i+1] = "  "; frets3[i] = "x";} if (z==false && str3 != "x") {frets3[i+1] = "| "; str3++;} i++; } //str2 for(i=0;i12) str2=str2%12; var z = searchChordNotes(str2); if (z==true) {frets2[i+1] = convert_notes(str2,acc); str2++;} if (z==false && str2 == "x") {frets2[i+1] = "  "; frets2[i] = "x";} if (z==false && str2 != "x") {frets2[i+1] = "| "; str2++;} i++; } //str1 for(i=0;i12) str1=str1%12; var z = searchChordNotes(str1); if (z==true) {frets1[i+1] = convert_notes(str1,acc); str1++;} if (z==false && str1 == "x") {frets1[i+1] = "  "; frets1[i] = "x";} if (z==false && str1 != "x") {frets1[i+1] = "| "; str1++;} i++; } } function searchChordNotes(note){ note = note+''; var flag = false; for(j=0;j

 

 

 

 

 

 

 

©2003 Willie Gonzalez
Para preguntas o comentarios acerca de este programa, mándame un email aqui

Hosted by www.Geocities.ws

1