musa-dsl 0.14.32 → 0.21.0

data/lib/musa-dsl/musicxml/builder/part-group.rb

@@ -0,0 +1,44 @@
+require_relative 'helper'
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class PartGroup
+          include Helper
+          include Helper::HeaderToXML
+
+          def initialize(number = nil, # number
+                         type:,
+                         name: nil,
+                         abbreviation: nil,
+                         symbol: nil,
+                         group_barline: nil, # true
+                         group_time: nil) # true
+            @number = number
+            @type = type
+            @name = name
+            @abbreviation = abbreviation
+            @symbol = symbol
+            @group_barline = group_barline
+            @group_time = group_time
+          end
+
+          attr_accessor :number, :type, :name, :abbreviation, :symbol, :group_barline, :group_time
+
+          def _header_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<part-group#{ decode_bool_or_string_attribute(@number&.to_i, 'number') } type=\"#{@type}\">"
+
+            io.puts "#{tabs}\t<group-name>#{@name}</group-name>" if @name
+            io.puts "#{tabs}\t<group-abbreviation>#{@abbreviation}</group-abbreviation>" if @abbreviation
+            io.puts "#{tabs}\t<group-symbol>#{@symbol}</group-symbol>" if @symbol
+            io.puts "#{tabs}\t<group-barline>#{decode_bool_or_string_value(@group_barline, 'yes', 'no')}</group-barline>" if @group_barline
+            io.puts "#{tabs}\t<group-time>#{decode_bool_or_string_value(@group_time, 'yes', 'no')}</group-time>" if @group_time
+
+            io.puts "#{tabs}</part-group>"
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,67 @@
+require_relative '../../core-ext/with'
+
+require_relative 'measure'
+
+require_relative 'helper'
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class Part
+          extend Musa::Extension::AttributeBuilder
+          include Musa::Extension::With
+
+          include Helper::HeaderToXML
+          include Helper::ToXML
+
+          def initialize(id, name:, abbreviation: nil, **first_measure_attributes, &block)
+            @id = id
+            @name = name
+            @abbreviation = abbreviation
+
+            @measures = []
+
+            unless first_measure_attributes.empty?
+              add_measure **first_measure_attributes
+            end
+
+            with &block if block_given?
+          end
+
+          attr_simple_builder :id
+          attr_simple_builder :name
+          attr_simple_builder :abbreviation
+
+          attr_complex_adder_to_custom :measure, variable: :@measures do
+          | 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 |
+
+            Measure.new(@measures.size + 1,
+                        divisions: divisions,
+                        key_cancel: key_cancel, key_fifths: key_fifths, key_mode: key_mode,
+                        time_senza_misura: time_senza_misura, time_beats: time_beats, time_beat_type: time_beat_type,
+                        clef_sign: clef_sign, clef_line: clef_line, clef_octave_change: clef_octave_change).tap { |measure| @measures << measure }
+          end
+
+          def _header_to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<score-part id=\"#{@id}\">"
+            io.puts "#{tabs}\t<part-name>#{@name}</part-name>"
+            io.puts "#{tabs}\t<part-abbreviation>#{@abbreviation}</part-abbreviation>" if @abbreviation
+            io.puts "#{tabs}</score-part>"
+          end
+
+          def _to_xml(io, indent:, tabs:)
+            io.puts "#{tabs}<part id=\"#{@id}\">"
+            @measures.each do |measure|
+              measure.to_xml(io, indent: indent + 1)
+            end
+            io.puts "#{tabs}</part>"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/musa-dsl/musicxml/builder/pitched-note.rb

