input/regression/metronome-mark-formatter.ly

   1 \version "2.17.27"
   2
   3 \header {
   4   texidoc = "@code{metronomeMarkFormatter} supports
   5 all note head styles and flags styles. Setting @code{font-name} for
   6 @code{MetronomeMark} does not disturb the glyphs for note-head and flag.
   7 "
   8 }
   9
  10 \paper {
  11         ragged-right = ##f
  12         indent = 30
  13 }
  14
  15 mus =
  16 \relative c'' {
  17         \tempo "Allegro" 8=120-140
  18         a8 b c d a b c d
  19         \override Score.MetronomeMark.font-name = "Times New Roman"
  20         \tempo "Allegro" 8=140
  21         a b c d a b c d
  22 }
  23
  24 %% Some Examples:
  25 \score {
  26   \new Staff
  27   \with {
  28           instrumentName = "default"
  29   }
  30   \mus
  31   \layout {}
  32 }
  33
  34 \score {
  35   \new Staff
  36   \with {
  37           instrumentName =
  38             \markup \column { "default-note-head" "old-straight-flag" }
  39   }
  40   \mus
  41   \layout {
  42     \context {
  43       \Score
  44       \override MetronomeMark.flag-style = #'old-straight-flag
  45     }
  46   }
  47 }
  48
  49 \score {
  50   \new Staff
  51   \with {
  52           instrumentName =
  53             \markup \column { "default-note-head" "modern-straight-flag" }
  54   }
  55   \mus
  56   \layout {
  57     \context {
  58       \Score
  59       \override MetronomeMark.flag-style = #'modern-straight-flag
  60     }
  61   }
  62 }
  63
  64 \score {
  65   \new Staff
  66   \with {
  67           instrumentName =
  68             \markup \column { "default-note-head" "flat-flag" }
  69   }
  70   \mus
  71   \layout {
  72     \context {
  73       \Score
  74       \override MetronomeMark.flag-style = #'flat-flag
  75     }
  76   }
  77 }
  78
  79 \score {
  80   \new Staff
  81   \with {
  82           instrumentName =
  83             \markup \column { "diamond-note-head" "modern-straight-flag" }
  84   }
  85   \mus
  86   \layout {
  87     \context {
  88       \Score
  89       \override MetronomeMark.style = #'diamond
  90       \override MetronomeMark.flag-style = #'modern-straight-flag
  91     }
  92   }
  93 }
  94
  95 \score {
  96   \new MensuralStaff
  97   \with {
  98           instrumentName =
  99             \markup \column { "mensural-note-head" "mensural-flag" }
 100   }
 101   \mus
 102   \layout {
 103     \context {
 104       \Score
 105       \override MetronomeMark.style = #'mensural
 106     }
 107   }
 108 }