music/2022-projects/02-rach1.ly

\version "2.22.1"
\language "english"

\header {
  % title = "Rach 1 Snippets"
}

\paper {
  system-system-spacing = #'((basic-distance . 0.1) (padding . 4))
}

global = {
  \key fs \minor
  \time 4/4
  \set Staff.printKeyCancellation = ##f
  \numericTimeSignature
  \compressEmptyMeasures
  \omit Voice.StringNumber
  \override TupletBracket #'bracket-visibility = #'if-no-beam
  \override MultiMeasureRest.expand-limit = #3
  \override Score.ChordName.font-name = #"Noto Serif"
  \override Score.ChordName.font-size = #0
  \override Score.LyricText.font-name = #"Noto Serif"
  \override Score.LyricText.font-size = #0
}

mainTheme = \relative c' {
  \global
  fs4 gs a cs | bs e2 ds4 |
  cs ds e gs | fss b2 as4 | \break
  a! ds, ~ ds8 e fs8. g16 | g4 cs, ~ cs8 d! e8. fs16 |
  fs4 \tuplet 3/2 { fs'8 e d } cs4 \tuplet 3/2 { b8 a gs } |
  gs4 \tuplet 3/2 { fs8 e d } gs,4 cs |
  \bar "||" fs,4 r4 r2 |
  \bar "|."
}

