From 7ae4fd90e56ff0223b940a1d276a585e5a323fc8 Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Thu, 8 Jun 2006 10:33:39 +0000 Subject: [PATCH] \applyMusic to music functions update, thanks Michael! --- ChangeLog | 5 +++++ Documentation/user/basic-notation.itely | 2 ++ input/test/smart-transpose.ly | 15 +++++++++------ 3 files changed, 16 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 531ce4f8cd..8f951cc8de 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2006-06-08 Graham Percival + + * input/test/ smart-transpose.ly, reverse-music.ly: + \applyMusic to music functions update, thanks Michael! + 2006-06-07 Graham Percival * input/test/ add-staccato.ly, add-text-script.ly, diff --git a/Documentation/user/basic-notation.itely b/Documentation/user/basic-notation.itely index e19e01ef24..f4590459a8 100644 --- a/Documentation/user/basic-notation.itely +++ b/Documentation/user/basic-notation.itely @@ -935,6 +935,8 @@ second voice in the first @code{<< \\ >>} construct is effective in the second @code{<< \\ >>}, and the voice is tied across the two constructs. +@cindex note heads, styles + @lilypond[quote,verbatim,fragment] \new Staff \relative c' { \override NoteHead #'style = #'cross diff --git a/input/test/smart-transpose.ly b/input/test/smart-transpose.ly index b1296b3948..d97359157c 100644 --- a/input/test/smart-transpose.ly +++ b/input/test/smart-transpose.ly @@ -1,5 +1,5 @@ - -\version "2.7.39" +\version "2.9.7" +\sourcefilename "smart-transpose.ly" \header { texidoc="@cindex Smart Transpose @@ -9,7 +9,6 @@ to have the minimum number of accidentals. In that case, ``Double accidentals should be removed, as well as E-sharp (-> F), bC (-> B), bF (-> E), B-sharp (-> C).'', as proposed by a request for a new feature. In this manner, the most natural enharmonic notes are chosen in this example. - " } % @@ -66,14 +65,18 @@ In this manner, the most natural enharmonic notes are chosen in this example. music = \relative c' { c4 d e f g a b c } +naturaliseMusic = +#(define-music-function (parser location m) + (ly:music?) + (naturalise m)) + \score { \context Staff { \transpose c ais \music - \applyMusic #naturalise \transpose c ais \music + \naturaliseMusic \transpose c ais \music \transpose c deses \music - \applyMusic #naturalise \transpose c deses \music + \naturaliseMusic \transpose c deses \music } \layout { ragged-right = ##t} } - -- 2.39.5