peas 0.1.0

data/lib/peas/integer_helper.rb

@@ -0,0 +1,96 @@
+require 'peas/interval'
+
+class Integer
+  def unisons
+    Peas::Interval::Diatonic::P1
+  end
+  alias unison unisons
+  
+  def semitones
+    Peas::Interval::Semitone "S#{self}", self
+  end
+  alias semitone semitones
+  
+  def minor_seconds
+    Peas::Interval::Diatonic "m2x#{self}", self
+  end
+  alias minor_second minor_seconds
+  
+  def wholetones
+    Peas::Interval::Wholetone "W#{self}", self * 2
+  end
+  alias wholetone wholetones
+  
+  def major_seconds
+    Peas::Interval::Diatonic "M2x#{self}", self * 2
+  end
+  alias major_second major_seconds
+  
+  def minor_thirds
+    Peas::Interval::Diatonic "m3x#{self}", self * 3
+  end
+  alias minor_third minor_thirds
+  
+  def major_thirds
+    Peas::Interval::Diatonic "M3x#{self}", self * 4
+  end
+  alias major_third major_thirds
+  
+  def perfect_fourths
+    Peas::Interval::Diatonic "P4x#{self}", self * 5
+  end
+  alias perfect_fourth perfect_fourths
+  
+  def tritones
+    # Peas::Interval::Latin "TTx#{self}", self * 6
+    self * 6
+  end
+  alias tritone tritones
+  
+  def diminished_fifths
+    Peas::Interval::Diatonic "d5x#{self}", self * 6
+  end
+  alias diminished_fifth diminished_fifths
+  
+  def augmented_fourths
+    Peas::Interval::Diatonic "S6x#{self}", self * 6
+  end
+  alias augmented_fourth augmented_fourths
+  
+  def perfect_fifths
+    Peas::Interval::Diatonic "P5x#{self}", self * 7
+  end
+  alias perfect_fifth perfect_fifths
+  
+  def minor_sixths
+    Peas::Interval::Diatonic "m6x#{self}", self * 8
+  end
+  alias minor_sixth minor_sixths
+  
+  def augmented_fifths
+    Peas::Interval::Chromatic "S8x#{self}", self * 8
+  end
+  alias augmented_fifth augmented_fifths
+  
+  def major_sixths
+    Peas::Interval::Diatonic "M6x#{self}", self * 9
+  end
+  alias major_sixth major_sixths
+  
+  def minor_sevenths
+    Peas::Interval::Diatonic "m7x#{self}", self * 10
+  end
+  alias minor_seventh minor_sevenths
+  
+  def major_sevenths
+    Peas::Interval::Diatonic "M7x#{self}", self * 11
+  end
+  alias major_seventh major_sevenths
+  
+  def octaves
+    Peas::Interval::Diatonic "P8x#{self}", self * 12
+  end
+  alias octave octaves
+end
+
+

data/lib/peas/interval.rb

