music-transcription 0.3.0

data/spec/interval_spec.rb

@@ -0,0 +1,38 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Interval do
+  before :all do
+    @pitch = C4
+  end
+  
+  context '.new' do
+    it "should assign :pitch parameter given during construction" do
+      interval = Interval.new :pitch => @pitch
+      interval.pitch.should eq(@pitch)
+    end
+    
+    it "should assign :link parameter if given during construction" do
+      link = Link.new(:relationship => Link::RELATIONSHIP_TIE, :target_pitch => @pitch)
+      interval = Interval.new :pitch => @pitch, :link => link
+      interval.link.should eq(link)
+    end
+  end
+  
+  context '#pitch=' do
+    it "should assign pitch" do
+      interval = Interval.new :pitch => @pitch
+      interval.pitch = Gb4
+      interval.pitch.should eq Gb4
+    end
+  end
+  
+  context '#link=' do
+    it "should assign link" do
+      link = Link.new(:relationship => Link::RELATIONSHIP_SLUR, :target_pitch => G2)
+      interval = Interval.new :pitch => @pitch
+      interval.link = link
+      interval.link.should eq(link)
+    end
+  end
+
+end

data/spec/link_spec.rb

@@ -0,0 +1,22 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Link do
+  context '.new' do
+    its(:relationship) { should eq(Link::RELATIONSHIP_NONE) }
+    its(:target_pitch) { should eq(Pitch.new) }
+  end
+    
+  it 'should assign the given relationship' do
+    Link::RELATIONSHIPS.each do |relationship|
+      link = Link.new(:relationship => relationship)
+      link.relationship.should eq(relationship)
+    end
+  end
+  
+  it 'should assign the given target pitch' do
+    [A0, B0].each do |pitch|
+      link = Link.new(:target_pitch => pitch)
+      link.target_pitch.should eq(pitch)
+    end
+  end
+end

data/spec/musicality_spec.rb

@@ -0,0 +1,7 @@
+require 'spec_helper'
+
+describe Music::Transcription do
+  it "should have a VERSION constant" do
+    subject.const_get('VERSION').should_not be_empty
+  end
+end

data/spec/note_spec.rb

@@ -0,0 +1,65 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Note do
+  before :all do
+    @pitch = C4
+  end
+  
+  context '.new' do
+    it 'should assign :duration that is given during construction' do
+      note = Note.new :duration => 2
+      note.duration.should eq(2)
+    end
+    
+    it "should assign :sustain, :attack, and :separation parameters if given during construction" do
+      note = Note.new :duration => 2, :sustain => 0.1, :attack => 0.2, :separation => 0.3
+      note.sustain.should eq(0.1)
+      note.attack.should eq(0.2)
+      note.separation.should eq(0.3)
+    end
+    
+    it 'should have no intervals if not given' do
+      Note.new(:duration => 2).intervals.should be_empty
+    end
+    
+    it 'should assign intervals when given' do
+      intervals = [
+        Interval.new(:pitch => C2),
+        Interval.new(:pitch => D2),
+      ]
+      Note.new(:duration => 2, :intervals => intervals).intervals.should eq(intervals)
+    end
+  end
+  
+  context '#duration=' do
+    it 'should assign duration' do
+      note = Note.new :pitch => @pitch, :duration => 2
+      note.duration = 3
+      note.duration.should eq 3
+    end
+  end
+  
+  context '#sustain=' do
+    it "should assign sustain" do
+      note = Note.new :pitch => @pitch, :duration => 2
+      note.sustain = 0.123
+      note.sustain.should eq 0.123
+    end
+  end
+
+  context '#attack=' do
+    it "should assign attack" do
+      note = Note.new :pitch => @pitch, :duration => 2
+      note.attack = 0.123
+      note.attack.should eq 0.123
+    end
+  end
+  
+  context '#separation=' do
+    it "should assign separation" do
+      note = Note.new :pitch => @pitch, :duration => 2
+      note.separation = 0.123
+      note.separation.should eq 0.123
+    end
+  end
+end

data/spec/part_spec.rb

