From 7ae4fd90e56ff0223b940a1d276a585e5a323fc8 Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
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 <gpermus@gmail.com>
+
+ * input/test/ smart-transpose.ly, reverse-music.ly:
+ \applyMusic to music functions update, thanks Michael!
+
2006-06-07 Graham Percival <gpermus@gmail.com>
* 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