@@ -0,0 +1,99 @@
+require 'named_value_class'
+require 'peas/pitch'
+
+module Peas
+  module Interval
+    # see: http://en.wikipedia.org/wiki/Interval_(music)
+
+    NamedValueClass 'Semitone', Fixnum 
+    128.times do |x|
+      Semitone "S#{x}", x
+    end
+    
+    NamedValueClass 'Wholetone', Fixnum 
+    64.times do |x|
+      Wholetone "W#{x}", x * 2
+    end
+    
+    NamedValueClass 'Chromatic', Fixnum 
+    Chromatic :d2, 0
+    Chromatic :A1, 1
+    Chromatic :d3, 2
+    Chromatic :A2, 3
+    Chromatic :d4, 4
+    Chromatic :A3, 5
+    Chromatic :d5, 6
+    Chromatic :A4, 6
+    Chromatic :d6, 7
+    Chromatic :A5, 8
+    Chromatic :d7, 9
+    Chromatic :A6, 10
+    Chromatic :d8, 11
+    Chromatic :A7, 12
+
+    NamedValueClass 'Latin', Fixnum 
+    Latin 'S',  1
+    Latin 'T',  3
+    Latin 'TT', 6
+    
+    NamedValueClass 'Diatonic',  Fixnum do
+      def inverse
+        case @name
+        when 'P1' then Diatonic::P8
+        when 'm2' then Diatonic::M7
+        when 'M2' then Diatonic::m7
+        when 'm3' then Diatonic::M6
+        when 'M3' then Diatonic::m6
+        when 'P4' then Diatonic::P5
+        when 'A4' then Diatonic::d5
+        when 'd5' then Diatonic::A4
+        when 'P5' then Diatonic::P4
+        when 'm6' then Diatonic::M3
+        when 'M6' then Diatonic::m3
+        when 'm7' then Diatonic::M2
+        when 'M7' then Diatonic::m2
+        when 'P8' then Diatonic::P1
+        end
+      end
+      
+      def interval_class
+        if (mod_12 = self % 12) > 6
+          12 - mod_12
+        else
+          mod_12
+        end
+      end
+    end
+    Diatonic 'P1',  0 
+    Diatonic 'm2',  1 
+    Diatonic 'M2',  2 
+    Diatonic 'm3',  3 
+    Diatonic 'M3',  4 
+    Diatonic 'P4',  5 
+    Diatonic 'A4',  6 
+    Diatonic 'd5',  6 
+    Diatonic 'P5',  7 
+    Diatonic 'm6',  8 
+    Diatonic 'M6',  9 
+    Diatonic 'm7', 10
+    Diatonic 'M7', 11
+    Diatonic 'P8', 12 
+  end
+  
+  module Intervals
+    include Interval::Semitone::NamedValues
+    extend  Interval::Semitone::NamedValues
+
+    include Interval::Wholetone::NamedValues
+    extend  Interval::Wholetone::NamedValues
+
+    include Interval::Chromatic::NamedValues
+    extend  Interval::Chromatic::NamedValues
+
+    include Interval::Latin::NamedValues
+    extend  Interval::Latin::NamedValues
+
+    include Interval::Diatonic::NamedValues
+    extend  Interval::Diatonic::NamedValues
+  end
+end

data/lib/peas/pitch.rb

