stretto 0.6.1

data/README.markdown

@@ -0,0 +1,67 @@
+Stretto
+=======
+
+Stretto is Ruby's implementation of [JFugue][1], an open source library originally written in Java by [David Koelle][2] for programming MIDI.
+
+Motivation
+----------
+
+JFugue's syntax is great for producing both a human readable and parseable implementation of the MIDI specification. By detaching it from the Java sound engine, it can become an specification and be implemented in several languages/platforms. This implementation aims to be compatible with JFugue as well as serve as the basis for the format specification.
+
+Installation
+------------
+
+    gem install stretto
+
+
+MIDI Playback
+-------------
+
+    require 'rubygems'
+    require 'stretto'
+
+    # play a scale
+    player = Stretto::Player.new
+    player.play("C D E F G A B")
+
+    # play a .jfugue file
+    file = File.new(File.dirname(__FILE__) + '/examples/entertainer.jfugue')
+    player.play(file)
+
+Stretto currently supports the following subset of JFugue's syntax For MIDI playback:
+
+- notes
+- rests
+- measures
+- chords
+- harmonies
+- multiple voices
+- melodies
+- variables
+- tempo changes
+- channel pressure
+- polyphonic pressure
+- instruments
+- pitch bends
+- controller changes
+
+For more on syntax, check out [The Complete Guide to JFugue][3]. The
+second chapter is free, and covers a good chunk of what is possible with JFugue.
+
+Stretto uses [midiator][4] for MIDI playback. If you're running OS X,
+the built-in softsynth driver should just work. You can also try creating a Player with another driver, such as core_audio or alsa:
+
+    player = Stretto::Player.new(:driver => :alsa)
+
+Contributing
+------------
+
+Stretto uses Bundler for dependency management. To run the test suite:
+
+    bundle install
+    rake
+
+  [1]: http://www.jfugue.org/
+  [2]: http://blog.davekoelle.com/
+  [3]: http://www.jfugue.org/book.html
+  [4]: https://github.com/bleything/midiator

data/Rakefile

@@ -0,0 +1,9 @@
+require 'rake'
+require 'spec/rake/spectask'
+
+task :default => 'spec'
+
+desc 'Run all examples'
+Spec::Rake::SpecTask.new('spec') do |t|
+  t.spec_files = FileList['spec/**/*spec.rb']
+end

data/lib/stretto.rb

@@ -0,0 +1,14 @@
+require 'rubygems'
+require 'bundler/setup'
+
+require 'treetop'
+require 'polyglot'
+require 'midiator'
+
+$: << File.dirname(__FILE__)
+
+require 'stretto/util/utils'
+require 'stretto/parsers/parser'
+require 'stretto/parsers/exceptions'
+require 'stretto/music_elements/pattern'
+require 'stretto/renderers/midiator/player'

data/lib/stretto/grammar/channel_pressure_grammar.treetop

@@ -0,0 +1,9 @@
+grammar ChannelPressureGrammar
+
+  include ValueGrammar
+
+  rule channel_pressure
+    kind:'+' __value:variable_or_integer <Stretto::Tokens::ChannelPressureToken>
+  end
+
+end

data/lib/stretto/grammar/chord_grammar.treetop

@@ -0,0 +1,60 @@
+grammar ChordGrammar
+
+  include NoteGrammar
+
+  rule chord
+    __note_string:note_string __named_chord:named_chord __chord_inversions:chord_inversions? __duration:duration? attack_and_decay <Stretto::Tokens::ChordToken>
+  end
+
+  rule named_chord
+    # Make sure they're in reverse order, so 'maj6' is parsed before 'maj', for instance
+    dom "7>5>9" / dom "7>5<9" / dom "7<5>9" / dom "7<5<9" / min maj "7" / maj "7>5" / maj "7<5" /
+    dom "7>5" / dom "7<5" / maj "13" / min "13" / dom "13" / dom "11" / min "11" /
+    [aA] [dD] [dD] "9" / dim "7" /
+    min "9" / maj "9" / dom "9" / min "6" / maj "6" / sus "2" / sus "4" / min "7" / maj "7" /
+    dom "7" / dim / [aA] [uU] [gG] / min / maj
+  end
+
+  rule maj
+    [mM] [aA] [jJ]
+  end
+
+  rule min
+    [mM] [iI] [nN]
+  end
+
+  rule dom
+    [dD] [oO] [mM]
+  end
+
+  rule sus
+    [sS] [uU] [sS]
+  end
+
+  rule dim
+    [dD] [iI] [mM]
+  end
+
+  rule chord_inversions
+    '^' note_string {
+      def inversions
+        0
+      end
+
+      def pivot_note
+        note_string
+      end
+    }
+    /
+    '^'+ {
+      def inversions
+        text_value.size
+      end
+
+      def pivot_note
+        nil
+      end
+    }
+  end
+
+end

