% Test to show R interactions

%Normally when a note length is not specified it takes the length
%of the preceeding rest
%When compressible rests (R*) are followed by a note 
%whose length is not specified the note gets the total length of the 
%preceeding rests.  This produces extra blank bars which may be 
%invisible but which still spoil the bar numbering


\version "2.18.0"

print-all-headers = #"t"
#(set-default-paper-size "a4")
#(set-global-staff-size 21)

\header {
  title = "Test of R* followed by undefined note length"
}

testI = {\time 4/4
         \override Score.BarNumber.break-visibility = ##(#t #t #t)
         R1*2
         c'~
         c'8 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 
         }
\score {   
\new Staff = "test1" 
<< 
 \new Voice = "testI"  {  \testI
                        }
                        >> 
 \header {
   piece = "Test I. Wrong, extra blank bar and bar numbering doesn't match music"
      }
}

testII = { \time 4/4
             \override Score.BarNumber.break-visibility = ##(#t #t #t)
         \compressFullBarRests
         R1*2
         c'~
         c'8 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16          
}
\score { 
\new Staff = "test1I" 
<< 
 \new Voice = "testII"  {  \testII
                        } 
                        >> 
 \header {
  piece = "Test II. Still wrong, no extra bar but bar numbering wrong"
      }
}

testIII = { \time 4/4
            \override Score.BarNumber.break-visibility = ##(#t #t #t)
         r1 
         r1
         c'~
         c'8 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 
}
\score { 
\new Staff = "testIII" 
<< 
 \new Voice = "testIII"  {  \testIII
                        } 
                        >> 
 \header {
  piece = "Test III. Correct, noncompressible bars' rest, undefined note length"
      }
}

testIV = { \time 4/4
            \override Score.BarNumber.break-visibility = ##(#t #t #t)
         R1*2
         c'1~
         c'8 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 c'16 
}
\score { 
\new Staff = "test1V" 
<< 
 \new Voice = "testIV"  { \testIV
                        } 
                        >> 
 \header {
  piece = "Test IV. Correct, compressible rests with semibreve length defined"
      }
}