@@ -0,0 +1,87 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Part do
+  context '.new' do
+    its(:offset) { should eq(0) }
+    its(:notes) { should be_empty }
+    
+    it "should assign loudness_profile profile given during construction" do
+      loudness_profile = Profile.new(
+        :start_value => 0.5,
+        :value_changes => {
+          1.0 => linear_change(1.0, 2.0)
+        }
+      )
+      part = Part.new :loudness_profile => loudness_profile
+      part.loudness_profile.should eq(loudness_profile)
+    end  
+    
+    it "should assign notes given during construction" do
+      notes = [
+        Note.new(
+          :duration => 0.25,
+          :intervals => [
+            Interval.new(:pitch => C1),
+            Interval.new(:pitch => D1),
+          ]
+        )
+      ]
+      
+      part = Part.new :notes => notes
+      part.notes.should eq(notes)
+    end
+  end  
+end
+
+describe PartFile do
+  describe '.new' do
+    before :all do
+      @part_hash = {
+        :notes => [
+          Note.new(
+            :duration => 0.25,
+            :intervals => [
+              Interval.new(:pitch => C1),
+              Interval.new(:pitch => D1) ]
+          ),
+          Note.new(
+            :duration => 0.125,
+            :intervals => [
+              Interval.new(:pitch => E2) ]
+          ),
+        ],
+        :loudness_profile => Profile.new(
+          :start_value => 0.6
+        )
+      }
+      
+      @path = 'temp.yml'
+    end
+    
+    context 'hash of part stored in YAML file' do
+      it 'should load part from file' do
+        File.open(@path, 'w') do |file|
+          file.write @part_hash.to_yaml
+        end
+        part = Part.new @part_hash
+        part_from_file = PartFile.new(:file_path => @path)
+        part_from_file.should eq part
+      end
+    end
+
+    context 'part stored in YAML file' do
+      it 'should load part from file' do
+        part = Part.new @part_hash
+        File.open(@path, 'w') do |file|
+          file.write part.to_yaml
+        end
+        part_from_file = PartFile.new(:file_path => @path)
+        part_from_file.should eq part
+      end
+    end
+    
+    after :all do
+      File.delete @path
+    end
+  end
+end

data/spec/pitch_spec.rb

