add lyricMelismaAlignment property for softcoding syllable alignment

on melisma starts.

diff --git a/lily/lyric-engraver.cc b/lily/lyric-engraver.cc
index ae0464f97dd29fea92496270596ac2914c2473ee..88b954f4fac2b299b0e94f4936300c299f057681 100644 (file)
--- a/lily/lyric-engraver.cc
+++ b/lily/lyric-engraver.cc
@@ -151,7 +151,7 @@ Lyric_engraver::stop_translation_timestep ()
            {
              text_->set_parent (head, X_AXIS);
              if (melisma_busy (voice))
-               text_->set_property ("self-alignment-X", scm_from_int (LEFT));
+               text_->set_property ("self-alignment-X", get_property("lyricMelismaAlignment"));
            }
          else
            {
@@ -169,5 +169,5 @@ Lyric_engraver::stop_translation_timestep ()
 ADD_TRANSLATOR (Lyric_engraver,
                /* doc */ "",
                /* create */ "LyricText",
-               /* read */ "",
+               /* read */ "lyricMelismaAlignment",
                /* write */ "");

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index e99697a4d49686b2c87142a3562b05a3bfca3e1c..58ce25960a62fdd48dbadc1038befe634f3f0b2f 100644 (file)
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -537,6 +537,7 @@ automatically when an output definition (a @code{\score} or
   stringNumberOrientations = #'(up down)
   strokeFingerOrientations = #'(right)
   
+  lyricMelismaAlignment = #LEFT
   markFormatter = #format-mark-letters
   rehearsalMark = #1
   subdivideBeams = ##f

diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index fd840c0457356e0a9882c1cbd22dbfe4849395c6..a2069f65fbf94653c29bcad961b06889395b6485 100644 (file)
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -279,6 +279,7 @@ containing @code{(@var{step} . @var{alter})} or @code{((@var{octave} .
 0 to@tie{}6 and @var{alter} a fraction, denoting alteration.  For
 alterations, use symbols, e.g. @code{keySignature = #`((6 . ,FLAT))}.")
 
+     (lyricMelismaAlignment ,ly:dir? "Alignment to use for a melisma syllable.")
 
      (majorSevenSymbol ,markup? "How should the major 7th be formatted
 in a chord name?")