musa-dsl 0.21.5 → 0.22.4

data/lib/musa-dsl/sequencer/base-sequencer-implementation-play-helper.rb

@@ -117,7 +117,7 @@ module Musa
 
         @@id = 0
 
-        attr_reader :nl_context
+        attr_reader :neumalang_context
         attr_reader :block_procedure_binder
 
         def initialize(block_procedure_binder, decoder, nl_context, parent: nil)
@@ -166,7 +166,7 @@ module Musa
         end
 
         def eval_p(p)
-          p.to_ps_serie(@decoder.base_duration).instance
+          p.to_ps_serie(base_duration: @decoder.base_duration).instance
         end
 
         def eval_serie(serie)

data/lib/musa-dsl/sequencer/base-sequencer-implementation-play-timed.rb

@@ -0,0 +1,219 @@
+using Musa::Extension::Hashify
+using Musa::Extension::Arrayfy
+
+using Musa::Extension::InspectNice
+
+module Musa; module Sequencer
+  class BaseSequencer
+    private def _play_timed(timed_serie,
+                    control,
+                    reference: nil,
+                    step: nil,
+                    predictive: nil,
+                    right_open: nil,
+                    stops: nil,
+                    &block)
+
+      reference ||= 0r
+      step ||= 1r
+      predictive ||= predictive
+      stops = stops.nil? ? true : stops
+
+      if first_value_sample = timed_serie.peek_next_value
+
+        debug "_play_timed: first_value_sample #{first_value_sample}"
+
+        hash_mode = first_value_sample[:value].is_a?(Hash)
+
+        if hash_mode
+          components = first_value_sample[:value].keys
+
+          reference = reference.hashify(keys: components)
+          step = step.hashify(keys: components)
+          predictive = predictive.hashify(keys:components)
+          stops = stops.hashify(keys:components)
+          right_open = right_open.hashify(keys:components)
+        else
+          size = first_value_sample[:value].size
+          components = (0 .. size-1).to_a
+
+          reference = reference.arrayfy(size: size)
+          step = step.arrayfy(size: size)
+          predictive = predictive.arrayfy(size: size)
+          stops = stops.arrayfy(size: size)
+          right_open = right_open.arrayfy(size: size)
+        end
+
+        split = timed_serie.flatten_timed.split
+        quantized_series = hash_mode ? {} : []
+
+        components.each do |component|
+          quantized_series[component] =
+              QUANTIZE(split[component],
+                       reference: reference[component],
+                       step: step[component],
+                       predictive: predictive[component],
+                       right_open: right_open[component],
+                       stops: stops[component]).instance
+        end
+
+        last_positions = hash_mode ? {} : []
+      end
+
+      binder = SmartProcBinder.new(block)
+
+      _play_timed_step(hash_mode, components, quantized_series, position, last_positions, binder, control)
+    end
+
+
+    private def _play_timed_step(hash_mode, components, quantized_series, start_position, last_positions,
+                                 binder, control)
+
+      affected_components_by_time = {}
+
+      components.each do |component|
+        if v = quantized_series[component].peek_next_value
+
+          debug "_play_timed_step: quantized_series[#{component}].peek_next_value #{v}"
+          time = v[:time]
+
+          affected_components_by_time[time] ||= []
+          affected_components_by_time[time] << component
+        end
+      end
+
+      if affected_components_by_time.any?
+        time = affected_components_by_time.keys.sort.first
+
+        values = hash_mode ? {} : []
+        next_values = hash_mode ? {} : []
+        durations = hash_mode ? {} : []
+        q_durations = hash_mode ? {} : []
+        started_ago = hash_mode ? {} : []
+
+        affected_components_by_time[time].each do |component|
+          value = quantized_series[component].next_value
+
+          values[component] = value[:value]
+          durations[component] = value[:duration]
+
+          q_durations[component] =
+              _quantize_position(time + durations[component], warn: false) -
+              _quantize_position(time, warn: false)
+
+          nv = quantized_series[component].peek_next_value
+          next_values[component] = (nv && nv[:value] != values[component]) ? nv[:value] : nil
+
+          last_positions[component] = _quantize_position(time, warn: false)
+        end
+
+        components.each do |component|
+          if last_positions[component] && last_positions[component] != time
+            sa = _quantize_position(time, warn: false) - last_positions[component]
+            started_ago[component] = (sa == 0) ? nil : sa
+          end
+        end
+
+        _numeric_at start_position + _quantize_position(time, warn: false), control do
+          debug "_play_timed_step: before binder.call: durations #{durations} q_durations #{q_durations}"
+          binder.call(values, next_values,
+                      duration: durations,
+                      quantized_duration: q_durations,
+                      started_ago: started_ago,
+                      control: control)
+
+          _play_timed_step(hash_mode, components, quantized_series, start_position, last_positions,
+                           binder, control)
+        end
+      end
+    end
+
+    # TODO implement this alternative play method as another mode
+    # Este es un modo muy interesante pero que implica un procesamiento diferente en el yield_block que no me
+    # sirve para el código de samples/multidim_sample, puesto que en este el next_values es literal,
+    # mientras que samples/multidim_sample necesita que el next_value sea nil si el valor no cambia durante el periodo.
+    #
+    private def _play_timed_step_b(hash_mode, components, quantized_series, start_position, last_positions,
+                                   binder, control)
+
+      affected_components_by_time = {}
+
+      components.each do |component|
+        if v = quantized_series[component].peek_next_value
+          time = v[:time]
+
+          affected_components_by_time[time] ||= []
+          affected_components_by_time[time] << component
+        end
+      end
+
+      if !affected_components_by_time.empty?
+        time = affected_components_by_time.keys.sort.first
+
+        values = hash_mode ? {} : []
+        next_values = hash_mode ? {} : []
+        durations = hash_mode ? {} : []
+        q_durations = hash_mode ? {} : []
+        started_ago = hash_mode ? {} : []
+
+        affected_components_by_time[time].each do |component|
+          value = quantized_series[component].next_value
+
+          values[component] = value[:value]
+          durations[component] = value[:duration]
+
+          q_durations[component] =
+              _quantize_position(time + durations[component], warn: false) -
+                  _quantize_position(time, warn: false)
+
+          last_positions[component] = _quantize_position(time, warn: false)
+        end
+
+        components.each do |component|
+          nv = quantized_series[component].peek_next_value
+          next_values[component] = nv[:value] if nv
+
+          if last_positions[component] && last_positions[component] != time
+            started_ago[component] = _quantize_position(time, warn: false) - last_positions[component]
+          end
+        end
+
+        _numeric_at start_position + _quantize_position(time, warn: false), control do
+          binder.call(values, next_values,
+                      duration: durations,
+                      quantized_duration: q_durations,
+                      started_ago: started_ago,
+                      control: control)
+
+          _play_timed_step_b(hash_mode, components, quantized_series, start_position, last_positions,
+                             binder, control)
+        end
+      end
+    end
+
+    class PlayTimedControl < EventHandler
+      attr_reader :do_on_stop, :do_after
+
+      def initialize(parent, on_stop: nil, after_bars: nil, after: nil)
+        super parent
+        @do_on_stop = []
+        @do_after = []
+
+        @do_on_stop << on_stop if on_stop
+        self.after after_bars, &after if after
+      end
+
+      def on_stop(&block)
+        @do_on_stop << block
+      end
+
+      def after(bars = nil, &block)
+        bars ||= 0
+        @do_after << { bars: bars.rationalize, block: block }
+      end
+    end
+
+    private_constant :PlayTimedControl
+  end
+end; end
+