@@ -0,0 +1,104 @@
+require 'forwardable'
+require 'peas/pitch_class'
+
+module Peas
+  NamedValueClass 'Pitch', Fixnum do
+    extend Forwardable
+    def_delegators :pitch_class, :is_sharp?, :is_flat?, :is_natural?
+    
+    def as_flat
+      self.class.flats(self)
+    end
+    
+    def as_sharp
+      self.class.sharps(self)
+    end
+    
+    def self.flats(value)
+      {
+        0   => C_1  , 32  => Ab1  , 64  => E4   , 96  => C7   , 
+        1   => Db_1 , 33  => A1   , 65  => F4   , 97  => Db7  , 
+        2   => D_1  , 34  => Bb1  , 66  => Gb4  , 98  => D7   , 
+        3   => Eb_1 , 35  => B1   , 67  => G4   , 99  => Eb7  , 
+        4   => E_1  , 36  => C2   , 68  => Ab4  , 100 => E7   , 
+        5   => F_1  , 37  => Db2  , 69  => A4   , 101 => F7   , 
+        6   => Gb_1 , 38  => D2   , 70  => Bb4  , 102 => Gb7  , 
+        7   => G_1  , 39  => Eb2  , 71  => B4   , 103 => G7   , 
+        8   => Ab_1 , 40  => E2   , 72  => C5   , 104 => Ab7  , 
+        9   => A_1  , 41  => F2   , 73  => Db5  , 105 => A7   , 
+        10  => Bb_1 , 42  => Gb2  , 74  => D5   , 106 => Bb7  , 
+        11  => B_1  , 43  => G2   , 75  => Eb5  , 107 => B7   , 
+        12  => C0   , 44  => Ab2  , 76  => E5   , 108 => C8   , 
+        13  => Db0  , 45  => A2   , 77  => F5   , 109 => Db8  , 
+        14  => D0   , 46  => Bb2  , 78  => Gb5  , 110 => D8   , 
+        15  => Eb0  , 47  => B2   , 79  => G5   , 111 => Eb8  , 
+        16  => E0   , 48  => C3   , 80  => Ab5  , 112 => E8   , 
+        17  => F0   , 49  => Db3  , 81  => A5   , 113 => F8   , 
+        18  => Gb0  , 50  => D3   , 82  => Bb5  , 114 => Gb8  , 
+        19  => G0   , 51  => Eb3  , 83  => B5   , 115 => G8   , 
+        20  => Ab0  , 52  => E3   , 84  => C6   , 116 => Ab8  , 
+        21  => A0   , 53  => F3   , 85  => Db6  , 117 => A8   , 
+        22  => Bb0  , 54  => Gb3  , 86  => D6   , 118 => Bb8  , 
+        23  => B0   , 55  => G3   , 87  => Eb6  , 119 => B8   , 
+        24  => C1   , 56  => Ab3  , 88  => E6   , 120 => C9   , 
+        25  => Db1  , 57  => A3   , 89  => F6   , 121 => Db9  ,           
+        26  => D1   , 58  => Bb3  , 90  => Gb6  , 122 => D9   , 
+        27  => Eb1  , 59  => B3   , 91  => G6   , 123 => Eb9  , 
+        28  => E1   , 60  => C4   , 92  => Ab6  , 124 => E9   , 
+        29  => F1   , 61  => Db4  , 93  => A6   , 125 => F9   , 
+        30  => Gb1  , 62  => D4   , 94  => Bb6  , 126 => Gb9  , 
+        31  => G1   , 63  => Eb4  , 95  => B6   , 127 => G9     
+      }[value]
+    end
+  
+    def self.sharps(value)
+      {
+        0   => C_1  , 32  => Gs1  , 64  => E4   , 96  => C7   , 
+        1   => Cs_1 , 33  => A1   , 65  => F4   , 97  => Cs7  , 
+        2   => D_1  , 34  => As1  , 66  => Fs4  , 98  => D7   , 
+        3   => Ds_1 , 35  => B1   , 67  => G4   , 99  => Ds7  , 
+        4   => E_1  , 36  => C2   , 68  => Gs4  , 100 => E7   , 
+        5   => F_1  , 37  => Cs2  , 69  => A4   , 101 => F7   , 
+        6   => Fs_1 , 38  => D2   , 70  => As4  , 102 => Fs7  , 
+        7   => G_1  , 39  => Ds2  , 71  => B4   , 103 => G7   , 
+        8   => Gs_1 , 40  => E2   , 72  => C5   , 104 => Gs7  , 
+        9   => A_1  , 41  => F2   , 73  => Cs5  , 105 => A7   , 
+        10  => As_1 , 42  => Fs2  , 74  => D5   , 106 => As7  , 
+        11  => B_1  , 43  => G2   , 75  => Ds5  , 107 => B7   , 
+        12  => C0   , 44  => Gs2  , 76  => E5   , 108 => C8   , 
+        13  => Cs0  , 45  => A2   , 77  => F5   , 109 => Cs8  , 
+        14  => D0   , 46  => As2  , 78  => Fs5  , 110 => D8   , 
+        15  => Ds0  , 47  => B2   , 79  => G5   , 111 => Ds8  , 
+        16  => E0   , 48  => C3   , 80  => Gs5  , 112 => E8   , 
+        17  => F0   , 49  => Cs3  , 81  => A5   , 113 => F8   , 
+        18  => Fs0  , 50  => D3   , 82  => As5  , 114 => Fs8  , 
+        19  => G0   , 51  => Ds3  , 83  => B5   , 115 => G8   , 
+        20  => Gs0  , 52  => E3   , 84  => C6   , 116 => Gs8  , 
+        21  => A0   , 53  => F3   , 85  => Cs6  , 117 => A8   , 
+        22  => As0  , 54  => Fs3  , 86  => D6   , 118 => As8  , 
+        23  => B0   , 55  => G3   , 87  => Ds6  , 119 => B8   , 
+        24  => C1   , 56  => Gs3  , 88  => E6   , 120 => C9   , 
+        25  => Cs1  , 57  => A3   , 89  => F6   , 121 => Cs9  , 
+        26  => D1   , 58  => As3  , 90  => Fs6  , 122 => D9   , 
+        27  => Ds1  , 59  => B3   , 91  => G6   , 123 => Ds9  , 
+        28  => E1   , 60  => C4   , 92  => Gs6  , 124 => E9   , 
+        29  => F1   , 61  => Cs4  , 93  => A6   , 125 => F9   , 
+        30  => Fs1  , 62  => D4   , 94  => As6  , 126 => Fs9  , 
+        31  => G1   , 63  => Ds4  , 95  => B6   , 127 => G9     
+      }[value]
+    end
+  end
+  PitchClass::NamedValues::Collection.each do |pclass|
+    Pitch "#{pclass}_1", pclass, pitch_class:pclass, octave:-1
+    0.upto(9) do |octave|
+      name = pclass.to_s + octave.to_s
+      Pitch name, (((octave+1)*12)+pclass), pitch_class:pclass, octave:octave
+    end
+  end
+  
+  module Pitches
+    include Pitch::NamedValues
+    include PitchClass::NamedValues
+  end
+end
+

