zgomot 0.1.3 → 1.0.0

data/examples/percs_multi.rb

@@ -1,18 +1,14 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 score = [pr([:acoustic_bass_drum, :cowbell]), pr(:R), pr([:acoustic_snare, :hand_clap]), pr(:R)]
 
-#.........................................................................................................
 str 'percussion', score, :lim=>:inf do |pattern|
-  ch(2) << pattern
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/phase_notes.rb

@@ -1,20 +1,16 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
-str 'melody-1', np([:B,3],nil,:l=>4)[1,4,5,5], :lim=>:inf do |pattern|
-  ch(0) << pattern.mode!((count/4) % 7 + 1)
+str 'melody-1', np([:B,3],nil,:l=>4)[1,4,5,5], :lim=>:inf, :ch => 0 do |pattern|
+  pattern.mode!((count/4) % 7 + 1)
 end
 
-#.........................................................................................................
-str 'melody-2', np([:B,3],:ionian,:l=>4)[1,4,5,5].bpm!(16.0/15.0), :lim=>:inf  do |pattern|
-  ch(1) << pattern
+str 'melody-2', np([:B,3],:ionian,:l=>4)[1,4,5,5].bpm!(16.0/15.0), :lim=>:inf, :ch => 1  do |pattern|
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/prog_chords.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
-str 'prog', cp([:B,3],:ionian,:l=>4)[1,4,5,5], :lim=>1 do |pattern|
-  ch << pattern
+str 'prog', cp([:B,3],:ionian,:l=>4)[1,4,5,5], :lim=>6 do |pattern|
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/prog_chords_multi_vel_length.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'prog', cp([:A,4],nil,:l=>[4,4,8,8,4], :v=>[0.6, 0.4, 0.7, 0.6, 0.4])[7,5,3,3,1], :lim=>6 do |pattern|
-  ch << pattern.mode!(count)
+  pattern.mode!(count)
 end
 
-#.........................................................................................................
 play

data/examples/prog_chords_rest.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'prog', cp([:B,3],:ionian,:l=>4)[1,4,:R,5], :lim=>1 do |pattern|
-  ch << pattern
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/prog_notes.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'prog', np([:A,4],nil,:l=>4)[7,5,3,1], :lim=>6 do |pattern|
-  ch << pattern.mode!(count)
+  pattern.mode!(count)
 end
 
-#.........................................................................................................
 play

data/examples/prog_notes_multi_vel_length.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'prog', np([:A,4],nil,:l=>[4,4,8,8,4], :v=>[0.6, 0.4, 0.7, 0.6, 0.4])[7,5,3,3,1], :lim=>6 do |pattern|
-  ch << pattern.mode!(count)
+  pattern.mode!(count)
 end
 
-#.........................................................................................................
 play

data/examples/prog_notes_rest.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'prog', np([:A,4],nil,:l=>4)[7,:R,3,1], :lim=>6 do |pattern|
-  ch << pattern.mode!(count)
+  pattern.mode!(count)
 end
 
-#.........................................................................................................
 play

data/examples/progressive_modes.rb

@@ -1,16 +1,13 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
-major_modes = [:ionian, :lydian, :mixolydian] 
+major_modes = [:ionian, :lydian, :mixolydian]
 minor_modes = [:dorian, :phrygian, :aeolian]
 
-#.........................................................................................................
 m_slow = mark
 m_slow.add([0.6, 0.4]) do |count|
   np([:A,4],major_modes[count % 3],:l=>4)[7,5,3,1]
@@ -19,12 +16,10 @@ m_slow.add([0.4, 0.6]) do |count|
   np([:A,4],minor_modes[count % 3],:l=>4)[7,5,3,1]
 end
 
-#.........................................................................................................
 str :slow do
-  ch(0) << m_slow.next(count)
+  m_slow.next(count)
 end
 
-#.........................................................................................................
 m_fast = mark
 m_fast.add([0.6, 0.4]) do |count|
   np([:G,4],major_modes[count % 3],:l=>4)[7,5,3,1].bpm!(16.0/15.0)
@@ -33,19 +28,16 @@ m_fast.add([0.4, 0.6]) do |count|
   np([:G,4],minor_modes[count % 3],:l=>4)[7,5,3,1].bpm!(16.0/15.0)
 end
 
-#.........................................................................................................
-str :fast do
-  ch(1) << m_fast.next(count)
+str :fast, nil, :ch => 1 do
+  m_fast.next(count)
 end
 