data/lib/musa-dsl/sequencer/base-sequencer-implementation-play.rb

@@ -0,0 +1,178 @@
+require_relative 'base-sequencer-implementation-play-helper'
+
+using Musa::Extension::Hashify
+using Musa::Extension::Arrayfy
+
+using Musa::Extension::InspectNice
+
+module Musa; module Sequencer
+  class BaseSequencer
+    private def _play(serie,
+                      control,
+                      neumalang_context = nil,
+                      mode: nil,
+                      decoder: nil,
+                      __play_eval: nil,
+                      **mode_args,
+                      &block)
+
+      block ||= proc {}
+
+      __play_eval ||= PlayEval.create \
+          mode,
+          SmartProcBinder.new(block,
+                              on_rescue: proc { |e| _rescue_error(e) }),
+          decoder,
+          neumalang_context
+
+      element = nil
+
+      if control.stopped?
+        # nothing to do
+      elsif control.paused?
+        control.store_continuation sequencer: self,
+                                   serie: serie,
+                                   neumalang_context: neumalang_context,
+                                   mode: mode,
+                                   decoder: decoder,
+                                   play_eval: __play_eval,
+                                   mode_args: mode_args
+      else
+        element = serie.next_value
+      end
+
+      if element
+        operation = __play_eval.run_operation element
+
+        case operation[:current_operation]
+        when :none
+        when :block
+          __play_eval.block_procedure_binder.call operation[:current_parameter], control: control
+
+        when :event
+          control._launch operation[:current_event],
+                          operation[:current_value_parameters],
+                          operation[:current_key_parameters]
+
+        when :play
+          control2 = PlayControl.new control
+          control3 = PlayControl.new control2
+          control3.after { control3.launch :sync }
+
+          _play operation[:current_parameter].instance,
+                control3,
+                __play_eval: __play_eval.subcontext,
+                **mode_args
+
+          control2.on :sync do
+            _play serie, control, __play_eval: __play_eval, **mode_args
+          end
+
+        when :no_eval_play
+          control2 = PlayControl.new control
+          control3 = PlayControl.new control2
+          control3.after { control3.launch :sync }
+
+          _play operation[:current_parameter].instance,
+                control3,
+                __play_eval: WaitModePlayEval.new(__play_eval.block_procedure_binder),
+                **mode_args
+
+          control2.on :sync do
+            _play serie, control, __play_eval: __play_eval, **mode_args
+          end
+
+        when :parallel_play
+          control2 = PlayControl.new control
+
+          operation[:current_parameter].each do |current_parameter|
+            control3 = PlayControl.new control2
+            control3.after { control3.launch :sync }
+
+            _play current_parameter.instance,
+                  control3,
+                  __play_eval: __play_eval.subcontext,
+                  **mode_args
+          end
+
+          counter = operation[:current_parameter].size
+
+          control2.on :sync do
+            counter -= 1
+            _play serie, control, __play_eval: __play_eval, **mode_args if counter == 0
+          end
+        end
+
+        case operation[:continue_operation]
+        when :now
+          _numeric_at position, control do
+            _play serie, control, __play_eval: __play_eval, **mode_args
+          end
+
+        when :at
+          _numeric_at operation[:continue_parameter], control do
+            _play serie, control, __play_eval: __play_eval, **mode_args
+          end
+
+        when :wait
+          _numeric_at position + operation[:continue_parameter].rationalize, control do
+            _play serie, control, __play_eval: __play_eval, **mode_args
+          end
+
+        when :on
+          control.on operation[:continue_parameter], only_once: true do
+            _play serie, control, __play_eval: __play_eval, **mode_args
+          end
+        end
+      else
+        control2 = EventHandler.new control
+
+        control.do_after.each do |do_after|
+          _numeric_at position + do_after[:bars], control2, &do_after[:block]
+        end
+      end
+
+      nil
+    end
+
+    class PlayControl < EventHandler
+      attr_reader :do_after
+
+      def initialize(parent, after_bars: nil, after: nil)
+        super parent
+
+        @do_after = []
+
+        after(after_bars, &after) if after
+      end
+
+      def pause
+        @paused = true
+      end
+
+      def store_continuation(sequencer:, serie:, neumalang_context:, mode:, decoder:, play_eval:, mode_args:)
+        @continuation_sequencer = sequencer
+        @continuation_parameters = {
+            serie: serie,
+            control: self,
+            neumalang_context: neumalang_context,
+            mode: mode,
+            decoder: decoder,
+            play_eval: play_eval,
+            mode_args: mode_args }
+      end
+
+      def continue
+        super
+        @continuation_sequencer.continuation_play(@continuation_parameters) if @continuation_sequencer
+      end
+
+      def after(bars = nil, &block)
+        bars ||= 0
+        @do_after << { bars: bars.rationalize, block: block }
+      end
+    end
+
+    private_constant :PlayControl
+  end
+end; end