data/lib/peas/pitch_class.rb

@@ -0,0 +1,69 @@
+require 'named_value_class'
+
+module Peas
+  NamedValueClass 'PitchClass', Fixnum do
+    def is_sharp?
+      %w|Bs Cs Ds Es Fs Gs As|.include? @name
+    end
+    
+    def is_flat?
+      %w|Bb Cb Db Eb Fb Gb Ab|.include? @name
+    end
+    
+    def is_natural?
+      %w|B C D E F G A|.include? @name
+    end
+    
+    def self.flats(value)
+      {
+        0  => C,  6  => Gb, 
+        1  => Db, 7  => G,  
+        2  => D,  8  => Ab, 
+        3  => Eb, 9  => A,  
+        4  => E,  10 => Bb, 
+        5  => F,  11 => B   
+       }[value]
+    end
+    
+    def self.sharps(value)
+      {
+       0   => C,  6  => Fs, 
+        1  => Cs, 7  => G,  
+        2  => D,  8  => Gs, 
+        3  => Ds, 9  => A,  
+        4  => E,  10 => As, 
+        5  => F,  11 => B   
+       }[value]
+    end
+    
+    def as_flat
+      self.class.flats(self)
+    end
+    
+    def as_sharp
+      self.class.sharps(self)
+    end
+  end
+  
+  PitchClass 'Bs', 0  # B sharp is just Bs
+  PitchClass 'C',  0
+  PitchClass 'Cs', 1
+  PitchClass 'Db', 1
+  PitchClass 'D',  2
+  PitchClass 'Ds', 3
+  PitchClass 'Eb', 3 
+  PitchClass 'E',  4
+  PitchClass 'Es', 5
+  PitchClass 'Fb', 4
+  PitchClass 'F',  5
+  PitchClass 'Fs', 6
+  PitchClass 'Gb', 6
+  PitchClass 'G',  7
+  PitchClass 'Gs', 8
+  PitchClass 'Ab', 8
+  PitchClass 'A',  9
+  PitchClass 'As', 10
+  PitchClass 'Bb', 10
+  PitchClass 'B',  11
+  PitchClass 'Cb', 11
+end

data/lib/peas/version.rb

@@ -0,0 +1,5 @@
+module Peas
+  NAME    = 'peas'
+  VERSION = '0.1.0'
+  SUMMARY = 'Do math with music pitches, intervals, scales, chords and progressions in Ruby.'
+end

data/lib/peas.rb

@@ -0,0 +1,7 @@
+require 'peas/pitch'
+require 'peas/interval'
+# require 'peas/scale'
+# require 'peas/chord'
+# require 'peas/progression'
+
+require 'peas/integer_helper'

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification
+name: peas
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- Michael Garriss
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2011-11-17 00:00:00.000000000Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: named_value_class
+  requirement: &2156329420 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '0.4'
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 0.4.0
+  type: :runtime
+  prerelease: false
+  version_requirements: *2156329420
+description: ! 'Peas defines constants from music theory and allows one to perform
+  math with them.  Currently supports pitches (as MIDI values), pitch classes, and
+  intervals using semitones, wholetones, chromatic, latin or diatonic
+
+  abbreviations.'
+email: mgarriss@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/peas/integer_helper.rb
+- lib/peas/interval.rb
+- lib/peas/pitch.rb
+- lib/peas/pitch_class.rb
+- lib/peas/version.rb
+- lib/peas.rb
+homepage: http://github.com/mgarriss/peas
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.11
+signing_key: 
+specification_version: 3
+summary: Peas defines constants from music theory and allows one to perform math with
+  them.
+test_files: []