scruby 0.2.7

data/lib/scruby/ugens/buffer_read_write.rb

@@ -0,0 +1,98 @@
+module Scruby
+  module Ugens
+    class PlayBuf < Ugen
+      include MultiOut
+
+      class << self
+        def kr channels, bufnum = 0, rate = 1.0, trigger = 1.0, start = 0.0, loop = 0.0, doneAction = 0
+          new :control, channels, bufnum, rate, trigger, start, loop, doneAction
+        end
+
+        def ar channels, bufnum = 0, rate = 1.0, trigger = 1.0, start = 0.0, loop = 0.0, doneAction = 0;
+          new :audio, channels, bufnum, rate, trigger, start, loop, doneAction
+        end
+        named_args_for :kr, :ar
+      end
+    end
+
+    class TGrains < Ugen
+      include MultiOut
+
+      def initialize rate, channels, *inputs
+        raise ArgumentError.new("#{ self.class } instance needs at least two channels.") unless channels > 1 
+        super
+      end
+
+      class << self
+        def ar channels, trigger = 0, bufnum = 0, rate = 1, center_pos = 0, dur = 0.1, pan = 0, amp = 0.1, interp = 4
+          new :audio, channels, trigger, bufnum, rate, center_pos, dur, pan, amp, interp
+        end
+        named_args_for :ar
+      end
+    end
+
+    class BufRd < Ugen
+      include MultiOut
+
+      class << self
+        def kr channels, bufnum = 0, phase = 0.0, loop = 1.0, interpolation = 2
+          new :control, channels, bufnum, phase, loop, interpolation
+        end
+
+        def ar channels, bufnum = 0, phase = 0.0, loop = 1.0, interpolation = 2
+          new :audio, channels, bufnum, phase, loop, interpolation
+        end
+        named_args_for :kr, :ar
+      end
+    end
+
+    class BufWr < Ugen
+      class << self
+        def kr input, bufnum = 0, phase = 0.0, loop = 1.0
+          new :control, bufnum, phase, loop, *input.to_array
+        end
+
+        def ar input, bufnum = 0, phase = 0.0, loop = 1.0
+          new :audio, bufnum, phase, loop, *input.to_array
+        end
+        named_args_for :kr, :ar
+      end
+    end
+
+    class RecordBuf < Ugen
+      class << self
+        def kr input, bufnum = 0, offset = 0.0, rec_level = 1.0, pre_level = 0.0, run = 1.0, loop = 1.0, trigger = 1.0, doneAction=0
+          new :control, bufnum, offset, rec_level, pre_level, run, loop, trigger, doneAction, *input.to_array
+        end
+
+        def ar input, bufnum = 0, offset = 0.0, rec_level = 1.0, pre_level = 0.0, run = 1.0, loop = 1.0, trigger = 1.0, doneAction=0
+          new :audio, bufnum, offset, rec_level, pre_level, run, loop, trigger, doneAction, *input.to_array
+        end
+        named_args_for :kr, :ar
+      end
+    end
+
+    class ScopeOut < Ugen
+      class << self
+        def kr input, bufnum = 0
+          new :control, bufnum, *input.to_array
+        end
+
+        def ar input, bufnum = 0
+          new :audio, bufnum, *input.to_array
+        end
+        named_args_for :kr, :ar
+      end
+    end
+    
+    class Tap < Ugen
+      class << self
+        def ar bufnum = 0, num_channels = 1, delay_time = 0.2
+          PlayBuf.ar num_channels, bufnum, 1, 0, SampleRate.ir.neg * 3, 1
+        end
+        named_args_for :ar
+      end
+    end
+
+  end
+end

data/lib/scruby/ugens/demand.rb

@@ -0,0 +1,9 @@
+module Scruby
+  module Ugens
+    class Demand < Ugen
+      include MultiOut
+      
+      
+    end
+  end
+end

data/lib/scruby/ugens/disk_in_out.rb

@@ -0,0 +1,33 @@
+module Scruby
+  module Ugens
+    class DiskOut < Ugen
+      def output_specs; []; end
+      def channels; []; end
+
+      class << self
+        def ar bufnum, *inputs
+          inputs.peel!
+          new :audio, bufnum, *inputs
+          0.0
+        end
+      end
+    end
+
+    class DiskIn < Ugen
+      include MultiOut
+      def self.ar channels, bufnum, loop = 0
+        new :audio, channels, bufnum, loop
+      end
+    end
+
+    class VDiskIn < Ugen
+      include MultiOut
+      class << self
+        def ar channels, bufnum, rate = 1, loop = 0, send_id = 0
+          new :audio, channels, bufnum, rate, loop, send_id
+        end
+        named_args_for :ar
+      end
+    end
+  end
+end