data/lib/musa-dsl/sequencer/base-sequencer-implementation.rb

@@ -1,678 +1,231 @@
 require_relative '../core-ext/arrayfy'
 require_relative '../core-ext/smart-proc-binder'
 
-require_relative 'base-sequencer-implementation-control'
-require_relative 'base-sequencer-implementation-play-helper'
-
 using Musa::Extension::Arrayfy
 using Musa::Extension::DeepCopy
 
-module Musa
-  module Sequencer
-    class BaseSequencer
-      include Musa::Extension::SmartProcBinder
-      include Musa::Extension::DeepCopy
-
-      private
-
-      def _tick(position_to_run)
-
-        @before_tick.each { |block| block.call position_to_run }
+module Musa; module Sequencer
+  class BaseSequencer
+    include Musa::Extension::SmartProcBinder
+    include Musa::Extension::DeepCopy
 
-        queue = @timeslots[position_to_run]
+    private def _tick(position_to_run)
+      @before_tick.each { |block| block.call position_to_run }
+      queue = @timeslots[position_to_run]
 
-        if queue
-          until queue.empty?
+      if queue
+        until queue.empty?
+          command = queue.shift
+          @timeslots.delete position_to_run if queue.empty?
 
-            command = queue.shift
-            @timeslots.delete position_to_run if queue.empty?
+          if command.key?(:parent_control) && !command[:parent_control].stopped?
+            @event_handlers.push command[:parent_control]
 
-            if command.key?(:parent_control) && !command[:parent_control].stopped?
-              @event_handlers.push command[:parent_control]
-
-              @tick_mutex.synchronize do
-                command[:block].call *command[:value_parameters], **command[:key_parameters] if command[:block]
-              end
-
-              @event_handlers.pop
-            else
-              @tick_mutex.synchronize do
-                command[:block].call *command[:value_parameters], **command[:key_parameters] if command[:block]
-              end
+            @tick_mutex.synchronize do
+              command[:block].call *command[:value_parameters], **command[:key_parameters] if command[:block]
             end
