musa-dsl 0.14.29 → 0.21.3

data/lib/musa-dsl/musicxml.rb

@@ -0,0 +1 @@
+require_relative 'musicxml/builder/score-partwise'

data/lib/musa-dsl/musicxml/builder/attributes.rb

@@ -0,0 +1,155 @@
+require_relative '../../core-ext/with'
+
+require_relative 'helper'
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class Key
+          include Helper::ToXML
+
+          def initialize(number = nil, cancel: nil, fifths:, mode: nil)
+            @number = number
+
+            @cancel = cancel
+            @fifths = fifths
+            @mode = mode
+          end
+
+          attr_reader :number
+          attr_accessor :cancel, :fifths, :mode
+
+          def _to_xml(io, indent:, tabs:)
+            io ||= StringIO.new
+            indent ||= 0
+
+            tabs = "\t" * indent
+
+            io.puts "#{tabs}<key#{" number=\"#{@number.to_i}\"" if @number}>"
+
+            io.puts "#{tabs}\t<cancel>#{@cancel}</cancel>" if @cancel
+            io.puts "#{tabs}\t<fifths>#{@fifths.to_i}</fifths>"
+            io.puts "#{tabs}\t<mode>#{@mode}</mode>"
+
+            io.puts "#{tabs}</key>"
+
+            io
+          end
+        end
+
+        class Time
+          include Helper::ToXML
+
+          def initialize(number = nil, senza_misura: nil, beats: nil, beat_type: nil)
+            @number = number
+
+            @senza_misura = senza_misura unless beats && beat_type
+            @beats = []
+
+            add_beats beats: beats, beat_type: beat_type if beats && beat_type
+          end
+
+          attr_reader :number
+          attr_accessor :senza_misura
+          attr_reader :beats
+
+          def add_beats(beats:, beat_type:)
+            @beats << { beats: beats, beat_type: beat_type }
+          end
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<time#{" number=\"#{@number.to_i}\"" if @number}>"
+
+            io.puts "#{tabs}\t<senza-misura>#{@senza_misura}</senza-misura>" if @senza_misura
+            @beats.each do |beats|
+              io.puts "#{tabs}\t<beats>#{beats[:beats].to_i}</beats>"
+              io.puts "#{tabs}\t<beat-type>#{beats[:beat_type].to_i}</beat-type>"
+            end
+
+            io.puts "#{tabs}</time>"
+          end
+        end
+
+        class Clef
+          include Helper::ToXML
+
+          def initialize(number = nil, sign:, line:, octave_change: nil)
+            @number = number
+            @sign = sign
+            @line = line
+            @octave_change = octave_change
+          end
+
+          attr_reader :number
+          attr_accessor :sign, :line, :octave_change
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<clef#{" number=\"#{@number.to_i}\"" if @number}>"
+
+            io.puts "#{tabs}\t<sign>#{@sign}</sign>"
+            io.puts "#{tabs}\t<line>#{@line.to_i}</line>" if @line
+            io.puts "#{tabs}\t<clef-octave-change>#{@octave_change.to_i}</clef-octave-change>" if @octave_change
+
+            io.puts "#{tabs}</clef>"
+          end
+        end
+
+        class Attributes
+          extend Musa::Extension::AttributeBuilder
+          include Musa::Extension::With
+
+          include Helper::ToXML
+
+          def initialize(divisions: nil,
+                         key_cancel: nil, key_fifths: nil, key_mode: nil,
+                         time_senza_misura: nil, time_beats: nil, time_beat_type: nil,
+                         clef_sign: nil, clef_line: nil, clef_octave_change: nil,
+                         &block)
+
+            @divisions = divisions
+
+            @keys = []
+            @times = []
+            @clefs = []
+
+            add_key cancel: key_cancel, fifths: key_fifths, mode: key_mode if key_fifths
+            add_time senza_misura: time_senza_misura, beats: time_beats, beat_type: time_beat_type if time_senza_misura || (time_beats && time_beat_type)
+            add_clef sign: clef_sign, line: clef_line, octave_change: clef_octave_change if clef_sign
+
+            with &block if block_given?
+          end
+
+          attr_simple_builder :divisions
+
+          attr_complex_adder_to_array :key, Key
+          attr_complex_adder_to_array :time, Time
+          attr_complex_adder_to_array :clef, Clef
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<attributes>"
+
+            io.puts "#{tabs}\t<divisions>#{@divisions.to_i}</divisions>" if @divisions
+
+            @keys.each do |key|
+              key.to_xml(io, indent: indent + 1)
+            end
+
+            @times.each do |time|
+              time.to_xml(io, indent: indent + 1)
+            end
+
+            staves = [@keys.size, @times.size, @clefs.size].max
+            io.puts "#{tabs}\t<staves>#{staves}</staves>" if staves > 1
+
+            @clefs.each do |clef|
+              clef.to_xml(io, indent: indent + 1)
+            end
+
+            io.puts "#{tabs}</attributes>"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/musa-dsl/musicxml/builder/backup-forward.rb