-#.........................................................................................................
-str :perc do 
-  ch(2) << if (count % 2).eql?(0)
-             [pr(:R, :l=>2), pr(:hand_clap), pr(:hand_clap)]
-           else
-             pr(:R,:l=>1)
-           end
+str :perc, nil, :ch => 2 do
+  if (count % 2).eql?(0)
+    [pr(:R, :l=>2), pr(:hand_clap), pr(:hand_clap)]
+  else
+    pr(:R,:l=>1)
+  end
 end
 
-#.........................................................................................................
 play

data/examples/reverse_chords.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'chords', [c(:C,:min).arp!(4), c(:C,:min).arp!(4).rev!, c(:E,:min).arp!(4), c(:E,:min).arp!(4).rev!], :lim=>3 do |pattern|
-  ch << pattern
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/route_chords.rb

@@ -0,0 +1,22 @@
+require 'rubygems'
+require "#{File.dirname(__FILE__)}/../lib/zgomot"
+
+before_start do
+  Zgomot.logger.level = Logger::DEBUG
+end
+
+chords = cp([:B,3],:ionian,:l=>4)[1,4,5,5]
+
+str 'note-0', chords.note(0), :ch=>0 do |pattern|
+  pattern
+end
+
+str 'note-1', chords.note(1), :ch=>1 do |pattern|
+  pattern
+end
+
+str 'note-2', chords.note(2), :ch=>2 do |pattern|
+  pattern
+end
+
+run

data/examples/scale_chords.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'scale', cp([:C,4],:ionian,:l=>4), :lim=>1 do |pattern|
-  ch << pattern
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/scale_notes.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'scale', [np([:C,4],:dorian,:l=>4), np([:C,4],:dorian,:l=>4).reverse!.shift, n(:R)], :lim=>3 do |pattern|
-  ch << pattern
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/scales_notes.rb

@@ -1,19 +1,15 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 pclass = [:C, :Cs, :D, :Ds, :E, :F, :Fs, :G, :Gs, :A, :As, :B]
 
-#.........................................................................................................
 str 'scale', [np(nil,:dorian,:l=>4), np(nil,:dorian,:l=>4).reverse!.shift, n(:R)], :lim=>pclass.length do |pattern|
   Zgomot.logger.info "TONIC: [#{pclass[count-1]},4], MODE: dorian"
-  ch << pattern.tonic!([pclass[count-1], 4])
+  pattern.tonic!([pclass[count-1], 4])
 end
 
-#.........................................................................................................
 play

data/examples/simple_chords.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'chords', [ c(:C), c(:E,:min), c(:D,:min), c(:B,:dim), c(:G,:maj)], :lim=>3 do |pattern|
-  ch << pattern
+  pattern
 end
 
-#.........................................................................................................
 play

data/examples/simple_input.rb

@@ -0,0 +1,21 @@
+require 'rubygems'
+require "#{File.dirname(__FILE__)}/../lib/zgomot"
+
+before_start do
+  Zgomot.logger.level = Logger::DEBUG
+end
+
+if sources.include?("nanoKONTROL")
+  add_input("nanoKONTROL")
+  add_cc(:mode, 17, :type => :cont, :min => 0, :max => 6, :init => 0)
+  add_cc(:reverse, 13, :type => :switch)
+  str 'simple_input', np([:A,4],2,:l=>4)[7,5,3,1] do |pattern|
+    if cc(:reverse)
+      pattern.mode!(cc(:mode).to_i).reverse!
+    else
+      pattern.mode!(cc(:mode).to_i)
+    end
+  end
+  play
+end
+

data/examples/simple_markov.rb

@@ -1,12 +1,10 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 m = mark
 m.add([0.6, 0.4]) do
   np([:A,4],:dorian,:l=>4)[7,5,3,1,]
@@ -15,10 +13,8 @@ m.add([0.4, 0.6]) do
   np([:A,4],:ionian,:l=>4)[7,5,3,1]
 end
 
-#.........................................................................................................
 str 'markov' do
-  ch << m.next
+  m.next
 end
 
-#.........................................................................................................
 play

data/examples/simple_notes.rb

@@ -1,15 +1,12 @@
 require 'rubygems'
 require "#{File.dirname(__FILE__)}/../lib/zgomot"
 
-#.........................................................................................................
 before_start do
   Zgomot.logger.level = Logger::DEBUG
 end
 
-#.........................................................................................................
 str 'notes' do