data/lib/stretto/grammar/controller_change_grammar.treetop

@@ -0,0 +1,9 @@
+grammar ControllerChangeGrammar
+
+  include ValueGrammar
+
+  rule controller_change
+    'X' __controller:variable_or_integer '=' __value:variable_or_integer <Stretto::Tokens::ControllerChangeToken>
+  end
+
+end

data/lib/stretto/grammar/duration_grammar.treetop

@@ -0,0 +1,60 @@
+grammar DurationGrammar
+
+  rule duration
+    _end_of_tie:tie? duration_string _start_of_tie:tie? <Stretto::Tokens::DurationToken>
+  end
+
+  rule duration_string
+    _duration_character:[whqistxoWHQISTXO]+ _dots:('.'*) _tuplet:tuplet? {
+      def duration_character
+        _duration_character.text_value
+      end
+
+      def dots
+        _dots.text_value.size
+      end
+
+      def tuplet
+        _tuplet if _tuplet.text_value.present?
+      end
+
+      def value
+        nil
+      end
+    }
+    /
+    '/' _value:variable_or_decimal {
+      def duration_character
+        nil
+      end
+
+      def dots
+        0
+      end
+
+      def tuplet
+        nil
+      end
+
+      def value
+        _value
+      end
+    }
+  end
+
+  rule tuplet
+    '*' _ratio:(_numerator:integer ':' _denominator:integer)? {
+      def numerator
+        _ratio._numerator.text_value if _ratio.text_value.present?
+      end
+      def denominator
+        _ratio._denominator.text_value if _ratio.text_value.present?
+      end
+    }
+  end
+
+  rule tie
+    '-'
+  end
+
+end

data/lib/stretto/grammar/grammar_helper.rb

@@ -0,0 +1,6 @@
+require File.dirname(__FILE__) + '/tokens/hash_token'
+
+# Load automatically all token definition files from the directory tokens
+Dir[File.dirname(__FILE__) + '/tokens/*_token.rb'].each do |token_file|
+  require token_file
+end

data/lib/stretto/grammar/harmonic_chord_grammar.treetop

@@ -0,0 +1,15 @@
+grammar HarmonicChordGrammar
+
+  include NoteGrammar
+  include ChordGrammar
+
+  rule harmonic_chord
+    # Force it to be greedy by putting a lookahead negative assertion.
+    _first_element:chord_or_note _other_elements:('+' _element:chord_or_note)+ ![+_] <Stretto::Tokens::HarmonicChordToken>
+  end
+
+  rule chord_or_note
+    chord / note
+  end
+
+end

data/lib/stretto/grammar/harmony_grammar.treetop

@@ -0,0 +1,15 @@
+grammar HarmonyGrammar
+
+  include ChordGrammar
+  include NoteGrammar
+  include RestGrammar
+
+  rule harmony_with_melody
+    _first_element:single_music_element _other_elements:(_sep:[+_] _element:single_music_element)+ <Stretto::Tokens::HarmonyWithMelodyToken>
+  end
+
+  rule single_music_element
+    chord / note / rest
+  end
+
+end

data/lib/stretto/grammar/instrument_grammar.treetop

@@ -0,0 +1,9 @@
+grammar InstrumentGrammar
+
+  include ValueGrammar
+
+  rule instrument
+    kind:'I' __value:variable_or_integer <Stretto::Tokens::InstrumentToken>
+  end
+
+end

data/lib/stretto/grammar/key_signature_grammar.treetop

@@ -0,0 +1,10 @@
+grammar KeySignatureGrammar
+
+  include NoteGrammar
+  include ChordGrammar
+
+  rule key_signature
+    [kK] __note_key:note_key __scale:(maj / min) <Stretto::Tokens::KeySignatureToken>
+  end
+
+end

data/lib/stretto/grammar/layer_change_grammar.treetop

@@ -0,0 +1,9 @@
+grammar LayerChangeGrammar
+
+  include ValueGrammar
+
+  rule layer
+    kind:'L' __value:variable_or_integer <Stretto::Tokens::LayerChangeToken>
+  end
+
+end

data/lib/stretto/grammar/measure_grammar.treetop

@@ -0,0 +1,7 @@
+grammar MeasureGrammar
+
+  rule measure
+    '|' <Stretto::Tokens::MeasureToken>
+  end
+
+end