@@ -0,0 +1,139 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Pitch do
+
+  before :each do
+    @cases = 
+    [
+      { :octave => 1, :semitone => 0, :cent => 0, :ratio => 2.0, :total_cent => 1200 },
+      { :octave => 2, :semitone => 0, :cent => 0, :ratio => 4.0, :total_cent => 2400 },
+      { :octave => 1, :semitone => 6, :cent => 0, :ratio => 2.8284, :total_cent => 1800 },
+      { :octave => 2, :semitone => 6, :cent => 0, :ratio => 5.6569, :total_cent => 3000 },
+      { :octave => 1, :semitone => 6, :cent => 20, :ratio => 2.8613, :total_cent => 1820 },
+      { :octave => 2, :semitone => 6, :cent => 20, :ratio => 5.7226, :total_cent => 3020 },
+      { :octave => 3, :semitone => 7, :cent => 77, :ratio => 12.5316, :total_cent => 4377 },
+      { :octave => -1, :semitone => 0, :cent => 0, :ratio => 0.5, :total_cent => -1200 },
+      { :octave => -2, :semitone => 0, :cent => 0, :ratio => 0.25, :total_cent => -2400 },
+      { :octave => -2, :semitone => 7, :cent => 55, :ratio => 0.3867, :total_cent => -1645 },
+      { :octave => -1, :semitone => 9, :cent => 23, :ratio => 0.8521, :total_cent => -277 },
+    ]
+  end
+  
+  it "should be constructible with no parameters (no error raised)" do
+	  lambda { Pitch.new }.should_not raise_error
+  end
+  
+  it "should be hash-makeable" do
+    obj = Pitch.new :octave => 4, :semitone => 3
+    obj.octave.should eq(4)
+    obj.semitone.should eq(3)
+    obj.cent.should eq(0)
+  end
+  
+  it "should use default octave, semitone, and cent in none is given" do
+    p = Pitch.new
+    p.ratio.should be_within(0.01).of(1.0)
+    p.total_cent.should eq(0)
+  end
+  
+  it "should use the octave, semitone, and cent given during construction" do
+    @cases.each do |case_data|
+      p = Pitch.new :octave => case_data[:octave], :semitone => case_data[:semitone], :cent => case_data[:cent]
+      p.ratio.should be_within(0.01).of case_data[:ratio]
+      p.total_cent.should be case_data[:total_cent]
+    end
+  end
+
+  it "should allow setting by ratio" do
+    @cases.each do |case_data|
+      p = Pitch.new
+      p.ratio = case_data[:ratio]
+            
+      p.octave.should eq case_data[:octave]
+      p.semitone.should eq case_data[:semitone]
+      p.cent.should eq case_data[:cent]
+      p.total_cent.should eq case_data[:total_cent]
+    end
+  end
+
+  it "should setting by total_cent" do    
+    @cases.each do |case_data|
+      p = Pitch.new
+      p.total_cent = case_data[:total_cent] 
+      
+      p.octave.should eq case_data[:octave]
+      p.semitone.should eq case_data[:semitone]
+      p.cent.should eq case_data[:cent]
+      p.total_cent.should eq case_data[:total_cent]
+    end
+  end
+  
+  it "should be comparable to other pitches" do
+    p1 = Pitch.new :semitone => 1
+    p2 = Pitch.new :semitone => 2
+    p3 = Pitch.new :semitone => 3
+
+    p1.should eq(Pitch.new :semitone => 1)
+    p2.should eq(Pitch.new :semitone => 2)
+    p3.should eq(Pitch.new :semitone => 3)
+    
+    p1.should be < p2
+    p1.should be < p3
+    p2.should be < p3
+    p3.should be > p2
+    p3.should be > p1
+    p2.should be > p1
+  end
+
+  it "should be addable and subtractable with other pitches" do
+    p1 = Pitch.new :semitone => 1
+    p2 = Pitch.new :semitone => 2
+    p3 = Pitch.new :semitone => 3
+    
+    (p1 + p2).should eq(Pitch.new :semitone => 3) 
+    (p1 + p3).should eq(Pitch.new :semitone => 4)
+    (p2 + p3).should eq(Pitch.new :semitone => 5)
+    
+    (p1 - p2).should eq(Pitch.new :semitone => -1) 
+    (p1 - p3).should eq(Pitch.new :semitone => -2)
+    (p2 - p3).should eq(Pitch.new :semitone => -1)
+    (p3 - p2).should eq(Pitch.new :semitone => 1)
+    (p3 - p1).should eq(Pitch.new :semitone => 2)
+  end
+  
+  it "should have freq of 440 for A4" do
+    a4 = Pitch.new :octave => 4, :semitone => 9
+    a4.freq.should be_within(0.01).of(440.0)
+  end
+  
+  context 'String#to_pitch' do
+    it 'should create a Pitch object that matches the musical note' do
+      {
+	"Ab2" => Pitch.new(:octave => 2, :semitone => 8),
+	"C0" => Pitch.new(:octave => 0, :semitone => 0),
+	"db4" => Pitch.new(:octave => 4, :semitone => 1),
+	"F#12" => Pitch.new(:octave => 12, :semitone => 6),
+	"E#7" => Pitch.new(:octave => 7, :semitone => 5),
+	"G9" => Pitch.new(:octave => 9, :semitone => 7),
+	"Bb10" => Pitch.new(:octave => 10, :semitone => 10),
+      }.each do |str, expected_pitch|
+	str.to_pitch.should eq(expected_pitch)
+      end
+    end
+  end
+  
+  context '.make_from_freq' do
+    it 'should make a pitch whose freq is approximately the given freq' do
+      one_cent = Pitch.new(:cent => 1)
+      [1.0, 25.0, 200.0, 3500.0].each do |given_freq|
+	pitch = Pitch.make_from_freq given_freq
+	freq = pitch.freq
+	if freq > given_freq
+	  (freq / given_freq).should be < one_cent.ratio
+	elsif freq < given_freq
+	  (given_freq / freq).should be < one_cent.ratio
+	end
+      end
+    end
+  end
+end

data/spec/profile_spec.rb

