input/regression/drums.ly

   1 % tests drum notation and midi-drums.
   2 % see ly/drumpitch-init.ly for list of instruments and paper-kits.
   3 %     scm/midi.scm for list of midi-drumkits.
   4
   5 \header {
   6 texidoc = "Drum notation, although kludgy, should work. Though, << chord >> does not work because the chords need to be split into threads."
   7 }
   8
   9 \include "drumpitch-init.ly"
  10
  11 \version "1.7.9"
  12
  13 drh = \notes { cymc4.^"crash" hhc16^"h.h." hh \repeat "unfold" 5 {hhc8 hho hhc8 hh16 hh} hhc4 r4 r2 }
  14 drl = \notes {\repeat "unfold" 3 {bd4 sn8 bd bd4 < bd ss > } bd8 tommh tommh bd toml toml bd tomfh16 tomfh }
  15 timb = \notes \repeat "unfold" 2 {timh4 ssh timl8 ssh r timh r4 ssh8 timl r4 cb8 cb}
  16
  17 \score { \repeat "volta" 2
  18  <
  19   \context TwoLineStaff=timbst \notes <
  20     \property Staff.instrument="timbales"
  21     \clef "percussion"
  22     \apply #(drums->paper 'timbales) \timb
  23   >
  24   \context Staff=drumst \notes <
  25     \property Staff.instrument="drums"
  26     \clef "percussion"
  27     \apply #(drums->paper 'drums) <
  28       \context Voice=voa {\stemUp \drh }
  29       \context Voice=vob {\stemDown \drl }
  30     >
  31   >
  32  >
  33  \paper {
  34    \translator {
  35       \StaffContext
  36       \consists Instrument_name_engraver
  37       Script \override #'padding = #0.5
  38    }
  39    \translator {
  40       \StaffContext
  41       \name TwoLineStaff
  42       \alias Staff
  43       \consists Instrument_name_engraver
  44       StaffSymbol \override #'line-count = #2
  45       BarLine \override #'bar-size = #2
  46    }
  47    \translator {
  48       \ScoreContext
  49       \accepts TwoLineStaff
  50    }
  51  }
  52 }
  53
  54 \score { \repeat "unfold" 2
  55   \context Staff \notes <
  56     \property Staff.instrument="drums"
  57     \timb
  58     \drh
  59     \drl
  60   >
  61   \midi{ \tempo 4=120 }
  62 }
  63
  64 %% new-chords-done %%