jmtk 0.0.3.3-java

data/spec/mtk/patterns/palindrome_spec.rb

@@ -0,0 +1,108 @@
+require 'spec_helper'
+
+describe MTK::Patterns::Palindrome do
+
+  PALINDROME = MTK::Patterns::Palindrome
+
+  describe "#next" do
+    it "reverses direction when the ends of the list are reached" do
+      palindrome = PALINDROME.new [1,2,3,4]
+      nexts = []
+      12.times { nexts << palindrome.next }
+      nexts.should == [1,2,3, 4,3,2, 1,2,3, 4,3,2]
+    end
+
+    it "reverses direction when the end of the list is reached, and repeats the end (first/last) elements" do
+      palindrome = PALINDROME.new [1,2,3,4], :repeat_ends => true
+      nexts = []
+      12.times { nexts << palindrome.next }
+      nexts.should == [1,2,3,4, 4,3,2,1, 1,2,3,4]
+    end
+
+    it "enumerates nested sequences" do
+      palindrome = PALINDROME.new [1, MTK::Patterns.Sequence(2,3), 4]
+      nexts = []
+      10.times { nexts << palindrome.next }
+      nexts.should == [1,2,3,4, 2,3,1, 2,3,4] # note sequence goes forward in both directions!
+    end
+
+    it "enumerates nested sequences, and repeats the last element" do
+      palindrome = PALINDROME.new [1, MTK::Patterns.Sequence(2,3), 4], :repeat_ends => true
+      nexts = []
+      9.times { nexts << palindrome.next }
+      nexts.should == [1,2,3,4, 4,2,3,1, 1] # note sequence goes forward in both directions!
+    end
+  end
+
+  describe "#rewind" do
+    it "restarts the Palindrome" do
+      palindrome = PALINDROME.new [1,2,3,4]
+      5.times { palindrome.next }
+      palindrome.rewind
+      palindrome.next.should == 1
+      palindrome.next.should == 2
+    end
+  end
+
+  describe "#repeat_ends?" do
+    it "is true if the :repeat_ends option is true" do
+      PALINDROME.new([], :repeat_ends => true).repeat_ends?.should be_true
+    end
+
+    it "is false if the :repeat_ends option is true" do
+      PALINDROME.new([], :repeat_ends => false).repeat_ends?.should be_false
+    end
+  end
+
+  describe "#==" do
+    it "is false if the :repeat_ends options are different" do
+      PALINDROME.new([1,2,3], :repeat_ends => true).should_not == PALINDROME.new([1,2,3], :repeat_ends => false)
+    end
+  end
+
+end
+
+
+describe MTK::Patterns do
+
+  describe "#Palindrome" do
+    it "creates a Palindrome" do
+      MTK::Patterns.Palindrome(1,2,3).should be_a MTK::Patterns::Palindrome
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.Palindrome(1,2,3).elements.should == [1,2,3]
+    end
+  end
+
+  describe "#PitchPalindrome" do
+    it "creates a Palindrome" do
+      MTK::Patterns.PitchPalindrome(1,2,3).should be_a MTK::Patterns::Palindrome
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.PitchPalindrome(1,2,3).elements.should == [Pitch(1),Pitch(2),Pitch(3)]
+    end
+  end
+
+  describe "#IntensityPalindrome" do
+    it "creates a Palindrome" do
+      MTK::Patterns.IntensityPalindrome(1,2,3).should be_a MTK::Patterns::Palindrome
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.IntensityPalindrome(1,2,3).elements.should == [Intensity(1),Intensity(2),Intensity(3)]
+    end
+  end
+
+  describe "#DurationPalindrome" do
+    it "creates a Palindrome" do
+      MTK::Patterns.DurationPalindrome(1,2,3).should be_a MTK::Patterns::Palindrome
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.DurationPalindrome(1,2,3).elements.should == [Duration(1),Duration(2),Duration(3)]
+    end
+  end
+
+end

data/spec/mtk/patterns/pattern_spec.rb