@@ -0,0 +1,126 @@
+require_relative 'note'
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class PitchedNote < Note
+          def initialize(_step = nil, step: nil, alter: nil, octave:,
+                         pizzicato: nil, # true
+                         grace: nil, # true
+                         cue: nil, # true
+                         chord: nil, # true
+                         duration: nil, # number positive divisions
+                         tie_start: nil, tie_stop: nil, # true
+                         voice: nil, # number
+                         type: nil, # whole / half / quarter / ...
+                         dots: nil, # number
+                         accidental: nil, # sharp / flat / ...
+                         time_modification: nil, # TimeModification class instance
+                         stem: nil, # up / down / double
+                         notehead: nil, # Notehead class instance
+                         staff: nil, # number
+
+                         # notations
+                         accidental_mark: nil, # sharp / natural / flat / ...
+                         arpeggiate: nil, # true / up / down
+
+                         tied: nil, # start / stop / continue
+                         tuplet: nil, # Tuplet class instance
+
+                         dynamics: nil, # pppp...ffff (single or array of)
+                         fermata: nil, # true / upright / inverted
+                         glissando: nil, # start / stop
+                         non_arpeggiate: nil, # top / bottom
+
+                         slide: nil, # start / stop
+                         slur: nil, # start / stop / continue
+
+                         ## articulations
+                         accent: nil, # true
+                         breath_mark: nil, # comma / tick
+                         caesura: nil, # true
+                         detached_legato:nil, # true
+                         doit: nil, # true
+                         falloff: nil, # true
+                         other_articulation: nil, # text
+                         plop: nil, # true
+                         scoop: nil, # true
+                         spiccato: nil, # true
+                         staccatissimo: nil, # true
+                         staccato: nil, # true
+                         stress: nil, # true
+                         strong_accent: nil, # true / up / down
+                         tenuto: nil, # true
+                         unstress: nil, # true
+
+                         ## ornaments
+                         delayed_inverted_turn: nil, # true
+                         delayed_turn: nil, # true
+                         inverted_mordent: nil, # true
+                         inverted_turn: nil, # true
+                         mordent: nil, # true
+                         schleifer: nil, # true
+                         shake: nil, # true
+                         tremolo: nil, # start / stop / single,
+                         trill_mark: nil, # true
+                         turn: nil, # true
+                         vertical_turn: nil, # true
+                         wavy_line: nil, # true
+                         other_ornament: nil, # true
+                         ornament_accidental_mark: nil, # sharp / natural / flat / ...
+
+                         ## technical
+                         arrow: nil, # Arrow class instance
+                         bend: nil, # Bend class instance
+                         double_tongue: nil, # true
+                         down_bow: nil, # true
+                         fingering: nil,  # Fingering class instance
+                         fingernails: nil, # true
+                         fret: nil, # number
+                         hammer_on: nil, # HammerOnPullOff class instance
+                         handbell: nil, # damp / echo / ...
+                         harmonic: nil, # Harmonic class instance
+                         heel: nil, # true
+                         hole: nil, # Hole class instance
+                         open_string: nil, # true
+                         other_technical: nil, # text
+                         pluck: nil, # text
+                         pull_off: nil, # HammerOnPullOff class insstance
+                         snap_pizzicato: nil, # true
+                         stopped: nil, # true
+                         string: nil, # number (string number)
+                         tap: nil, # text
+                         thumb_position: nil, # true
+                         toe: nil, # true
+                         triple_tongue: nil, # true
+                         up_bow: nil,  # true
+                         &block)
+
+            @step = step || _step
+            @alter = alter
+            @octave = octave
+
+            super
+          end
+
+          attr_simple_builder :step
+          attr_simple_builder :alter
+          attr_simple_builder :octave
+
+          private
+
+          def specific_to_xml(io, indent:)
+            tabs = "\t" * indent
+
+            io.puts "#{tabs}<pitch>"
+            io.puts "#{tabs}\t<step>#{@step}</step>"
+            io.puts "#{tabs}\t<alter>#{@alter}</alter>" if @alter
+            io.puts "#{tabs}\t<octave>#{@octave.to_i}</octave>"
+            io.puts "#{tabs}</pitch>"
+          end
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,117 @@
+require_relative 'note'
+
+module Musa
+  module MusicXML
+    module Builder
+      module Internal
+        class Rest < Note
+          def initialize(pizzicato: nil, # true
+                         measure: nil, # true
+                         grace: nil, # true
+                         cue: nil, # true
+                         chord: nil, # true
+                         duration: nil, # number positive divisions
+                         tie_start: nil, tie_stop: nil, # true
+                         voice: nil, # number
+                         type: nil, # whole / half / quarter / ...
+                         dots: nil, # number
+                         accidental: nil, # sharp / flat / ...
+                         time_modification: nil, # TimeModification class instance
+                         stem: nil, # up / down / double
+                         notehead: nil, # Notehead class instance
+                         staff: nil, # number
+
+                         # notations
+                         accidental_mark: nil, # sharp / natural / flat / ...
+                         arpeggiate: nil, # true / up / down
+
+                         tied: nil, # start / stop / continue
+                         tuplet: nil, # Tuplet class instance
+
+                         dynamics: nil, # pppp...ffff (single or array of)
+                         fermata: nil, # true / upright / inverted
+                         glissando: nil, # start / stop
+                         non_arpeggiate: nil, # top / bottom
+
+                         slide: nil, # start / stop
+                         slur: nil, # start / stop / continue
+
+                         ## articulations
+                         accent: nil, # true
+                         breath_mark: nil, # comma / tick
+                         caesura: nil, # true
+                         detached_legato:nil, # true
+                         doit: nil, # true
+                         falloff: nil, # true
+                         other_articulation: nil, # text
+                         plop: nil, # true
+                         scoop: nil, # true
+                         spiccato: nil, # true
+                         staccatissimo: nil, # true
+                         staccato: nil, # true
+                         stress: nil, # true
+                         strong_accent: nil, # true / up / down
+                         tenuto: nil, # true
+                         unstress: nil, # true
+
+                         ## ornaments
+                         delayed_inverted_turn: nil, # true
+                         delayed_turn: nil, # true
+                         inverted_mordent: nil, # true
+                         inverted_turn: nil, # true
+                         mordent: nil, # true
+                         schleifer: nil, # true
+                         shake: nil, # true
+                         tremolo: nil, # start / stop / single,
+                         trill_mark: nil, # true
+                         turn: nil, # true
+                         vertical_turn: nil, # true
+                         wavy_line: nil, # true
+                         other_ornament: nil, # true
+                         ornament_accidental_mark: nil, # sharp / natural / flat / ...
+
+                         ## technical
+                         arrow: nil, # Arrow class instance
+                         bend: nil, # Bend class instance
+                         double_tongue: nil, # true
+                         down_bow: nil, # true
+                         fingering: nil,  # Fingering class instance
+                         fingernails: nil, # true
+                         fret: nil, # number
+                         hammer_on: nil, # HammerOnPullOff class instance
+                         handbell: nil, # damp / echo / ...
+                         harmonic: nil, # Harmonic class instance
+                         heel: nil, # true
+                         hole: nil, # Hole class instance
+                         open_string: nil, # true
+                         other_technical: nil, # text
+                         pluck: nil, # text
+                         pull_off: nil, # HammerOnPullOff class insstance
+                         snap_pizzicato: nil, # true
+                         stopped: nil, # true
+                         string: nil, # number (string number)
+                         tap: nil, # text
+                         thumb_position: nil, # true
+                         toe: nil, # true
+                         triple_tongue: nil, # true
+                         up_bow: nil,  # true
+                         &block)
+
+            @measure = measure
+
+            super
+          end
+
+          attr_simple_builder :measure
+
+          private
+
+          def specific_to_xml(io, indent:)
+            tabs = "\t" * indent
+            io.puts "#{tabs}<rest #{"measure=\"yes\"" if @measure}/>"
+          end
+        end
+      end
+    end
+  end
+end