@@ -0,0 +1,45 @@
+require_relative 'helper'
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class Backup
+          include Helper::ToXML
+
+          def initialize(duration)
+            @duration = duration
+          end
+
+          attr_accessor :duration
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<backup><duration>#{@duration.to_i}</duration></backup>"
+          end
+        end
+
+        class Forward
+          include Helper::ToXML
+
+          def initialize(duration, voice: nil, staff: nil)
+            @duration = duration
+            @voice = voice
+            @staff = staff
+          end
+
+          attr_accessor :duration, :voice, :staff
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<forward>"
+
+            io.puts "#{tabs}\t<duration>#{@duration.to_i}</duration>"
+            io.puts "#{tabs}\t<voice>#{@voice.to_i}</voice>" if @voice
+            io.puts "#{tabs}\t<staff>#{@staff.to_i}</staff>" if @staff
+
+            io.puts "#{tabs}</forward>"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/musa-dsl/musicxml/builder/direction.rb

@@ -0,0 +1,322 @@
+require_relative '../../core-ext/with'
+require_relative 'helper'
+
+using Musa::Extension::Arrayfy
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class Direction
+          extend Musa::Extension::AttributeBuilder
+          include Musa::Extension::With
+
+          include Helper
+          include ToXML
+
+          def initialize(placement: nil, # above / below
+                         voice: nil, # number
+                         staff: nil,  # number
+                         offset: nil, # number
+                         **directions,
+                         &block)
+
+            @placement = placement
+
+            @types = []
+            @voice = voice
+            @staff = staff
+            @offset = offset
+
+            directions.each_pair do |direction, value|
+              send direction, value
+            end
+
+            with &block if block_given?
+          end
+
+          attr_simple_builder :voice
+          attr_simple_builder :staff
+          attr_simple_builder :offset
+          attr_simple_builder :placement
+
+          attr_complex_adder_to_custom(:metronome) { |*p, **kp, &b| Metronome.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:wedge) { |*p, **kp, &b| Wedge.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:dynamics) { |*p, **kp, &b| Dynamics.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:pedal) { |*p, **kp, &b| Pedal.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:bracket) { |*p, **kp, &b| Bracket.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:dashes) { |*p, **kp, &b| Dashes.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:words) { |*p, **kp, &b| Words.new(*p, **kp, &b).tap { |t| @types << t } }
+          attr_complex_adder_to_custom(:octave_shift) { |*p, **kp, &b| OctaveShift.new(*p, **kp, &b).tap { |t| @types << t } }
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<direction#{ decode_bool_or_string_attribute(@placement, 'placement') }>"
+
+            @types.each do |type|
+              type.to_xml(io, indent: indent + 1)
+            end
+
+            io.puts "#{tabs}\t<offset sound=\"no\">#{@offset.to_f.round(2)}</offset>" if @offset
+            io.puts "#{tabs}\t<voice>#{@voice.to_i}</voice>" if @voice
+            io.puts "#{tabs}\t<staff>#{@staff.to_i}</staff>" if @staff
+
+            io.puts "#{tabs}</direction>"
+          end
+
+          private
+
+          def direction_type_to_xml(io, indent:); end
+        end
+
+        class DirectionType
+          extend Musa::Extension::AttributeBuilder
+          include Musa::Extension::With
+
+          include Helper::ToXML
+
+          def initialize(*_rest, **_krest, &block)
+            with &block if block_given?
+          end
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<direction-type>"
+            _direction_type_to_xml(io, indent: indent + 1, tabs: tabs + "\t")
+            io.puts "#{tabs}</direction-type>"
+          end
+        end
+
+        private_constant :DirectionType
+
+        class Metronome < DirectionType
+          include Helper
+
+          # TODO complete Metronome complexity!
+
+          def initialize(beat_unit:, # quarter / eighth / ...
+                         beat_unit_dots: nil, # number
+                         per_minute:, #string
+                         &block)
+
+            @beat_unit = beat_unit
+            @beat_unit_dots = beat_unit_dots
+            @per_minute = per_minute
+
+            super
+          end
+
+          attr_simple_builder :beat_unit
+          attr_simple_builder :beat_unit_dots
+          attr_simple_builder :per_minute
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<metronome>"
+
+            io.puts "#{tabs}\t<beat-unit>#{@beat_unit}</beat-unit>"
+            @beat_unit_dots&.times do
+              io.puts "#{tabs}\t<beat-unit-dot />"
+            end
+            io.puts "#{tabs}\t<per-minute>#{@per_minute}</per-minute>"
+
+            io.puts "#{tabs}</metronome>"
+          end
+        end
+
+        class Wedge < DirectionType
+          include Helper
+
+          def initialize(type, #  crescendo / diminuendo / stop / continue
+                         niente: nil, # true
+                         &block)
+            @type = type
+            @niente = niente
+
+            super
+          end
+
+          attr_simple_builder :type
+          attr_simple_builder :niente
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<wedge type=\"#{@type}\"#{ decode_bool_or_string_attribute(@niente, 'niente', 'yes') }/>"
+          end
+        end
+
+        class Dynamics < DirectionType
+          def initialize(value, # pp / ppp / ... or array of
+                         &block)
+            @dynamics = value.arrayfy
+            super
+          end
+
+          attr_simple_builder :dynamics
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<dynamics>"
+
+            @dynamics.each do |dynamics|
+              io.puts "#{tabs}\t<#{dynamics} />"
+            end
+
+            io.puts "#{tabs}</dynamics>"
+          end
+        end
+
+        class Pedal < DirectionType
+          include Helper
+
+          def initialize(type, # start / stop / change / continue
+                         line: nil, # true
+                         &block)
+
+            @type = type
+            @line = line
+
+            super
+          end
+
+          attr_simple_builder :type
+          attr_simple_builder :line
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<pedal type=\"#{@type}\"#{ decode_bool_or_string_attribute(@line, 'line', 'yes', 'no') }/>"
+          end
+        end
+
+        class Bracket < DirectionType
+          include Helper
+
+          def initialize(type, # start / stop / continue
+                         line_end:, # up / down / both / arrow / none
+                         line_type: nil, # solid / dashed / dotted / wavy
+                         &block)
+
+            @type = type
+            @line_end = line_end
+            @line_type = line_type
+
+            super
+          end
+
+          attr_simple_builder :type
+          attr_simple_builder :line_type
+          attr_simple_builder :line_end
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<bracket type=\"#{@type}\" line_end=\"#{@line_end}\"#{ decode_bool_or_string_attribute(@line_type, 'line_type') }/>"
+          end
+        end
+
+        class Dashes < DirectionType
+          def initialize(type, # start / stop / continue
+                         &block)
+
+            @type = type
+
+            super
+          end
+
+          attr_simple_builder :type
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<dashes type=\"#{@type}\" />"
+          end
+        end
+
+        class Words < DirectionType
+          def initialize(value, # string | Array of string
+                         &block)
+
+            @words = value.arrayfy
+
+            super
+          end
+
+          attr_simple_builder :words
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            @words.each do |words|
+              io.puts "#{tabs}<words>#{words}</words>"
+            end
+          end
+        end
+
+        class OctaveShift < DirectionType
+          include Helper
+
+          def initialize(type, # up / down / stop / continue
+                         size: nil, # number
+                         &block)
+
+            @type = type
+            @size = size
+
+            super
+          end
+
+          attr_simple_builder :type
+          attr_simple_builder :size
+
+          def _direction_type_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<octave-shift type=\"#{@type}\"#{ decode_bool_or_string_attribute(@size&.to_i, 'size') }/>"
+          end
+        end
+
+        class AccordionRegistration < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Coda < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Damp < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class DampAll < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class EyeGlasses < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class HarpPedals < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Image < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class OtherDirection < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Percussion < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class PrincipalVoice < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Rehearsal < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Scordatura < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class Segno < DirectionType
+          include Helper::NotImplemented
+        end
+
+        class StringMute < DirectionType
+          include Helper::NotImplemented
+        end
+      end
+    end
+  end
+end