maca-Scruby 0.0.8

data/README.rdoc

@@ -0,0 +1,26 @@
+
+
+
+== 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/>.
+
+== NOTES
+
+Ruby has operation precendence
+
+
+

data/Rakefile

@@ -0,0 +1,10 @@
+require 'rubygems'
+require 'rake'
+require 'echoe'
+
+Echoe.new('Scruby', '0.0.8') do |p|
+  p.description = "Small client for doing sound synthesis from ruby using the SuperCollider synth, usage is quite similar from SuperCollider."
+  p.url = 'http://github.com/maca/scruby'
+  p.author = "Macario Ortega"
+  p.email = "macarui@gmail.com"
+end

data/Scruby.gemspec

@@ -0,0 +1,36 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{Scruby}
+  s.version = "0.0.8"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 1.2") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Macario Ortega"]
+  s.date = %q{2009-02-05}
+  s.default_executable = %q{live_session.rb}
+  s.description = %q{Small client for doing sound synthesis from ruby using the SuperCollider synth, usage is quite similar from SuperCollider.}
+  s.email = %q{macarui@gmail.com}
+  s.executables = ["live_session.rb"]
+  s.extra_rdoc_files = ["bin/live_session.rb", "lib/live/session.rb", "lib/scruby/audio/control_name.rb", "lib/scruby/audio/env.rb", "lib/scruby/audio/node.rb", "lib/scruby/audio/server.rb", "lib/scruby/audio/synth.rb", "lib/scruby/audio/synthdef.rb", "lib/scruby/audio/ugens/env_gen.rb", "lib/scruby/audio/ugens/in_out.rb", "lib/scruby/audio/ugens/multi_out_ugens.rb", "lib/scruby/audio/ugens/operation_indices.yaml", "lib/scruby/audio/ugens/operation_ugens.rb", "lib/scruby/audio/ugens/ugen.rb", "lib/scruby/audio/ugens/ugen_defs.yaml", "lib/scruby/audio/ugens/ugen_operations.rb", "lib/scruby/audio/ugens/ugens.rb", "lib/scruby/control/metro.rb", "lib/scruby/extensions.rb", "lib/scruby/typed_array.rb", "lib/scruby.rb", "README.rdoc"]
+  s.files = ["bin/live_session.rb", "changes", "lib/live/session.rb", "lib/scruby/audio/control_name.rb", "lib/scruby/audio/env.rb", "lib/scruby/audio/node.rb", "lib/scruby/audio/server.rb", "lib/scruby/audio/synth.rb", "lib/scruby/audio/synthdef.rb", "lib/scruby/audio/ugens/env_gen.rb", "lib/scruby/audio/ugens/in_out.rb", "lib/scruby/audio/ugens/multi_out_ugens.rb", "lib/scruby/audio/ugens/operation_indices.yaml", "lib/scruby/audio/ugens/operation_ugens.rb", "lib/scruby/audio/ugens/ugen.rb", "lib/scruby/audio/ugens/ugen_defs.yaml", "lib/scruby/audio/ugens/ugen_operations.rb", "lib/scruby/audio/ugens/ugens.rb", "lib/scruby/control/metro.rb", "lib/scruby/extensions.rb", "lib/scruby/typed_array.rb", "lib/scruby.rb", "Rakefile", "README.rdoc", "spec/audio/env_gen_specs.rb", "spec/audio/in_out_spec.rb", "spec/audio/integration_spec.rb", "spec/audio/lib_spec.rb", "spec/audio/multiout_ugen_spec.rb", "spec/audio/node_spec.rb", "spec/audio/operation_ugens_spec.rb", "spec/audio/server_spec.rb", "spec/audio/synth_spec.rb", "spec/audio/synthdef_spec.rb", "spec/audio/ugen_operations_spec.rb", "spec/audio/ugen_spec.rb", "spec/audio/ugens_spec.rb", "spec/env_spec.rb", "spec/extensions_spec.rb", "spec/helper.rb", "spec/typed_array_spec.rb", "Manifest", "Scruby.gemspec"]
+  s.has_rdoc = true
+  s.homepage = %q{http://github.com/maca/scruby}
+  s.rdoc_options = ["--line-numbers", "--inline-source", "--title", "Scruby", "--main", "README.rdoc"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{scruby}
+  s.rubygems_version = %q{1.3.1}
+  s.summary = %q{Small client for doing sound synthesis from ruby using the SuperCollider synth, usage is quite similar from SuperCollider.}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 2
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<echoe>, [">= 0"])
+    else
+      s.add_dependency(%q<echoe>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<echoe>, [">= 0"])
+  end
+end

data/bin/live_session.rb

@@ -0,0 +1,12 @@
+#!/usr/bin/env ruby
+live_session_dir = File.join( File.expand_path(File.dirname(__FILE__) ), '..', 'lib', 'live' )
+
+require 'tempfile'
+require "#{live_session_dir}/session"
+
+
+Live::Session.new
+
+
+
+

data/changes

@@ -0,0 +1 @@
+ 

data/lib/live/session.rb

@@ -0,0 +1,144 @@
+require 'tempfile'
+require 'rubygems'
+require 'highline'
+require 'parse_tree'
+require 'ruby2ruby'
+
+module Kernel
+  alias :l :lambda
+  
+  # Calls Kernel#eval with the given args but catches posible errors
+  def resilient_eval( *args )
+    begin
+      begin
+        eval( *args )
+      rescue SyntaxError => e
+        e
+      end
+    rescue => e
+      e
+    end
+  end
+  
+  def p( obj ) #:nodoc:
+    puts obj.to_live_output
+  end
+
+end
+
+class Object
+  
+  # Outputs an ANSI colored string with the object representation
+  def to_live_output
+    case self
+    when Exception
+      "\e[41m\e[33m#{self.inspect}\e[0m"
+    when Numeric, Symbol, TrueClass, FalseClass, NilClass
+      "\e[35m#{self.inspect}\e[0m"
+    when Notice
+      "\e[42m\e[30m#{self}\e[0m"
+    when Warning
+      "\e[43m\e[30m#{self}\e[0m" 
+    when Special
+      "\e[44m\e[37m#{self}\e[0m" 
+    when String
+      "\e[32m#{self.inspect}\e[0m"
+    when Array
+      "[#{ self.collect{ |i| i.to_live_output}.join(', ') }]"
+    when Hash
+      "{#{ self.collect{ |i| i.collect{|e| e.to_live_output}.join(' => ') } }}"
+    else
+      "\e[36m#{self}\e[0m"
+    end
+  end
+end
+
+class Notice < String; end
+class Warning < String; end
+class Special < String; end
+
+module Live 
+  class Pipe < Tempfile 
+    def make_tmpname( *args ) 
+      "ruby_live.pipe"
+    end
+  end
+  
+  class Session
+    include HighLine::SystemExtensions
+    
+    # Starts a live session using a named pipe to receive code from a remote source and evaluates it within a context, a bit like an IRB session but evaluates code sent from a text editor
+    def initialize 
+      return p( Exception.new("Another session sems to be running") ) if File.exist?( "#{Dir.tmpdir}/ruby_live.pipe" )
+      p( Notice.new("Live Session") )
+      get_binding
+      init_pipe
+      expect_input
+      serve
+    end
+    
+    def init_pipe
+      @pipe_path = Pipe.new('').path
+      `rm #{@pipe_path}; mkfifo #{@pipe_path}`
+    end
+    
+    # Starts a loop that checks the named pipe and evaluate its contents, will be called on initialize
+    def serve 
+      File.open( @pipe_path, File::RDONLY | File::NONBLOCK) do |f|
+        loop { p evaluate( f.gets.to_s.gsub("∂", "\n") ) }
+      end
+    end
+  
+    # Starts a new Thread that will loop capturing keystrokes and evaluating the bound block within the @context Binding, will be called on initialize
+    def expect_input 
+      Thread.new do
+        loop do 
+          char = get_character 
+          @bindings ||= []
+          bind = @bindings[ char ]
+          p evaluate( bind ) if bind 
+        end
+      end
+    end
+    
+    # Expects a one char Symbol or String which will bind to a passed block so it can be called later with a keystroke
+    def bind( key, &block ) 
+      @bindings = [] unless @bindings.instance_of?(Array)
+      block ||= Proc.new{}
+      @bindings[ key.to_s[0] ] = Ruby2Ruby.new.process( [:block, block.to_sexp.last] )
+      Notice.new( "Key '#{key}' is bound to an action")
+    end
+    
+    # Evaluates a ruby expression within the @context Binding
+    def evaluate( string = nil ) 
+      return resilient_eval( string, @context ) if string
+    end
+    
+    def clear
+      print "\e[2J\e[f"
+    end
+    
+    def get_binding #:nodoc:
+      @context = binding
+    end
+    
+    def run_updates( code )
+      source = ParseTree.new.parse_tree_for_string( code ).first
+      final = []
+      while iter = source.assoc(:iter)
+        source -= [iter]
+        final << [:block, iter.last] if iter[1].include?(:update)
+      end
+      evaluate( final.collect{ |exp| Ruby2Ruby.new.process(exp) }.join("\n") )
+      Notice.new('Update blocks evaluated')
+    end
+    
+    def update # Allmost a stub
+      yield
+    end
+    
+    alias :reaload! :get_binding
+  end
+end
+
+

data/lib/scruby.rb

@@ -0,0 +1,60 @@
+#--
+# 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
+# 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/>.
+#++
+require 'rubygems'
+require 'ruby2ruby'
+require "named_arguments"
+require 'osc'
+require 'yaml'
+
+SCRUBY_DIR = File.join( File.expand_path(File.dirname(__FILE__) ), 'scruby' )
+
+
+require "#{SCRUBY_DIR}/typed_array"
+
+require "#{SCRUBY_DIR}/audio/ugens/ugen_operations"
+require "#{SCRUBY_DIR}/audio/ugens/ugen"
+require "#{SCRUBY_DIR}/audio/ugens/multi_out_ugens"
+require "#{SCRUBY_DIR}/audio/ugens/in_out"
+
+require "#{SCRUBY_DIR}/audio/ugens/operation_ugens"
+require "#{SCRUBY_DIR}/audio/ugens/ugen"
+
+require "#{SCRUBY_DIR}/audio/ugens/ugens"
+require "#{SCRUBY_DIR}/audio/control_name"
+require "#{SCRUBY_DIR}/audio/synthdef"
+require "#{SCRUBY_DIR}/extensions"
+
+require "#{SCRUBY_DIR}/audio/server"
+
+require "#{SCRUBY_DIR}/audio/env"
+require "#{SCRUBY_DIR}/audio/ugens/env_gen"
+
+require "#{SCRUBY_DIR}/audio/node"
+require "#{SCRUBY_DIR}/audio/synth"
+
+
+include Scruby
+include Audio
+include Ugens
+include OperationUgens
+
+
+class Notice < String; end
+class Warning < String; end
+class Special < String; end
+
+

data/lib/scruby/audio/control_name.rb

@@ -0,0 +1,29 @@
+module Scruby
+  module Audio
+    class ControlName
+      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 valid_ugen_input?
+        true
+      end
+      
+    end
+  end
+end

data/lib/scruby/audio/env.rb

@@ -0,0 +1,97 @@
+module Scruby
+  class Env
+    attr_accessor :levels, :times, :curves, :release_node, :array
+    SHAPE_NAMES = {
+      :step => 0,
+      :lin => 1,
+      :linear => 1,
+      :exp => 2,
+      :exponential => 2,
+      :sin => 3,
+      :sine => 3,
+      :wel => 4,
+      :welch => 4,
+      :sqr => 6,
+      :squared => 6,
+      :cub => 7,
+      :cubed => 7
+    }
+
+    def initialize( levels, times, curves = :lin, release_node = nil, loop_node = nil )
+      @levels, @times, @curves, @release_node, @loop_node = levels, times, curves.to_array, release_node, loop_node
+      raise ArgumentError, "levels and times should be array" unless levels.instance_of?(Array) and times.instance_of?(Array)
+    end
+
+    class << self
+      # fixed duration envelopes
+      def triangle(dur = 1.0, level = 1.0)
+        dur = (dur * 0.5)
+        new( [0, level, 0], [dur, dur] )
+      end
+
+      def sine(dur = 1.0, level = 1.0)
+        dur = (dur * 0.5)
+        new( [0, level, 0], [dur, dur], :sine)
+      end
+
+      def perc( attackTime=0.01, releaseTime=1.0, level=1.0, curve = -4.0 )
+        new( [0, level, 0], [attackTime, releaseTime], curve )
+      end
+
+      def linen( attackTime=0.01, sustainTime=1.0, releaseTime=1.0, level=1.0, curve = :lin )
+        new [0, level, level, 0], [attackTime, sustainTime, releaseTime], curve
+      end
+
+      def cutoff( releaseTime = 0.1, level = 1.0, curve = :lin )
+        new( [level, 0], [releaseTime], curve, 0 )
+      end
+
+      def dadsr( delayTime=0.1, attackTime=0.01, decayTime=0.3, sustainLevel=0.5, releaseTime=1.0, peakLevel=1.0, curve = -4.0, bias = 0.0 )
+        new( [0, 0, peakLevel, peakLevel * sustainLevel, 0].collect{ |e| e + bias }, [delayTime, attackTime, decayTime, releaseTime], curve, 3 )
+      end
+
+      def adsr( attackTime=0.01, decayTime=0.3, sustainLevel=0.5, releaseTime=1.0, peakLevel=1.0, curve = -4.0, bias = 0.0 )
+        new( [0, peakLevel, peakLevel * sustainLevel, 0].collect{ |e| e + bias }, [attackTime, decayTime, releaseTime], curve, 2 )
+      end
+
+      def asr( attackTime=0.01, sustainLevel=1.0, releaseTime=1.0, curve = -4.0 )
+        new( [0, sustainLevel, 0], [attackTime, releaseTime], curve, 1 )
+      end
+
+      named_args_for :triangle, :sine, :perc, :linen, :cutoff, :dadsr, :adsr, :asr
+    end
+
+    def to_array
+      *contents = levels[0], times.size, release_node, loop_node
+      contents + levels[1..-1].wrap_and_zip( times, shape_numbers, curve_values  ).flatten
+    end
+
+    def shape_numbers
+      curves.collect do |curve| 
+        curve.valid_ugen_input? ? 5 : SHAPE_NAMES[curve]
+      end
+    end
+
+    def curve_values
+      curves.collect do |curve| 
+        curve.valid_ugen_input? ? curve : 0
+      end
+    end
+
+    def release_node
+      @release_node ||= -99
+    end
+
+    def loop_node
+      @loop_node ||= -99
+    end
+
+    def valid_ugen_input? #returns true
+      true
+    end
+
+    def collect_constants #:nodoc:
+    end
+
+  end
+end

data/lib/scruby/audio/node.rb

@@ -0,0 +1,20 @@
+module Scruby
+  class Node
+    @@base_id = 2000
+    attr_reader :name, :servers
+
+    def initialize( name, *servers )
+      @name = name.to_s
+      servers  = *servers
+      @servers = servers ? TypedArray.new( Server, [*servers] ) : Server.all
+    end
+
+    def id
+      @id ||= ( @@base_id = @@base_id + 1 )
+    end
+
+    def self.reset!
+      @@base_id = 2000
+    end
+  end
+end