* 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.
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.
@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.
--- /dev/null
+
+\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 >
+}
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")))
{
(display sec-note-events)))
main-note))
-
-
-
-
-
parenthesize =
#(define-music-function (parser loc arg) (ly:music?)
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)
+
(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.")
)))