-          end
-        end
-
-        Thread.pass
-      end
-
-      def _raw_numeric_at(at_position, force_first: nil, &block)
-        force_first ||= false
-
-        if at_position == @position
-          begin
-            yield
-          rescue StandardError, ScriptError => e
-            _rescue_error e
-          end
-
-        elsif at_position > @position
-          @timeslots[at_position] ||= []
 
-          value = { block: block, value_parameters: [], key_parameters: {} }
-          if force_first
-            @timeslots[at_position].insert 0, value
+            @event_handlers.pop
           else
-            @timeslots[at_position] << value
-          end
-        else
-          @logger.warn('BaseSequencer') { "._raw_numeric_at: ignoring past at command for #{at_position}" }
-        end
-
-        nil
-      end
-
-      def _numeric_at(at_position, control, with: nil, debug: nil, &block)
-        raise ArgumentError, "'at_position' parameter cannot be nil" if at_position.nil?
-        raise ArgumentError, 'Yield block is mandatory' unless block
-
-        at_position = _check_position(at_position)
-
-        value_parameters = []
-        value_parameters << with if !with.nil? && !with.is_a?(Hash)
-
-        block_key_parameters_binder =
-            SmartProcBinder.new block, on_rescue: proc { |e| _rescue_error(e) }
-
-        key_parameters = {}
-        key_parameters.merge! block_key_parameters_binder._apply(nil, with).last if with.is_a?(Hash)
-
-        key_parameters[:control] = control if block_key_parameters_binder.key?(:control)
-
-        if at_position == @position
-          @on_debug_at.each { |c| c.call } if @logger.sev_threshold >= ::Logger::Severity::DEBUG
-
-          begin
-            locked = @tick_mutex.try_lock
-            block_key_parameters_binder._call(value_parameters, key_parameters)
-          ensure
-            @tick_mutex.unlock if locked
-          end
-
-        elsif @position.nil? || at_position > @position
-
-          @timeslots[at_position] ||= []
-
-          if @logger.sev_threshold <= ::Logger::Severity::DEBUG
-            @on_debug_at.each do |block|
-              @timeslots[at_position] << { parent_control: control, block: block }
+            @tick_mutex.synchronize do
+              command[:block].call *command[:value_parameters], **command[:key_parameters] if command[:block]
             end
           end
-
-          @timeslots[at_position] << { parent_control: control, block: block_key_parameters_binder,
-                                       value_parameters: value_parameters,
-                                       key_parameters: key_parameters }
-        else
-          @logger.warn('BaseSequencer') { "._numeric_at: ignoring past 'at' command for #{at_position}" }
         end
-
-        nil
       end
 
-      def _serie_at(bar_position_serie, control, with: nil, debug: nil, &block)
-
-        bar_position = bar_position_serie.next_value
-
-        with_value = if with.respond_to? :next_value
-                       with.next_value
-                     else
-                       with
-                     end
+      Thread.pass
+    end
 
-        if bar_position
-          _numeric_at bar_position, control, with: with_value, debug: debug, &block
+    private def _raw_numeric_at(at_position, force_first: nil, &block)
+      force_first ||= false
 
-          _numeric_at bar_position, control, debug: false do
-            _serie_at bar_position_serie, control, with: with, debug: debug, &block
-          end
-        else
-          # serie finalizada
+      if at_position == @position
+        begin
+          yield
+        rescue StandardError, ScriptError => e
+          _rescue_error e
         end
 
-        nil
-      end
+      elsif at_position > @position
+        @timeslots[at_position] ||= []
 
-      def _play(serie, control, nl_context = nil, mode: nil, decoder: nil, __play_eval: nil, **mode_args, &block)
-
-        block ||= proc {}
-
-        __play_eval ||= PlayEval.create \
-          mode,
-          SmartProcBinder.new(block,
-                              on_rescue: proc { |e| _rescue_error(e) }),
-          decoder,
-          nl_context
-
-        element = nil
-
-        if control.stopped?
-          # nothing to do
-        elsif control.paused?
-          control.store_continuation  sequencer: self,
-                                      serie: serie,
-                                      nl_context: nl_context,
-                                      mode: mode,
-                                      decoder: decoder,
-                                      play_eval: __play_eval,
-                                      mode_args: mode_args
+        value = { block: block, value_parameters: [], key_parameters: {} }
+        if force_first
+          @timeslots[at_position].insert 0, value
         else
-          element = serie.next_value
+          @timeslots[at_position] << value
         end
