musa-dsl 0.21.3 → 0.22.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 5cc5aa748a51c09ce12d7ad6b17a7922d87d56742a7a03c61753e5cf05e0faac
-  data.tar.gz: a34656b54c6ed0997e897c8919c04e6361b85501b6c17d48b3df79797943d376
+  metadata.gz: 700593377e2427ac571b039197f3fdb0c3d904dbe0ed74725e54f1c4421f074c
+  data.tar.gz: a0bb8dbf80d824eaf5543db333964d5cb449819c22a60fb54670a007c9b327b6
 SHA512:
-  metadata.gz: 740ea84da6d43d290f970d4bf64d5634c80044d1be2a59508543c288dd86ed4550e990a4cedb5c1cda5a0e8c551bc1f6cf7e3625bba9748df1f438bafeb5b008
-  data.tar.gz: 4876305d8c5a27924796f29667fc2f4db73ef753646e561ca12b9ac2772f0dc9cf14df4996867bf64aa11af6792d0c4bfd7a423001d163a1e9afd8e943ab5db4
+  metadata.gz: de57aaaf8a10d8a1b6ab68ae8ae9e6660488cbc3efce53fa7a1c9a4bd84872a8225ab6d854f9101deb5c7b872389789fbe653dc5b608c809cdd387f1351e53c5
+  data.tar.gz: 2719f0f97281138feb53542ea842759e965d0c1f756fdbd92797935963c9adaffe91e67212f5efd3ac2e3e2ef2d956da60cce73efbefce764aef224d8042f0bf

data/lib/musa-dsl.rb

@@ -1,5 +1,5 @@
 module Musa
-  VERSION = '0.21.1'
+  VERSION = '0.22.2'
 end
 
 require_relative 'musa-dsl/core-ext'

data/lib/musa-dsl/core-ext.rb

@@ -1,5 +1,6 @@
 require_relative 'core-ext/array-explode-ranges'
 require_relative 'core-ext/arrayfy'
+require_relative 'core-ext/hashify'
 require_relative 'core-ext/deep-copy'
 require_relative 'core-ext/smart-proc-binder'
 require_relative 'core-ext/inspect-nice'

data/lib/musa-dsl/core-ext/arrayfy.rb

@@ -4,28 +4,28 @@ module Musa
   module Extension
     module Arrayfy
       refine Object do
-        def arrayfy(size: nil)
+        def arrayfy(size: nil, default: nil)
           if size
-            size.times.collect { self }
-          else
-            if nil?
-              []
-            else
-              [self]
+            size.times.collect do
+              nil? ? default : self
             end
+          else
+            nil? ? [] : [self]
           end
         end
       end
 
+      # TODO add a refinement for Hash? Should receive a list parameter with the ordered keys
+
       refine Array do
-        def arrayfy(size: nil)
+        def arrayfy(size: nil, default: nil)
           if size
             DeepCopy::DeepCopy.copy_singleton_class_modules(
                 self,
                 (self * (size / self.size + ((size % self.size).zero? ? 0 : 1) )).take(size))
           else
             self.clone
-          end
+          end.map! { |value| value.nil? ? default : value }
         end
       end
     end

data/lib/musa-dsl/core-ext/hashify.rb

@@ -0,0 +1,42 @@
+require_relative 'deep-copy'
+
+module Musa
+  module Extension
+    module Hashify
+      refine Object do
+        def hashify(keys:, default: nil)
+          keys.collect do |key|
+            [ key,
+              if nil?
+                default
+              else
+                self
+              end ]
+          end.to_h
+        end
+      end
+
+      refine Array do
+        def hashify(keys:, default: nil)
+          values = clone
+          keys.collect do |key|
+            value = values.shift
+            [ key,
+              value.nil? ? default : value ]
+          end.to_hash
+        end
+      end
+
+      refine Hash do
+        def hashify(keys:, default: nil)
+          keys.collect do |key|
+            value = self[key]
+            [ key,
+              value.nil? ? default : value ]
+          end.to_h
+              .tap {|_| DeepCopy::DeepCopy.copy_singleton_class_modules(self, _) }
+        end
+      end
+    end
+  end
+end

data/lib/musa-dsl/core-ext/inspect-nice.rb

