* Documentation/topdocs/NEWS.tely (Top): doc new feature.

* input/regression/tie-chord-untied.ly: new file.

* lily/tie-engraver.cc (acknowledge_note_head): check 'untied property.

* scm/define-music-properties.scm (all-music-properties): add
'untied property.

diff --git a/ChangeLog b/ChangeLog
index a478c2616d334e2a82cf40083cb83d0662450b15..31c7ca876b262b3a1a8df3b0cfb06e24f43fe728 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,14 @@
 2006-08-22  Han-Wen Nienhuys  <hanwen@lilypond.org>
 
+       * Documentation/topdocs/NEWS.tely (Top): doc new feature.
+
+       * input/regression/tie-chord-untied.ly: new file.
+
+       * lily/tie-engraver.cc (acknowledge_note_head): check 'untied property.
+
+       * scm/define-music-properties.scm (all-music-properties): add
+       'untied property.
+
        * buildscripts/mutopia-index.py (allfiles): look for .ly rather
        than .ly.txt.
        (headertext_nopics): sanitize no-examples text.

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index 3c98cbdd099acb262fc4ee47e827516227da065c..a38dc07ef366c13685ca29ec9578a4e682f24dcd 100644 (file)
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -66,10 +66,19 @@ which scares away people.
 
 @end ignore
 
+@item Ties may be switched off for individual notes in tied chords,
+
+@lilypond[ragged-right,relative,fragment]
+<c e \untied g b> ~  < c e g b >
+@end lilypond
+
+This feature was sponsored by Steve Doonan.
+
 @item Lyric extenders now have tunable padding.
 
 This feature was sponsored by David Griffel
 
+
 @item
 Instrument changes are better supported: names in the margin can be
 changed half-way during a staff, and cues are printed automatically.

diff --git a/input/regression/tie-chord-untied.ly b/input/regression/tie-chord-untied.ly
new file mode 100644 (file)
index 0000000..d810cdd
--- /dev/null
+++ b/input/regression/tie-chord-untied.ly
@@ -0,0 +1,17 @@
+
+\header
+{
+
+  texidoc = "With the @code{untied} music function, notes may be
+  tagged as untied in chords."
+
+}
+\version "2.9.15"
+
+\paper {
+  ragged-right = ##t
+}
+
+\relative {
+  <c e \untied g b> ~  < c e g b >
+}

diff --git a/lily/tie-engraver.cc b/lily/tie-engraver.cc
index 3496686fffcf40341d823094ffc8483fab298282..17a6f3fc3ae6343bb0577ac69a99ac3586275a05 100644 (file)
--- a/lily/tie-engraver.cc
+++ b/lily/tie-engraver.cc
@@ -111,6 +111,7 @@ Tie_engraver::acknowledge_note_head (Grob_info i)
        maybe should check positions too.
       */
       if (right_ev && left_ev
+         && !to_boolean (left_ev->get_property ("untied"))
          && ly_is_equal (right_ev->get_property ("pitch"),
                          left_ev->get_property ("pitch")))
        {

diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly
index 7aa6dede0834eeafcf81d249ab2fbf1b10af49b3..1fb36ffaadce209a9f37dae6c1b540ee76622d61 100644 (file)
--- a/ly/music-functions-init.ly
+++ b/ly/music-functions-init.ly
@@ -362,11 +362,6 @@ pitchedTrill =
           (display sec-note-events)))
 
      main-note))
-
-
-
-
-
    
 parenthesize =
 #(define-music-function (parser loc arg) (ly:music?)
@@ -571,3 +566,17 @@ tag = #(define-music-function (parser location tag arg)
 unfoldRepeats =
 #(define-music-function (parser location music) (ly:music?)
                  (unfold-repeats music))
+
+untied =
+#(define-music-function (parser location note) (ly:music?)
+   "Specify that @var{note} should not have ties. " 
+   (set! (ly:music-property note 'untied) #t)
+   note)
+
+withMusicProperty =
+#(define-music-function (parser location sym val music) (symbol? scheme? ly:music?)
+   "Set @var{sym} to @var{val} in @var{music}."
+
+   (set! (ly:music-property music sym) val)
+   music)
+

diff --git a/scm/define-music-properties.scm b/scm/define-music-properties.scm
index dc4bc2c0f7f76c7fa77f393a3e330c506a4692b7..8e0bab912f445743b1c934711c837a5581d532a9 100644 (file)
--- a/scm/define-music-properties.scm
+++ b/scm/define-music-properties.scm
@@ -124,6 +124,6 @@ translation property")
      (void ,boolean? "If this property is #t, then the music expression is to be
 discarded by the toplevel music handler.")
      (what ,symbol? "What to change for auto-change. FIXME, naming")
-
+     (untied ,boolean? "Set for note in chord that should not be tied.")
      (untransposable ,boolean? "If set, this music is not transposed.")
      )))