@@ -0,0 +1,132 @@
+require 'spec_helper'
+
+describe MTK::Patterns::Pattern do
+
+  PATTERN = MTK::Patterns::Pattern
+
+  let(:elements) { [1,2,3] }
+
+
+  describe "@min_elements" do
+    it "is the :min_elements option the pattern was constructed with" do
+      PATTERN.new([], min_elements: 1).min_elements.should == 1
+    end
+
+    it "is nil by default" do
+      PATTERN.new([]).min_elements.should be_nil
+    end
+
+    it "prevents a StopIteration error until min_elements have been emitted (overriding max_elements if necessary)" do
+      pattern = PATTERN.new([1,2,3], min_elements: 5, max_elements: 3)
+      5.times{ pattern.next }
+      lambda{ pattern.next }.should raise_error StopIteration
+    end
+
+    it "sets exactly how many elements will be emitted when set to the same values as max_elements" do
+      pattern = PATTERN.new([1,2,3], min_elements: 5, max_elements: 5)
+      5.times{ pattern.next }
+      lambda{ pattern.next }.should raise_error StopIteration
+    end
+
+    it "is maintained when applying Collection operations" do
+      PATTERN.new(elements, min_elements: 2).reverse.min_elements.should == 2
+    end
+  end
+
+  describe '#min_elements_unmet?' do
+    it "is true until min_elements have been emitted" do
+      pattern = PATTERN.new([:anything], min_elements:  5)
+      5.times { pattern.min_elements_unmet?.should be_true and pattern.next }
+      pattern.min_elements_unmet?.should be_false
+    end
+
+    it "is always false if min_elements is not set" do
+      pattern = PATTERN.new([:anything], min_elements: nil)
+      5.times { pattern.min_elements_unmet?.should be_false and pattern.next }
+    end
+
+    it "is always false if min_elements is 0" do
+      pattern = PATTERN.new([:anything], min_elements: 0)
+      5.times { pattern.min_elements_unmet?.should be_false and pattern.next }
+    end
+  end
+
+
+  describe "@max_elements" do
+    it "is the :max_elements option the pattern was constructed with" do
+      PATTERN.new([], max_elements: 1).max_elements.should == 1
+    end
+
+    it "is nil by default" do
+      PATTERN.new([]).max_elements.should be_nil
+    end
+
+    it "causes a StopIteration exception once max_elements have been emitted" do
+      pattern = PATTERN.new([:anything], max_elements: 5)
+      5.times { pattern.next }
+      lambda { pattern.next }.should raise_error
+    end
+
+    it "raises a StopIteration error when a nested pattern has emitted more than max_elements" do
+      pattern = PATTERN.new([Patterns.Cycle(1,2)], max_elements: 5)
+      5.times{ pattern.next }
+      lambda{ pattern.next }.should raise_error StopIteration
+    end
+
+    it "is maintained when applying Collection operations" do
+      PATTERN.new(elements, max_elements: 2).reverse.max_elements.should == 2
+    end
+  end
+
+
+  describe '#max_elements_exceeded?' do
+    it "is false until max_elements have been emitted" do
+      pattern = PATTERN.new([:anything], max_elements: 5)
+      5.times { pattern.max_elements_exceeded?.should be_false and pattern.next }
+      pattern.max_elements_exceeded?.should be_true
+    end
+
+    it "is always false when max_elements is not set" do
+      pattern = PATTERN.new([:anything], max_elements: nil)
+      5.times { pattern.max_elements_exceeded?.should be_false and pattern.next }
+    end
+  end
+
+
+  describe "@max_cycles" do
+    it "is the :max_cycles option the pattern was constructed with" do
+      PATTERN.new([], max_cycles: 2).max_cycles.should == 2
+    end
+
+    it "is 1 by default" do
+      PATTERN.new([]).max_cycles.should == 1
+    end
+
+    it "is maintained when applying Collection operations" do
+      PATTERN.new(elements, max_cycles: 2).reverse.max_cycles.should == 2
+    end
+  end
+
+
+  describe "#next" do
+    it "raises StopIteration if elements is empty" do
+      lambda{ PATTERN.new([]).next }.should raise_error StopIteration
+    end
+  end
+
+
+  describe "#==" do
+    it "is true if the elements and types are equal" do
+      PATTERN.new(elements, :type => :some_type).should == PATTERN.new(elements, :type => :some_type)
+    end
+
+    it "is false if the elements are not equal" do
+      PATTERN.new(elements, :type => :some_type).should_not == PATTERN.new(elements + [4], :type => :some_type)
+    end
+
+    it "is false if the types are not equal" do
+      PATTERN.new(elements, :type => :some_type).should_not == PATTERN.new(elements, :type => :another_type)
+    end
+  end
+
+end

