input/test/bar-lines-lyric-only.ly

   1 \version "1.7.18"
   2 \header {
   3
   4 texidoc = "@cindex Bar Line Lyric Only
   5 You can move around Bar_engraver and
   6 Span_bar_engraver if you want bar lines on lyrics.
   7 "  }
   8
   9
  10 \score {
  11 \notes \relative c' \context StaffGroup = groupie <
  12  \context Staff = SA { c1 c1 c1}
  13  \context Lyrics \lyrics <
  14   { bla1 die bla }
  15   { foo bar foo }
  16   { foo bar foo }
  17  >
  18  \context Staff = SB { c1 c1 c1}
  19
  20  >
  21
  22
  23 \paper  {
  24         raggedright = ##t
  25 \translator {
  26   \LyricsVoiceContext
  27   \consists Bar_engraver
  28   % need procedure, since lyrics doesn't have a staff_sym engraver.
  29   BarLine \override #'bar-size-procedure = #(lambda (x) 3.0)
  30 }
  31
  32 \translator {
  33   \LyricsContext
  34   \consists "Span_bar_engraver"
  35 }
  36 \translator{
  37   \StaffGroupContext
  38   \remove "Span_bar_engraver"
  39 }
  40 }}
  41 %% new-chords-done %%