zgomot 0.0.1

data/lib/zgomot/midi/note.rb

@@ -0,0 +1,104 @@
+##############################################################################################################
+module Zgomot::Midi
+
+  #####-------------------------------------------------------------------------------------------------------
+  class Note
+    
+    #.........................................................................................................
+    PITCH_CLASS = {
+      :C  => 0,  :Bs => 0,
+      :Cs => 1,  :Db => 1,
+      :D  => 2,
+      :Ds => 3,  :Ed => 3,
+      :E  => 4,  :Fd => 4,
+      :F  => 5,  :Es => 5,
+      :Fs => 6,  :Gb => 6,
+      :G  => 7, 
+      :Gs => 8,  :Ab => 8,
+      :A  => 9,
+      :As => 10, :Bb => 10,
+      :B  => 11, :Cb => 11, 
+      :R  => -1, 
+    }
+
+    #.........................................................................................................
+    LENGTH = [1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024].select{|d| d <= Clock.resolution}
+
+    #.........................................................................................................
+    OCTAVE = (-1..9).to_a
+
+    #####-------------------------------------------------------------------------------------------------------
+    class << self
+
+    #### self  
+    end
+    
+    #.........................................................................................................
+    attr_reader :pitch_class, :octave, :midi, :time_scale
+    attr_accessor :time, :offset_time, :channel, :velocity, :length
+  
+    #.........................................................................................................
+    def initialize(args)
+      @pitch_class, @octave = case args[:pitch]
+                                when Array then args[:pitch]
+                                when Symbol then [args[:pitch], 4]
+                                else raise(Zgomot::Error, "#{args[:pitch].inspect} is invalid pitch")
+                              end
+      @length, @velocity = args[:length], args[:velocity] 
+      @midi = pitch_to_midi(pitch_class, octave)
+      @time_scale = 1.0
+      raise(Zgomot::Error, "#{octave} is invalid octave") unless OCTAVE.include?(octave)
+      raise(Zgomot::Error, "#{length} is invalid duration") unless LENGTH.include?(length)
+      raise(Zgomot::Error, "#{args[:pitch].inspect} is invalid") if midi.nil?
+      raise(Zgomot::Error, "#{velocity} is invalid velocity") unless velocity < 1.0
+    end
+
+    #.........................................................................................................
+    def to_s
+      "[#{pitch_class.to_s},#{octave}].#{length}.#{midi}.#{velocity}"
+    end
+
+    #.........................................................................................................
+    # transforms
+    #.........................................................................................................
+    def bpm!(bpm)
+      @time_scale = 1.0/bpm.to_f; self
+    end
+
+    #.........................................................................................................
+    def octave!(oct)
+      @octave = oct; self
+    end
+    
+    #.........................................................................................................
+    # channel and dispatch interface
+    #.........................................................................................................
+    def play_at
+      time.to_f + offset_time.to_f
+    end
+    
+    #.........................................................................................................
+    def length_to_sec
+      time_scale*Clock.whole_note_sec/length
+    end
+
+    #.........................................................................................................
+    def to_midi
+      self
+    end
+      
+    #.........................................................................................................
+    def pitch_to_midi(pitch_class, octave)
+      if PITCH_CLASS[pitch_class]
+        (midi = 12*(octave+1)+PITCH_CLASS[pitch_class]) <= 127 ? midi : nil
+      end
+    end
+
+    #.........................................................................................................
+    private :pitch_to_midi
+  
+  #### Note
+  end
+
+#### Zgomot::Midi 
+end

data/lib/zgomot/midi/stream.rb