-
-        if element
-          operation = __play_eval.run_operation element
-
-          case operation[:current_operation]
-
-          when :none
-
-          when :block
-
-            __play_eval.block_procedure_binder.call operation[:current_parameter], control: control
-
-          when :event
-
-            control._launch operation[:current_event],
-                            operation[:current_value_parameters],
-                            operation[:current_key_parameters]
-
-          when :play
-
-            control2 = PlayControl.new control
-            control3 = PlayControl.new control2
-            control3.after { control3.launch :sync }
-
-            _play operation[:current_parameter].instance,
-                  control3,
-                  __play_eval: __play_eval.subcontext,
-                  **mode_args
-
-            control2.on :sync do
-              _play serie, control, __play_eval: __play_eval, **mode_args
-            end
-
-          when :no_eval_play
-
-            control2 = PlayControl.new control
-            control3 = PlayControl.new control2
-            control3.after { control3.launch :sync }
-
-            _play operation[:current_parameter].instance,
-                  control3,
-                  __play_eval: WaitModePlayEval.new(__play_eval.block_procedure_binder),
-                  **mode_args
-
-            control2.on :sync do
-              _play serie, control, __play_eval: __play_eval, **mode_args
-            end
-
-          when :parallel_play
-
-            control2 = PlayControl.new control
-
-            operation[:current_parameter].each do |current_parameter|
-              control3 = PlayControl.new control2
-              control3.after { control3.launch :sync }
-
-              _play current_parameter.instance,
-                    control3,
-                    __play_eval: __play_eval.subcontext,
-                    **mode_args
-            end
-
-            counter = operation[:current_parameter].size
-
-            control2.on :sync do
-              counter -= 1
-              _play serie, control, __play_eval: __play_eval, **mode_args if counter == 0
-            end
-          end
-
-          case operation[:continue_operation]
-          when :now
-            _numeric_at position, control do
-              _play serie, control, __play_eval: __play_eval, **mode_args
-            end
-
-          when :at
-            _numeric_at operation[:continue_parameter], control do
-              _play serie, control, __play_eval: __play_eval, **mode_args
-            end
-
-          when :wait
-            _numeric_at position + operation[:continue_parameter].rationalize, control do
-              _play serie, control, __play_eval: __play_eval, **mode_args
-            end
-
-          when :on
-            control.on operation[:continue_parameter], only_once: true do
-              _play serie, control, __play_eval: __play_eval, **mode_args
-            end
-          end
-        else
-          control2 = EventHandler.new control
-
-          control.do_after.each do |do_after|
-            _numeric_at position, control2, &do_after
-          end
-        end
-
-        nil
+      else
+        @logger.warn('BaseSequencer') { "._raw_numeric_at: ignoring past at command for #{at_position}" }
       end
 
-      def _every(interval, control, block_procedure_binder: nil, &block)
-        block ||= proc {}
-
-        block_procedure_binder ||= SmartProcBinder.new block, on_rescue: proc { |e| _rescue_error(e) }
-
-        _numeric_at position, control do
-          control._start_position ||= position
-          control._execution_counter ||= 0
+      nil
+    end
 
-          duration_exceeded =
-              (control._start_position + control.duration_value - interval) <= position if interval && control.duration_value
+    private def _numeric_at(at_position, control, with: nil, debug: nil, &block)
+      raise ArgumentError, "'at_position' parameter cannot be nil" if at_position.nil?
+      raise ArgumentError, 'Yield block is mandatory' unless block
 
-          till_exceeded = control.till_value - interval <= position if interval && control.till_value
+      at_position = _quantize_position(at_position)
 
-          condition_failed = !control.condition_block.call if control.condition_block
+      value_parameters = []
+      value_parameters << with if !with.nil? && !with.is_a?(Hash)
 
-          unless control.stopped? || condition_failed || till_exceeded
-            block_procedure_binder.call(control: control)
-            control._execution_counter += 1
-          end
+      block_key_parameters_binder =
+          SmartProcBinder.new block, on_rescue: proc { |e| _rescue_error(e) }
 
+      key_parameters = {}
+      key_parameters.merge! block_key_parameters_binder._apply(nil, with).last if with.is_a?(Hash)
 
-          unless control.stopped? || duration_exceeded || till_exceeded || condition_failed || interval.nil?
-            _numeric_at control._start_position + control._execution_counter * interval, control do
-              _every interval, control, block_procedure_binder: block_procedure_binder
-            end
+      key_parameters[:control] = control if block_key_parameters_binder.key?(:control)
 
-          else
-            control.do_on_stop.each(&:call)
+      if at_position == @position
+        @on_debug_at.each { |c| c.call } if @logger.sev_threshold >= ::Logger::Severity::DEBUG
 
-            control.do_after.each do |do_after|
-              _numeric_at position + (interval || 0) + do_after[:bars], control, &do_after[:block]
-            end
-          end
+        begin
+          locked = @tick_mutex.try_lock
+          block_key_parameters_binder._call(value_parameters, key_parameters)
+        ensure
+          @tick_mutex.unlock if locked
         end
 
