prelude_test.ly

\version "2.19.59"

cright = \change Staff = "right"
cleft = \change Staff = "left"

vil = {
  \change Staff = "left"
  \override Rest.staff-position = 4
}
vir = {
  \change Staff = "right"
  \override Rest.staff-position = 0
}

%{setBeamMode = {
  \override Beam.details =
  #'(
      (secondary-beam-demerit . 10)
      (stem-length-demerit-factor . 5)
      (region-size . 2)
      (beam-eps . 0.001)
      (stem-length-limit-penalty . 5000)
      (damping-direction-penalty . 800)
      (hint-direction-penalty . 20)
      (musical-direction-factor . 400)
      (ideal-slope-factor . 10)
      (collision-penalty . 500)
      (collision-padding . 0.35)
      (round-to-zero-slope . 0.02)
    )
  \override Beam.damping = 1
  %\override Beam.beamed-stem-shorten = #'(1.0 0.5 0.25)
  \override Stem.length-fraction = #(magstep -2)
}%}
setBeamMode = {}

tweakBeam = 
  #(define-music-function
    (positions thickness fraction) (pair? number? number?)
    #{
      \once \override Beam.positions = $positions
      \once \override Beam.beam-thickness = $thickness
      \once \override Beam.length-fraction = $fraction
    #})

ignoreCollision = \once \override NoteColumn.ignore-collision = ##t