data/lib/scruby/ugens/env_gen.rb

@@ -0,0 +1,38 @@
+module Scruby
+  module Ugens
+    # Done Actions:
+    #
+    # * 0   do nothing when the UGen is finished
+    # * 1   pause the enclosing synth, but do not free it
+    # * 2   free the enclosing synth
+    # * 3   free both this synth and the preceding node
+    # * 4   free both this synth and the following node
+    # * 5   free this synth; if the preceding node is a group then do g_freeAll on it, else free it
+    # * 6   free this synth; if the following node is a group then do g_freeAll on it, else free it
+    # * 7   free this synth and all preceding nodes in this group
+    # * 8   free this synth and all following nodes in this group
+    # * 9   free this synth and pause the preceding node
+    # * 10  free this synth and pause the following node
+    # * 11  free this synth and if the preceding node is a group then do g_deepFree on it, else free it
+    # * 12  free this synth and if the following node is a group then do g_deepFree on it, else free it
+    # * 13  free this synth and all other nodes in this group (before and after)
+    # * 14  free the enclosing group and all nodes within it (including this synth)
+    class EnvGen < Ugen
+      class << self
+        # New EnvGen with :audio rate, inputs should be valid Ugen inputs or Ugens, arguments can be passed as an options hash or in the given order
+        def ar envelope, gate = 1, levelScale = 1, levelBias = 0, timeScale = 1, doneAction = 0
+          new :audio, gate, levelScale, levelBias, timeScale, doneAction, *envelope.to_array
+        end
+        # New EnvGen with :control rate, inputs should be valid Ugen inputs or Ugens, arguments can be passed as an options hash or in the given order
+        def kr envelope, gate = 1, levelScale = 1, levelBias = 0, timeScale = 1, doneAction = 0
+          new :control, gate, levelScale, levelBias, timeScale, doneAction, *envelope.to_array
+        end
+
+        named_arguments_for :ar, :kr
+        private
+        def new *args; super; end
+      end
+    end
+  end
+
+end

data/lib/scruby/ugens/in_out.rb

@@ -0,0 +1,46 @@
+module Scruby
+  module Ugens
+    class In < Ugen
+      include MultiOut
+
+      class << self
+        # New In with :audio rate, inputs should be valid Ugen inputs or Ugens, arguments can be passed as an options hash or in the given order
+        def ar bus, channels = 1
+          new :audio, channels, bus
+        end
+        # New In with :control rate, inputs should be valid Ugen inputs or Ugens, arguments can be passed as an options hash or in the given order
+        def kr bus, channels = 1
+          new :control, channels, bus
+        end
+      end
+    end
+
+    class Out < Ugen
+      # ar and kr should be use for instantiation
+      def initialize *args
+        super
+        @channels = []
+      end
+
+      #:nodoc:
+      def output_specs; []; end
+
+      class << self
+        # New Out with :audio rate, inputs should be valid Ugen inputs or Ugens, arguments can be passed as an options hash or in the given order
+        def ar bus, *inputs
+          inputs.peel!
+          new :audio, bus, *inputs; 0.0 #Out has no output
+        end
+
+        # New Out with :control rate, inputs should be valid Ugen inputs or Ugens, arguments can be passed as an options hash or in the given order
+        def kr bus, *inputs
+          inputs.peel!
+          new :control, bus, *inputs; 0.0 #Out has no output
+        end
+      end
+    end
+  
+    class ReplaceOut < Out
+    end
+  end
+end

data/lib/scruby/ugens/multi_out.rb

@@ -0,0 +1,53 @@
+module Scruby
+  module Ugens 
+    module MultiOut #:nodoc:
+      def self.included base
+        base.extend ClassMethods
+      end
+      
+      def initialize rate, channels, *inputs
+        super rate, *inputs
+        @channels = Array === channels ? channels : (0...channels).map{ |i| OutputProxy.new rate, self, i }
+        @channels = @channels.to_da
+      end
+      
+      def output_specs
+        channels.output_specs.flatten
+      end
+      
+      module ClassMethods
+        private
+        def new rate, channels, *inputs
+          instantiated = super
+          Array === instantiated ? instantiated : instantiated.channels
+        end
+      end
+    end
+    
+    class OutputProxy < Ugen #:nodoc:
+      attr_reader :source, :control_name, :output_index
+      class << self; public :new; end
+
+      def initialize rate, source, output_index, name = nil
+        super rate
+        @source, @control_name, @output_index = source, name, output_index
+      end
+
+      def index; @source.index; end
+
+      def add_to_synthdef; end
+    end
+
+    class Control < Ugen #:nodoc:
+      include MultiOut
+      
+      def initialize rate, *names
+        super rate, names.collect_with_index{ |n, i| OutputProxy.new rate, self, i, n }
+      end
+      
+      def self.and_proxies_from names
+        new names.first.rate, *names
+      end
+    end
+  end
+end

