scruby 0.2.7

data/.gitignore

@@ -0,0 +1,5 @@
+pkg/*
+*.gem
+.bundle
+*.swp
+*.swo

data/.rspec

@@ -0,0 +1 @@
+--color

data/Gemfile

@@ -0,0 +1,4 @@
+source "http://rubygems.org"
+
+# Specify your gem's dependencies in scruby.gemspec
+gemspec

data/Gemfile.lock

@@ -0,0 +1,53 @@
+PATH
+  remote: .
+  specs:
+    scruby (0.2.7)
+      arguments (~> 0.6)
+      live (~> 0.1)
+      ruby-osc (~> 0.3)
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    ParseTree (3.0.7)
+      RubyInline (>= 3.7.0)
+      sexp_processor (>= 3.0.0)
+    RubyInline (3.9.0)
+      ZenTest (~> 4.3)
+    ZenTest (4.5.0)
+    arguments (0.6)
+      ParseTree (>= 3.0.3)
+      ruby2ruby (= 1.1.9)
+      ruby_parser (>= 2.0.2)
+    diff-lcs (1.1.2)
+    eventmachine (0.12.10)
+    highline (1.6.1)
+    hoe (2.9.1)
+      rake (>= 0.8.7)
+    live (0.1.2)
+      highline
+    rake (0.8.7)
+    rspec (2.5.0)
+      rspec-core (~> 2.5.0)
+      rspec-expectations (~> 2.5.0)
+      rspec-mocks (~> 2.5.0)
+    rspec-core (2.5.1)
+    rspec-expectations (2.5.0)
+      diff-lcs (~> 1.1.2)
+    rspec-mocks (2.5.0)
+    ruby-osc (0.3.2)
+      eventmachine (>= 0.12.8)
+    ruby2ruby (1.1.9)
+      ParseTree
+      hoe (>= 1.5.3)
+    ruby_parser (2.0.6)
+      sexp_processor (~> 3.0)
+    sexp_processor (3.0.5)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  bundler
+  rspec
+  scruby!

data/README.rdoc

@@ -0,0 +1,65 @@
+== Scruby 
+
+Is a bare-bones SuperCollider livecoding library for Ruby, it provides comunication with a remote or local scsynth server and SynthDef creation with a
+in a similar way to Sclang.
+
+SynthDef creation and sending is robust but some features are not implemented such as SynthDef variations and others I may not be aware of.
+
+livecode.rb executable is located in the bin directory and a TextMate bundle included in extras permits livecoding from TextMate, comunication is 
+thrugh *nix pipes. Similar functionality shouldn't be too dificult to implement from Emacs or Vim.
+
+== INSTALL
+
+    $ [sudo] gem install scruby
+
+
+== USAGE
+
+    require 'scruby'
+    
+    s = Server.new
+    s.boot
+    
+    SynthDef.new :fm do |freq, amp, dur|
+      mod_env = EnvGen.kr Env.new( d(600, 200, 100), d(0.7,0.3) ), 1, :timeScale => dur
+      mod     = SinOsc.ar freq * 1.4, :mul => mod_env
+      sig     = SinOsc.ar freq + mod
+      env     = EnvGen.kr Env.new( d(0, 1, 0.6, 0.2, 0.1, 0), d(0.001, 0.005, 0.3, 0.5, 0.7) ), 1, :timeScale => dur, :doneAction => 2
+      sig     = sig * amp * env
+      Out.ar  0, [sig, sig]
+    end.send
+
+    Synth.new :fm, :freq => 220, :amp => 0.4, :dur => 1
+    
+
+To start a live coding session:
+
+    $ live
+    
+See http://github.com/maca/live
+
+
+== TODO
+
+Receive OSC messages from SuperCollider
+
+== LICENSE:
+
+Copyright (c) 2008 Macario Ortega
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+
+
+

data/Rakefile

@@ -0,0 +1,10 @@
+require 'bundler'
+Bundler::GemHelper.install_tasks
+require "rspec/core/rake_task"
+
+desc "Run specs"
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec
+
+Bundler::GemHelper.install_tasks

data/TODO.markdown

@@ -0,0 +1,3 @@
+**Array workarrounds**
+
+* Buffer as Ugen input 

data/examples/example.rb

@@ -0,0 +1,73 @@
+scruby = "#{File.expand_path( File.join( File.dirname( __FILE__), '..', 'scruby' )  )}"
+require scruby
+s = Server.new('localhost', 57140)
+s.boot
+require File.expand_path( File.join( File.dirname(__FILE__),'..','..', '..', 'Sequentiable', 'lib', 'metro' ) )
+require File.expand_path( File.join( File.dirname(__FILE__),'..','..', '..', 'HumanGenome', 'lib', 'human_genome' ) )
+
+sdef  = SynthDef.new :melo, :values => [456, 0.34, 0.45] do |freq, amp, a, b, c|
+  gate = EnvGen.kr( Env.perc(0, 0.2) )
+  sig  = SinOsc.ar( [freq, freq * 1.01], :mul => SinOsc.kr(40) * amp * 0.7, :add => SinOsc.kr(0.5, :mul => 2.5) ) * EnvGen.kr( Env.asr(2, 1, 3), gate, :doneAction => 2 )
+  sig  = SinOsc.ar( [freq, freq * 1.01], :mul => SinOsc.kr(8) * amp * 0.3, :add => SinOsc.kr(0.5, :mul => 2.5) ) * EnvGen.kr( Env.asr(2, 1, 2), gate ) + sig
+  sig  = SinOsc.ar( [freq * 0.25, freq * 0.251], :mul => SinOsc.kr(30) * amp * 0.3 ) * EnvGen.kr( Env.asr(2, 1, 3), gate ) + sig
+  sig  = SinOsc.ar( freq * 2, :mul => SinOsc.kr(500, :mul => 0.1) * amp * 0.1 ) * EnvGen.kr( Env.asr(0, 1, 2), gate ) + sig
+  sig  = SinOsc.ar( freq * 0.25, :mul => amp * 0.2 ) * EnvGen.kr( Env.asr(0, 1, 0.4), gate ) + sig
+  res  = Resonz.ar( sig, EnvGen.kr( Env.asr(0.5, 3,c*2) )* a * 10000 )
+  Out.ar( 0, [res[0] * 6 + sig[1] * 0.8]*2 )
+end
+sdef.send
+sleep 0.05
+test = Synth.new :melo, :freq => 220, :amp => 0.5
+
+# [1] * 2 = [1,1]
+
+s.stop
+
+
+sdef  = SynthDef.new :perc, :values => [456, 0.34, 0.45] do |freq, amp, a, b| 
+  dur = a
+  amp = amp * 0.25
+  freq = freq * 0.05
+  sig = SinOsc.ar( Line.kr( freq * 1.5, freq * 1.1, dur ), Math::PI/2, amp * 0.2 * SinOsc.kr(10) )
+  # sig = Resonz.ar( sig, EnvGen.kr( Env.asr(0.5, 3, 2) ) * 120, 0.5 )
+  # sig = LPF.ar( sig, 120 )
+  sig = HPF.ar( WhiteNoise.ar( amp * 0.1 ), freq * 10 ) * b * 0.8 + sig
+  # sig = Pan2.ar( sig, 0)
+  env = EnvGen.kr Env.perc( 0, dur ), :doneAction => 2
+  Out.ar 0, [sig*env]*2
+end
+sdef.send
+sleep 0.05
+test = Synth.new :perc, :freq => 1000, :amp => 0.5, :dur => rand
+
+sdef  = SynthDef.new :perc, :values => [456, 0.34, 0.45] do |freq, amp, a, b| 
+  dur = a
+  amp = amp
+  freq = freq * 0.1
+  sig = SinOsc.ar( Line.kr( freq * 1.5, freq * 1.1, dur ), Math::PI/2, amp * 0.2 * SinOsc.kr(10) )
+  sig = HPF.ar( WhiteNoise.ar( amp * 0.1 ), freq * 10 ) * 0.8 + sig
+  env = EnvGen.kr Env.perc( 0, dur ), :doneAction => 2
+  Out.ar 0, [sig*env]*2
+end
+sdef.send
+sleep 0.05
+test = Synth.new :perc, :freq => 1000, :amp => 0.5, :dur => rand
+
+sdef  = SynthDef.new :perc, :values => [456, 0.34, 0.45] do |freq, amp, a, b| 
+  gate = EnvGen.kr Env.perc(0,0.1)
+  env = EnvGen.kr Env.asr( 0.1, 4, 1 ), gate, :doneAction => 2
+  sig = DelayC.ar( SinOsc.ar(freq), 4, SinOsc.ar( SinOsc.ar( SinOsc.ar( 2 ) ) ) )
+  Out.ar( 0, [sig * env]*2 )
+end
+sdef.send
+sleep 0.05
+test = Synth.new :perc, :freq => 1000, :amp => 0.5, :dur => rand
+# sleep 0.8
+
+s.stop
+
+sleep 0.05
+test = Synth.new :test, :freq => 20, :amp => 1
+
+
+

data/lib/scruby/buffer.rb

@@ -0,0 +1,153 @@
+module Scruby
+  def expand_path path
+    path = "~/Scruby/#{ path }" unless path.match %r{^(?:/|~)}
+    File.expand_path path
+  end
+  
+  class Buffer
+    # readNoUpdate
+    # loadCollection
+    # sendCollection
+    # streamCollection
+    # loadToFloatArray
+    # getToFloatArray
+    # set
+    # setn
+    # get
+    # getn
+    # fill
+    # normalize
+    # gen
+    # sine1
+    # ...
+    # copy
+    # copyData
+    # query
+    # updateInfo
+    # queryDone
+    # printOn
+    # play
+    # duration
+    # asBufWithValues
+
+    attr_reader   :server
+    attr_accessor :path, :frames, :channels, :rate
+    
+    def read path, file_start = 0, frames = -1, buff_start = 0, leave_open = false, &message
+      # @on_info  = message
+      message ||= ["/b_query", buffnum]
+      @server.send "/b_read", buffnum, expand_path(path), file_start, frames, buff_start, leave_open, message.value(self)
+      self
+    end
+    
+    def read_channel path, file_start = 0, frames = -1, buff_start = 0, leave_open = false, channels = [], &message
+      message ||= 0
+      @server.send *(["/b_ReadChannel", buffnum, expand_path(path), start, frames, buff_start, leave_open] + channels << message.value(self))
+      self
+    end
+    
+    def close &message
+      message ||= 0
+      @server.send '/b_close', buffnum, message.value(self)
+      self
+    end
+    
+    def zero &message
+      message ||= 0
+      @server.send '/b_zero', buffnum, message.value(self)
+      self
+    end
+    
+    def cue_sound_file path, start = 0, &message
+      message ||= 0
+      @server.send "/b_read", buffnum, expand_path(path), start, @frames, 0, 1, message.value(self)
+      self
+    end
+    
+    def write path = nil, format = 'aiff', sample_format = 'int24', frames = -1, start = 0, leave_open = false, &message
+      message ||= 0
+      path    ||= "#{ DateTime.now }.#{ format }"
+      @server.send "/b_write", buffnum, expand_path(path), format, sample_format, frames, start, leave_open, message.value(self)
+      self
+    end
+    
+    def initialize server, frames = -1, channels = 1
+      @server, @frames, @channels = server, frames, channels
+    end
+
+    def allocate &message
+      message ||= 0
+      @server.allocate :buffers, self
+      @server.send '/b_alloc', buffnum, frames, channels, message.value(self)
+      self
+    end
+
+    def buffnum
+       @server.buffers.index self
+    end
+    alias :as_ugen_input :buffnum
+    alias :index         :buffnum
+    # alias :as_control_input :buffnum
+    
+    def free &message
+      message ||= 0
+      @server.send "/b_free", buffnum, message.value(self)
+      @server.buffers.delete self
+    end
+
+    # :nodoc:
+    def allocate_and_read path, start, frames, &message
+      @server.allocate :buffers, self
+      message ||= ["/b_query", buffnum]
+      @server.send "/b_allocRead", buffnum, @path = expand_path(path), start, frames, message.value(self)
+      self
+    end
+    
+    def allocate_read_channel path, start, frames, channels, &message
+      @server.allocate :buffers, self
+      message ||= ["/b_query", buffnum]
+      @server.send *(["/b_allocReadChannel", buffnum, expand_path(path), start, frames] + channels << message.value(self))
+      self
+    end
+
+    class << self
+      def allocate server, frames = -1, channels = 1, &message
+        new(server, frames, channels).allocate &message
+      end
+      
+      def cue_sound_file server, path, start, channels = 2, buff_size = 32768, &message
+        allocate server, buff_size, channels do |buffer|
+          message ||= 0
+          ['/b_read', buffer.buffnum, expand_path(path), start, buff_size, 0, true, message.value(buffer)]
+        end
+      end
+      
+      # Allocate a buffer and immediately read a soundfile into it.
+      def read server, path, start = 0, frames = -1, &message
+        buffer = new server, &message
+        buffer.allocate_and_read expand_path(path), start, frames
+      end
+      
+      def read_channel server, path, start = 0, frames = -1, channels = [], &message
+        new(server, frames, channels).allocate_read_channel expand_path(path), start, frames, channels, &message
+      end
+      
+      def alloc_consecutive buffers, server, frames = -1, channels = 1, &message
+        buffers = Array.new(buffers){ new server, frames, channels }
+        server.allocate :buffers, buffers
+        message ||= 0
+        buffers.each do |buff|
+          server.send '/b_alloc', buff.buffnum, frames, channels, message.value(buff)
+        end
+      end
+
+      named_arguments_for :allocate, :read, :cue_sound_file, :alloc_consecutive, :read_channel
+
+      # readNoUpdate
+      # loadCollection
+      # sendCollection
+      # loadDialog
+    end
+  end
+end
+    

data/lib/scruby/bus.rb

@@ -0,0 +1,67 @@
+module Scruby
+  
+  class Bus
+    attr_reader :server, :rate, :channels, :main_bus
+    
+    def initialize server, rate, channels = 1, main_bus = self, hardware_out = false
+      @server, @rate, @channels, @main_bus, @hardware_out = server, rate, channels, main_bus, hardware_out
+    end
+    
+    def index
+      @index ||= @server.__send__("#{ @rate }_buses").index(self)
+    end
+    
+    def free
+      @index = nil
+      @server.__send__("#{ @rate }_buses").delete(self)
+    end
+    
+    def to_map
+      raise SCError, 'Audio buses cannot be mapped' if rate == :audio
+      "c#{ index }"
+    end
+    
+    def audio_out?
+      index < @server.instance_variable_get(:@opts)[:audio_outputs]
+    end
+    
+    # Messaging
+    def set *args
+      args.flatten!
+      message_args = []
+      (index...channels).to_a.zip(args) do |chan, val|
+        message_args.push(chan).push(val) if chan and val
+      end
+      if args.size > channels
+        warn "You tried to set #{ args.size } values for bus #{ index } that only has #{ channels } channels, extra values are ignored." 
+      end
+      @server.send '/c_set', *message_args
+    end
+    
+    def fill value, channels = @channels
+      if channels > @channels
+        warn "You tried to set #{ channels } values for bus #{ index } that only has #{ @channels } channels, extra values are ignored." 
+      end
+      @server.send '/c_fill', index, channels.min(@channels), value
+    end
+    
+    class << self
+      private :new
+      
+      def control server, channels = 1
+        buses = [new(server, :control, channels)]
+        buses.push new(server, :control, channels, buses.first) while buses.size < channels
+        server.allocate :control_buses, buses
+        buses.first
+      end
+      
+      def audio server, channels = 1
+        buses = [new(server, :audio, channels)]
+        buses.push new(server, :audio, channels, buses.first) while buses.size < channels
+        server.allocate :audio_buses, buses
+        buses.first
+      end
+    end
+    
+  end
+end

data/lib/scruby/control_name.rb

@@ -0,0 +1,29 @@
+module Scruby
+  class ControlName #:nodoc:
+    attr_accessor :name, :value, :rate, :index
+    RATES = { 'n_' => :noncontrol, 'i_' => :scalar, 'k_' => :control, 't_' => :trigger }
+
+    def initialize name, value, rate, index
+      @name, @value, @rate, @index = name.to_s, value.to_f, set_rate( name, rate ), index
+    end
+
+    def set_rate name, rate
+      RATES.has_value?( rate ) ? rate : rate_from_name( name )
+    end
+
+    def rate_from_name name
+      RATES[ name.to_s[0..1] ] || :control
+    end
+
+    def non_control?
+      @rate == :noncontrol
+    end
+
+    def == other
+      @name  == other.name  and
+      @value == other.value and
+      @rate  == other.rate  and
+      @index == other.index
+    end
+  end
+end

data/lib/scruby/core_ext/array.rb

@@ -0,0 +1,44 @@
+class Array
+  #collect with index
+  def collect_with_index
+    self.zip( (0...self.size).map ).collect{ |element, index| yield element, index }
+  end
+
+  def wrap_to size
+    return self if size == self.size
+    self.dup.wrap_to! size
+  end
+
+  def wrap_to! size
+    return nil if size == self.size
+    original_size = self.size
+    size.times { |i| self[ i ] = self[ i % original_size ] }
+    self
+  end
+
+  def wrap_and_zip *args
+    max  = args.map{ |a| instance_of?(Array) ? a.size : 0 }.max.max( self.size )
+    args = args.collect{ |a| a.to_array.wrap_to( max ) }
+    self.wrap_to( max ).zip( *args )
+  end
+
+  # Returns self
+  def to_array; self; end
+
+  def encode_floats #:nodoc:
+    [self.size].pack('n') + self.pack('g*') #TODO: Deprecate
+  end
+  
+  def peel!
+    self.replace self.first if self.first.kind_of? Array if self.size == 1
+  end
+  
+  def peel
+    self.dup.peel! || self
+  end
+  
+  private
+  def collect_constants #:nodoc:
+    self.collect{ |e| e.send( :collect_constants )  }
+  end
+end

data/lib/scruby/core_ext/delegator_array.rb

@@ -0,0 +1,44 @@
+class DelegatorArray < Array
+  
+  def method_missing meth, *args, &block
+    return self.map! { |item| item.send meth, *args, &block }
+  end
+  
+  def to_da; self; end
+  def to_a;  Array.new self; end
+
+  [:*, :+, :-, :/].each do |meth|
+    define_method meth do |args|
+      binary_op meth, args
+    end
+  end
+  
+  private
+  def binary_op op, inputs
+    return method_missing(op, inputs) unless inputs.kind_of? Array
+    
+    results = self.class.new
+    self.zip(inputs).collect_with_index do |pair, index|
+      left, right = pair
+      next results.push(right) if index + 1 > self.size
+      next results.push(left)  if index + 1 > inputs.size 
+      results.push left.send(op, right)
+    end 
+    results
+  end
+end
+
+class Array
+  def to_da
+    DelegatorArray.new self
+  end
+end
+
+module Kernel
+  def d *args
+    args.peel!
+    darray = DelegatorArray.new
+    darray.push *args
+    darray
+  end
+end

data/lib/scruby/core_ext/fixnum.rb

@@ -0,0 +1,8 @@
+# Musical math
+class Fixnum  
+  def freq
+    440 * (2 ** ((self - 69) * 0.083333333333) )
+  end
+  #method next tone
+  # 1:1.05946
+end

data/lib/scruby/core_ext/numeric.rb

@@ -0,0 +1,25 @@
+class Numeric
+  # Rate is :scalar
+  def rate; :scalar; end
+
+  # Compares itself with +other+ and returns biggest
+  def max other
+    self > other ? self : other
+  end
+
+  # Compares itself with +other+ and returns smallest
+  def min other
+    self < other ? self : other
+  end
+
+  private
+  #:nodoc:
+  def collect_constants
+    self
+  end  
+  
+  #:nodoc:
+  def input_specs synthdef
+    [-1, synthdef.constants.index(self)]
+  end
+end

data/lib/scruby/core_ext/object.rb

@@ -0,0 +1,23 @@
+class Object
+  # Wraps self int an array, #to_a seems to be deprecated
+  def to_array
+    [*self]
+  end
+  
+  def to_proc
+    Proc.new{ self }
+  end
+
+  def value *args
+    self
+  end
+end
+
+
+class TrueClass
+  def to_i; 1; end
+end
+
+class FalseClass
+  def to_i; 0; end
+end

data/lib/scruby/core_ext/proc.rb

@@ -0,0 +1,11 @@
+class Proc
+
+  def arguments
+    case self.arity
+    when -1..0 then []
+    when 1 then self.to_sexp.assoc( :dasgn_curr )[1].to_array
+    else self.to_sexp[2][1][1..-1].collect{ |arg| arg[1]  }
+    end
+  end
+  alias :value :call
+end

data/lib/scruby/core_ext/string.rb

@@ -0,0 +1,5 @@
+class String
+  def encode #:nodoc:
+    [self.size & 255].pack('C*') + self[0..255]
+  end
+end

data/lib/scruby/core_ext/symbol.rb

@@ -0,0 +1,5 @@
+class Symbol
+  def to_proc
+    proc { |obj, *args| obj.send(self, *args) }
+  end
+end