input/lsr/expressive/tempo-mark-scheme-function.ly

   1 \version "2.10.12"
   2
   3 \header { texidoc = "
   4 This is a Scheme function which prints a tempo mark such as
   5     Fast (♩= 222)
   6 " }
   7
   8 tempoMark =
   9     #(define-music-function (parser location prependText notevalue appendText) (string? string? string?)
  10         #{
  11             \mark \markup
  12             { \line { $prependText " (" \fontsize #-2 \general-align #Y #DOWN \note #$notevalue #1 $appendText ) } }
  13         #})
  14
  15 theMusic =
  16 {
  17     \once \override Score.RehearsalMark #'self-alignment-X = #-1
  18     \time 4/4 \tempoMark "Fast" "4" "= 220-222" s1
  19 }
  20
  21 \score
  22 {
  23     \theMusic
  24 }