juicy 0.0.8

checksums.yaml

@@ -0,0 +1,15 @@
+---
+!binary "U0hBMQ==":
+  metadata.gz: !binary |-
+    YjQ4MDJlZTZjMTFkOWI5NzJkNTFiN2Y3OWY3YjYwMzdlYmI3NGNkNw==
+  data.tar.gz: !binary |-
+    OTFkMmQ1ZWEwNzM3MTEwMjVlY2EyY2JkYWY4M2M5MjE4OWM2YzAwNA==
+SHA512:
+  metadata.gz: !binary |-
+    MzQ3MmZiOTEyOWQ4M2IzZTUyNTIzMDI3NjUzMjQxYjU5ZTcyNDI4M2ExYjFl
+    N2UxN2FkYjgzNTg4MGJlM2FkOWVmNGIyMThkMzkyYWQ4YjQ1YWFmMjFhZmNm
+    Mzk2YjgyMWExMmM0ZTY0NDM4NTgxZTFiMTQxMGY4OTNiMzY2YzU=
+  data.tar.gz: !binary |-
+    OGE2ZDNkMDNhMGNmZjYyZjY3OTYzZmJkMzk1ZGQzNGRmM2NhMmE5M2Y0OTkw
+    ZjIyMDQ2NmY5ZjdiMzU0YmE2OGEzNjNkMjEyMjQ3NmJlOTcwYWMwOGYyZTJi
+    YjIxOTM3OGU2OTliYzdlOTRkNWZmNGM1MWJjZTc1MGJhYzdiMGE=

data/bin/juicy.rb

@@ -0,0 +1,27 @@
+require_relative '../lib/juicy.rb'
+include Juicy
+
+p = Pitch.new(445)
+puts p
+p.play
+
+note = Note.new("A")
+#12.times {(n+=1).play}
+
+ch = Chord.new(root: note)
+ch.play
+
+ch2 = Chord.new(root: note)
+ch2.play
+ch2.play(duration: 500)
+
+# while there is enough here to write out your own scales,
+# current development work is being done on scale objects
+# and a beat sequencer to bring it all together.
+
+intervals = [0,2,2,1,2,2,2,1]
+intervals.each do |interval|
+  (note+=interval).play
+end
+
+puts ch

data/lib/juicy.rb

@@ -0,0 +1,10 @@
+require_relative '../../win32-sound/lib/win32/sound.rb'
+
+require_relative 'juicy/pitch.rb' #toned (or not) frequency in a chosen pitch space (temperament/intonation)
+  require_relative 'juicy/note.rb' #named pitch
+    require_relative 'juicy/chord.rb' #collection of notes
+      require_relative 'juicy/chord_progression.rb' #collection of chords in sequence
+    require_relative 'juicy/scale.rb' #sequence of relative pitch changes ex. chormatic, diatonic, whole-note, pentatonic
+  require_relative 'juicy/mode.rb' #'flavor' of diatonic scale
+  require_relative 'juicy/scale_degree.rb' #index of given scale relative to root/tonic
+  require_relative 'juicy/key.rb' #scale at a given root note, i.e. Juicy::Note

data/lib/juicy/chord.rb

@@ -0,0 +1,108 @@
+module Juicy
+
+  class Chord
+  
+    QUALITIES = {
+      :major => [0, 4, 7],
+      :minor => [0, 3, 7],
+      :diminished => [0, 3, 6],
+      :augmented => [0, 4, 8],
+      
+    }
+    
+    def initialize(options = {root: Note.new(:C), quality: :major, inversion: 0, context: :none})
+      @root = (options[:root].kind_of?(Note) ? options[:root] : Note.new(options[:root])) || Note.new(:C)
+      @quality = options[:quality] || :major
+      @inversion = options[:inversion] || 0
+      @context = options[:context] || :none
+    end
+    
+    def inspect
+      "#{@root.name} #{@quality} Chord, inversion: #{@inversion}"
+    end
+    
+    def play(options = {duration: 200, style: :default})
+    
+      #Quick and dirty play function.  Not intended for genuine use
+    
+      duration = options[:duration] || 200
+      style = options[:style] || :default
+      notes = []
+      pitches = QUALITIES[@quality]
+      inversion = @inversion
+      
+      while inversion > 0
+        pitches = pitches[1..-1] + [(pitches[0]+12)]
+        inversion -= 1
+      end
+      pitches.each do |interval|
+        notes << Note.new(PITCHES.key((PITCHES[@root.name]+interval) % 12))
+      end
+      
+      case style
+      when :arpeggiate
+        notes.each do |note|
+          Thread.new{note.play(duration: duration)}.join
+        end
+      when :default
+        threads = []
+        notes.each do |note|
+          threads << Thread.new{note.play(duration: duration)}
+        end
+        threads.each {|t| t.join}
+      else
+        puts "Unknown style type"
+      end
+      
+      self
+    end
+    
+    def +(interval)
+      #in the context of a scale, change the base pitch to the new scale
+      # degree and the quality to match
+      
+      #in a context of :none, change the base pitch
+      # up a half step times the interval
+      if @context.eql? :none
+        options = {
+          root: (Pitch.new(@root) + interval).frequency,
+          quality: @quality,
+          inversion: @inversion,
+          context: @context
+        }
+        Chord.new(options)
+      end
+    end
+    
+    def -(interval)
+      
+      if @context.eql? :none
+        options = {
+          root: (Pitch.new(@root) - interval).frequency,
+          quality: @quality,
+          inversion: @inversion,
+          context: @context
+        }
+        Chord.new(options)
+      end
+    end
+    
+    def cycle(direction = :up, amount = 1)
+      #inverts the chord
+      # ex. 1, 3, 5 -> cycle(:up, 2) -> 5, 1, 3
+      case direction
+      when :up
+        @inversion = @inversion + amount
+      when :down
+        @inversion = @inversion - amount
+      else
+        puts "Unknown Direction"
+      end
+      puts self.inspect
+    end
+    
+    alias_method :invert, :cycle
+    
+  end
+  
+end