@@ -0,0 +1,76 @@
+##############################################################################################################
+module Zgomot::Midi
+
+  #####-------------------------------------------------------------------------------------------------------
+  class Stream
+
+    #.........................................................................................................
+    @streams = []
+
+    #####-------------------------------------------------------------------------------------------------------
+    class << self
+      
+      #.........................................................................................................
+      attr_reader :streams
+
+      #.........................................................................................................
+      def str(name, pattern=nil, opts={}, &blk)
+        strm = new(name, blk.arity, pattern, opts[:lim])
+        strm.define_meta_class_method(:play, &blk) 
+        @streams << strm
+      end
+
+      #.........................................................................................................
+      def play 
+        streams.each{|s| s.dispatch(::Time.now.truncate_to(Clock.tick_sec) + Zgomot::PLAY_DELAY) if s.status.eql?(:new)}
+      end
+      
+    #### self
+    end
+    
+    #####-------------------------------------------------------------------------------------------------------
+    attr_reader :patterns, :times, :status, :count, :thread, :limit, :name, :play_meth
+    
+    #.........................................................................................................
+    def initialize(name, arity, pattern, limit)
+      @patterns, @times = [Zgomot::Comp::Pattern.new(pattern)], [Time.new]
+      @limit, @name, @count, @thread, @status = limit || :inf, name, 0, nil, :new
+      @play_meth = "play#{arity.eql?(-1) ? 0 : arity}".to_sym
+    end
+
+    #.........................................................................................................
+    def dispatch(start_time)  
+      ch_time, @status = 0.0, :playing 
+      @thread = Thread.new do
+                  loop do
+                    @count += 1
+                    break if not limit.eql?(:inf) and count > limit
+                    if self.respond_to?(play_meth, true)  
+                      if (chan = self.send(play_meth)).kind_of?(Zgomot::Midi::Channel) 
+                        Dispatcher.enqueue(chan.time_shift(start_time+ch_time))
+                      else; break; end
+                    else
+                      raise(Zgomot::Error, 'str block arity not supported')
+                    end
+                    Zgomot.logger.info "STREAM:#{count}:#{name}"
+                    patterns << Zgomot::Comp::Pattern.new(chan.pattern)
+                    ch_time += chan.length_to_sec; times << Time.new(ch_time)
+                    sleep(0.80*(start_time+ch_time-::Time.now.truncate_to(Clock.tick_sec)))
+                  end
+        Zgomot.logger.info "STREAM FINISHED:#{name}"
+        @status = :finished          
+      end         
+    end
+  
+    #.........................................................................................................
+    def play0;play;end
+    def play1;play(Marshal.load(Marshal.dump(patterns.last)));end
+
+    #.........................................................................................................
+    private :play0, :play1
+    
+  #### Stream
+  end
+
+#### Zgomot::Midi 
+end

data/lib/zgomot/midi.rb

@@ -0,0 +1,6 @@
+require 'zgomot/midi/clock'
+require 'zgomot/midi/note'
+require 'zgomot/midi/channel'
+require 'zgomot/midi/stream'
+require 'zgomot/midi/interface'
+require 'zgomot/midi/dispatcher'

data/lib/zgomot/patches/object.rb

@@ -0,0 +1,11 @@
+##############################################################################################################
+class Object  
+
+  #.......................................................................................................
+  def define_meta_class_method(name, &blk)
+    (class << self; self; end).instance_eval {define_method(name, &blk)}
+  end
+
+#### Object
+end
+

data/lib/zgomot/patches/time.rb

@@ -0,0 +1,10 @@
+##############################################################################################################
+class Time  
+
+  #.......................................................................................................
+  def truncate_to(tick_sec)
+    tick_sec*(to_f/tick_sec).to_i
+  end
+
+#### Time
+end

data/lib/zgomot/patches.rb

@@ -0,0 +1,2 @@
+require 'zgomot/patches/object'
+require 'zgomot/patches/time'

data/lib/zgomot.rb

@@ -0,0 +1,14 @@
+$:.unshift(File.dirname(__FILE__))
+
+require 'optparse'
+require 'logger'
+require 'monitor'
+
+require 'midiator'
+
+require 'zgomot/config'
+require 'zgomot/boot'
+require 'zgomot/patches'
+require 'zgomot/comp'
+require 'zgomot/midi'
+require 'zgomot/main'

data/lib/zlive.rb

@@ -0,0 +1,7 @@
+require 'rubygems'
+require 'zgomot'
+Zgomot.live = true
+begin
+  load ENV['HOME'] + '/.zgomot'
+rescue LoadError; end
+Zgomot::Boot.boot

metadata