data/lib/stretto/grammar/note_grammar.treetop

@@ -0,0 +1,32 @@
+grammar NoteGrammar
+
+  include ValueGrammar
+  include DurationGrammar
+
+  rule note
+    note_string __duration:duration? attack_and_decay <Stretto::Tokens::NoteToken>
+  end
+
+  rule note_string
+    note_key _octave:octave? <Stretto::Tokens::NoteKeyAccidentalOctaveToken>
+    /
+    '[' _pitch:integer_or_variable_name ']' <Stretto::Tokens::NotePitchToken>
+  end
+
+  rule note_key
+    key:[A-Ga-g] accidental:accidental?
+  end
+
+  rule accidental
+    "##" / "#" / [bB] [bB] / [bB] / "n" / "N"
+  end
+
+  rule octave
+    integer
+  end
+
+  rule attack_and_decay
+    _attack:([aA] value:variable_or_integer)? _decay:([dD] value:variable_or_integer)? <Stretto::Tokens::AttackDecayToken>
+  end
+
+end

data/lib/stretto/grammar/pitch_bend_grammar.treetop

@@ -0,0 +1,7 @@
+grammar PitchBendGrammar
+  include ValueGrammar
+
+  rule pitch_bend
+    kind:'&' __value:variable_or_integer <Stretto::Tokens::PitchBendToken>
+  end
+end

data/lib/stretto/grammar/polyphonic_pressure_grammar.treetop

@@ -0,0 +1,9 @@
+grammar PolyphonicPressureGrammar
+
+  include ValueGrammar
+
+  rule polyphonic_pressure
+    '*' __pitch:variable_or_integer ',' __value:variable_or_integer <Stretto::Tokens::PolyphonicPressureToken>
+  end
+
+end

data/lib/stretto/grammar/rest_grammar.treetop

@@ -0,0 +1,9 @@
+grammar RestGrammar
+
+  include DurationGrammar
+  
+  rule rest
+    [Rr] __duration:duration? <Stretto::Tokens::RestToken>
+  end
+
+end

data/lib/stretto/grammar/stretto_grammar.treetop

@@ -0,0 +1,62 @@
+require File.dirname(__FILE__) + '/grammar_helper'
+
+require File.dirname(__FILE__) + '/value_grammar'
+require File.dirname(__FILE__) + '/duration_grammar'
+require File.dirname(__FILE__) + '/note_grammar'
+require File.dirname(__FILE__) + '/chord_grammar'
+require File.dirname(__FILE__) + '/rest_grammar'
+
+require File.dirname(__FILE__) + '/channel_pressure_grammar'
+require File.dirname(__FILE__) + '/controller_change_grammar'
+require File.dirname(__FILE__) + '/instrument_grammar'
+require File.dirname(__FILE__) + '/harmony_grammar'
+require File.dirname(__FILE__) + '/harmonic_chord_grammar'
+require File.dirname(__FILE__) + '/key_signature_grammar'
+require File.dirname(__FILE__) + '/layer_change_grammar'
+require File.dirname(__FILE__) + '/measure_grammar'
+require File.dirname(__FILE__) + '/pitch_bend_grammar'
+require File.dirname(__FILE__) + '/polyphonic_pressure_grammar'
+require File.dirname(__FILE__) + '/tempo_grammar'
+require File.dirname(__FILE__) + '/timing_grammar'
+require File.dirname(__FILE__) + '/variable_grammar'
+require File.dirname(__FILE__) + '/voice_change_grammar'
+
+grammar StrettoGrammar
+
+  include ValueGrammar
+  include DurationGrammar
+  include NoteGrammar
+  include ChordGrammar
+  include RestGrammar
+
+  include ChannelPressureGrammar
+  include ControllerChangeGrammar
+  include InstrumentGrammar
+  include HarmonicChordGrammar
+  include HarmonyGrammar
+  include KeySignatureGrammar
+  include LayerChangeGrammar
+  include MeasureGrammar
+  include PitchBendGrammar
+  include PolyphonicPressureGrammar
+  include TempoGrammar
+  include TimingGrammar
+  include VariableGrammar
+  include VoiceChangeGrammar
+
+  rule notes
+    space? head:music_element? more_elements:(space music_element)* space? <Stretto::Tokens::PatternToken>
+  end
+
+  rule music_element
+    harmonic_chord / harmony_with_melody / single_music_element /
+    measure / key_signature / instrument / voice / layer / tempo /
+    pitch_bend / channel_pressure / polyphonic_pressure / timing /
+    controller_change / variable_definition
+  end
+
+  rule space
+    [\s]+
+  end
+
+end