From: Graham Percival <graham@percival-music.ca>
Date: Thu, 29 Mar 2007 01:51:40 +0000 (-0700)
Subject: Automagic update from LSR.
X-Git-Tag: release/2.11.22-1~17^2^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=df71f910a6e89a7cb06dde68961aeb9db7ddedc1;p=lilypond.git

Automagic update from LSR.
---

diff --git a/input/lsr/expressive/tempo-mark-scheme-function.ly b/input/lsr/expressive/tempo-mark-scheme-function.ly
new file mode 100644
index 0000000000..cc93964d54
--- /dev/null
+++ b/input/lsr/expressive/tempo-mark-scheme-function.ly
@@ -0,0 +1,24 @@
+\version "2.10.12"
+
+\header { texidoc = "
+This is a Scheme function which prints a tempo mark such as
+    Fast (♩= 222)
+" }
+
+tempoMark =
+    #(define-music-function (parser location prependText notevalue appendText) (string? string? string?)
+        #{
+            \mark \markup
+            { \line { $prependText " (" \fontsize #-2 \general-align #Y #DOWN \note #$notevalue #1 $appendText ) } }
+        #})
+
+theMusic =
+{
+    \once \override Score.RehearsalMark #'self-alignment-X = #-1
+    \time 4/4 \tempoMark "Fast" "4" "= 220-222" s1    
+}
+
+\score
+{
+    \theMusic
+}