@@ -0,0 +1,178 @@
+--- !ruby/object:Gem::Specification 
+name: zgomot
+version: !ruby/object:Gem::Version 
+  hash: 29
+  prerelease: false
+  segments: 
+  - 0
+  - 0
+  - 1
+  version: 0.0.1
+platform: ruby
+authors: 
+- Troy Stribling
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2010-11-23 00:00:00 -05:00
+default_executable: zgomot
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rake
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 57
+        segments: 
+        - 0
+        - 8
+        - 3
+        version: 0.8.3
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: midiator
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        hash: 21
+        segments: 
+        - 0
+        - 3
+        - 3
+        version: 0.3.3
+  type: :runtime
+  version_requirements: *id002
+description: 
+email: troy.stribling@gmail.com
+executables: 
+- zgomot
+extensions: []
+
+extra_rdoc_files: 
+- LICENSE
+- README.rdoc
+files: 
+- .document
+- LICENSE
+- README.rdoc
+- Rakefile
+- VERSION
+- bin/zgomot
+- examples/arp_chords.rb
+- examples/full_scale_notes.rb
+- examples/inv_chords.rb
+- examples/modes_notes.rb
+- examples/notes.rb
+- examples/percs.rb
+- examples/percs_multi.rb
+- examples/phase_notes.rb
+- examples/prog_chords.rb
+- examples/prog_chords_multi_vel_length.rb
+- examples/prog_chords_rest.rb
+- examples/prog_notes.rb
+- examples/prog_notes_multi_vel_length.rb
+- examples/prog_notes_rest.rb
+- examples/progressive_modes.rb
+- examples/reverse_chords.rb
+- examples/scale_chords.rb
+- examples/scale_notes.rb
+- examples/scales_notes.rb
+- examples/simple_chords.rb
+- examples/simple_markov.rb
+- examples/simple_notes.rb
+- examples/simple_notes_length.rb
+- examples/simple_notes_velocity.rb
+- examples/zgomot.yml
+- lib/zgomot.rb
+- lib/zgomot/boot.rb
+- lib/zgomot/comp.rb
+- lib/zgomot/comp/chord.rb
+- lib/zgomot/comp/markov.rb
+- lib/zgomot/comp/mode.rb
+- lib/zgomot/comp/note.rb
+- lib/zgomot/comp/pattern.rb
+- lib/zgomot/comp/perc.rb
+- lib/zgomot/comp/permutation.rb
+- lib/zgomot/comp/pitch_class.rb
+- lib/zgomot/comp/progression.rb
+- lib/zgomot/comp/scale.rb
+- lib/zgomot/config.rb
+- lib/zgomot/main.rb
+- lib/zgomot/midi.rb
+- lib/zgomot/midi/channel.rb
+- lib/zgomot/midi/clock.rb
+- lib/zgomot/midi/dispatcher.rb
+- lib/zgomot/midi/interface.rb
+- lib/zgomot/midi/note.rb
+- lib/zgomot/midi/stream.rb
+- lib/zgomot/patches.rb
+- lib/zgomot/patches/object.rb
+- lib/zgomot/patches/time.rb
+- lib/zlive.rb
+has_rdoc: true
+homepage: http://github.com/troystribling/zgomot
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      hash: 3
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: zgomot is a simple DSL for writting MIDI music.
+test_files: 
+- examples/arp_chords.rb
+- examples/full_scale_notes.rb
+- examples/inv_chords.rb
+- examples/modes_notes.rb
+- examples/notes.rb
+- examples/percs.rb
+- examples/percs_multi.rb
+- examples/phase_notes.rb
+- examples/prog_chords.rb
+- examples/prog_chords_multi_vel_length.rb
+- examples/prog_chords_rest.rb
+- examples/prog_notes.rb
+- examples/prog_notes_multi_vel_length.rb
+- examples/prog_notes_rest.rb
+- examples/progressive_modes.rb
+- examples/reverse_chords.rb
+- examples/scale_chords.rb
+- examples/scale_notes.rb
+- examples/scales_notes.rb
+- examples/simple_chords.rb
+- examples/simple_markov.rb
+- examples/simple_notes.rb
+- examples/simple_notes_length.rb
+- examples/simple_notes_velocity.rb