static void ANNFFNAccomp()
{
Databank db = new Databank("lib");
var cat = db.Load("Classical");
Composition inputComp = cat.Compositions[6];
MelodySequence inputSeq = inputComp.Tracks[0].GetMainSequence() as MelodySequence;
AccompanimentGeneratorANNFF gen = new AccompanimentGeneratorANNFF(cat, PatchNames.Acoustic_Grand);
//gen.Initialize();
gen.SetSequence(inputSeq);
gen.Train();
var outMel = gen.Generate();
MusicPlayer player = new MusicPlayer();
Composition comp = new Composition();
Track t = new Track(PatchNames.Orchestral_Strings, 6);
t.AddSequence(outMel);
comp.Add(t);
comp.Add(inputComp.Tracks[0]);
player.Play(comp);
comp.WriteToMidi("ann_ff_accomp.mid");
}
public Composition Generate()
{
int trackNo = composition.Tracks.Count;
Composition newComp = new Composition();
Parallel.For(0, trackNo, i =>
{
PatchNames instrument = composition.Tracks[i].Instrument;
Console.WriteLine("Generating track {0} with instrument {1}", i, instrument.ToString());
var melodySeq = composition.Tracks[i].GetMainSequence() as MelodySequence;
MarkovChainGenerator chain = new MarkovChainGenerator(instrument,2, melodySeq.Length);
chain.AddMelody(melodySeq);
var notes = chain.Generate();
Track track = new Track(instrument, (byte)(i + 1));
track.AddSequence(notes);
newComp.Add(track);
//var notes = trackGenerator.Generate();
Console.WriteLine("Done Generating track {0}", i);
});
return newComp;
}
public static NCD FromCompositions(CompositionCategory category)
{
NCD ncd = new NCD();
string savepath = GetSavePath(category);
if (File.Exists(savepath))
{
ncd.Deserialize(savepath);
return ncd;
}
Composition[] seqs = category.Compositions;
ncd.songs = new string[seqs.Count()];
int i = 0;
int j = 0;
foreach (var comp in seqs)
{
Console.WriteLine("NCD: {0}", j++ / seqs.Length);
var c = comp;
if (MaxTracks > 0)
{
var newComp = new Composition();
for(int k = 0; k < MaxTracks && k < comp.Tracks.Count; k++)
{
newComp.Add(comp.Tracks[k]);
}
c = newComp;
}
ncd.songs[i++] = c.ToString();
}
string root = System.IO.Path.GetDirectoryName(savepath);
if (!System.IO.Directory.Exists(root))
System.IO.Directory.CreateDirectory(root);
ncd.Serialize(savepath);
return ncd;
}
static void WriteMelodyToFile(MelodySequence seq, string filename)
{
Composition comp = new Composition();
Track track = new Track(PatchNames.Acoustic_Grand, 1);
track.AddSequence(seq);
comp.Add(track);
comp.WriteToMidi(filename);
}
static void Test9()
{
MusicPlayer player = new MusicPlayer();
Console.WriteLine("Harmony Test");
//ChromaticToneDuration, ChromaticTone, MelodicBigram, RhythmicBigram
MetricSimilarity cosine = new MetricSimilarity(GetMelodySequence(@"test\other\ff7tifa.mid"), new ChromaticToneDuration());
GeneticGenerator evolver = new GeneticGenerator(cosine);
var notes = evolver.Generate();
SimpleChord ch = new SimpleChord();
var melody = notes;
HarmonySequence harmony = ch.GetHarmonySequence(melody);
Track t1 = new Track(PatchNames.Acoustic_Grand, 2);
t1.AddSequence(melody);
Track t2 = new Track(PatchNames.Church_Organ, 1);
t2.AddSequence(harmony);
Composition comp = new Composition();
// comp.Add(t1);
comp.Add(t2);
player.Play(comp);
Console.ReadLine();
return;
}
static void Test8()
{
MusicPlayer player = new MusicPlayer();
Console.WriteLine("Hidden Markov Model");
var m1 = GetMelodySequence(@"test\other\frere.mid");
var m2 = GetMelodySequence(@"test\other\babaa.mid");
var m3 = GetMelodySequence(@"test\other\twinkle.mid");
var m4 = GetMelodySequence(@"test\hagrid.mid");
var m5 = GetMelodySequence(@"test\harry.mid");
var m6 = GetMelodySequence(@"test\harry2.mid");
MarkovGenerator markov = new MarkovGenerator(new MelodySequence[] { m6 });
while (true)
{
Composition comp = new Composition();
GeneticGenerator gen = new GeneticGenerator(new MetricSimilarity(m6, new IMetric[] { new Rhythm(), new RhythmicBigram(), new RhythmicInterval() }));
var notes2 = gen.Generate();
Track t2 = new Track((PatchNames)0, 10);
MelodySequence s = new MelodySequence();
s.AddPause((int)Durations.wn * 10);
foreach (Note n in notes2.Notes)
{
if (n.Pitch <= 0)
n.Pitch = 0;
else if (n.Pitch > 48)
n.Pitch = 40;
else if (n.Pitch > 70)
n.Pitch = 35;
else
{
n.Pitch = 49;
n.Duration *= 4;
n.Velocity = 50;
s.AddPause(n.Duration * 2);
}
s.AddNote(n);
}
t2.AddSequence(s);
var notes3 = markov.Generate().Notes as Note[];
MelodySequence baseseq = new MelodySequence();
int max_dur = 0;
int max_index = 0;
for (int i = (int)(notes3.Length * 0.7f); i < notes3.Length; i++)
{
if (notes3[i].Duration > max_dur)
{
max_dur = notes3[i].Duration;
max_index = i;
}
}
Note last_note = null;
for (int i = 0; i < max_index; i++)
{
last_note = notes3[i];
baseseq.AddNote(last_note);
}
baseseq.AddNote(new Note(last_note.Pitch - 12, last_note.Duration));
baseseq.AddNote(new Note(last_note.Pitch - 24, last_note.Duration * 2));
baseseq.AddPause(last_note.Duration * 32);
Track t = new Track(PatchNames.Vibraphone, 1);
var b1 = baseseq.Clone() as MelodySequence;
var b2 = baseseq.Clone() as MelodySequence;
var b3 = baseseq.Clone() as MelodySequence;
b1.Transpose(12);
b2.Transpose(6);
b3.Transpose(-12);
t.AddSequence(baseseq);
t.AddSequence(b1);
t.AddSequence(b2);
t.AddSequence(b3);
comp.Add(t);
comp.Add(t2);
Console.WriteLine("Press enter key to listen");
Console.ReadLine();
player.Play(comp);
}
}
static void MarkovAccompTest()
{
Databank db = new Databank("lib");
var cat = db.Load("Classical");
Composition inputComp = cat.Compositions[6];
MelodySequence inputSeq = inputComp.Tracks[0].GetMainSequence() as MelodySequence;
AccompanyGeneratorMarkov gen = new AccompanyGeneratorMarkov(cat, PatchNames.Orchestral_Strings);
var outMel = gen.Generate(inputSeq, 10);
MusicPlayer player = new MusicPlayer();
Composition comp = new Composition();
Track t = new Track(gen.Instrument, 6);
t.AddSequence(outMel);
comp.Add(t);
comp.Add(inputComp.Tracks[0]);
player.Play(comp);
comp.WriteToMidi("markov_model_accomp.mid");
}
static void InstrumentalTest()
{
Databank db = new Databank("lib");
var cat = db.Load("Classical");
InstrumentalGenerator gen = new InstrumentalGenerator(cat);
gen.Initialize();
var outMel = gen.GenerateInstrument(PatchNames.Acoustic_Grand, 40);
MusicPlayer player = new MusicPlayer();
player.Play(outMel);
Composition comp = new Composition();
Track t = new Track(PatchNames.Acoustic_Grand, 3);
t.AddSequence(outMel);
comp.Add(t);
comp.WriteToMidi("instrumental_acousticgrand.mid");
}
static void GeneticTest()
{
Databank db = new Databank("lib");
var cat = db.Load("Classical");
MetricSimilarity cosine = MetricSimilarity.GenerateMetricSimilarityMulti(cat.Compositions, new IMetric[] { new ChromaticToneDistance(), new MelodicInterval(), new ChromaticToneDuration(), new RhythmicBigram() });
GeneticGenerator gen = new GeneticGenerator(cosine, PatchNames.Orchestral_Strings, cat);
gen.OnPercentage += (sender, percentage, fitness) => { Console.WriteLine("{0}: {1}", percentage, fitness); };
gen.MaxGenerations = 1000;
var outMel = gen.Generate();
MusicPlayer player = new MusicPlayer();
player.Play(outMel);
Composition comp = new Composition();
Track t = new Track(gen.Instrument, 3);
t.AddSequence(outMel);
comp.Add(t);
comp.WriteToMidi("genetic_cosine_all.mid");
}
static void DemoTest2()
{
MusicPlayer player = new MusicPlayer();
Composition comp = new Composition();
Track track1 = new Track(PatchNames.Acoustic_Grand, 1);
Track track2 = new Track(PatchNames.Cello, 2);
Console.WriteLine("Hidden Markov Model, constant duration, twinkle");
var mel1 = GetMelodySequence(@"test\harry.mid");
var stoch = new StochasticGenerator(new MelodySequence[] { mel1 });
track1.AddSequence(stoch.Generate());
track2.AddSequence(stoch.Generate());
//comp.Add(track1);
comp.Add(track2);
player.Play(comp);
return;
}
/// <summary>
/// Loads a Harmony Sequence though
/// </summary>
/// <param name="f"></param>
/// <returns></returns>
public static Composition LoadMidiType1(MidiFile f)
{
Composition comp = new Composition();
int c = 1;
foreach(var trackEvents in f.Events)
{
Track t = new Track();
t.Channel = (byte)c++;
TempoEvent tempo = new TempoEvent((int)(Note.ToRealDuration((int)Durations.qn, 60) * 1000000), 0);
HarmonySequence seq = new HarmonySequence();
long lastAbsTime = -1;
List<int> chordNotes = new List<int>(); int chordDuration = 0;
PatchNames instr = (PatchNames)9999;
bool add = true;
foreach(var e in trackEvents)
{
if (e as TempoEvent != null)
{
tempo = (TempoEvent)e;
}
if (e as PatchChangeEvent != null)
{
var p = e as PatchChangeEvent;
t.Instrument = (PatchNames)p.Patch;
if(t.Instrument == instr)
{
break;
}
instr = t.Instrument;
/*if(t.Duration < 1)
{
foreach(var t_ in comp.Tracks)
if(t_.Instrument == (PatchNames)p.Patch)
{
t = t_;
seq = t_.GetMainSequence() as HarmonySequence;
add = false;
break;
}
}*/
}
NoteOnEvent on = e as NoteOnEvent;
if (on != null && on.OffEvent != null)
{
int newDuration = Note.ToNoteLength(on.NoteLength, f.DeltaTicksPerQuarterNote, tempo.Tempo);
if (on.AbsoluteTime == lastAbsTime && chordDuration==newDuration)//skip chords
{
chordNotes.Add(on.NoteNumber);
}
else
{
Chord lastChord = new Chord(chordNotes.ToArray(), chordDuration);
chordNotes.Clear(); chordDuration = 0;
seq.AddChord(lastChord);
chordNotes.Add(on.NoteNumber);
}
chordDuration = newDuration;
lastAbsTime = on.AbsoluteTime;
}
}
if(chordNotes.Count > 0)
{
Chord lastChord = new Chord(chordNotes.ToArray(), chordDuration);
chordNotes.Clear(); chordDuration = 0;
seq.AddChord(lastChord);
}
t.AddSequence(seq);
if (!comp.Tracks.Contains(t) && t.Duration > 0 && add)
comp.Add(t);
}
return comp;
}
public void Next()
{
ActiveComposition = new Composition();
int i = 1;
foreach(var gen in generators)
{
byte channel = (byte)i++;
if(gen as DrumGenerator != null)
channel = 10;
Track t = new Track(gen.Instrument, channel);
MelodySequence seq = gen.Next();
t.AddSequence(seq);
ActiveComposition.Add(t);
}
if (OnCompositionChange != null)
OnCompositionChange(this, new EventArgs());
}
public Composition Generate(IEnumerable<PatchNames> instrs, int seed = 0)
{
lastInstruments = instrs;
int i = 1;
Composition comp = new Composition();
foreach (PatchNames instrument in instrs)
{
if (instruments.ContainsKey(instrument))
{
Track t = new Track(instrument, (byte)(i++));
t.AddSequence(GenerateInstrument(instrument, seed));
comp.Add(t);
}
}
return comp;
}
public float ComputeFitness(Composition comp)
{
var c = comp;
if (MaxTracks > 0)
{
var newComp = new Composition();
for (int k = 0; k < MaxTracks && k < comp.Tracks.Count; k++)
{
newComp.Add(comp.Tracks[k]);
}
c = newComp;
}
string indi2str = c.ToString();
return ComputeFitness(indi2str);
}