\score {
  \new PianoStaff <<
    \new Staff = "right" {
      \override Score.StaffSymbol.layer = 3
      \relative {
        \time 2/8
        << \new Voice \relative {
          \voiceThree \setBeamMode \omit TupletBracket \omit TupletNumber
          s8 \tuplet 3/2 { \stemDown e'16 c \cleft \stemUp a } | s8 \tuplet 3/2 { \cright \stemDown f'16 d \cleft \stemUp a } |
          s8 \tuplet 3/2 { \cright \stemDown e'16 c \cleft \stemUp a } | s8 \tuplet 3/2 { \cright \stemDown g'16 e \cleft \stemUp c } |
          s8 \tuplet 3/2 { \cright \tweakBeam #'(2 . -0.3) 0.3 0.6 c'16 a \ignoreCollision d, } | s8 \tuplet 3/2 { \tweakBeam #'(2 . -0.3) 0.3 0.6 c'16 a \ignoreCollision d, } |
          s8 \tuplet 3/2 { \tweakBeam #'(2 . -0.3) 0.4 0.8 b'16 g \ignoreCollision d } | s8 \tuplet 3/2 { \stemDown f16 d \cleft \stemUp a } |

          s8 \tuplet 3/2 { \cright \stemDown e'16 c \cleft \stemUp a } | s8 \tuplet 3/2 { \cright \stemDown f'16 d \cleft \stemUp a } |
          s8 \tuplet 3/2 { \cright \stemDown e'16 c \cleft \stemUp a } | s8 \tuplet 3/2 { \cright \stemDown g'16 e \cleft \stemUp c } |
          s8 \tuplet 3/2 { \cright \tweakBeam #'(1.3 . -0.3) 0.4 0.8 a'16 f \ignoreCollision d } | s8 \tuplet 3/2 { \tweakBeam #'(2.2 . 0) 0.4 0.8 c'16 g \ignoreCollision e } |
          s8 \tuplet 3/2 { \tweakBeam #'(2.7 . 0.7) 0.48 1 c'16 a \ignoreCollision f } | s8 \tuplet 3/2 { \tweakBeam #'(2.2 . 0) 0.4 0.8 c'16 g \ignoreCollision e } |

          s8 \tuplet 3/2 { \tweakBeam #'(2.7 . 0.7) 0.48 1 c'16 a \ignoreCollision f } | s8 \tuplet 3/2 { \tweakBeam #'(3.0 . 1.3) 0.48 1 d'16 b \ignoreCollision g } |
          s8 \tuplet 3/2 { \tweakBeam #'(3.5 . 1.8) 0.48 1 e'16 c \ignoreCollision a } | s8 \tuplet 3/2 { \tweakBeam #'(4.1 . 2.2) 0.4 0.8 g'16 d \ignoreCollision b } |
          s8 \tuplet 3/2 { \tweakBeam #'(4.3 . 2.7) 0.48 1 g'16 e \ignoreCollision c } | s8 \tuplet 3/2 { \tweakBeam #'(3.5 . 1.8) 0.48 1 dis16 c \ignoreCollision a } |
          s8 \tuplet 3/2 { \tweakBeam #'(3.0 . 1.3) 0.4 0.8 e'16 c \ignoreCollision g } | s8 \tuplet 3/2 { \tweakBeam #'(2 . -0.3) 0.4 0.8 b16 g \ignoreCollision d } |

          s8 \tuplet 3/2 { \stemDown e16 c \cleft \stemUp a } | s8 \tuplet 3/2 { \cright \tweakBeam #'(2 . -0.3) 0.4 0.8 b'16 g \ignoreCollision d } |
          s8 \tuplet 3/2 { \stemDown e16 c \cleft \stemUp a } | s8 \tuplet 3/2 { \cright \tweakBeam #'(1.9 . -0.4) 0.4 0.8 b'16 g \ignoreCollision d } |

          s4*4
          \cleft \override NoteColumn.ignore-collision = ##t \hideNotes \scaleDurations 2/3 { \stemDown c,,16( g' c \stemUp e g \cright c } | e4)
        } >>
      }
    }
    \new Staff = "left" {
      \relative {
        \clef bass
        <<  {
          \voiceOne
          \tuplet 3/2 8 {
            % \once \override TupletNumber.Y-offset = 1 %\override Rest.staff-position = -4
            r16 g( \vir c g'8 a16) | \omit TupletNumber \omit TupletBracket \vil r16 g,( \vir c g'8 a16) |
            \vil r16 g,( \vir c g'8 a16) | \vil r16 b,( \vir e b'8 c16) |
            r16 e,( a e'8 d16) | r16 e,( a e'8 d16) |
            r16 e,( a e'8 d16) | \vil r16 b,( \vir d b'8 a16) |

            \vil r16 g,( \vir c g'8 a16) | \vil r16 g,( \vir c g'8 a16) |
            \vil r16 g,( \vir c g'8 a16) | \vil r16 b,( \vir e b'8 c16) |
            r16 cis,( f cis'8 d16) | r16 dis,( g dis'8 e16) |
            r16 g,( a g'8 f16) | r16 dis,( g dis'8 e16) |
          }

          \tuplet 3/2 8 {
            r16 e,( a e'8 f16) |
          }
          \undo \omit TupletNumber \tuplet 5/4 4 {
            \scaleDurations 5/4 { fis,( b } \scaleDurations 5/6 { fis'8 g16) } |
            \scaleDurations 5/4 { gis,16( c } \scaleDurations 5/6 { gis'8 a16) } | \scaleDurations 5/4 { ais,16( d } \scaleDurations 5/6 { ais'8 b16) } |
          }
          \omit TupletNumber \tuplet 3/2 8 {
            r16 d,( e d'8 c16) | r16 b,( c b'8 a16) |
          }
          \undo \omit TupletNumber \tuplet 5/4 { \scaleDurations 5/4 { a,( c } \scaleDurations 5/6 { a'8 g16) } } |
          \omit TupletNumber \tuplet 3/2 8 { r16 e,( g e'8 d16) } |

          \undo \omit TupletNumber \tuplet 5/4 4 {
            \scaleDurations 5/4 { \vil g,,( \vir c } \scaleDurations 5/6 { g'8 a16) } | \scaleDurations 5/4 { e( g } \scaleDurations 5/6 { e'8 d16) } |
          }
          \omit TupletNumber \tuplet 3/2 8 { \vil r16 g,,( \vir c g'8 a16) | r16 e( g e'8 d16) } |
          \tuplet 3/2 { r16 c, f } c'8->[ ~ | \tuplet 3/2 { c8*1/2] c,16 f } c'8->[ ~ |
          \tuplet 3/2 { c8*1/2] c,16 f } c'8->[ ~ | \tuplet 3/2 { c8*1/2] c,16 f } c'8-> |

          \set tieWaitForNote = ##t s8 \tuplet 3/2 { \vil e,,16 ~ g ~ \vir c} | \vil \once \override Stem.length = 15 \crossStaff <e, g>4 \bar "|."
        } \new Voice \relative {
          \voiceTwo \override Rest.staff-position = -6
          \tuplet 3/2 { c,16( g' e') } r8 | \omit TupletBracket \omit TupletNumber \tuplet 3/2 { b,16( g' f') } r8 |
          \tuplet 3/2 { c,16( g' e') } r8 | \tuplet 3/2 { e,16( c' g') } r8 |
          \slurUp \override Rest.staff-position = 0 \tuplet 3/2 { f,16( c' a') } r8 | \tuplet 3/2 { fis,16( d' c') } r8 |
          \tuplet 3/2 { g,16( f' b) } r8 | \slurDown \override Rest.staff-position = -6 \tuplet 3/2 { g,,16( g' f') } r8 |

          \tuplet 3/2 { c,16( g' e') } r8 | \tuplet 3/2 { b,16( g' f') } r8 |
          \tuplet 3/2 { c,16( g' e') } r8 | \tuplet 3/2 { e,16( c' g') } r8 |
          \slurUp \override Rest.staff-position = 0 \tuplet 3/2 { f,16( c'! a') } r8 | \tuplet 3/2 { g,16( c \once \override Accidental.avoid-slur = ##f \once \override Accidental.layer = 2 \once \override Accidental.whiteout = 3 \once \override Accidental.whiteout-style = #'outline bes') } r8 |
          \tuplet 3/2 { a,16( f' c') } r8 | \tuplet 3/2 { g,16( c c') } r8 |

          \tuplet 3/2 { a,16( f' c') } r8 | \tuplet 3/2 { b,16( g' d') } r8 |
          \tuplet 3/2 { c,16( g' e') } r8 | \tuplet 3/2 { d,16( g f') } r8 |
          \tuplet 3/2 { e,16( c' g') } r8 | \tuplet 3/2 { fis,,16( \once \override Accidental.avoid-slur = ##f \once \override Accidental.layer = 2 \once \override Accidental.whiteout = 3 \once \override Accidental.whiteout-style = #'outline fis' c') } r8 |
          \tuplet 3/2 { g,16( e' c') } r8 | \tuplet 3/2 { g,16( f' b) } r8 |

          \slurDown \override Rest.staff-position = -6 \tuplet 3/2 { c,,16( g' e') } r8 | \slurUp \override Rest.staff-position = 0 \tuplet 3/2 { c,16( g' f') } r8 |
          \slurDown \override Rest.staff-position = -6 \tuplet 3/2 { c,16( g' e') } r8 | \slurUp \override Rest.staff-position = 0 \tuplet 3/2 { c,16( g' f') } r8 |
          \tuplet 3/2 { c,16( g' g') } r8 | \tuplet 3/2 { c,,16( g' g') } r8 |
          \tuplet 3/2 { c,,16( g' g') } r8 | \tuplet 3/2 { c,,16( g' g') } r8 |

          \set tieWaitForNote = ##t \tuplet 3/2 { c,,16 ~ g' ~ c ~ } s8 | <c, g' c>4\fermata |
        } \new Voice \relative {
          \voiceFour \mergeDifferentlyDottedOn \override NoteColumn.ignore-collision = ##t
          \scaleDurations 2/3 {
            s16 g8.[ s16 a] | s16 g8.[ s16 a] |
            s16 g8.[ s16 a] | s16 \once \override Beam.positions = #'(0.5 . 0.8) b8.[ s16 c] |
            \cright s16 e8.[ s16 d] | s16 e8.[ s16 d] |
            s16 e8.[ s16 d] | \cleft s16 b8.[ s16 a]

            s16 g8.[ s16 a] | s16 g8.[ s16 a] |
            s16 g8.[ s16 a] | s16 \once \override Beam.positions = #'(0.5 . 0.8) b8.[ s16 c] |
            \cright s16 cis8.[ s16 d] | s16 dis8.[ s16 e] |
            s16 g8.[ s16 f] | s16 dis8.[ s16 e] |

            s16 e8.[ s16 f] | fis8.[ s8 g16] |
            gis8.[ s8 a16] | ais8.[ s8 b16] |
            s16 d8.[ s16 c] | s16 b8.[ s16 a] |
            a8.[ s8 g16] | s16 e8.[ s16 d] |

            \cleft g,8.[ s8 a16] | \cright e'8.[ s8 d16]
            \cleft s16 g,8.[ s16 a] | \cright s16 e'8.[ s16 d] |

            s16 c8( a'16 f <e g>) | s16 c8( a'16 f <e g>) |
            s16 c8( a'16 f <e g>) | s16 c8( a'16 f <e g>) |

            s8. s8 \hideNotes c16 ~ |
          } \unHideNotes \oneVoice <c e>4\fermata
        } >>
      }
    }
  >>
  \layout {
    \context {
      \Staff
      %\override VerticalAxisGroup.staff-staff-spacing.basic-distance = 9
    }
  }
  \midi { \tempo 8 = 160 }
}