\version "2.19.17"
\include "notation-snippets/shaping-bezier-curves/shapeII.ily"

\new Staff {
  \clef bass
  \time 3/4
  \tuplet 6/4 4 {
    \shapeII #'((h)(p 45 0.5)(p 43 0.3)(h)) Slur
      \once \shapeII #'(()(ap 95 0.8)(ap 10 0.3)()) Slur
      | g,16( bes g') g'( bes g,)    
      g,( bes g') g'( bes g,)    
      \once \shapeII #'(()()(ap 45 0.5)()) Slur
      g,( c' as') as'( c' g,)
      \time 2/4
      \once \shapeII #'(()(ap 92 0.8)(ap 45 0.3)()) Slur
      | g,( cis' a'!) a'( cis' g,)
      \once \shapeII #'(()()(ap 50 0.5)()) Slur
      g,( d' bes') bes'( d' g,)
    }    
    \set subdivideBeams = ##t
    | c,!32( g, es c'!) c'( es g, c,) 
    d,( a, fis d') d'( fis a, d,)
    \unset subdivideBeams
    \time 3/4 
    \tuplet 6/4 4 {
      | g,16( g,_0 d_0) d( g, g,)
      \repeat unfold 3 {
        g,16( g, d) d( g, g,)
      }
      g,(^0 bes a)^0 a( bes g,)
    }
}