@@ -0,0 +1,24 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Profile do
+  
+  context '.new' do
+    it "should assign start value given during construction" do
+      p = Profile.new(:start_value => 0.2)
+      p.start_value.should eq(0.2)
+    end
+    
+    it "should assign settings given during construction" do
+      p = Profile.new(
+        :start_value => 0.2,
+        :value_changes => {
+          1.0 => ValueChange.new(:value => 0.5),
+          1.5 => ValueChange.new(:value => 1.0)
+        }
+      )
+      p.value_changes[1.0].value.should eq(0.5)
+      p.value_changes[1.5].value.should eq(1.0)
+    end
+  end
+
+end

data/spec/program_spec.rb

@@ -0,0 +1,55 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Program do
+  
+  it "should assign the segments given during initialization" do
+    segments = [ 0.0...5.0, 0.0...4.0, 5.0...10.0 ]
+    program = Program.new :segments => segments
+    program.segments.should eq(segments.clone)
+  end
+  
+  describe "#include?" do
+    it "should return true for any offset which would be encountered" do
+      segments = [ 0.0...5.0, 0.0...4.0, 5.0...10.0 ]
+      program = Program.new :segments => segments
+      
+      [0.0, 4.0, 5.0, 9.999].each do |offset|
+        program.include?(offset).should be_true
+      end
+    end
+
+    it "should return false for any offset which would not be encountered" do
+      segments = [ 0.0...5.0, 0.0...4.0, 5.0...10.0 ]
+      program = Program.new :segments => segments
+      
+      [-0.000001, 10.000001].each do |offset|
+        program.include?(offset).should be_false
+      end
+    end
+  end
+  
+  describe "#note_elapsed_at" do
+    before :each do
+      segments = [ 0.0...5.0, 0.0...4.0, 5.0..10.0 ]
+      @program = Program.new :segments => segments
+    end
+
+    it "should return 0.0 at program start" do
+      @program.note_elapsed_at(@program.start).should eq(0.0)
+    end
+
+    it "should return program length at program stop" do
+      @program.note_elapsed_at(@program.stop).should eq(@program.length)
+    end
+
+    it "should return correct note elapsed for any included offset" do
+      @program.note_elapsed_at(2.5).should eq(2.5)
+      @program.note_elapsed_at(5.5).should eq(9.5)
+    end
+
+    it "should raise error if offset is not included" do
+      lambda { @program.note_elapsed_at(-0.000001) }.should raise_error
+      lambda { @program.note_elapsed_at(10.000001) }.should raise_error
+    end
+  end
+end

data/spec/score_spec.rb

@@ -0,0 +1,55 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe Score do
+  before :each do
+    @parts = { "piano (LH)" => Samples::SAMPLE_PART }
+    @program = Program.new :segments => [0...0.75, 0...0.75]
+  end
+  
+  describe '.new' do
+    context "no args given" do
+      let(:score) { Score.new }
+      subject { score }
+      its(:program) { should eq(Program.new) }
+      its(:parts) { should be_empty }
+    end
+    
+    context 'args given' do
+      it "should assign parts given during construction" do
+        score = Score.new :program => @program, :parts => @parts
+        score.parts.should eq(@parts)
+      end
+      
+      it "should assign program given during construction" do
+        score = Score.new :program => @program
+        score.program.should eq(@program)
+      end      
+    end
+  end
+end
+
+describe TempoScore do
+  before :each do
+    @parts = { "piano (LH)" => Samples::SAMPLE_PART }
+    @program = Program.new :segments => [0...0.75, 0...0.75]
+    @tempo_profile = Profile.new(
+      :start_value => tempo(120),
+      :value_changes => {
+        0.5 => linear_change(tempo(60), 0.25)
+      }
+    )
+  end
+  
+  describe '.new' do
+    it "should assign tempo profile given during construction" do
+      score = TempoScore.new :tempo_profile => @tempo_profile
+      score.tempo_profile.should eq(@tempo_profile)
+    end
+    
+    it "should assign part and program given during construction" do
+      score = TempoScore.new :tempo_profile => @tempo_profile, :parts => @parts, :program => @program
+      score.parts.should eq(@parts)
+      score.program.should eq(@program)
+    end
+  end
+end