moved call your girlfriend stuff to 2022-projects folder

2022-projects/02-rach1.ly

@@ -0,0 +1,338 @@
+\version "2.20.0"
+\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
+  \compressFullBarRests
+  \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
+  \powerChords
+  \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
+    }
+  }
+}