data/lib/scruby/ugens/operation_indices.yaml

@@ -0,0 +1,92 @@
+
+binary:
+  !ruby/symbol +:                  0
+  !ruby/symbol -:                  1
+  !ruby/symbol *:                  2
+  !ruby/symbol div:                3
+  !ruby/symbol /:                  4
+  !ruby/symbol mod:                5
+  !ruby/symbol <=:                 10
+  !ruby/symbol >=:                 11
+  !ruby/symbol minimum:            12
+  !ruby/symbol maximum:            13 #can't be called max because there is an array method calle maximum
+  !ruby/symbol lcm:                17
+  !ruby/symbol gcd:                18
+  !ruby/symbol round:              19
+  !ruby/symbol roundUp:            20
+  !ruby/symbol trunc:              21
+  !ruby/symbol atan2:              22
+  !ruby/symbol hypot:              23
+  !ruby/symbol hypotApx:           24
+  !ruby/symbol pow:                25
+  !ruby/symbol leftShift:          26
+  !ruby/symbol rightShift:         27
+  !ruby/symbol unsignedRightShift: 28
+  !ruby/symbol ring1:              30
+  !ruby/symbol ring2:              31
+  !ruby/symbol ring3:              32
+  !ruby/symbol ring4:              33
+  !ruby/symbol difsqr:             34
+  !ruby/symbol sumsqr:             35
+  !ruby/symbol sqrsum:             36
+  !ruby/symbol sqrdif:             37
+  !ruby/symbol absdif:             38
+  !ruby/symbol thresh:             39
+  !ruby/symbol amclip:             40
+  !ruby/symbol scaleneg:           41
+  !ruby/symbol clip2:              42
+  !ruby/symbol excess:             43
+  !ruby/symbol fold2:              44
+  !ruby/symbol wrap2:              45
+  !ruby/symbol rrand:              47
+  !ruby/symbol exprand:            48
+ 
+unary:
+  !ruby/symbol neg:                0
+  !ruby/symbol bitNot:             4
+  !ruby/symbol abs:                5
+  !ruby/symbol asFloat:            6
+  !ruby/symbol ceil:               8
+  !ruby/symbol floor:              9
+  !ruby/symbol frac:               10
+  !ruby/symbol sign:               11
+  !ruby/symbol squared:            12
+  !ruby/symbol cubed:              13
+  !ruby/symbol sqrt:               14
+  !ruby/symbol exp:                15
+  !ruby/symbol reciprocal:         16
+  !ruby/symbol midicps:            17
+  !ruby/symbol cpsmidi:            18
+  !ruby/symbol midiratio:          19
+  !ruby/symbol ratiomidi:          20
+  !ruby/symbol dbamp:              21
+  !ruby/symbol ampdb:              22
+  !ruby/symbol octcps:             23
+  !ruby/symbol cpsoct:             24
+  !ruby/symbol log:                25
+  !ruby/symbol log2:               26
+  !ruby/symbol log10:              27
+  !ruby/symbol sin:                28
+  !ruby/symbol cos:                29
+  !ruby/symbol tam:                30
+  !ruby/symbol asin:               31
+  !ruby/symbol acos:               32
+  !ruby/symbol atan:               33
+  !ruby/symbol sinh:               34
+  !ruby/symbol cosh:               35
+  !ruby/symbol tanh:               36
+  !ruby/symbol rand:               37
+  !ruby/symbol rand2:              38
+  !ruby/symbol linrand:            39
+  !ruby/symbol bilinrand:          40
+  !ruby/symbol sum3rand:           41
+  !ruby/symbol distort:            42
+  !ruby/symbol softclip:           43
+  !ruby/symbol coin:               44
+  !ruby/symbol rectWindow:         48
+  !ruby/symbol hanWindow:          49
+  !ruby/symbol welWindow:          50
+  !ruby/symbol triWindow:          51
+  !ruby/symbol ramp:               52
+  !ruby/symbol scurve:             53
+  

data/lib/scruby/ugens/operation_ugens.rb

