lydown 0.3.0

data/lib/lydown/parsing/lydown.treetop

@@ -0,0 +1,160 @@
+grammar Lydown
+  include Lydown::Parsing
+
+  rule lines
+    line ([\n] line)* <Root>
+  end
+  rule stream_switch
+    music_stream / lyrics_stream / lyrics2_stream
+  end
+  rule music_stream
+    '=music' white_space? [\n] music ([\n] !stream_breaker music)*
+  end
+  rule lyrics_stream
+    '=lyrics' white_space? [\n] lyrics_content ([\n] !stream_breaker lyrics_content)*
+  end
+  rule lyrics2_stream
+    '=lyrics2' white_space? [\n] lyrics2_content ([\n] !stream_breaker lyrics2_content)*
+  end
+  rule stream_breaker
+    stream_switch / stream_breaking_setting
+  end
+  rule stream_breaking_setting
+  '-' white_space* ('part:' / 'movement:') setting_value comment?
+  end
+  rule line
+    stream_switch / comment / setting / lyrics / music
+  end
+  rule comment
+    '//' comment_content
+  end
+  rule comment_content
+    [^\n]* <CommentContent>
+  end
+  rule setting
+    white_space? '-' white_space* setting_key ':' setting_value comment? <Setting>
+  end
+  rule setting_key
+    [a-z0-9_]+ <Setting::Key>
+  end
+  rule setting_value
+    (!"\n" !"//" .)* <Setting::Value>
+  end
+  rule music
+    white_space? event* comment?
+  end
+  rule white_space
+    [ \t]+
+  end
+  rule event
+    (barline / duration / note / standalone_figures / rest / silence / phrasing / tie) white_space*
+  end
+  rule barline
+    ('?|' / ':|][|:' / '[|:' / ':|]' / [\|\.\:]+) <Barline>
+    # ('|' / '.' / '||' / '.|' / '..' / '|.|' / '|.' /
+    #  '.|') <Barline>
+  end
+  rule duration
+    duration_value / duration_macro
+  end
+  rule duration_value
+    number dots* multiplier? <DurationValue>
+  end
+  rule number
+    [0-9]+
+  end
+  rule dots
+    '.'+
+  end
+  rule multiplier
+    '*' number ('/' number)*
+  end
+  rule duration_macro
+    '{' duration_macro__expression '}'
+  end
+  rule duration_macro__expression
+    (macro_name / macro_event*) <DurationMacroExpression>
+  end
+  rule macro_event
+    (duration / note_placeholder / rest / silence / phrasing / tie) white_space*
+  end
+  rule macro_name
+    [a-zA-Z_] [a-zA-Z0-9_]*
+  end
+  rule note_placeholder
+    [_@] expression*
+  end
+  rule note
+    note_head octave* accidental_flag? figures? expression* <Note>
+  end
+  rule expression
+    (expression_shorthand / expression_longhand) <Note::Expression>
+  end
+
+  rule expression_shorthand
+    [\_\.`]
+  end
+  rule expression_longhand
+    '\\' [^\s\n]+
+  end
+  rule figures # bass figures
+    '<' figures_component? (white_space? figures_component)* '>'
+  end
+  rule figures_component
+    ('_' / [#bh] / ([1-9] [\+\-\!\\'`]*)) <FiguresComponent>
+  end
+  rule standalone_figures
+    duration_value? figures <StandAloneFigures>
+  end
+  rule rest
+    [rR] multiplier* <Rest>
+  end
+  rule silence
+    [s] multiplier* <Silence>
+  end
+  rule note_head
+    [a-g] accidental* <Note::Head>
+  end
+  rule accidental
+    [\+\-]+
+  end
+  rule octave
+    [\,']+ <Note::Octave>
+  end
+  rule accidental_flag
+    [\!\?] <Note::AccidentalFlag>
+  end
+  rule phrasing
+    beam_open / beam_close / slur_open / slur_close
+  end
+  rule beam_open
+    [\[] white_space* <Phrasing::BeamOpen>
+  end
+  rule beam_close
+    white_space* [\]] white_space* <Phrasing::BeamClose>
+  end
+  rule slur_open
+    [\(] white_space* <Phrasing::SlurOpen>
+  end
+  rule slur_close
+    white_space* [\)] white_space* <Phrasing::SlurClose>
+  end
+  rule tie
+    regular_tie / short_tie
+  end
+  rule regular_tie
+    '~' <Tie>
+  end
+  rule short_tie
+    '&' <ShortTie>
+  end
+  rule lyrics
+    '>' white_space* lyrics_content
+  end
+  rule lyrics_content
+    (!"\n" !"//" .)* <Lyrics>
+  end
+  rule lyrics2_content
+    (!"\n" !"//" .)* <Lyrics2>
+  end
+end

data/lib/lydown/parsing/nodes.rb

@@ -0,0 +1,191 @@
+module Lydown::Parsing
+  module Root
+    def _to_stream(element, stream)
+      if element.elements
+        element.elements.each do |e|
+          e.respond_to?(:to_stream) ? e.to_stream(stream) : _to_stream(e, stream)
+        end
+      end
+      stream
+    end
+
+    def to_stream(stream = [])
+      _to_stream(self, stream)
+      stream
+    end
+  end
+
+  module CommentContent
+    def to_stream(stream)
+      stream << {type: :comment, content: text_value.strip}
+    end
+  end
+
+  module Setting
+    include Root
+
+    def to_stream(stream)
+      level = (text_value =~ /^([\s]+)/) ? ($1.length / 2) : 0
+      @setting = {type: :setting, level: level}
+      _to_stream(self, stream)
+    end
+
+    def setting
+      @setting
+    end
+
+    def emit_setting(stream)
+      stream << @setting
+    end
+
+    module Key
+      def to_stream(stream)
+        parent.setting[:key] = text_value
+      end
+    end
+
+    module Value
+      def to_stream(stream)
+        parent.setting[:value] = text_value.strip
+        parent.emit_setting(stream)
+      end
+    end
+  end
+
+  module DurationValue
+    def to_stream(stream)
+      stream << {type: :duration, value: text_value}
+    end
+  end
+
+  module Note
+    include Root
+
+    def to_stream(stream)
+      note = {type: :note, raw: text_value}
+      _to_stream(self, note)
+      stream << note
+    end
+
+    module Head
+      def to_stream(note)
+        note[:head] = text_value
+      end
+    end
+
+    module Octave
+      def to_stream(note)
+        note[:octave] = text_value
+      end
+    end
+
+    module AccidentalFlag
+      def to_stream(note)
+        note[:accidental_flag] = text_value
+      end
+    end
+
+    module Expression
+      def to_stream(note)
+        note[:expressions] ||= []
+        note[:expressions] << text_value
+      end
+    end
+  end
+
+  module FiguresComponent
+    def to_stream(note)
+      note[:figures] ||= []
+      note[:figures] << text_value
+    end
+  end
+
+  module StandAloneFigures
+    include Root
+
+    def to_stream(stream)
+      note = {type: :stand_alone_figures}
+      _to_stream(self, note)
+      stream << note
+    end
+  end
+
+  module Phrasing
+    module BeamOpen
+      def to_stream(stream)
+        stream << {type: :beam_open}
+      end
+    end
+
+    module BeamClose
+      def to_stream(stream)
+        stream << {type: :beam_close}
+      end
+    end
+
+    module SlurOpen
+      def to_stream(stream)
+        stream << {type: :slur_open}
+      end
+    end
+
+    module SlurClose
+      def to_stream(stream)
+        stream << {type: :slur_close}
+      end
+    end
+  end
+
+  module Tie
+    def to_stream(stream)
+      stream << {type: :tie}
+    end
+  end
+
+  module ShortTie
+    def to_stream(stream)
+      stream << {type: :short_tie}
+    end
+  end
+
+  module Rest
+    def to_stream(stream)
+      rest = {type: :rest, raw: text_value, head: text_value[0]}
+      if text_value =~ /^R(\*([0-9]+))?$/
+        rest[:multiplier] = $2 || '1'
+      end
+
+      stream << rest
+    end
+  end
+
+  module Silence
+    def to_stream(stream)
+      stream << {type: :silence, raw: text_value, head: text_value[0]}
+    end
+  end
+
+  module DurationMacroExpression
+    def to_stream(stream)
+      stream << {type: :duration_macro, macro: text_value}
+    end
+  end
+
+  module Lyrics
+    def to_stream(stream)
+      stream << {type: :lyrics, content: text_value}
+    end
+  end
+
+  module Lyrics2
+    def to_stream(stream)
+      stream << {type: :lyrics, stream: :lyrics2, content: text_value}
+    end
+  end
+
+  module Barline
+    def to_stream(stream)
+      stream << {type: :barline, barline: text_value}
+    end
+  end
+end

data/lib/lydown/parsing.rb

@@ -0,0 +1,33 @@
+require 'polyglot'
+require 'treetop'
+
+require 'lydown/parsing/nodes'
+require 'lydown/parsing/lydown.treetop'
+
+# Treetop.load 'lydown/parsing/lydown'
+
+class LydownParser
+  def self.parse(source, opts = {})
+    parser = self.new
+    ast = parser.parse(source)
+    unless ast
+      error_msg = format_parser_error(source, parser, opts)
+      STDERR.puts error_msg
+      raise LydownError, error_msg
+    else
+      ast.to_stream
+    end
+  end
+
+  def self.format_parser_error(source, parser, opts)
+    msg = opts[:source_filename] ? "#{opts[:source_filename]}: " : ""
+    if opts[:nice_error]
+      msg << "Unexpected character at line #{parser.failure_line} column #{parser.failure_column}:\n"
+    else
+      msg << "#{parser.failure_reason}:\n"
+    end
+    msg << "  #{source.lines[parser.failure_line - 1]} #{' ' * parser.failure_column}^"
+
+    msg
+  end
+end

data/lib/lydown/rendering/base.rb

@@ -0,0 +1,24 @@
+module Lydown::Rendering
+  class Base
+    def initialize(event, work, stream, idx)
+      @event = event
+      @work = work
+      @stream = stream
+      @idx = idx
+    end
+
+    def translate
+      # do nothing by default
+    end
+
+    def next_event
+      idx = @idx + 1
+      while idx < @stream.size
+        e = @stream[idx]
+        return e if e && e[:type] != :comment
+        idx += 1
+      end
+      nil
+    end
+  end
+end

data/lib/lydown/rendering/comments.rb

@@ -0,0 +1,7 @@
+module Lydown::Rendering
+  class Comment < Base
+    def translate
+      @work.emit(:music, "\n%{#{@event[:content]}%}\n")
+    end
+  end
+end

data/lib/lydown/rendering/defaults.yml

@@ -0,0 +1,185 @@
+ly_dir: ./_ly
+pdf_dir: ./_pdf
+midi_dir: ./_midi
+lilypond_cmd: lilypond
+parts:
+  soprano:
+    clef: treble
+    beaming: manual
+    midi_instrument:  voice oohs
+  soprano1:
+    clef: treble
+    beaming: manual
+    midi_instrument:  voice oohs
+  soprano2:
+    clef: treble
+    beaming: manual
+    midi_instrument:  voice oohs
+  alto:
+    clef: treble
+    beaming: manual
+    midi_instrument: voice oohs
+  alto1:
+    clef: treble
+    beaming: manual
+    midi_instrument: voice oohs
+  alto2:
+    clef: treble
+    beaming: manual
+    midi_instrument: voice oohs
+  tenor:
+    clef: treble_8
+    beaming: manual
+    midi_instrument: voice oohs
+  tenor1:
+    clef: treble_8
+    beaming: manual
+    midi_instrument: voice oohs
+  tenor2:
+    clef: treble_8
+    beaming: manual
+    midi_instrument: voice oohs
+  tenore:
+    clef: treble_8
+    beaming: manual
+    midi_instrument: voice oohs
+  tenore1:
+    clef: treble_8
+    beaming: manual
+    midi_instrument: voice oohs
+  tenore2:
+    clef: treble_8
+    beaming: manual
+    midi_instrument: voice oohs
+  bass:
+    clef: bass
+    beaming: manual
+    midi_instrument: voice oohs
+  bass1:
+    clef: bass
+    beaming: manual
+    midi_instrument: voice oohs
+  bass2:
+    clef: bass
+    beaming: manual
+    midi_instrument: voice oohs
+  basso:
+    clef: bass
+    beaming: manual
+    midi_instrument: voice oohs
+  basso1:
+    clef: bass
+    beaming: manual
+    midi_instrument: voice oohs
+  basso2:
+    clef: bass
+    beaming: manual
+    midi_instrument: voice oohs
+  violin:
+    clef: treble
+    midi_instrument: violin
+  violon:
+    clef: treble
+    midi_instrument: violin
+  violino:
+    clef: treble
+    midi_instrument: violin
+  violin1:
+    clef: treble
+    midi_instrument: violin
+  violin2:
+    clef: treble
+    midi_instrument: violin
+  violon1:
+    clef: treble
+    midi_instrument: violin
+  violon2:
+    clef: treble
+    midi_instrument: violin
+  violino1:
+    clef: treble
+    midi_instrument: violin
+  violino2:
+    clef: treble
+    midi_instrument: violin
+  violini:
+    clef: treble
+    midi_instrument: violin
+  viola:
+    clef: alto
+    midi_instrument: viola
+  viola1:
+    clef: alto
+    midi_instrument: viola
+  viola2:
+    clef: alto
+    midi_instrument: viola
+  viola-da-gamba:
+    clef: bass
+    midi_instrument: viola
+  viola-da-gamba1:
+    clef: bass
+    midi_instrument: viola
+  viola-da-gamba2:
+    clef: bass
+    midi_instrument: viola
+  gamba1:
+    clef: alto
+    midi_instrument: viola
+  gamba2:
+    clef: alto
+    midi_instrument: viola
+  fagott:
+    clef: bass
+    midi_instrument: bassoon
+  fagotto:
+    clef: bass
+    midi_instrument: bassoon
+  violoncello:
+    clef: bass
+    midi_instrument: cello
+  cello:
+    clef: bass
+    midi_instrument: cello
+  continuo:
+    clef: bass
+    midi_instrument: cello
+    embed_figures: true
+  organo:
+    clef: bass
+    midi_instrument: church organ
+  oboe:
+    clef: treble
+    midi_instrument: oboe
+  oboe1:
+    clef: treble
+    midi_instrument: oboe
+  oboe2:
+    clef: treble
+    midi_instrument: oboe
+  flauto:
+    clef: treble
+    midi_instrument: recorder
+  flauto1:
+    clef: treble
+    midi_instrument: recorder
+  flauto2:
+    clef: treble
+    midi_instrument: recorder
+  flute:
+    midi_instrument: flute
+  flute1:
+    midi_instrument: flute
+  flute2:
+    midi_instrument: flute
+score:
+  order:
+    - [flauto1, flauto2, flauto3, flute1, flute2, flute3]
+    - [oboe1, oboe2, oboe3]
+    - [violino1, violino2, violino3, violin1, violin2, violin3]
+    - viola
+    - [gamba1, gamba2]
+    - [soprano, alto, tenore, basso]
+    - [soprano1, alto1, tenore1, basso1]
+    - [soprano2, alto2, tenore2, basso2]
+    - continuo

data/lib/lydown/rendering/figures.rb

@@ -0,0 +1,106 @@
+module Lydown::Rendering
+  module Figures
+    def add_figures(figures, value)
+      if @work['process/running_values']
+        @work['process/running_values'].each do |v|
+          silence = "s"
+          if v != @work['process/last_figures_value']
+            silence << v
+            @work['process/last_figures_value'] = v
+          end
+          @work.emit(:figures, "#{silence} ")
+        end
+        @work['process/running_values'] = []
+      end
+
+      figures = lilypond_figures(figures)
+      if value != @work['process/last_figures_value']
+        figures << value
+        @work['process/last_figures_value'] = value
+      end
+
+      @work.emit(:figures, "#{figures} ")
+      @work.emit(:figures, EXTENDERS_ON) if @event[:figure_extenders_on]
+      @work.emit(:figures, EXTENDERS_OFF) if @event[:figure_extenders_off]
+    end
+
+    def add_stand_alone_figures(figures)
+      if @work['process/running_values']
+        # for stand alone figures, we regard the stand alone figure as being
+        # aligned to the last note. Therefore we pop its value from
+        # running_values array.
+        @work['process/running_values'].pop
+      end
+      value =  @work['process/figures_duration_value'] || @work['process/last_value']
+      add_figures(figures, value)
+    end
+
+    def lilypond_figures(figures)
+      if figures
+        check_tenues(figures)
+        "<#{translate_figures(figures)}>"
+      else
+        "s"
+      end
+    end
+
+    def check_tenues(figures)
+      next_event = next_figures_event
+      unless next_event
+        # if next figures event is not found, check if there is a tenue, and
+        # add extenders off flag
+        @event[:figure_extenders_off] = true if @event[:tenue]
+        return
+      end
+
+      if next_event[:figures]
+        next_event[:tenue] = next_event[:figures].include?('_')
+        if next_event[:tenue] && !@event[:tenue]
+          @event[:figure_extenders_on] = true
+        elsif !next_event[:tenue] && @event[:tenue]
+          @event[:figure_extenders_off] = true
+        end
+
+        # transform underscores into figure components
+        next_event[:figures].each_with_index do |component, idx|
+          next_event[:figures][idx] = @event[:figures][idx] if component == '_'
+        end
+      end
+    end
+
+    def translate_figures(figures)
+      figures.map {|n| n.gsub(ALTERATION_RE) {|a| ALTERATION[a]}}.join(' ')
+    end
+
+    ALTERATION_RE = /[#bh`']/
+    ALTERATION = {
+      '#' => '_+',
+      'b' => '_-',
+      'h' => '_!',
+      '`' => '\\\\',
+      "'" => "/"
+    }
+    EXTENDERS_ON = "\\bassFigureExtendersOn "
+    EXTENDERS_OFF = "\\bassFigureExtendersOff "
+
+    HIDDEN_FORMAT = "\\once \\override BassFigure #'implicit = ##t"
+
+    def next_figures_event
+      idx = @idx + 1
+      while idx < @stream.size
+        event = @stream[idx]
+        case event[:type]
+        when :setting
+          if ['part', 'movement'].include? event[:key]
+            return nil
+          end
+        when :note
+          return event if event[:figures]
+        when :stand_alone_figures
+          return event
+        end
+        idx += 1
+      end
+    end
+  end
+end

data/lib/lydown/rendering/lyrics.rb

@@ -0,0 +1,14 @@
+module Lydown::Rendering
+  class Lyrics < Base
+    def translate
+      value = lilypond_lyrics(@event[:content])
+      @work.emit(@event[:stream] || :lyrics, value, ' ')
+    end
+
+    def lilypond_lyrics(lyrics)
+      lyrics.
+        gsub(/_+/)  {|m| " __ #{'_ ' * (m.size - 1)}"}.
+        gsub(/\-+/) {|m| " -- #{'_ ' * (m.size - 1)}"}
+    end
+  end
+end