From df71f910a6e89a7cb06dde68961aeb9db7ddedc1 Mon Sep 17 00:00:00 2001 From: Graham Percival Date: Wed, 28 Mar 2007 18:51:40 -0700 Subject: [PATCH] Automagic update from LSR. --- .../expressive/tempo-mark-scheme-function.ly | 24 +++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 input/lsr/expressive/tempo-mark-scheme-function.ly 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 +} -- 2.39.5