data/spec/mtk/patterns/sequence_spec.rb

@@ -0,0 +1,203 @@
+require 'spec_helper'
+
+describe MTK::Patterns::Sequence do
+
+  SEQUENCE = MTK::Patterns::Sequence
+
+  let(:elements) { [1,2,3] }
+  let(:sequence) { SEQUENCE.new(elements) }
+
+  it "is a MTK::Collection" do
+    sequence.should be_a MTK::Groups::Collection
+    # and now we won't test any other collection features here... see collection_spec
+  end
+
+  describe ".from_a" do
+    it "acts like .new" do
+      SEQUENCE.from_a(elements).should == sequence
+    end
+  end
+
+  describe "#elements" do
+    it "is the array the sequence was constructed with" do
+      sequence.elements.should == elements
+    end
+  end
+
+  describe "#next" do
+    it "enumerates the elements" do
+      nexts = []
+      elements.length.times do
+        nexts << sequence.next
+      end
+      nexts.should == elements
+    end
+
+    it "raises StopIteration when the end of the Sequence is reached" do
+      elements.length.times{ sequence.next }
+      lambda{ sequence.next }.should raise_error(StopIteration)
+    end
+
+    it "should automatically break out of Kernel#loop" do
+      nexts = []
+      loop do # loop rescues StopIteration and exits the loop
+        nexts << sequence.next
+      end
+      nexts.should == elements
+    end
+
+    it "enumerates the elements in sub-sequences" do
+      sub_sequence = SEQUENCE.new [2,3]
+      sequence = SEQUENCE.new [1,sub_sequence,4]
+      nexts = []
+      loop { nexts << sequence.next }
+      nexts.should == [1,2,3,4]
+    end
+
+    it "skips over empty sub-sequences" do
+      sub_sequence = SEQUENCE.new []
+      sequence = SEQUENCE.new [1,sub_sequence,4]
+      nexts = []
+      loop { nexts << sequence.next }
+      nexts.should == [1,4]
+    end
+
+  end
+
+  describe "@min_elements" do
+    it "prevents a StopIteration error until min_elements have been emitted" do
+      pattern = SEQUENCE.new([1,2,3], cycle_count: 1, min_elements: 5)
+      5.times{ pattern.next }
+      lambda{ pattern.next }.should raise_error StopIteration
+    end
+  end
+
+
+  describe "@max_cycles" do
+    it "is the :max_cycles option the pattern was constructed with" do
+      SEQUENCE.new( [], max_cycles: 2 ).max_cycles.should == 2
+    end
+
+    it "is 1 by default" do
+      SEQUENCE.new( [] ).max_cycles.should == 1
+    end
+
+    it "loops indefinitely when it's nil" do
+      sequence = SEQUENCE.new( [1], max_cycles: nil )
+      lambda { 100.times { sequence.next } }.should_not raise_error
+    end
+
+    it "causes a StopIteration exception after the number of cycles has completed" do
+      sequence = SEQUENCE.new( elements, max_cycles: 2 )
+      2.times do
+        elements.length.times { sequence.next } # one full cycle
+      end
+      lambda { sequence.next }.should raise_error StopIteration
+    end
+  end
+
+
+  describe "#max_cycles_exceeded?" do
+    it "is false until max_elements have been emitted" do
+      sequence = SEQUENCE.new( elements, max_cycles: 2 )
+      2.times do
+        sequence.max_cycles_exceeded?.should be_false
+        elements.length.times { sequence.next } # one full cycle
+      end
+      # unlike with element_count and max_elements_exceeded?, cycle_count doesn't get bumped until
+      # you ask for the next element and a StopIteration is thrown
+      lambda { sequence.next }.should raise_error StopIteration
+      sequence.max_cycles_exceeded?.should be_true
+    end
+
+    it "is always false when max_cycles is not set" do
+      pattern = PATTERN.new([:anything], max_cycles: nil)
+      15.times { pattern.max_cycles_exceeded?.should be_false and pattern.next }
+    end
+  end
+
+
+  it "has max_elements_exceeded once max_elements have been emitted (edge case, has same number of elements)" do
+    sequence = SEQUENCE.new([1,2,3,4,5], :max_elements => 5)
+    5.times { sequence.max_elements_exceeded?.should(be_false) and sequence.next }
+    sequence.max_elements_exceeded?.should be_true
+    lambda { sequence.next }.should raise_error StopIteration
+  end
+
+
+  it "raises a StopIteration error when a nested pattern has emitted more than max_elements" do
+    sequence = SEQUENCE.new([Patterns.Cycle(1,2)], :max_elements => 5)
+    5.times { sequence.next }
+    lambda{ sequence.next }.should raise_error StopIteration
+  end
+  
+
+  describe "#rewind" do
+    it "restarts at the beginning of the sequence" do
+      loop { sequence.next }
+      sequence.rewind
+      sequence.next.should == elements.first
+    end
+
+    it "returns self, so it can be chained to #next" do
+      first = sequence.next
+      sequence.rewind.next.should == first
+    end
+
+    it "causes sub-sequences to start from the beginning when encountered again after #rewind" do
+      sub_sequence = SEQUENCE.new [2,3]
+      sequence = SEQUENCE.new [1,sub_sequence,4]
+      loop { sequence.next }
+      sequence.rewind
+      nexts = []
+      loop { nexts << sequence.next }
+      nexts.should == [1,2,3,4]
+    end
+  end
+
+end
+
+
+describe MTK::Patterns do
+
+  describe "#Sequence" do
+    it "creates a Sequence" do
+      MTK::Patterns.Sequence(1,2,3).should be_a MTK::Patterns::Sequence
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.Sequence(1,2,3).elements.should == [1,2,3]
+    end
+  end
+
+  describe "#PitchSequence" do
+    it "creates a Sequence" do
+      MTK::Patterns.PitchSequence(1,2,3).should be_a MTK::Patterns::Sequence
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.PitchSequence(1,2,3).elements.should == [Pitch(1),Pitch(2),Pitch(3)]
+    end
+  end
+
+  describe "#IntensitySequence" do
+    it "creates a Sequence" do
+      MTK::Patterns.IntensitySequence(1,2,3).should be_a MTK::Patterns::Sequence
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.IntensitySequence(1,2,3).elements.should == [Intensity(1),Intensity(2),Intensity(3)]
+    end
+  end
+
+  describe "#DurationSequence" do
+    it "creates a Sequence" do
+      MTK::Patterns.DurationSequence(1,2,3).should be_a MTK::Patterns::Sequence
+    end
+
+    it "sets #elements from the varargs" do
+      MTK::Patterns.DurationSequence(1,2,3).elements.should == [Duration(1),Duration(2),Duration(3)]
+    end
+  end
+
+end

