/* TO (maybe) DO - add a loader - make nicer sliders - display the currently played note in red - enable the use of parenthesis to group some notes as chords in input - rhythm values: add triplets + other - multile input lines => mutltiple simultaneous voices - auto-chord - auto-voice - auto-beam - popup info => general user help - other instruments - sound files here: audio https://www.philharmonia.co.uk/explore/sound_samples/banjo midi: http://spiral.qet.me/ */ var main = ()=> { var count = 0, sd_loop = 1, base_conv = 1, speed = 2, bpm = 40, melo_num = $i("melo_num"), rhyt_num = $i("rhyt_num"), partition = $i("partition"), melo_rebased = $i("melo_rebased"), rhyt_rebased = $i("rhyt_rebased"), sound_vol = $i("sound_vol"), speed_lvl = $i("speed_lvl"), sustain_lvl = $i("sustain_lvl"), loop_lamp = $i("loop_lamp"), mode_lamp = $i("mode_lamp"), rhythm_lamp = $i("rhythm_lamp"), popup = $i("popup"), choice = $i("choice"), current = $i("current"), description = $i("description"), c_back = $i("back"), c_play = $i("play"), c_stop = $i("stop"), text_input = $c("text_input"), blur = $c("blur"), max_notes = 0, staves_num = 0, VF = Vex.Flow, renderer = new VF.Renderer(partition, VF.Renderer.Backends.SVG), context = renderer.getContext(); const Dlen = DIGs.length, root = { "C" :"C", "C#":"C#", "D" :"D", "Eb":"D#", "E" :"E", "F" :"F", "F#":"F#", "G" :"G", "Ab":"G#", "A" :"A", "Bb":"A#", "B" :"B"}, mode = { 2:{ "Honchoshi": "100001000000", "Vietnamese": "101000000000", "Niagari": "100000010000", "Warao": "100000000010", }, 3:{ "Vietnamese": "100101000000", "Ute": "100100010000", "Malasri": "100010010000", "Bilwadala": "100010000100", "Sarvasri": "100001010000", "Sansagari": "100001000010", "Ongkari": "100000110000", }, 4:{ "Messiaen tm5": "110000110000", "Lavangi": "110001001000", "Warao": "101100000010", "Eskimo": "101010010000", "Vietnamese": "100101010000", "Genus primum": "101001010000", "Haripriya": "101001001000", "Bhavani": "101001000100", "Sumukam": "101000100001", "Nigamagamini": "100010100001", "Mahathi": "100010010010", "Bi Yu": "100100010010", }, 5:{ "Shobhavari": "101001011000", "Aeolian": "101100011000", "Vibhavari": "110001010010", "Iwato": "110001100010", "Blues Major": "101001010100", "Major": "101001010010", "Chaio": "101001001010", "Kung": "101010100100", "Manaranjani 2": "110001010100", "Abhogi": "101101000100", "Lydian": "100010110001", "Audav Tukhari": "101101001000", "Phrygian": "110100011000", "Budhamanohari": "101011010000", "Chandrakauns": "100101000101", "Locrian": "110100101000", "Devaranjani": "100001011001", "Minor": "100101010010", "Dhavalashri": "100010110100", "Ionian": "100011010001", "Gauri": "110001010001", "Bacovia": "100011001001", "Harikauns": "100100101010", "Blues Minor": "100101001010", "Multani": "100100110001", "Nata": "100101010001", "Putrika": "111000001100", "S.Priya": "100100110010", "Dorian": "101100010100", "Zilaf": "100011011000", "Dominant": "101010010010", "Mixolydian": "100011010010", "Minor(6+)": "100101010100", }, 6:{ "Whole tone": "101010101010", "Mixolydian": "101001010110", "Blues": "100101110010", "Major Diatonic": "101011010100", "Minor": "101101010010", "Eskimo": "101010101001", "Hawaiian": "101100010101", "Istrian": "110110110000", "Double Phrygian": "110101100100", "Bagesri": "101101000110", "Bhavani": "110100101010", "Ghantana": "101101001001", "Phrygian": "100101011010", "Hari Nata": "100011010101", "Jyoti": "100010111010", "Kalavati": "110011010100", "Lydian": "101010010101", "Lalita": "110011001001", "Latika": "101010011001", "Madhukauns": "100100110110", "Nalinakanti": "101011010001", "Nishadi": "101000110101", "Paraju": "100011011001", "Niagari": "110001011010", "Purna": "110011011000", "Rageshri": "101011000110", "Sarasvati": "101000110110", "Andhali": "101011010010", "Ancient Chinese": "101010110100", "Messiaen m5": "111000111000", "Prometheus": "110011001100", "Major Aug": "100110011001", "Superlocrian": "110110100010", }, 7:{ "ionian": "101011010101", "dorian": "101101010110", "phrygian": "110101011010", "lydian": "101010110101", "mixolydian": "101011010110", "aeolian": "101101011010", "locrian": "110101101010", "Harmo. Major": "101011011001", "Harmo. Minor": "101101011001", "Yishtabach": "110101101010", "Hamsagiri": "100110110011", "Madhuri": "100011010111", "Tsinganikos": "110011100110", "Lead. Whole-t": "101010101011", "Debussy": "101111100100", "Modif. Blues": "101101110010", "Major Bebop": "101011011100", "Major-Minor": "101011011010", "Kumbhini": "111000110101", "Chayanata": "100111010110", "Vamsavathi": "110010110011", "Verdi": "110010101011", "Partiravam": "110010110101", "Nohkan Flute": "101001101101", "Jeths' mode": "101101100101", "Minor Gipsy": "101100111010", "Major Gipsy": "110011011001", "Hung. Gipsy": "110101011001", "Hung. Minor": "101100111001", "Gnossiennes": "101100110110", "Hijaz": "110011011010", "Jazz Minor": "101101010101", "Multani": "110100111001", "Kalakanti": "110011011100", "Blues": "101101100110", "Shri": "110010111001", "Bartok": "101010110110", "Arunajualita": "101100110101", "Nasamani": "100110110110", "Romanian M": "110010110110", "Girvani": "110100111100", }, 8:{ "Bhatiyar": "110011110101", "Sindhura": "101101010111", "Gregorian nr.1": "101101011110", "Saurashtra": "110011011101", "Sabach": "101110011011", "Minor Bebop": "101111010110", "Dominant Bebop": "101011010111", "Major Bebop": "101011011101", "Blues": "101101110110", "Algerian": "101101111001", "Spanish-Phrygian": "110111011010", "Neveseri": "110100111011", "Diminished": "101101101101", "Ishikotsucho": "101011110101", "Verdi enigmatica": "110011101011", "Zirafkend": "101101011101", "Magen Abot": "110110101101", "Farahfaza": "101101011011", "Maqam Hijaz": "110011011011", "Diminished Blues": "110110110110", "Messiaen m4": "111100111100", "Messiaen m6": "111010111010", "Hamel": "110101011011", "Prokofiev": "110101101011", "Shostakovich": "110110110101", }, 9:{ "Messiaen m3": "111011101110", "Messiaen m3inv": "101110111011", "Full Minor": "101101011111", "Blues Enneatonic": "101111010111", "Pahadi": "101011011111", "Blues Ennea II": "101111110110", "Kiourdi": "101101111110", "Taishikicho": "101011110111", "Chromatic Bebop": "111011010111", "Locrian/Aeolian": "111101111010", "Genus chromatic": "110111011101", "Moorish Phryg.": "110111011011", "Youlan": "111011110110", "Chro+Dia Dorian": "111101011110", "Houseini": "101111011110", }, 10:{ "Messiaen m7": "111110111110", "Messiaen m7inv": "101111101111", "Maj/Min mixed": "101111011111", "Minor5+leading": "101111110111", "Maq.Shawq Afza": "101111111101", "Sindhi Bhairavi": "111111011011", "Maq.Tarzanuyn": "110111111110", "Symmetrical": "111011111011", }, 12:{"chromatic":"111111111111"}, }, rhythm = { // Tone value, beats number, VF value, url 0 : ["1n.", 96, "1d", "https://i.ibb.co/RPVCsPB/1d.png"], 1 : ["1n", 64, "1", "https://i.ibb.co/GHDXGKn/1.png"], 2 : ["2n.", 48, "2d", "https://i.ibb.co/x3bNSJL/2d.png"], 3 : ["2n", 32, "2", "https://i.ibb.co/d6YPqfd/2.png"], 4 : ["4n.", 24, "4d", "https://i.ibb.co/grhCxP5/4d.png"], 5 : ["4n", 16, "4", "https://i.ibb.co/jVJGYXn/4.png"], 6 : ["8n.", 12, "8d", "https://i.ibb.co/frmb1Cb/8d.png"], 7 : ["8n", 8, "8", "https://i.ibb.co/s9bbqj2/8.png"], 8 : ["16n.", 6, "16d", "https://i.ibb.co/stqKqXY/16d.png"], 9: ["16n", 4, "16", "https://i.ibb.co/3YB8bsz/16.png"], 10: ["32n." , 3, "32d", "https://i.ibb.co/Sy1j2Ww/32d.png"], 11: ["32n", 2, "32", "https://i.ibb.co/HXcCdJc/32.png"], 12: ["64n", 1, "64", "https://i.ibb.co/2sq3c6q/64.png"], 13: ["1r", 64, "1r", "https://i.ibb.co/bRFYhLC/s1.png"], 14: ["2r", 32, "2r", "https://i.ibb.co/4wkLt1q/s2.png"], 15: ["4r", 16, "4r", "https://i.ibb.co/LRCxcz1/s4.png"], 16: ["8r", 8, "8r", "https://i.ibb.co/sjFbBKx/s8.png"], // 18 : ["8t","n","https://i.ibb.co/GFVnthV/3.png"], triolet }, // creating a piano Tone element to produce the sound (sampler) piano = new Tone.Sampler({ "A0" : "A0.[mp3|ogg]", "C1" : "C1.[mp3|ogg]", "D#1" : "Ds1.[mp3|ogg]", "F#1" : "Fs1.[mp3|ogg]", "A1" : "A1.[mp3|ogg]", "C2" : "C2.[mp3|ogg]", "D#2" : "Ds2.[mp3|ogg]", "F#2" : "Fs2.[mp3|ogg]", "A2" : "A2.[mp3|ogg]", "C3" : "C3.[mp3|ogg]", "D#3" : "Ds3.[mp3|ogg]", "F#3" : "Fs3.[mp3|ogg]", "A3" : "A3.[mp3|ogg]", "C4" : "C4.[mp3|ogg]", "D#4" : "Ds4.[mp3|ogg]", "F#4" : "Fs4.[mp3|ogg]", "A4" : "A4.[mp3|ogg]", "C5" : "C5.[mp3|ogg]", "D#5" : "Ds5.[mp3|ogg]", "F#5" : "Fs5.[mp3|ogg]", "A5" : "A5.[mp3|ogg]", "C6" : "C6.[mp3|ogg]", "D#6" : "Ds6.[mp3|ogg]", "F#6" : "Fs6.[mp3|ogg]", "A6" : "A6.[mp3|ogg]", "C7" : "C7.[mp3|ogg]", "D#7" : "Ds7.[mp3|ogg]", "F#7" : "Fs7.[mp3|ogg]", "A7" : "A7.[mp3|ogg]", "C8" : "C8.[mp3|ogg]" }, { "release" : 1, "baseUrl" : "https://raw.githubusercontent.com/Tonejs/Tone.js/dev/examples/audio/salamander/" }).toMaster(), demos = { // "name" : [melody input,rhythm input,root,mode,from,to,rhythm,convert,speed,sustain,loop] "Pierre et le loup": [ "nwgVe9LPii1xiEOUQT3CgP3jdTAe", "EDbOVaa FZw'6na7QgK", "D",8,"Dominant Bebop",["C#",4],["E",5],[3,4,5,7,15],1,120,110,0], "Sololearn": [ "Sololearn", "Sololearn", "A",7,"Hijaz",["G",3],["F",5],[5,6,7,8,9,15,16],1,150,170,1], "Cepagrave": [ "Cepagrave", "Cepagrave", "E",7,"Minor Gipsy",["D",1],["B",7],[11,10,9,8,4],1,150,60,1], "Character Set": [ "abc' def' ghi' jkl' mno' pqr' stu' vwx' yz'", "0123456789 ABCDEFGHIJKLMNOPQRSTUVWXYZ", "F#",4,"Eskimo",["C",1],["B",7],[7,8,9,10,11,12],1,200,200,1], "Cumbia": [ "7sOTYcApcUsZkYVY'kzyWUp0fHqe0hz5c rZlCD4jFzyT7qAGNigGz", "2CboqWveF6luOYgWhfNLF6YEvhuokySq'CYFrAG0", "G",12,"chromatic",["G",3],["D",5],[3,4,5,6,7,8,9,11,16],1,130,175,1], "Dodecaf": [ "06283a91b457", "130542354125", "C",12,"chromatic",["C",3],["C",4],[3,4,5,6,7,8],0,150,150,1], }; ///////////////////////////// ///// RHYTHM TABLE CLASS///// ///////////////////////////// ///// ///// produces and updates the conversion table depending on the selected rhythm values. class Rhythm { constructor(elements){ this.elements = elements; // integers ("rhythm" keys) } update(){ this.len = this.elements.length; let tab = {}; let count = 0; for (let i=0;i=this.rebased_rhyt.length){rhythm_val = rhythm[this.RH.table[0]]} // default else{rhythm_val = rhythm[this.RH.table[this.rebased_rhyt[i]]]} VFnames[VFnames.length-1].push(name); let Tvalue = rhythm_val[0]; // ex: quarter = 4 let beat = rhythm_val[1]; // ex: quarter = 16 (number of 1/64 beats) VFbeats[VFbeats.length-1]+=beat; beats += beat; let note = new VF.StaveNote({ clef: "treble", keys: [name], duration: rhythm_val[2]}); if (name.includes("#")&&!Tvalue.includes("r")){note.addAccidental(0, new VF.Accidental("#"))} if (rhythm_val[2].includes("d")){note.addDotToAll()} VFnotes[VFnotes.length-1].push(note); let Tname = name.replace('/',''); // Adding a note to play with tone if it's not a silence if (!Tvalue.includes("r")){ Tns.push(Tname); Tvalues.push(Tvalue); Tdurations.push(beat); this.Tpart.add(time,Tname,"8n"); } // Here the note is added to The Tone Part time += beat/16; } this.VFnames = VFnames; // 2DArray for VexFlow ex: ["E#/3","G#/3","C/4"] this.VFnotes = VFnotes; // Objects 2DArray for VexFlow this.VFbeats = VFbeats; this.Tnames = Tns; // Array for Tone ex: ["A3","A#3","C5","A4"] this.Tdurations = Tdurations; // Array for Tone ex: [4,16,32,4,32] this.Tvalues = Tvalues; // Array for Tone ex:["4n","2n","8r","16n.""] this.beats = beats; // Array for Tone, total number of beats, integer this.loopEnd = beats/(16*speed); this.infos = this.SC.root+' '+this.SC.mode+'('+this.SC.steps+') / '+this.SC.from[0]+this.SC.from[1]+' -> '+this.SC.to[0]+this.SC.to[1]; // Info to be displayed = current melody settings } } // -------------- Melody Class end //////////////////////////////////////////////////////////////// ///// DYNAMIC RESPONSE TO (melody or rhythm) INPUT CHANGES ///// //////////////////////////////////////////////////////////////// ///// ///// Any change occuring in input or settings leads to the need of recalculating the depending melody. ///// The melody will update its scale and rhythm objects and then be updated itself. ///// ///// The partition will be erased + redrawn const react_to_input = (e)=>{ //// CATCHING INPUTS input_melo = melo_num.value; input_rhyt = rhyt_num.value; // dealing with invalid input for (i=0;imax_len ? elements[i].length : max_len;} // button width and height let x = Math.min(Math.max(max_len*2,9),30); let y = 9-(lel>10?lel-20:0)/6; // SIZE of popup div (invisible container) let cols = lel<9?2:3; let rows = Math.ceil(lel/cols); choice.style.width = x*cols+5+"vw"; let ht = (y+1)*(rows+1); choice.style.height = ht+"vw"; let ratio = window.innerHeight/window.innerWidth; choice.style.top = Math.max((ratio*(100-ht)),0)/2+"vh"; // catching the button's color [r,g,b,a] = bgc.match(/[\d]*[\.]{0,1}[\d]+/g); r = parseInt(r); g = parseInt(g); b = parseInt(b); // Producing the new buttons: let buttons = []; for (i=0;i{func(elts[i],button,i);}); })(); // immediately called function to apply vars "ki" and "cki" current loop values to the listen. } } function popoff(){ // empty choice div + close popup + remove overlay & blur while (choice.firstChild){choice.removeChild(choice.firstChild);} popup.style.visibility = "hidden"; description.style.visibility = "hidden"; for (let i=0;i{part.start(time);} Tone.Transport.schedule(()=>{partit(melodies[0].Tpart,0)}); Tone.Transport.loop = sd_loop; Tone.Transport.bpm.value = bpm; Tone.Transport.swing.value = 0.5; /// DISPLAY THE CURRENT SETTINGS current.innerHTML = melodies[0].infos; ////////////////////// ///// LISTENINGs ///// ////////////////////// // lISTENING to the partition's click listen(partition,"click",(e)=>{c_play.click();}); // LISTENING to changes in the inputs: listen(melo_num,"input",react_to_input); listen(rhyt_num,"input",react_to_input); react_to_input(); // LISTENING TO AUSIO CONTROLS listen(c_back,"click",()=>{Tone.Transport.position = -0.1;}); listen(c_play,"click",()=>{ if (Tone.Transport.state==="started"){ Tone.Transport.pause(); c_play.innerHTML = "play";} else { Tone.Transport.start(); c_play.innerHTML = "pause";} }); listen(c_stop,"click",()=>{ Tone.Transport.stop(); c_play.innerHTML = "play"; }); // LISTENING TO THE MAIN BUTTONS/LAMPS in SETTINGS // LOOP listen(loop_lamp,"click",()=>{ if (sd_loop===1){sd_loop=0; loop_lamp.classList.remove("twinkle");} else {sd_loop=1; loop_lamp.classList.add("twinkle");} Tone.Transport.loop = sd_loop; let r = 180+sd_loop*40, op = 0.18+sd_loop*0.37; loop_lamp.style.backgroundColor = 'rgba('+r+','+70+','+20+','+op+')'; }); // ROOT listen(root_lamp, "click",()=>general_choice("Tonality, root note of the scale", Object.keys(root), root_lamp, f=(e,b,i)=>{melodies[0].SC.root=e,popoff();})); // MODE listen(mode_lamp, "click", ()=>{general_choice("Number of steps in an octave", Object.keys(mode), mode_lamp, f=(e,b,i)=>{ melodies[0].SC.steps=e; general_choice("", Object.keys(mode[e]), mode_lamp, f=(e,b,i)=>{melodies[0].SC.mode=e; popoff();},1)})}); // RANGE listen(range_lamp, "click",()=>general_choice( "Lowest note", Object.keys(root), range_lamp, f=(e,b,i)=>{ melodies[0].SC.from[0]=e; general_choice( "Lowest note's octave (1=low)", ["1","2","3","4","5","6","7"], range_lamp, f=(e,b,i)=>{ melodies[0].SC.from[1]=e; general_choice( "Highest note", Object.keys(root), range_lamp, f=(e,b,i)=>{ melodies[0].SC.to[0]=e; general_choice( "Highest note's octave (7=high)", ["1","2","3","4","5","6","7"], range_lamp, f=(e,b,i)=>{ melodies[0].SC.to[1]=e; popoff(); })})})})); // <-- Horror !! (when I miss Python !) // RHYTHM // producing the images first: const rhythm_keys = [] for (let i=0;i{ melodies[0].RH.elements = []; general_choice( "Rhythm values to be used", rhythm_keys, rhythm_lamp, f=(e,b,i)=>{ if (e==="OK"){popoff()} //"OK" else{ if (b.classList.contains("selected")){ melodies[0].RH.elements.splice(melodies[0].RH.elements.indexOf(i),1); b.classList.remove("selected");} else {b.classList.add("selected"); melodies[0].RH.elements.push(i);} } } )}); // CONVERT listen(convert_lamp,"click",()=>{ if (base_conv===1){ base_conv=0; convert_lamp.style.backgroundColor = 'rgba('+60+','+60+','+60+','+0.3+')';} else { base_conv=1; convert_lamp.style.backgroundColor = 'rgba('+230+','+120+','+0+','+0.5+')';} react_to_input(); }); // DEMO listen(demo_lamp, "click",()=>{ general_choice("choose a demo",Object.keys(demos),demo_lamp,f=(e,b,i)=>{ // ex: ["test","test","E",7,"Blues",["D",4],["Bb",6],[5,7,9],1,32,180,1] let demo = demos[e]; let melo = new Melody; let scale = new Scale; let rhythm = new Rhythm; melo.SC = scale; melo.RH = rhythm; melo.Tpart = Tpart_1; melo_num.value = demo[0]; rhyt_num.value = demo[1]; melo.melo_seq = demo[0]; melo.rhyt_seq = demo[1]; // (root,steps,mode,from,to) scale.root = demo[2]; scale.steps = demo[3]; scale.mode = demo[4]; scale.from = demo[5]; scale.to = demo[6]; // elements rhythm.elements = demo[7]; // convert + speed + sustain + loop + restart if (base_conv!==demo[8]){convert_lamp.click()} speed = 2*Math.pow(4,(demo[9]-100)/100); speed_lvl.value = demo[9]; sustain_lvl.value = demo[10]; Tone.Transport.bpm.value = 300-demo[10]; if (sd_loop!==demo[11]){loop_lamp.click()} Tone.Transport.stop(); Tone.Transport.start(); melo.update(); melodies[0] = melo; react_to_input(); popoff(); } ); } ) // LISTENING to the sliders in settings listen(sound_vol,"input",()=>{piano.volume.value = sound_vol.value;}); listen(speed_lvl,"input",()=>{ speed = 2*Math.pow(4,(speed_lvl.value-100)/100); melodies[0].Tpart.playbackRate = speed; Tone.Transport.loopEnd = melodies[0].beats/(16*speed) }); listen(sustain_lvl,"change",()=>{ bpm = 40*Math.pow(15,(100-sustain_lvl.value)/100); Tone.Transport.bpm.value = bpm; react_to_input(); Tone.Transport.position = 0; }); }; // --------------- main end //// Shorthands const $i = a=>{return document.getElementById(a);}, $c = a=>{return document.getElementsByClassName(a);}, listen = (el,type,func)=>el.addEventListener(type,func), deaf = (el,type,func)=>el.removeEventListener(type,func), log = console.log, olog = o=>log(JSON.stringify(o)); DIGs = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ' "; const b2b =(str, fromB, toB)=> { // base to base converter, b2 to b64, supports very large numbers as strings // adapted from the code from: https://www.danvk.org/hex2dec.html if (toB==1){return DIGs[0]} let out_arr = [], power = [1], out = ''; const add = (x, y, base) => { let z = [],carry = 0,i = 0; const n = Math.max(x.length, y.length); while (i { if (n < 0){return null;} if (n === 0){return [];} let res = [], power = x; while (1) { n&1&&(res = add(res, power, base)); n = n>>1; if (n===0){break;} power = add(power, power, base);} return res;}; const parse_to_digits_arr = (str, base) => { const digits = str.split(''); let arr = []; for (let i = digits.length - 1; i >= 0; i--) { const n = DIGs.indexOf(digits[i]); if (n == -1) return null; arr.push(n);} return arr;}; const digits = parse_to_digits_arr(str, fromB); if (digits === null){return null;} for (let i = 0; i < digits.length; i++) { digits[i] && (out_arr = add(out_arr, multiply_by_n(digits[i], power, toB), toB)); power = multiply_by_n(fromB, power, toB);} for (let i = out_arr.length - 1; i >= 0; i--){out += DIGs[out_arr[i]];} return out;}; window.onload = main;

Melody Generator 1.6