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
  20         % A comma is required
  21         % for font name "Times New Roman"'s explicit termination.
  22         % If there is no comma, Pango interpret "Times New Roman" as
  23         % "Times New" family with "Roman" style.
  24         \override Score.MetronomeMark.font-name = "Times New Roman,"
  25         \tempo "Allegro" 8=140
  26         a b c d a b c d
  27 }
  28
  29 %% Some Examples:
  30 \score {
  31   \new Staff
  32   \with {
  33           instrumentName = "default"
  34   }
  35   \mus
  36   \layout {}
  37 }
  38
  39 \score {
  40   \new Staff
  41   \with {
  42           instrumentName =
  43             \markup \column { "default-note-head" "old-straight-flag" }
  44   }
  45   \mus
  46   \layout {
  47     \context {
  48       \Score
  49       \override MetronomeMark.flag-style = #'old-straight-flag
  50     }
  51   }
  52 }
  53
  54 \score {
  55   \new Staff
  56   \with {
  57           instrumentName =
  58             \markup \column { "default-note-head" "modern-straight-flag" }
  59   }
  60   \mus
  61   \layout {
  62     \context {
  63       \Score
  64       \override MetronomeMark.flag-style = #'modern-straight-flag
  65     }
  66   }
  67 }
  68
  69 \score {
  70   \new Staff
  71   \with {
  72           instrumentName =
  73             \markup \column { "default-note-head" "flat-flag" }
  74   }
  75   \mus
  76   \layout {
  77     \context {
  78       \Score
  79       \override MetronomeMark.flag-style = #'flat-flag
  80     }
  81   }
  82 }
  83
  84 \score {
  85   \new Staff
  86   \with {
  87           instrumentName =
  88             \markup \column { "diamond-note-head" "modern-straight-flag" }
  89   }
  90   \mus
  91   \layout {
  92     \context {
  93       \Score
  94       \override MetronomeMark.style = #'diamond
  95       \override MetronomeMark.flag-style = #'modern-straight-flag
  96     }
  97   }
  98 }
  99
 100 \score {
 101   \new MensuralStaff
 102   \with {
 103           instrumentName =
 104             \markup \column { "mensural-note-head" "mensural-flag" }
 105   }
 106   \mus
 107   \layout {
 108     \context {
 109       \Score
 110       \override MetronomeMark.style = #'mensural
 111       \override MetronomeMark.flag-style = #'mensural
 112     }
 113   }
 114 }