\version "2.19.17"
\language "english"

global = {
  \key d \major
  \numericTimeSignature
  \time 12/8
  \tempo 4.=72
}
ncShift = #(define-music-function (parser location am) (number?)
             #{ \once\override NoteColumn.force-hshift = $am #})
x-stencil = #(lambda (grob) (grob-interpret-markup grob (markup "|")))
dotShift = #(define-music-function (parser location n) (number?)
              #{ \once\override DotColumn.extra-spacing-width = #'(+inf.0 . -inf.0)
                 \once\override Dots.extra-offset = #`(,n . 0)
                 %\once\override Dots.stencil = #x-stencil
              #})

right =  {
  \global
  << { g'2.-\tweak TieColumn.tie-configuration #'((0 . 1)) ~ 4 } \\ { b8 d' g' b' g' d' b4 } >>
  r8\fermata r4. |  %m47
}

left =  {
  \global

  << { \dotShift -2.4 d,4.~ 4 a,8 <fs,fs>2. } \\ { \ncShift 1 d,2. s2. } >> |%m07
  << { b,4.~ 4 b8 s4 } \\ { \ncShift 1 \dotShift -2.5 b,2.~ <b,a>4 } >>  r8 r4.|%m08
  << { \dotShift -2.3 <e g>2.~ 4 } \\ { \ncShift 1 e4. b,4. e,4 } >> r8 r4. |%m09
  \key ef\major
  << { \dotShift -2.3 bf2. c'4. bf4. } \\ { \ncShift 1 bf4. g4. ef2. } >> |%m28
  \key g\major
  << { g,4.~ 4 d8 b4 } \\ { \ncShift 1 \dotShift -2.5 g,2.~ 4 } >> r8 r4. |%m45
}



\new Staff = "right" \right

\score {
  \new Staff = "left" { \clef bass \left }
  \layout {
    \context {
      \Staff
      \remove "Dot_column_engraver"
    }
    \context {
      \Voice
      \consists "Dot_column_engraver"
    }
  }
}