@@ -12,6 +12,11 @@ module Musa
         alias to_s inspect
       end
 
+
+      refine Rational.singleton_class do
+        attr_accessor :to_s_as_inspect
+      end
+
       refine Rational do
         def inspect(simple: nil)
           value = self.abs
@@ -38,7 +43,7 @@ module Musa
         end
 
         def to_s
-          inspect simple: true
+          inspect simple: true # !Rational.to_s_as_inspect
         end
       end
     end

data/lib/musa-dsl/datasets/e.rb

@@ -5,11 +5,21 @@ module Musa::Datasets
     include Dataset
 
     NaturalKeys = [].freeze
+
+    # TODO implement valid? in all 'subclasses'. This implies recollecting from other places where validations are done and refactoring
+    # TODO should valid? and validate! be on Dataset instead of E? P dataset inherits from Dataset but probably it could be validated
+    #
+    def valid?
+      true
+    end
+
+    def validate!
+      raise RuntimeError, "Invalid dataset #{self}" unless valid?
+    end
   end
 
   module Abs
     include E
-    def duration; 0; end
   end
 
   module Delta
@@ -20,6 +30,12 @@ module Musa::Datasets
     include Abs
   end
 
+  module AbsTimed
+    include Abs
+
+    NaturalKeys = (NaturalKeys + [:time]).freeze
+  end
+
   module DeltaI
     include Delta
   end
@@ -27,10 +43,11 @@ module Musa::Datasets
   module AbsD
     include Abs
 
-    NaturalKeys = [:duration, # duration of the process (note reproduction, dynamics evolution, etc)
-                   :note_duration, # duration of the note (a staccato note is effectvely shorter than elapsed duration until next note)
-                   :forward_duration # duration to wait until next event (if 0 means the next event should be executed at the same time than this one)
-    ].freeze
+    NaturalKeys = (NaturalKeys +
+                   [:duration, # duration of the process (note reproduction, dynamics evolution, etc)
+                    :note_duration, # duration of the note (a staccato note is effectvely shorter than elapsed duration until next note)
+                    :forward_duration # duration to wait until next event (if 0 means the next event should be executed at the same time than this one)
+                   ]).freeze
 
     def forward_duration
       self[:forward_duration] || self[:duration]

data/lib/musa-dsl/datasets/gdv.rb

@@ -9,7 +9,6 @@ using Musa::Extension::InspectNice
 module Musa::Datasets
   module GDV
     include AbsD
-    include AbsI
 
     include Helper
 

data/lib/musa-dsl/datasets/p.rb

@@ -1,18 +1,19 @@
 require_relative 'dataset'
 require_relative 'ps'
 
+require_relative '../series'
 require_relative '../sequencer'
 
 module Musa::Datasets
   module P
     include Dataset
 
-    def to_ps_serie(base_duration = nil)
-      base_duration ||= 1/4r
+    def to_ps_serie(base_duration: nil)
+      base_duration ||= 1/4r # TODO review incoherence between neumalang 1/4r base duration for quarter notes and general 1r size of bar
 
-      p = clone
+      # TODO if instead of using clone (needed because of p.shift) we use index counter the P elements would be evaluated on the last moment
 