data/lib/juicy/chord_progression.rb

@@ -0,0 +1,49 @@
+module Juicy
+  
+  class ChordProgression
+  
+    attr_accessor :chords
+    
+    def initialize
+      #@chords = []
+      #@chords << Chord.new(root: :C)
+      #@chords << Chord.new(root: :G, inversion: 1)-12
+      #@chords << Chord.new(root: :A, quality: :minor)
+      #@chords << Chord.new(root: :F, inversion: 1)-12
+      @chords = []
+      @chords << Chord.new(root: :C)
+      @chords << Chord.new(root: :F, inversion: 2)-12
+      @chords << Chord.new(root: :G, inversion: 1)-12
+      @chords << Chord.new(root: :C)
+      #@progression = []
+      #@progression << ScaleDegree.new("I")
+      #@progression << ScaleDegree.new("IV")
+      #@progression << ScaleDegree.new("V")
+      #@progression << ScaleDegree.new("I")
+    end
+    
+    def inspect
+      output = ""
+      @chords.each do |chord|
+        output += chord.inspect + ", "
+      end
+      output[0..-3]
+    end
+  
+    def to_s
+      output = ""
+      @progression.each do |scale_degree|
+        output += scale_degree.to_s + ", "
+      end
+      output[0..-3]
+    end
+    
+    def play
+      @chords.each do |chord|
+        4.times {chord.play}
+      end
+    end
+    
+  end
+  
+end

data/lib/juicy/key.rb

@@ -0,0 +1,8 @@
+
+module Juicy
+
+  class Key
+  
+  end
+  
+end

data/lib/juicy/mode.rb

@@ -0,0 +1,10 @@
+
+module Juicy
+
+  MODES = [:ionian, :dorian, :phrygian, :lydian, :mixolydian, :aeolian, :locrian]
+
+  class Mode
+  
+  end
+  
+end

data/lib/juicy/note.rb