@@ -0,0 +1,63 @@
+module Scruby
+  module Ugens
+
+    class BasicOpUgen < Ugen #:nodoc:
+      attr_accessor :operator
+
+      class << self
+        def new operator, *inputs 
+          obj = super get_rate(inputs), inputs
+          set_operator_for obj, operator
+          obj
+        end
+
+        private
+        #:nodoc:
+        def set_operator_for input, operator 
+          input.kind_of?(Array) ? input.each{ |element| set_operator_for element, operator  } : input.operator = operator
+        end
+
+        #:nodoc:
+        def get_rate *inputs
+          max_index = inputs.flatten.collect{ |ugen| Ugen::RATES.index ugen.rate }.max
+          Ugen::RATES[max_index]
+        end
+      end
+    end
+
+    class UnaryOpUGen < BasicOpUgen 
+      def self.new operator, input
+        super
+      end
+
+      def special_index
+        UgenOperations::UNARY[operator.to_sym]
+      end
+    end
+
+    class BinaryOpUGen < BasicOpUgen
+      def self.new operator, left, right
+        super
+      end
+
+      def special_index
+        UgenOperations::BINARY[operator.to_sym]
+      end
+    end
+
+    class MulAdd < Ugen
+      def self.new input, mul, add
+        no_mul = mul == 1.0
+        minus  = mul == -1.0
+        return add         if mul == 0
+        return input       if no_mul and add == 0
+        return input.neg   if minus  and add == 0
+        return input * mul if add == 0
+        return add - input if minus
+        return input + add if no_mul
+        super input.rate, input, mul, add
+      end
+    end
+  end
+  
+end

data/lib/scruby/ugens/panner.rb

@@ -0,0 +1,137 @@
+module Scruby
+  module Ugens
+    class Pan2 < Ugen
+      include MultiOut
+      
+      class << self
+        def ar input, pos = 0.0, level = 1.0
+          new :audio, 2, input, pos, level
+        end
+      
+        def kr input, pos = 0.0, level = 1.0
+          new :control, 2, input, pos, level
+        end
+        named_args_for :ar, :kr
+      end
+    end
+    
+    class LinPan2 < Pan2; end
+    
+    class Pan4 < Ugen
+      include MultiOut
+
+      class << self
+        def ar input, xpos = 0.0, ypos = 0.0, level = 1.0
+          new :audio, 4, input, xpos, ypos, level
+        end
+      
+        def kr input, xpos = 0.0, ypos = 0.0, level = 1.0
+          new :control, 4, input, xpos, ypos, level
+        end
+        named_args_for :ar, :kr
+      end
+    end
+  
+    class Balance2 < Ugen
+      include MultiOut
+
+      class << self
+        def ar left, right, pos = 0.0, level = 1.0
+          new :audio, 2, left, right, pos, level
+        end
+      
+        def kr left, right, pos = 0.0, level = 1.0
+          new :control, 2, left, right, pos, level
+        end
+        named_args_for :ar, :kr
+      end
+    end
+  
+    class Rotate2 < Ugen
+      include MultiOut
+      
+      class << self
+        def ar x, y, pos = 0.0
+          new :audio, 2, x, y, pos
+        end
+      
+        def kr x, y, pos = 0.0
+          new :control, 2, x, y, pos
+        end
+      end
+    end
+ 
+    class PanB < Ugen
+      include MultiOut
+
+      class << self
+        def ar input, azimuth = 0, elevation = 0, gain = 1
+          new :audio, 4, input, azimuth, elevation, gain
+        end
+
+        def kr input, azimuth = 0, elevation = 0, gain = 1
+          new :control, 4, input, azimuth, elevation, gain
+        end
+        named_args_for :ar, :kr
+      end
+    end
+    
+    class PanB2 < Ugen
+      include MultiOut
+
+      class << self
+        def ar input, azimuth = 0, gain = 1
+          new :audio, 3, input, azimuth, gain
+        end
+
+        def kr input, azimuth = 0, gain = 1
+          new :control, 3, input, azimuth, gain
+        end
+        named_args_for :ar, :kr
+      end
+    end
+    
+    class BiPanB2 < Ugen
+      include MultiOut
+
+      class << self
+        def ar a, b, azimuth, gain = 1
+          new :audio, 3, a, b, azimuth, gain
+        end
+
+        def kr a, b, azimuth, gain = 1
+          new :control, 3, a, b, azimuth, gain
+        end
+      end
+    end
+    
+    class DecodeB2 < Ugen
+      include MultiOut
+
+      class << self
+        def ar num_channels, w, x, y, orientation = 0.5
+          new :audio, num_channels, w, x, y, orientation
+        end
+
+        def kr num_channels, w, x, y, orientation = 0.5
+          new :control, num_channels, w, x, y, orientation
+        end
+      end
+    end
+  
+    class PanAz < Ugen
+      include MultiOut
+
+      class << self
+        def ar num_channels, input, pos = 0.0, level = 1.0, width = 2.0, orientation = 0.5
+          new :audio, num_channels, input, pos, level, width, orientation
+        end
+
+        def kr num_channels, input, pos = 0.0, level = 1.0, width = 2.0, orientation = 0.5
+          new :control, num_channels, input, pos, level, width, orientation
+        end
+        named_args_for :ar, :kr
+      end
+    end
+  end
+end