-        nil
-      end
-
-      def _move(every: nil,
-                from:, to: nil, step: nil,
-                duration: nil, till: nil,
-                function: nil,
-                right_open: nil,
-                on_stop: nil,
-                after_bars: nil, after: nil,
-                &block)
-
-        raise ArgumentError,
-              "Cannot use duration: #{duration} and till: #{till} parameters at the same time. " \
-              "Use only one of them." if till && duration
-
-        raise ArgumentError,
-              "Invalid use: 'function:' parameter is incompatible with 'step:' parameter" if function && step
-        raise ArgumentError,
-              "Invalid use: 'function:' parameter needs 'to:' parameter to be not nil" if function && !to
-
-        array_mode = from.is_a?(Array)
-        hash_mode = from.is_a?(Hash)
-
-        if array_mode
-          from = from.arrayfy
-          size = from.size
-
-        elsif hash_mode
-          hash_keys = from.keys
-          from = from.values
-          size = from.size
-
-          if every.is_a?(Hash)
-            every = hash_keys.collect { |k| every[k] }
-            raise ArgumentError,
-                  "Invalid use: 'every:' parameter should contain the same keys as 'from:' Hash" \
-              unless every.all? { |_| _ }
-          end
-
-          if to.is_a?(Hash)
-            to = hash_keys.collect { |k| to[k] }
-            raise ArgumentError,
-                  "Invalid use: 'to:' parameter should contain the same keys as 'from:' Hash" unless to.all? { |_| _ }
-          end
+      elsif @position.nil? || at_position > @position
 
-          if step.is_a?(Hash)
-            step = hash_keys.collect { |k| step[k] }
-          end
+        @timeslots[at_position] ||= []
 
-          if right_open.is_a?(Hash)
-            right_open = hash_keys.collect { |k| right_open[k] }
+        if @logger.sev_threshold <= ::Logger::Severity::DEBUG
+          @on_debug_at.each do |block|
+            @timeslots[at_position] << { parent_control: control, block: block }
           end
-
-        else
-          from = from.arrayfy
-          size = from.size
         end
 
-        every = every.arrayfy(size: size)
-        to = to.arrayfy(size: size)
-        step = step.arrayfy(size: size)
-        right_open = right_open.arrayfy(size: size)
-
-        # from, to, step, every
-        # from, to, step, (duration | till)
-        # from, to, every, (duration | till)
-        # from, step, every, (duration | till)
-
-        block ||= proc {}
-
-        step.map!.with_index do |s, i|
-          (s && to[i] && ((s > 0 && to[i] < from[i]) || (s < 0 && from[i] < to[i]))) ? -s : s
-        end
-
-        right_open.map! { |v| v || false }
-
-        function ||= proc { |ratio| ratio }
-        function = function.arrayfy(size: size)
-
-        function_range = 1r.arrayfy(size: size)
-        function_offset = 0r.arrayfy(size: size)
-
-        start_position = position
-
-        if duration || till
-          effective_duration = duration || till - start_position
-
-          # Add 1 tick to arrive to final value in duration time (no need to add an extra tick)
-          right_open_offset = right_open.collect { |ro| ro ? 0 : 1 }
-
-          size.times do |i|
-            if to[i] && step[i] && !every[i]
-
-              steps = (to[i] - from[i]) / step[i]
-
-              # When to == from don't need to do any iteration with every
-              if steps + right_open_offset[i] > 0
-                every[i] = Rational(effective_duration, steps + right_open_offset[i])
-              else
-                every[i] = nil
-              end
-
-            elsif to[i] && !step[i] && !every[i]
-
-              if tick_duration > 0
-                function_range[i] = to[i] - from[i]
-                function_offset[i] = from[i]
-
-                from[i] = 0r
-                to[i] = 1r
-
-                step[i] = 1r / (effective_duration * ticks_per_bar - right_open_offset[i])
-                every[i] = tick_duration
-              else
-                raise ArgumentError, "Cannot use sequencer tickless mode without 'step' or 'every' parameter values"
-              end
-
-            elsif to[i] && !step[i] && every[i]
-              function_range[i] = to[i] - from[i]
-              function_offset[i] = from[i]
-
-              from[i] = 0r
-              to[i] = 1r
-
-              steps = effective_duration / every[i]
-              step[i] = 1r / (steps - right_open_offset[i])
-
-            elsif !to[i] && step[i] && every[i]
-              # ok
-            elsif !to[i] && !step[i] && every[i]
-              step[i] = 1r
+        @timeslots[at_position] << { parent_control: control, block: block_key_parameters_binder,
+                                     value_parameters: value_parameters,
+                                     key_parameters: key_parameters }
+      else
+        @logger.warn('BaseSequencer') { "._numeric_at: ignoring past 'at' command for #{at_position}" }
+      end
 
-            else
-              raise ArgumentError, 'Cannot use this parameters combination (with \'duration\' or \'till\')'
-            end
-          end
-        else
-          size.times do |i|
-            if to[i] && step[i] && every[i]
-              # ok
-            elsif to[i] && !step[i] && every[i]
-              size.times do |i|
-                step[i] = (to[i] <=> from[i]).to_r
-              end
-            else
-              raise ArgumentError, 'Cannot use this parameters combination'
-            end
-          end
-        end
+      nil
+    end
 