-  ch << [n([:C,5]), n(:B), n(:R), n(:G), n(:C,:l=>2), n([:E,5],:l=>2)]
+  [n([:C,5]), n(:B), n(:R), n(:G), n(:C,:l=>2), n([:E,5],:l=>2)]
 end
 
-#.........................................................................................................
-play
+play

data/examples/zgomot_streams.rb

@@ -0,0 +1,19 @@
+set_config(:beats_per_minute=>120, :time_signature=>"4/4", :resolution=>"1/64")
+
+add_input("nanoKONTROL") if sources.include?("nanoKONTROL")
+add_cc(:mode, 17, :type => :cont, :min => 0, :max => 6, :init => 0)
+add_cc(:reverse, 13, :type => :switch)
+
+
+str 'input', np([:A,4],2,:l=>4)[7,5,3,1], :ch=>0 do |pattern|
+  if cc(:reverse)
+    pattern.mode!(cc(:mode).to_i).reverse!
+  else
+    pattern.mode!(cc(:mode).to_i)
+  end
+end
+
+str 'chords', cp([:B,3],:ionian,:l=>4)[1,4,5,5], :lim=>6, :ch=>1 do |pattern|
+  pattern
+end
+

data/lib/zgomot/boot.rb

@@ -1,56 +1,30 @@
-##############################################################################################################
 module Zgomot
 
-  #####-------------------------------------------------------------------------------------------------------
   class Boot
-    
-    ####......................................................................................................
     class << self
-
-      #.......................................................................................................
       def boot
-        
-        ####..............
         Zgomot.logger = Logger.new(STDOUT)
-        Zgomot.logger.level = Logger::WARN 
-        
-        ####..............
+        Zgomot.logger.level = Logger::WARN
         call_if_implemented(:call_before_start)
-
-        ####..............
         Zgomot.logger.info "ZGOMOT BEGINNING"
         Zgomot.logger.info "APPLICATION PATH: #{Zgomot.app_path}"
         Zgomot.logger.info "CONFIGURATION FILE: #{Zgomot.config_file}"
-        Zgomot.logger.info "CONFIGURATION: #{Zgomot.config.inspect}"    
-        
+        Zgomot.logger.info "CONFIGURATION: #{Zgomot.config.inspect}"
       end
-      
-      ####....................................................................................................
-      # application deligate methods
-      #.......................................................................................................
       def call_if_implemented(method, *args)
         send(method, *args) if respond_to?(method)
       end
-      
-      #.........................................................................................................
       def callbacks(*args)