data/lib/musa-dsl/musicxml/builder/score-partwise.rb

@@ -0,0 +1,120 @@
+require 'date'
+
+require_relative '../../core-ext/attribute-builder'
+require_relative '../../core-ext/with'
+
+require_relative 'typed-text'
+require_relative 'part-group'
+require_relative 'part'
+
+require_relative 'helper'
+
+module Musa
+  module MusicXML
+    module Builder
+      class ScorePartwise
+        extend Musa::Extension::AttributeBuilder
+        include Musa::Extension::With
+
+        include Internal::Helper::ToXML
+
+        def initialize(work_number: nil, work_title: nil,
+                       movement_number: nil, movement_title: nil,
+                       encoding_date: nil,
+                       creators: nil,
+                       rights: nil,
+                       &block)
+
+          @work_number = work_number
+          @work_title = work_title
+          @movement_number = movement_number
+          @movement_title = movement_title
+
+          @encoding_date = encoding_date || DateTime.now
+
+          @creators = []
+          @rights = []
+
+          self.creators **creators if creators
+          self.rights **rights if rights
+
+          @groups_and_parts = []
+          @parts = {}
+
+          with &block if block_given?
+        end
+
+        attr_simple_builder :work_title
+        attr_simple_builder :work_number
+
+        attr_simple_builder :movement_title
+        attr_simple_builder :movement_number
+
+        attr_simple_builder :encoding_date
+
+        attr_tuple_adder_to_array :rights, Internal::Rights, plural: :rights
+        attr_tuple_adder_to_array :creator, Internal::Creator
+
+        attr_complex_adder_to_custom :part, variable: :@parts do |id, name:, abbreviation: nil, &block|
+          Internal::Part.new(id, name: name, abbreviation: abbreviation, &block).tap do |part|
+            @parts[id] = part
+            @groups_and_parts << part
+          end
+        end
+
+        attr_complex_adder_to_custom :group do |*parameters, **key_parameters|
+          Internal::PartGroup.new(*parameters, **key_parameters).tap do |group|
+            @groups_and_parts << group
+          end
+        end
+
+        def _to_xml(io, indent:, tabs:)
+          io.puts "#{tabs}<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>"
+          io.puts "#{tabs}<!DOCTYPE score-partwise PUBLIC \"-//Recordare//DTD MusicXML 3.0 Partwise//EN\" \"http://www.musicxml.org/dtds/partwise.dtd\">"
+          io.puts "#{tabs}<score-partwise version=\"3.0\">"
+
+          if @work_number || @work_title
+            io.puts"#{tabs}\t<work>"
+            io.puts"#{tabs}\t\t<work-number>#{@work_number.to_i}</work-number>" if @work_number
+            io.puts"#{tabs}\t\t<work-title>#{@work_title}</work-title>" if @work_title
+            io.puts"#{tabs}\t</work>"
+          end
+
+          io.puts"#{tabs}\t<movement-number>#{@movement_number.to_i}</movement-number>" if @movement_number
+          io.puts"#{tabs}\t<movement-title>#{@movement_title}</movement-title>" if @movement_title
+
+          io.puts "#{tabs}\t<identification>"
+
+          @creators.each do |creator|
+            creator.to_xml(io, indent: indent + 2)
+          end
+
+          @rights.each do |rights|
+            rights.to_xml(io, indent: indent + 2)
+          end
+
+          io.puts "#{tabs}\t\t<encoding>"
+          io.puts"#{tabs}\t\t\t<encoding-date>#{@encoding_date.strftime("%Y-%m-%d")}</encoding-date>"
+          io.puts"#{tabs}\t\t\t<software>MusaDSL: MusicXML output formatter</software>"
+          io.puts "#{tabs}\t\t</encoding>"
+
+          io.puts "#{tabs}\t</identification>"
+
+          io.puts "#{tabs}\t<part-list>"
+          @groups_and_parts.each do |group_or_part|
+            group_or_part.header_to_xml(io, indent: indent + 2)
+          end
+          io.puts "#{tabs}\t</part-list>"
+
+          @parts.each_value do |part|
+            part.to_xml(io, indent: indent + 1)
+          end
+
+          io.puts "#{tabs}</score-partwise>"
+        end
+      end
+    end
+  end
+end
+
+