data/spec/mtk/sequencers/event_builder_spec.rb

@@ -0,0 +1,245 @@
+require 'spec_helper'
+
+describe MTK::Sequencers::EventBuilder do
+
+  EVENT_BUILDER = MTK::Sequencers::EventBuilder
+
+  let(:pitch) { EVENT_BUILDER::DEFAULT_PITCH }
+  let(:intensity) { EVENT_BUILDER::DEFAULT_INTENSITY }
+  let(:duration)  { EVENT_BUILDER::DEFAULT_DURATION }
+
+  def notes(*pitches)
+    pitches.map{|pitch| Note(pitch, intensity, duration) }
+  end
+
+  describe "#new" do
+    it "allows default pitch to be specified" do
+      event_builder = EVENT_BUILDER.new [Patterns.IntervalCycle(0)], :default_pitch => Gb4
+      event_builder.next.should == [Note(Gb4, intensity, duration)]
+    end
+    it "allows default intensity to be specified" do
+      event_builder = EVENT_BUILDER.new [Patterns.IntervalCycle(0)], :default_intensity => ppp
+      event_builder.next.should == [Note(pitch, ppp, duration)]
+    end
+    it "allows default duration to be specified" do
+      event_builder = EVENT_BUILDER.new [Patterns.IntervalCycle(0)], :default_duration => 5.25
+      event_builder.next.should == [Note(pitch, 5.25, intensity)]
+    end
+  end
+
+  describe "#next" do
+    it "builds a single-note list from a single-pitch pattern argument" do
+      event_builder = EVENT_BUILDER.new [Patterns.Cycle(C4)]
+      event_builder.next.should == notes(C4)
+    end
+
+    it "builds a list of notes from any pitches in the argument" do
+      event_builder = EVENT_BUILDER.new [Patterns.Cycle(C4), Patterns.Cycle(D4)]
+      event_builder.next.should == notes(C4, D4)
+    end
+
+    it "builds a list of notes from pitch sets" do
+      event_builder = EVENT_BUILDER.new [ Patterns.Cycle( Chord(C4,D4) ) ]
+      event_builder.next.should == notes(C4, D4)
+    end
+
+    it "builds notes from pitch classes and a default_pitch, selecting the nearest pitch class to the previous pitch" do
+      event_builder = EVENT_BUILDER.new [Patterns.Sequence(C,G,B,Eb,D,C)], :default_pitch => D3
+      notes = []
+      loop do
+        notes << event_builder.next
+      end
+      notes.flatten.should == notes(C3,G2,B2,Eb3,D3,C3)
+    end
+
+    it "defaults to a starting point of C4 (middle C)" do
+      event_builder = EVENT_BUILDER.new [Patterns.Sequence(C4)]
+      event_builder.next.should == notes(C4)
+    end
+
+    it "defaults to intensity 'o' when no intensities are given" do
+      event_builder = EVENT_BUILDER.new [Patterns.PitchSequence(C4, D4, E4), Patterns.DurationCycle(2)]
+      event_builder.next.should == [Note(C4, o, 2)]
+      event_builder.next.should == [Note(D4, o, 2)]
+      event_builder.next.should == [Note(E4, o, 2)]
+    end
+
+    it "defaults to duration 1 when no durations are given" do
+      event_builder =  EVENT_BUILDER.new [Patterns.PitchSequence(C4, D4, E4), Patterns.IntensityCycle(p,o)]
+      event_builder.next.should == [Note(C4, p, 1)]
+      event_builder.next.should == [Note(D4, o, 1)]
+      event_builder.next.should == [Note(E4, p, 1)]
+    end
+
+    it "builds notes from pitch class sets, selecting the nearest pitch classes to the previous/default pitch" do
+      pitch_class_sequence = MTK::Patterns::Sequence.new([PitchClassSet(C,G),PitchClassSet(B,Eb),PitchClassSet(D,C)])
+      event_builder = EVENT_BUILDER.new [pitch_class_sequence], :default_pitch => D3
+      event_builder.next.should == notes(C3,G3)
+      event_builder.next.should == notes(B3,Eb3)
+      event_builder.next.should == notes(D3,C3)
+    end
+
+    it "builds notes from by adding Numeric intervals in :pitch type Patterns to the previous Pitch" do
+      event_builder = EVENT_BUILDER.new [ Patterns.Sequence( C4, M3, m3, -P5 ) ]
+      nexts = []
+      loop { nexts << event_builder.next }
+      nexts.should == [notes(C4), notes(E4), notes(G4), notes(C4)]
+    end
+
+    it "builds notes from by adding Numeric intervals in :pitch type Patterns to all pitches in the previous Chord" do
+      event_builder = EVENT_BUILDER.new [ Patterns.Sequence( Chord(C4,Eb4), M3, m3, -P5) ]
+      nexts = []
+      loop { nexts << event_builder.next }
+      nexts.should == [notes(C4,Eb4), notes(E4,G4), notes(G4,Bb4), notes(C4,Eb4)]
+    end
+
+    it "builds notes from intensities" do
+      event_builder = EVENT_BUILDER.new [ Patterns.Cycle(C4), Patterns.Sequence(mf, p, fff) ]
+      nexts = []
+      loop { nexts += event_builder.next }
+      nexts.should == [Note(C4, mf, duration), Note(C4, p, duration), Note(C4, fff, duration)]
+    end
+
+    it "builds notes from durations" do
+      event_builder = EVENT_BUILDER.new [ Patterns.PitchCycle(C4), Patterns.DurationSequence(1,2,3) ]
+      nexts = []
+      loop { nexts += event_builder.next }
+      nexts.should == [Note(C4, intensity, 1), Note(C4, intensity, 2), Note(C4, intensity, 3)]
+    end
+
+    it "iterates through the pitch, intensity, and duration list in parallel to emit Notes" do
+      event_builder = EVENT_BUILDER.new [Patterns.PitchCycle(C4, D4, E4), Patterns.IntensityCycle(p, o), Patterns.DurationCycle(1,2,3,4)]
+      event_builder.next.should == [Note(C4, p, 1)]
+      event_builder.next.should == [Note(D4, o, 2)]
+      event_builder.next.should == [Note(E4, p, 3)]
+      event_builder.next.should == [Note(C4, o, 4)]
+      event_builder.next.should == [Note(D4, p, 1)]
+      event_builder.next.should == [Note(E4, o, 2)]
+    end
+
+    it "returns nil (for a rest) when it encounters a nil value" do
+      event_builder = EVENT_BUILDER.new [Patterns.PitchCycle(C4, D4, E4, F4, nil), Patterns.IntensityCycle(mp, mf, o, nil), Patterns.DurationCycle(1, 2, nil)]
+      event_builder.next.should == [Note(C4, mp, 1)]
+      event_builder.next.should == [Note(D4, mf, 2)]
+      event_builder.next.should be_nil
+      event_builder.next.should be_nil
+      event_builder.next.should be_nil
+    end
+
+    it "goes to the nearest Pitch for any PitchClasses in the pitch list" do
+      event_builder = EVENT_BUILDER.new [Patterns::Cycle(C4, F, C, G, C)]
+      event_builder.next.should == notes(C4)
+      event_builder.next.should == notes(F4)
+      event_builder.next.should == notes(C4)
+      event_builder.next.should == notes(G3)
+      event_builder.next.should == notes(C4)
+    end
+
+    it "does not endlessly ascend or descend when alternating between two pitch classes a tritone apart" do
+      event_builder = EVENT_BUILDER.new [Patterns::Cycle(C4, Gb, C, Gb, C)]
+      event_builder.next.should == notes(C4)
+      event_builder.next.should == notes(Gb4)
+      event_builder.next.should == notes(C4)
+      event_builder.next.should == notes(Gb4)
+      event_builder.next.should == notes(C4)
+    end
+
+    it "handles pitches and chords intermixed" do
+      event_builder = EVENT_BUILDER.new [Patterns.Cycle( Chord(C4, E4, G4), C4, Chord(D4, F4, A4) )]
+      event_builder.next.should == notes(C4,E4,G4)
+      event_builder.next.should == notes(C4)
+      event_builder.next.should == notes(D4,F4,A4)
+    end
+
+    it "adds numeric intervals to Chord" do
+      event_builder = EVENT_BUILDER.new [Patterns::Cycle( Chord(C4, E4, G4), M2 )]
+      event_builder.next.should == notes(C4,E4,G4)
+      event_builder.next.should == notes(D4,Gb4,A4)
+    end
+
+    it "goes to the nearest Pitch relative to the lowest note in the Chord for any PitchClasses in the pitch list" do
+      event_builder = EVENT_BUILDER.new [Patterns.Cycle( Chord(C4, E4, G4), F, D, Bb )]
+      event_builder.next.should == notes(C4,E4,G4)
+      event_builder.next.should == notes(F4)
+      event_builder.next.should == notes(D4)
+      event_builder.next.should == notes(Bb3)
+    end
+
+    it "uses the default_pitch when no pitch pattern is provided" do
+      event_builder = EVENT_BUILDER.new [Patterns.Cycle( mp, mf, o )], :default_pitch => G3
+      event_builder.next.should == [Note(G3,mp,1)]
+      event_builder.next.should == [Note(G3,mf,1)]
+      event_builder.next.should == [Note(G3,o,1)]
+    end
+
+    it "handles chains of sequences" do
+      event_builder = EVENT_BUILDER.new [ Patterns.Chain( Patterns.Sequence(C4,D4,E4), Patterns.Sequence(mp,mf,ff), Patterns.Sequence(q,h,w) ) ]
+      event_builder.next.should == [Note(C4,mp,q)]
+      event_builder.next.should == [Note(D4,mf,h)]
+      event_builder.next.should == [Note(E4,ff,w)]
+    end
+
+    it "enforces the max_interval option for rising intervals" do
+      event_builder = EVENT_BUILDER.new( [ Patterns.Sequence(C4,P5,P5,P5,P5,P5,P5,P5,P5,P5,P5,P5,P5)], max_interval:12 )
+      pitches = []
+      13.times{ pitches << event_builder.next[0].pitch }
+      pitches.should == [C4,G4,D4,A4,E4,B4,Gb4,Db4,Ab4,Eb4,Bb4,F4,C5]
+
+      event_builder = EVENT_BUILDER.new( [ Patterns.Sequence(C4,P5,P5,P5,P5,P5,P5,P5,P5,P5,P5,P5,P5)], max_interval:11 )
+      pitches = []
+      13.times{ pitches << event_builder.next[0].pitch }
+      pitches.should == [C4,G4,D4,A4,E4,B4,Gb4,Db4,Ab4,Eb4,Bb4,F4,C4]
+    end
+
+    it "enforces the max_interval option for falling intervals" do
+      event_builder = EVENT_BUILDER.new( [ Patterns.Sequence(C4,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5)], max_interval:12 )
+      pitches = []
+      13.times{ pitches << event_builder.next[0].pitch }
+      pitches.should == [C4,F3,Bb3,Eb3,Ab3,Db3,Gb3,B3,E3,A3,D3,G3,C3]
+
+      event_builder = EVENT_BUILDER.new( [ Patterns.Sequence(C4,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5,-P5)], max_interval:11 )
+      pitches = []
+      13.times{ pitches << event_builder.next[0].pitch }
+      pitches.should == [C4,F3,Bb3,Eb3,Ab3,Db3,Gb3,B3,E3,A3,D3,G3,C4]
+    end
+
+    it "adds chained durations together" do
+      event_builder = EVENT_BUILDER.new( [Patterns.Chain(h,q,i,s)] )
+      event_builder.next[0].duration.should == h+q+i+s
+    end
+
+    it "averages chained intensities together" do
+      event_builder = EVENT_BUILDER.new( [Patterns.IntensityChain(0.1, 0.2, 0.3, 0.4)] )
+      event_builder.next[0].intensity.should == Intensity(0.25)
+    end
+
+    it "defaults the intensity to the previous intensity" do
+      event_builder = EVENT_BUILDER.new(
+        [Patterns.Sequence(Patterns.Chain(C4,ppp,q), Patterns.Chain(D4,i), Patterns.Chain(E4,ff,h), Patterns.Chain(F4,i))]
+      )
+      notes = []
+      4.times{ notes += event_builder.next }
+      notes.should == [Note(C4,ppp,q), Note(D4,ppp,i), Note(E4,ff,h), Note(F4,ff,i)]
+    end
+
+    it "defaults the duration to the previous duration" do
+      event_builder = EVENT_BUILDER.new(
+          [Patterns.Sequence(Patterns.Chain(C4,ppp,h), Patterns.Chain(D4,mp), Patterns.Chain(E4,ff,s), Patterns.Chain(F4,mf))]
+      )
+      notes = []
+      4.times{ notes += event_builder.next }
+      notes.should == [Note(C4,ppp,h), Note(D4,mp,h), Note(E4,ff,s), Note(F4,mf,s)]
+    end
+  end
+
+  describe "#rewind" do
+    it "resets the state of the Chain" do
+      event_builder = EVENT_BUILDER.new [ Patterns.Sequence(C,P8) ]
+      event_builder.next.should == [Note(C4,intensity,duration)]
+      event_builder.next.should == [Note(C5,intensity,duration)]
+      event_builder.rewind
+      event_builder.next.should == [Note(C4,intensity,duration)]
+    end
+  end
+
+end