\parallelMusic #'(cadenzaR cadenzaL) {
  R1*9 |
  R1*9 |

  \clef treble \tuplet 3/2 4 { a''8 ds, cs ~ cs gs fs ds cs ds fs gs cs } |
  \clef treble r4 <ds \tweak color #green fs>2 <cs ds fs \tweak color #green gs>4 ~ |

  \tuplet 3/2 4 { fs8 cs gs ~ gs fs ds cs fs, ds' fs gs cs } |
  q4 <b ds \tweak color #green a'>2  <a ds fs \tweak color #green cs'>4 |

  r8 \tuplet 3/2 { fs,16 gs b } a2.\trill |
  <<
    { \tweak color #green bs'4 \tweak color #green e2 \tweak color #green ds4 } \\
    { <gs,, fs' bs>1\arpeggio }
  >> |

  \tuplet 3/2 4 { a8 fs ds cs gs fs fs' ds cs } gs16 fs ds cs' |
  \clef bass r4 <ds \tweak color #green fs> <cs ds fs \tweak color #green gs> <b ds \tweak color #green a'> |

  r8 \tuplet 3/2 { fs,16 gs b } a2.\trill |
  <<
    { \tweak color #green df'4 gf2. } \\
    { <f,, ef' a df>1\arpeggio }
  >> |

  \break

  <<
    { ds,4 e2 f4 ~ } \\
    { a,2. a4 }
  >> |
  <<
    { ds'4( e2 f4) } \\
    { \stemUp \once \override NoteColumn.force-hshift = #1.2 cs2( c) } \\
    { \stemDown fs,2. f4 }
  >> |

  <<
    { f'4 gf af2 ~ } \\
    { bf,2 b4 c }
  >> |
  <ef df' gf>2 <d fs'> |

  <<
    { <df af'>4 a'2( bf4) } \\
    { s4. \stemUp d,8 ef e4 f8 } \\
    { s2 \stemDown c2 }
  >> |
  <<
    { \change Staff = "secondR" \stemDown gf'2\glissando \change Staff = "secondL" \stemUp gf } \\
    { <af,, af' ~ >2 af' }
  >> |

  \key bf \minor
  <<
    { bf'4 c8 df d4 s4 } \\
    { <f,, df' f>\arpeggio r8 s4 }
  >> |
  \key bf \minor
  \tuplet 6/4 4 { <df, df,>8 af'16 f' af df } f4 s2 |

  \break


}

\parallelMusic #'(movementTwoR movementTwoL) {
   \key b \minor
  \tuplet 3/2 { \stemUp ds8 e8. fs16 } \stemNeutral fs8 b,  ds fs \tuplet 3/2 4 { g4 a8 } |
  \clef bass \key b \minor <<
    {
       \tuplet 3/2 4 { \change Staff = "movementTwoR" \stemDown \tupletDown c'8 b8. a16\glissando \tupletNeutral \change Staff = "movementTwoL" \stemUp a8 g fs ~ fs e ds ~ ds a b, ~ \tupletNeutral }
    } \\
    { \tuplet 3/2 4 { b8 <fs' a> ds' } <a b>2 r4 }
  >> |

  \tuplet 3/2 4 { a8 g8. fs16 fs4 ~ fs16 e } \tuplet 5/4 4 { fs d fs cs e fs c fs b, e } |
  \tuplet 3/2 { b,8 g' d'! } \clef treble
  <<
    {
      <<
        { \tuplet 3/2 4 { fs b d, fs gs d <a fs'> a' d, } } \\
        { \omit TupletNumber \omit TupletBracket \tuplet 3/2 4 { s8 b'4 s8 gs4 s8 a4 } }
      >>
    } \\
    { gs,2 a4 }
  >> |

  \tuplet 3/2 4 { <\tweak color #red as, \tweak color #red fs'!>4 bf8 ef f8. gf16 bf8 gf'4 ~ gf8 ef df } |
  \clef bass \tuplet 3/2 4 { <ef, df' gf>8 bf'8 gf' }
  <<
    { ef'4 s4 gf'4 } \\
    { \tuplet 3/2 4 {  ef,8 \clef treble gf,8 ef' bf' bf, gf' } gf'4 }
  >> |
}

staffOne = \new Staff {
  \mainTheme
  \break
}

pianoStaff = \new PianoStaff <<
  \set PianoStaff.connectArpeggios = ##t
  \new Staff = "secondR" \with {
    midiInstrument = "acoustic grand"
  } \relative c'' \cadenzaR
  \new Staff ="secondL" \with {
    midiInstrument = "acoustic grand"
  } { \relative c' \cadenzaL }
>>


chordExceptionMusic = {
  <c e g b d'>1-\markup { "maj9" }
  <c e g b fs'>1-\markup { "maj7" \sharp "11" }
  <c ef f g bf>1-\markup { "m7sus4" }
  <c ef gf bff>1-\markup { "°7" }
  <c ef gf bf>1-\markup { \super { "ø7" } }
  <c e g d'>1-\markup { "add9" }
  <c ef g d'>1-\markup { "m(add9)" }
  <c e fs as>1-\markup { \super { \sharp "11" \sharp "13" } }
  <c g>1-\markup { "5" }
  <c e g bf>1-\markup { "7" }
  <c e g b>1-\markup { "maj7" }
  <c ef g bf>1-\markup { "m7" }
  <c f g>1-\markup { "sus4" }
  <c d g>1-\markup { "sus2" }
  <c e g bf df'>1-\markup { "7" \super { \flat "9" } }
  <c e g f'>1-\markup { "add11" }
  <c e gs bf df'>1-\markup { "+7" \super { \flat "9" } }
}

chordExceptions = #(append
  (sequential-music-to-chord-exceptions chordExceptionMusic #t)
  ignatzekExceptions
)

chordValues = \chordmode {
  \global
  \set chordNameExceptions = #chordExceptions
  \set majorSevenSymbol = \markup "maj7"
  fs2:m ds:1.3-.5-.7 | gs2:1.3.5+.7.9- gs:7 |
  cs2:m as:1.3-.5-.7 | ds2:1.3.5+.7.9- ds:7 |

  gs:1.3.5.7.9- cs4:m a | fs2:1.3.5.7.9- b4:m e:7 |
  b2:m6/gs b:m6/a | b:m6 b4:m6/d cs:7 |

  fs:m
}

chordNames = \new ChordNames {
  \set chordChanges = ##t
  \set chordNameExceptions = #chordExceptions
  \chordValues
}

#(set-global-staff-size 18)

\score {
  <<
    \chordNames
    \staffOne
    \pianoStaff
  >>
  \layout {

    indent = 0
    \context {
      \Score \omit BarNumber
    }
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}


\score {
  <<
    \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((extra-offset . (0 . 0)))
    \new PianoStaff <<
      \set PianoStaff.connectArpeggios = ##t
      \new Staff = "movementTwoR" \with {
        midiInstrument = "acoustic grand"
      } \relative c'' \movementTwoR
      \new Staff ="movementTwoL" \with {
        midiInstrument = "acoustic grand"
      } { \relative c' \movementTwoL }
    >>
  >>
  \layout {
    indent = 0
    \context {
      \Score \omit BarNumber
    }
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}

\parallelMusic #'(movementThreeR movementThreeL) {
  \key fs \minor \time 12/8
  \change Staff = "movementThreeL" \stemUp e,16 b' e b' \change Staff = "movementThreeR" \stemDown \ottava #1 e b' e8 \ottava #0
    r8 r8 r8 \stemUp \override NoteHead.color = #blue <gs,, c e>16[ s16 <gs c e>16] s16 <gs c e>8 r8 r8 |
  \key fs \minor
  s4. r4. r8 \change Staff = "movementThreeR" \stemDown s16
    \override NoteHead.color = #blue
    <g'' b ds>16[ s16 <g b ds>16] \change Staff = "movementThreeL" r4. |

  r8 \stemUp <gs c e>16[ s16 <gs c e>16] s16 <gs c e>8 \revert NoteHead.color \stemNeutral r8 r8 r8 e'16 c a e f g <a a'>8 <bf bf'> |
  r8 \change Staff = "movementThreeR" \stemDown s16 <g b ds>16[ s16 <g b ds>16] \revert NoteHead.color
  \change Staff = "movementThreeL" r4. r8 \stemNeutral e16 c a e f g a8 bf |

}

\score {
  <<
    \overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((extra-offset . (0 . 1)))
    \new PianoStaff <<
      \set PianoStaff.connectArpeggios = ##t
      \new Staff = "movementThreeR" \with {
        midiInstrument = "acoustic grand"
      } \relative c'' \movementThreeR
      \new Staff ="movementThreeL" \with {
        midiInstrument = "acoustic grand"
      } { \relative c' \movementThreeL }
    >>
  >>
  \layout {
    indent = 0
    \context {
      \Score \omit BarNumber
    }
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}

\parallelMusic #'(rachThreeR rachThreeL) {
   \time 4/4
  \override Beam.auto-knee-gap = #4


  \numericTimeSignature \key ef \major
    r8 ef32 e f fs
      \override NoteHead.color = #blue <ef g>8[ r16 \change Staff = "rachThreeL" <bf d fs>16] \change Staff = "rachThreeR"
      <ef g>8[ r16 <ef g>32 \change Staff = "rachThreeL" <d fs>] \change Staff = "rachThreeR"
      <ef g>16 \change Staff = "rachThreeL" <d fs bf> \change Staff = "rachThreeR" <ef g cf> \change Staff = "rachThreeL" <bf d fs> \change Staff = "rachThreeR" |
  \numericTimeSignature \key ef \major
    r8 cf'32 c df d s2.  |

  <ef g>16[ q32 \change Staff = "rachThreeL" <d fs> \change Staff = "rachThreeR" <ef g>8] ~
    q16[ \change Staff = "rachThreeL" <cf d fs> \change Staff = "rachThreeR" <ef g>8] ~
    q16 \change Staff = "rachThreeL" <bf d fs> \change Staff = "rachThreeR" <ef g> \change Staff = "rachThreeL" <a, df f> \change Staff = "rachThreeR"
    <ef' g> \revert NoteHead.color f32 fs g16 f32 fs |
    s2. r16 <af c> ef' <g, b> |

}

\score {
  <<
    %\overrideProperty Score.NonMusicalPaperColumn.line-break-system-details #'((extra-offset . (0 . 10)))
    \new PianoStaff <<
      \set PianoStaff.connectArpeggios = ##t
      \new Staff = "rachThreeR" \with {
        midiInstrument = "acoustic grand"
      } \relative c'' \rachThreeR
      \new Staff ="rachThreeL" \with {
        midiInstrument = "acoustic grand"
      } { \relative c' \rachThreeL }
    >>
  >>
  \layout {
    indent = 0
    \context {
      \Score \omit BarNumber
    }
    \context {
      \Staff \RemoveEmptyStaves
      \override Glissando.minimum-length = #4
      \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
      \override Glissando.thickness = #2
      \override VerticalAxisGroup.remove-first = ##t
    }
  }
}