\version "2.16.2"

\paper {
  % Remove the indentation of the first system
  indent = 0
  ragged-last = #f
  % Set the number of systems to prevent line breaks in the middle of a pattern
}

% Define the pattern.
% This could also be done using a Scheme function,
% but I want to keep it simple for this example.
pattern = { 
  c2[ r r c] r r r |
  c2[ r r c r r c] |
  c2[ r r c r c] r |
  c2[ r r c r c c] 
}

I =  {
  % Turn stems upwards (cosmetic modification)
  \stemUp  
  % Set initial time signature
  \time 7/2
  %
  \scaleDurations 1/16
%  \set proportionalNotationDuration = #(ly:make-moment 1 2)
  % Use the pattern
  \pattern
}

II =  {
  \stemUp  
  \time 7/2
  \set DrumStaff.timeSignatureFraction = 7/4
  \shiftDurations #1 #0
  \scaleDurations 1/8
  \pattern
}

III =  {
  \stemUp  
  \time 7/2
  \set DrumStaff.timeSignatureFraction = 7/8
  \shiftDurations #2 #0
  \scaleDurations 1/4
  \pattern
}

IV =  {
  \stemUp  
  \time 7/2
  \set DrumStaff.timeSignatureFraction = 7/16
  \shiftDurations #3 #0
  \scaleDurations 1/2
  \pattern
}

V =  {
  \stemUp  
  \time 7/2
  \set DrumStaff.timeSignatureFraction = 7/32
  %\scaleDurations 1/4
  \shiftDurations #4 #0
  \pattern
}


\layout {
  \context {
    \Score
    \remove Timing_translator
    % remove connecting line at system start
    \override SystemStartBar #'stencil = ##f
  }
  \context {
    \DrumStaff
      \consists Timing_translator
      \override StaffSymbol #'line-count = #1
  }
}

\score {
  <<
    \new DrumStaff \drummode { \I }
    \new DrumStaff \drummode { \II }
    \new DrumStaff \drummode { \III }
    \new DrumStaff \drummode { \IV }
    \new DrumStaff \drummode { \V }
  >>
  \layout { }
}