-        binder = SmartProcBinder.new(block)
+    private def _serie_at(bar_position_serie, control, with: nil, debug: nil, &block)
+      bar_position = bar_position_serie.next_value
 
-        every_groups = {}
-        group_counter = {}
+      with_value = if with.respond_to? :next_value
+                     with.next_value
+                   else
+                     with
+                   end
 
-        positions = Array.new(size)
-        q_durations = Array.new(size)
-        position_jitters = Array.new(size)
-        duration_jitters = Array.new(size)
+      if bar_position
+        _numeric_at bar_position, control, with: with_value, debug: debug, &block
 
-        size.times.each do |i|
-          every_groups[every[i]] ||= []
-          every_groups[every[i]] << i
-          group_counter[every[i]] = 0
+        _numeric_at bar_position, control, debug: false do
+          _serie_at bar_position_serie, control, with: with, debug: debug, &block
         end
+      else
+        # serie finalizada
+      end
 
-        control = MoveControl.new(@event_handlers.last,
-                                  duration: duration, till: till,
-                                  on_stop: on_stop, after_bars: after_bars, after: after)
+      nil
+    end
 
-        control.on_stop do
-          control.do_after.each do |do_after|
-            _numeric_at position + do_after[:bars], control, &do_after[:block]
-          end
-        end
+    def _rescue_error(e)
+      @logger.error('BaseSequencer') { e.to_s }
+      @logger.error('BaseSequencer') { e.full_message(highlight: true, order: :top) }
 
-        @event_handlers.push control
+      @on_error.each do |block|
+        block.call e
+      end
+    end
 
-        _numeric_at start_position, control do
-          next_values = from.dup
+    class EventHandler
+      include Musa::Extension::SmartProcBinder
 
-          values = Array.new(size)
-          stop = Array.new(size, false)
-          last_position = Array.new(size)
+      attr_accessor :continue_parameters
 
-          _every _common_interval(every_groups.keys), control.every_control do
-            process_indexes = []
+      @@counter = 0
 
-            every_groups.each_pair do |group_interval, affected_indexes|
-              group_position = start_position + ((group_interval || 0) * group_counter[group_interval])
+      def initialize(parent = nil)
+        @id = (@@counter += 1)
 
-              # We consider a position to be on current tick position when it is inside the interval of one tick
-              # centered on the current tick (current tick +- 1/2 tick duration).
-              # This allow to round the irregularly timed positions due to every intervals not integer
-              # multiples of the tick_duration.
-              #
-              if tick_duration == 0 && group_position == position ||
-                 group_position >= position - tick_duration && group_position < position + tick_duration
+        @parent = parent
+        @handlers = {}
 
-                process_indexes << affected_indexes
+        @stop = false
+      end
 
-                group_counter[group_interval] += 1
+      def stop
+        @stop = true
+      end
 
-                next_group_position = start_position +
-                    if group_interval
-                      (group_interval * group_counter[group_interval])
-                    else
-                      effective_duration
-                    end
+      def stopped?
+        @stop
+      end
 
-                next_group_q_position = _quantize(next_group_position)
+      def pause
+        raise NotImplementedError
+      end
 
-                affected_indexes.each do |i|
-                  positions[i] = group_position
-                  q_durations[i] = next_group_q_position - position
+      def continue
+        @paused = false
+      end
 
-                  position_jitters[i] = group_position - position
-                  duration_jitters[i] = next_group_position - next_group_q_position
-                end
-              end
-            end
+      def paused?
+        @paused
+      end
 