@@ -0,0 +1,52 @@
+module Juicy
+
+  class Note
+  
+    attr_reader :name, :pitch
+    
+    def initialize(name)
+      @name = parse_note_name(name)
+      @pitch = Pitch.new(@name)
+    end
+    
+    def inspect
+      "#{@name}"
+    end
+    
+    def play(options = {duration: 200})
+      @pitch.play(options)
+    end
+    
+    def +(interval)
+      Note.new(PITCHES.key((PITCHES[@name]+interval) % 12))
+    end
+    
+    def -(interval)
+      puts self
+      puts PITCHES.key((PITCHES[@name]-interval) % 12)
+      Note.new(PITCHES.key((PITCHES[@name]-interval) % 12))
+    end
+    
+    private
+    
+    def parse_note_name(name)
+      # parses note name input
+      # user should be able to say "A#" or "a#" or "a sharp" or "A_sharp" or "a_s"
+      groups = name.to_s.match(/([a-gA-G])( |_)?(.*)/)
+      note_name = groups[1].upcase
+      unless groups[3].nil? || groups[3].empty?
+        note_name += case groups[3]
+        when /^(s|#)/
+          "_sharp"
+        when /^(f|b)/
+          "_flat"
+        else
+          puts "Unknown note modifier: '#{groups[3]}'"
+        end
+      end
+      note_name.to_sym
+    end
+    
+  end
+
+end

data/lib/juicy/pitch.rb

@@ -0,0 +1,87 @@
+module Juicy
+
+  PITCHES = {
+    A: 0,
+    A_sharp: 1,
+    B_flat: 1,
+    B: 2,
+    B_sharp: 3,
+    C_flat: 2,
+    C: 3,
+    C_sharp: 4,
+    D_flat: 4,
+    D: 5,
+    D_sharp: 6,
+    E_flat: 6,
+    E: 7,
+    E_sharp: 8,
+    F_flat: 7,
+    F: 8,
+    F_sharp: 9,
+    G_flat: 9,
+    G: 10,
+    G_sharp: 11,
+    A_flat: 11
+  }
+
+  class Pitch
+  
+    @@temperament = :equal
+    @@pitch_standard = 440.0
+    
+    attr_reader :frequency, :confidence
+  
+    def initialize(pitch = @@pitch_standard, tune_now = true)
+      
+      if pitch.kind_of? Numeric
+        @frequency = pitch
+        @tuned = false
+        tune if tune_now
+      else
+        step = PITCHES[pitch.to_sym]
+        @frequency = @@pitch_standard*2**(step/12.0)
+        @tuned = true
+      end
+      
+    end
+    
+    def tune
+      if out_of_tune
+        step = Math.log(@frequency/440.0,2)*12
+        @confidence = (1.0-2*(step - step.round).abs)*100.0
+        @frequency = @@pitch_standard*2**((step.round)/12.0)
+        @tuned = true
+      end
+    end
+    
+    def +(interval)
+      change_by (interval)
+    end
+    
+    def -(interval)
+      change_by (-interval)
+    end
+    
+    def self.play(options = {duration: 200})
+      Win32::Sound.play_freq(options[:note].pitch.frequency, options[:note].duration)
+    end
+    
+    def play(options = {duration: 200})
+      Win32::Sound.play_freq(@frequency, options[:duration])
+    end
+    
+    private
+    
+    def out_of_tune
+      !@tuned
+    end
+    
+    def change_by (interval)
+      if @@temperament.eql? :equal
+        Pitch.new(@frequency*2**(interval/12.0))
+      end
+    end
+    
+  end
+
+end

data/lib/juicy/scale.rb

@@ -0,0 +1,14 @@
+
+module Juicy
+
+  CHROMATIC =  [1,1,1,1,1,1,1,1,1,1,1,1]
+  WHOLE_NOTE = [2,2,2,2,2,2]
+  OCTOTONIC =  [2,1,2,1,2,1,2,1]
+  PENTATONIC = [2,2,3,2,3]
+  DIATONIC =   [2,2,1,2,2,2,1]
+
+  class Scale
+  
+  end
+  
+end

data/lib/juicy/scale_degree.rb

@@ -0,0 +1,22 @@
+
+module Juicy
+
+  # some index of a given scale.  if scale is [2,4,5,7,9,11,12], then a scale degree of 3 is 4.
+  # scale degree of 1 is 0 by definition. That is, the root of the scale is defined to be 
+  # a scale degree of 1.
+
+  class ScaleDegree
+  
+    attr_reader :degree
+    
+    def initialize(degree)
+      @degree = degree
+    end
+    
+    def to_s
+      @degree
+    end
+    
+  end
+  
+end

data/lib/juicy/song.rb

@@ -0,0 +1,34 @@
+
+module Juicy
+
+  class Song
+  
+    def initialize
+    
+      #a song has a key, a mode, voices, tempo, time signature, 
+      @voices = []
+      @voices << Voice.new
+      @key = :A
+      @mode = :major
+      @tempo = 90.0
+      @time_signature = [4,4]
+      
+      
+      # play Do Mi So Do
+      notes = [0, 4, 7, 12]
+      @voices[0].notes = [
+        Note.new(Pitch.new(440*2.0**(notes[0]/12)), beat_length_in_milliseconds),
+        Note.new(Pitch.new(440*2.0**(notes[1]/12)), beat_length_in_milliseconds),
+        Note.new(Pitch.new(440*2.0**(notes[2]/12)), beat_length_in_milliseconds),
+        Note.new(Pitch.new(440*2.0**(notes[3]/12)), beat_length_in_milliseconds)
+      ]
+      
+    end
+    
+    def beat_length_in_milliseconds
+      60*1000/@tempo
+    end
+    
+  end
+  
+end

data/lib/juicy/voice.rb

@@ -0,0 +1,8 @@
+
+module Juicy
+
+  class Voice
+  
+  end
+  
+end

metadata

@@ -0,0 +1,55 @@
+--- !ruby/object:Gem::Specification
+name: juicy
+version: !ruby/object:Gem::Version
+  version: 0.0.8
+platform: ruby
+authors:
+- Dominic Muller
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2014-03-13 00:00:00.000000000 Z
+dependencies: []
+description: Generates songs
+email: nicklink483@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- bin/juicy.rb
+- lib/juicy.rb
+- lib/juicy/chord.rb
+- lib/juicy/chord_progression.rb
+- lib/juicy/key.rb
+- lib/juicy/mode.rb
+- lib/juicy/note.rb
+- lib/juicy/pitch.rb
+- lib/juicy/scale.rb
+- lib/juicy/scale_degree.rb
+- lib/juicy/song.rb
+- lib/juicy/voice.rb
+homepage: https://github.com/nicklink483/juicy
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.2.2
+signing_key: 
+specification_version: 4
+summary: Song writing tool
+test_files: []