-      Musa::Series::E() do
+      Musa::Series::E(clone, base_duration) do |p, base_duration|
         (p.size >= 3) ?
           { from: p.shift,
             duration: p.shift * base_duration,
@@ -21,47 +22,37 @@ module Musa::Datasets
       end
     end
 
-    def to_score(score: nil,
-                 mapper: nil,
-                 position: nil,
-                 sequencer: nil,
-                 beats_per_bar: nil, ticks_per_beat: nil,
-                 right_open: nil,
-                 do_log: nil,
-                 &block)
+    def to_timed_serie(time_start = nil, base_duration: nil)
+      time_start ||= 0r
+      base_duration ||= 1/4r # TODO review incoherence between neumalang 1/4r base duration for quarter notes and general 1r size of bar
 
-      raise ArgumentError,
-            "'beats_per_bar' and 'ticks_per_beat' parameters should be both nil or both have values" \
-              unless beats_per_bar && ticks_per_beat || beats_per_bar.nil? && ticks_per_beat.nil?
+      # TODO if instead of using clone (needed because of p.shift) we use index counter the P elements would be evaluated on the last moment
 
-      raise ArgumentError,
-            "'sequencer' parameter should not be used when 'beats_per_bar' and 'ticks_per_beat' parameters are used" \
-            if sequencer && beats_per_bar
+      Musa::Series::E(clone, base_duration, context: { time: time_start }) do |p, base_duration, context: |
+        value = p.shift
 
-      run_sequencer = sequencer.nil?
+        if value
+          r = { time: context[:time], value: value } if !value.nil?
 
-      score ||= Musa::Datasets::Score.new
+          delta_time = p.shift
+          context[:time] += delta_time * base_duration if delta_time
 
-      sequencer ||= Sequencer.new(beats_per_bar, ticks_per_beat, do_log: do_log)
-
-      sequencer.at(position || 1r) do |_|
-
-          _.play to_ps_serie do |_, line|
-
-            line.to_score(sequencer: _,
-                          score: score,
-                          mapper: mapper,
-                          position: _.position,
-                          right_open: right_open,
-                          &block)
+          r&.extend(AbsTimed)
         end
       end
+    end
 
-      if run_sequencer
-        sequencer.run
-        score
-      else
-        nil
+    def map(&block)
+      i = 0
+      clone.map! do |element|
+        # Process with block only the values (values are the alternating elements because P
+        # structure is <value> <duration> <value> <duration> <value>)
+        #
+        if (i += 1) % 2 == 1
+          block.call(element)
+        else
+          element
+        end
       end
     end
   end

data/lib/musa-dsl/datasets/pdv.rb

@@ -6,7 +6,6 @@ require_relative 'helper'
 module Musa::Datasets
   module PDV
     include AbsD
-    include AbsI
 
     include Helper
 

data/lib/musa-dsl/datasets/ps.rb

@@ -29,85 +29,17 @@ module Musa::Datasets
       # TODO ?????
     end
 
-    def to_score(score: nil,
-                 mapper: nil,
-                 position: nil,
-                 sequencer: nil,
-                 beats_per_bar: nil, ticks_per_beat: nil,
-                 right_open: nil,
-                 do_log: nil,
-                 &block)
-
-      raise ArgumentError,
-            "'beats_per_bar' and 'ticks_per_beat' parameters should be both nil or both have values" \
-              unless beats_per_bar && ticks_per_beat || beats_per_bar.nil? && ticks_per_beat.nil?
-
-      raise ArgumentError,
-            "'sequencer' parameter should not be used when 'beats_per_bar' and 'ticks_per_beat' parameters are used" \
-            if sequencer && beats_per_bar
-
-      run_sequencer = sequencer.nil?
-
-      binder = Musa::Extension::SmartProcBinder::SmartProcBinder.new(block)
-
-      score ||= Musa::Datasets::Score.new
-
-      sequencer ||= Musa::Sequencer::Sequencer.new(beats_per_bar, ticks_per_beat, do_log: do_log)
-
-      ticks_per_bar = sequencer.ticks_per_bar
-
-      from = mapper && self[:from].is_a?(V) ? self[:from].to_packed_V(mapper) : self[:from]
-      to = mapper && self[:to].is_a?(V) ? self[:to].to_packed_V(mapper) : self[:to]
-
-      if right_open.is_a?(Array)
-        right_open = right_open.collect do |v|
-          v.is_a?(Symbol) ? v : mapper[v]
-        end
-      end
-
-      # TODO sequencer step should be 1????
-      #
-      sequencer.at(position || 1r) do |_|
-        _.move from: from,
-               to: to,
-               right_open: right_open,
-               duration: _quantize(self[:duration], ticks_per_bar),
-               step: 1 do
-          | _,
-            value, next_value,
-            duration:,
-            quantized_duration:,
-            position_jitter:, duration_jitter:,
-            started_ago:|
-
-          binder.call value, next_value,
-                      position: _.position,
-                      duration: duration,
-                      quantized_duration: quantized_duration,
-                      position_jitter: position_jitter,
-                      duration_jitter: duration_jitter,
-                      started_ago: started_ago,
-                      score: score,
-                      logger: _.logger
-        end
-      end
-
-      if run_sequencer
-        sequencer.run
-        score
-      else
-        nil
-      end
-    end
-
-    private
-
-    def _quantize(duration, ticks_per_bar)
-      if ticks_per_bar &.< Float::INFINITY
-        ((duration.rationalize * ticks_per_bar).round / ticks_per_bar).to_r
+    def valid?
+      case self[:from]
+      when Array
+        self[:to].is_a?(Array) &&
+            self[:from].size == self[:to].size
+      when Hash
+        self[:to].is_a?(Hash) &&
+            self[:from].keys == self[:to].keys
       else
-        duration.rationalize
-      end
+        false
+      end && self[:duration].is_a?(Numeric) && self[:duration] > 0
     end
   end
 end

data/lib/musa-dsl/logger/logger.rb

@@ -3,11 +3,12 @@ require 'logger'
 module Musa; module Logger
   class Logger < ::Logger
     def initialize(sequencer: nil, position_format: nil)
-      super STDERR
+      super STDERR, level: WARN
 
       @sequencer = sequencer
       @position_format = position_format || 3.3
 
+
       self.formatter = proc do |severity, time, progname, msg|
         level = "[#{severity}] " unless severity == 'DEBUG'
 
@@ -19,9 +20,9 @@ module Musa; module Logger
                        "%#{integer_digits + decimal_digits + 1}s: " % ("%.#{decimal_digits}f" % sequencer.position.to_f)
                      end
 
-          progname = "[#{progname}] " if progname
+          progname = "[#{progname}]" if progname
 
-          "#{position}#{level}#{progname}#{msg}\n"
+          "#{position}#{level}#{progname} #{msg}\n"
         else
           "\n"
         end

data/lib/musa-dsl/matrix/matrix.rb

@@ -70,7 +70,6 @@ module Musa
         include Musa::Datasets
 
         def to_p(time_dimension, keep_time: nil)
-
           decompose(self.to_a, time_dimension).collect do |points|
             line = []
 
@@ -94,62 +93,6 @@ module Musa
           end
         end
 
-        def to_score(time_dimension,
-                     mapper: nil,
-                     score: nil,
-                     position: nil,
-                     sequencer: nil,
-                     beats_per_bar: nil, ticks_per_beat: nil,
-                     right_open: nil,
-                     do_log: nil,
-                     &block)
-
-          raise ArgumentError,
-                "'beats_per_bar' and 'ticks_per_beat' parameters should be both nil or both have values" \
-              unless beats_per_bar && ticks_per_beat ||
-                     beats_per_bar.nil? && ticks_per_beat.nil?
-
-          raise ArgumentError,
-                "'sequencer' parameter should not be used when 'beats_per_bar' and 'ticks_per_beat' parameters are used" \
-            if sequencer && beats_per_bar
-
-          raise ArgumentError,
-                "'time_dimension' parameter should be an index number if no 'mapping' is provided" \
-            unless time_dimension.is_a?(Symbol) && mapper&.include?(time_dimension) ||
-                   time_dimension.is_a?(Integer) && (0..self.column_size-1).include(time_dimension)
-
-          time_dimension = mapper&.find_index(time_dimension) if time_dimension.is_a?(Symbol)
-
-          mapper = mapper.clone.tap { |_| _.delete_at(time_dimension) } if mapper
-
-          run_sequencer = sequencer.nil?
-
-          score ||= Musa::Datasets::Score.new
-
-          sequencer ||= Sequencer::Sequencer.new(beats_per_bar, ticks_per_beat, do_log: do_log)
-
-          right_open = right_open.clone.tap { |_| _.delete_at(time_dimension) } if right_open&.is_a?(Array)
-
-          sequencer.at(position || 1r) do |_|
-            to_p(time_dimension).each do |p|
-              p.to_score(score: score,
-                         mapper: mapper,
-                         sequencer: _,
-                         position: _.position,
-                         right_open: right_open,
-                         do_log: do_log,
-                         &block)
-            end
-          end
-
-          if run_sequencer
-            sequencer.run
-            score
-          else
-            nil
-          end
-        end
-
         def _rows
           @rows
         end