-            process_indexes.flatten!
-
-            if process_indexes.any?
-
-              process_indexes.each do |i|
-                unless stop[i]
-                  values[i] = next_values[i]
-                  next_values[i] += step[i]
-
-                  if to[i]
-                    stop[i] = if right_open[i]
-                                step[i].positive? ? next_values[i] >= to[i] : next_values[i] <= to[i]
-                              else
-                                step[i].positive? ? next_values[i] > to[i] : next_values[i] < to[i]
-                              end
-
-                    if stop[i]
-                      if right_open[i]
-                        next_values[i] = nil if values[i] == to[i]
-                      else
-                        next_values[i] = nil
-                      end
-                    end
-                  end
-                end
-              end
-
-              control.stop if stop.all?
-
-              effective_values = from.clone(freeze: false).map!.with_index do |_, i|
-                function[i].call(values[i]) * function_range[i] + function_offset[i] unless values[i].nil?
-              end
-
-              effective_next_values = from.clone(freeze: false).map!.with_index do |_, i|
-                function[i].call(next_values[i]) * function_range[i] +
-                    function_offset[i] unless next_values[i].nil?
-              end
-
-              # TODO add to values and next_values the modules of the original from and/or to objects.
-
-              value_parameters, key_parameters =
-                  if array_mode
-                    binder.apply(effective_values, effective_next_values,
-                                 control: control,
-                                 duration: _durations(every_groups, effective_duration),
-                                 quantized_duration: q_durations.dup,
-                                 started_ago: _started_ago(last_position, position, process_indexes),
-                                 position_jitter: position_jitters.dup,
-                                 duration_jitter: duration_jitters.dup,
-                                 right_open: right_open.dup)
-                  elsif hash_mode
-                    binder.apply(_hash_from_keys_and_values(hash_keys, effective_values),
-                                 _hash_from_keys_and_values(hash_keys, effective_next_values),
-                                 control: control,
-                                 duration: _hash_from_keys_and_values(
-                                     hash_keys,
-                                     _durations(every_groups, effective_duration)),
-                                 quantized_duration: _hash_from_keys_and_values(
-                                     hash_keys,
-                                     q_durations),
-                                 started_ago: _hash_from_keys_and_values(
-                                     hash_keys,
-                                     _started_ago(last_position, position, process_indexes)),
-                                 position_jitter: _hash_from_keys_and_values(
-                                     hash_keys,
-                                     position_jitters),
-                                 duration_jitter: _hash_from_keys_and_values(
-                                     hash_keys,
-                                     duration_jitters),
-                                 right_open: _hash_from_keys_and_values(hash_keys, right_open))
-                  else
-                    binder.apply(effective_values.first,
-                                 effective_next_values.first,
-                                 control: control,
-                                 duration: _durations(every_groups, effective_duration).first,
-                                 quantized_duration: q_durations.first,
-                                 position_jitter: position_jitters.first,
-                                 duration_jitter: duration_jitters.first,
-                                 started_ago: nil,
-                                 right_open: right_open.first)
-                  end
-
-              yield *value_parameters, **key_parameters
-
-              process_indexes.each { |i| last_position[i] = position }
-            end
-          end
-        end
+      def on(event, name: nil, only_once: nil, &block)
+        only_once ||= false
 
-        @event_handlers.pop
+        @handlers[event] ||= {}
 
-        control
+        # TODO: add on_rescue: proc { |e| _rescue_block_error(e) } [this method is on Sequencer, not in EventHandler]
+        @handlers[event][name] = { block: SmartProcBinder.new(block), only_once: only_once }
       end
 
-      def _started_ago(last_positions, position, affected_indexes)
-        Array.new(last_positions.size).tap do |a|
-          last_positions.each_index do |i|
-            if last_positions[i] && !affected_indexes.include?(i)
-              a[i] = position - last_positions[i]
-            end
-          end
-        end
+      def launch(event, *value_parameters, **key_parameters)
+        _launch event, value_parameters, key_parameters
       end
 
-      def _durations(every_groups, largest_duration)
-        [].tap do |a|
-          if every_groups.any?
-            every_groups.each_pair do |every_group, affected_indexes|
-              affected_indexes.each do |i|
-                a[i] = every_group || largest_duration
-              end
-            end
-          else
-            a << largest_duration
+      def _launch(event, value_parameters = nil, key_parameters = nil)
+        value_parameters ||= []
+        key_parameters ||= {}
+        processed = false
+
+        if @handlers.key? event
+          @handlers[event].each do |name, handler|
+            handler[:block].call *value_parameters, **key_parameters
+            @handlers[event].delete name if handler[:only_once]
+            processed = true
           end
         end
-      end
 
-      def _hash_from_keys_and_values(keys, values)
-        {}.tap { |h| keys.each_index { |i| h[keys[i]] = values[i] } }
+        @parent._launch event, value_parameters, key_parameters if @parent && !processed
       end
 
-      def _common_interval(intervals)
-        intervals = intervals.compact
-        return nil if intervals.empty?
-
-        lcm_denominators = intervals.collect(&:denominator).reduce(1, :lcm)
-        numerators = intervals.collect { |i| i.numerator * lcm_denominators / i.denominator }
-        gcd_numerators = numerators.reduce(numerators.first, :gcd)
-
-        #intervals.reduce(1r, :*)
-
-        Rational(gcd_numerators, lcm_denominators)
+      def inspect
+        "EventHandler #{id}"
       end
 
-      def _rescue_error(e)
-        @logger.error('BaseSequencer') { e.to_s }
-        @logger.error('BaseSequencer') { e.full_message(highlight: true, order: :top) }
-
-        @on_error.each do |block|
-          block.call e
+      def id
+        if @parent
+          "#{@parent.id}.#{self.class.name.split('::').last}-#{@id}"
+        else
+          "#{self.class.name.split('::').last}-#{@id.to_s}"
         end
       end
+
+      alias to_s inspect
     end
+
+    private_constant :EventHandler
   end
-end
+end; end
 
+require_relative 'base-sequencer-implementation-every'
+require_relative 'base-sequencer-implementation-move'
+require_relative 'base-sequencer-implementation-play'
+require_relative 'base-sequencer-implementation-play-timed'