-        args.each do |meth| 
+        args.each do |meth|
           instance_eval <<-do_eval
             def #{meth}(&blk)
               define_meta_class_method(:call_#{meth}, &blk)
             end
           do_eval
         end
-      end 
-                                  
-    #### self
+      end
     end
-
-    #.........................................................................................................
     callbacks(:before_start)
-
-  #### Boot
   end
-  
-#### Zgomot
+
 end

data/lib/zgomot/comp/chord.rb

@@ -1,41 +1,28 @@
-##############################################################################################################
 module Zgomot::Comp
 
-  #####-------------------------------------------------------------------------------------------------------
   class Chord
 
-    #####-------------------------------------------------------------------------------------------------------
-    # progession interface
-    #####-------------------------------------------------------------------------------------------------------
     class Progression
-    
-      #.........................................................................................................
-      attr_reader :chord
 
-      #.........................................................................................................
+      attr_reader :chord
       def initialize(chord)
         @chord = chord || :scale
       end
-      
-      #.........................................................................................................
       def notes(prog)
         chords = prog.mode.chords(chord); count = -1
-        prog.items.select do |d| 
+        prog.items.select do |d|
           d.eql?(:R) || chords[d-1]
         end.map do |d|
           count += 1; idx_length, idx_velocity = count % prog.length.length, count % prog.velocity.length
           unless d.eql?(:R)
             Chord.new(:tonic => prog.pitches[d-1], :chord => chords[d-1], :length => prog.length[idx_length], :velocity => prog.velocity[idx_velocity])
           else
-            Zgomot::Midi::Note.new(:pitch => :R, :length => prog.length[idx_length], :velocity => prog.velocity[idx_velocity])            
+            Zgomot::Midi::Note.new(:pitch => :R, :length => prog.length[idx_length], :velocity => prog.velocity[idx_velocity])
           end
         end
       end
-    
-    #### Progression  
     end
 
-    #.........................................................................................................
     @chord_intervals = {
       :maj  => [4,7],
       :min  => [3,7],
@@ -44,24 +31,17 @@ module Zgomot::Comp
       :sus2 => [2,7],
       :sus4 => [5,7]
       }
-        
-    #####-------------------------------------------------------------------------------------------------------
+
     class << self
-      
-      #.........................................................................................................
       attr_reader :chord_intervals
-
-    #### self
     end
-        
-    #.........................................................................................................
+
     attr_reader :tonic, :chord, :clock, :intervals, :arp, :time_scale, :items, :inversion, :reverse
     attr_accessor :length, :velocity
-  
-    #.........................................................................................................
+
     def initialize(args)
       @length, @velocity, @chord = args[:length], args[:velocity], args[:chord]
-      (@intervals =  Chord.chord_intervals[chord]) || raise(Zgomot::Error, "#{chord.inspect} is invalid")                      
+      (@intervals =  Chord.chord_intervals[chord]) || raise(Zgomot::Error, "#{chord.inspect} is invalid")
       @time_scale, @inversion, @reverse = 1.0, 0, false
       @tonic = case args[:tonic]
                 when Array then args[:tonic]
@@ -71,101 +51,67 @@ module Zgomot::Comp
               end
     end
 
-    #.........................................................................................................
     def pitches
       last_pitch, octave = tonic; pitches = [tonic]
       intervals.each_index{|i| pitches << PitchClass.next(tonic.first, intervals[i])}
       nts = pitches[1..-1].map do |p|
               octave += 1 if p < last_pitch; last_pitch = p.value; [last_pitch, octave]
             end.unshift(tonic)
-      @reverse ? invert(nts).reverse : invert(nts)     
+      @reverse ? invert(nts).reverse : invert(nts)
+    end
+    def note(number)
+      Zgomot::Midi::Note.new(:pitch => pitches[number], :length => length, :velocity => velocity)
     end
-
-    #.........................................................................................................
     def notes
-      @notes ||= pitches.map do |p| 
+      @notes ||= pitches.map do |p|
                    Zgomot::Midi::Note.new(:pitch => p, :length => length, :velocity => velocity)
-                 end                          
+                 end
     end
-
-    #.........................................................................................................
-    # transforms
-    #.........................................................................................................
     def arp!(v)
       @notes = nil; @arp = v; self
     end
-
-    #.........................................................................................................
     def inv!(v)
       @notes = nil; @inversion = v; self
     end
-
-    #.........................................................................................................
     def rev!
       @reverse = true; self
     end
-
-    #.........................................................................................................
     def bpm!(v)
       @time_scale = 1.0/v.to_f; self
     end
-
-    #.........................................................................................................
     def octave!(v)
       @notes = nil; @octave = v; self
     end
-      
-    #.........................................................................................................
-    # channel and dispatch interface
-    #.........................................................................................................
     def length_to_sec
       time_scale*Zgomot::Midi::Clock.whole_note_sec*(1.0/length + (arp.to_f.eql?(0.0) ? 0.0 : intervals.length.to_f/arp.to_f))
     end
-
-    #.........................................................................................................
     def to_midi
       notes.map{|n| n.to_midi}
     end
-
-    #.........................................................................................................
     def channel=(chan)
       notes.each{|n| n.channel = chan}
     end
-
-    #.........................................................................................................
     def offset_time=(time)
       notes.each{|n| n.offset_time = time}
     end
-    
-    #.........................................................................................................
     def time=(time)
       @clock = Zgomot::Midi::Clock.new
       clock.update(time)
       notes.each do |n|
         n.time = clock.current_time
-        clock.update(Zgomot::Midi::Clock.whole_note_sec/arp.to_f) if arp.to_f > 0.0        
+        clock.update(Zgomot::Midi::Clock.whole_note_sec/arp.to_f) if arp.to_f > 0.0
       end
     end
-
-    #.........................................................................................................
-    # private
-    #.........................................................................................................
     def sum(a)
       a.inject(0) {|s,n| s+n}
     end
-
-    #.........................................................................................................
     def invert(p)
       inversion.times do |i|
-        n = p.shift; p.push([n.first, (n.last.eql?(9) ? n.last : n.last+1)]) 
+        n = p.shift; p.push([n.first, (n.last.eql?(9) ? n.last : n.last+1)])
       end; p
     end
-
-    #.........................................................................................................
     private :sum, :invert
-      
-  #### Chord
+
   end
 
-#### Zgomot::Comp 
 end