arpeggio prelude

arpeggio-prelude.ly

@@ -0,0 +1,215 @@
+\version "2.20.0"
+\language "english"
+
+\header {
+  title = "Arpeggio Prelude"
+  composer = "Tommy Montgomery"
+  copyright = "(c) 2021 Tommy Montgomery"
+}
+
+global = {
+  \key fs \minor
+  \time 4/4
+  \set Staff.printKeyCancellation = ##f
+  \numericTimeSignature
+  \override TupletBracket #'bracket-visibility = #'if-no-beam
+  \set Score.connectArpeggios = ##t
+  \override Beam.auto-knee-gap = #10
+  \omit TupletNumber
+  \omit TupletBracket
+}
+
+lowerStaff = {
+  \change Staff = "mainL" \revert Stem #'direction
+}
+
+upperStaff = {
+  \override Stem #'direction = #DOWN \change Staff = "mainR"
+}
+
+fixSlope = {
+  \once \override Beam.positions = #'(9 . 15)
+  %\once \override Stem.direction = #UP
+}
+
+\parallelMusic #'(mainR mainL) {
+  \tempo 4 = 84
+  \set subdivideBeams = ##t
+
+  \global \override Stem #'direction = #UP \repeat unfold 2 { \tuplet 6/4 4 { s16 d' es gs b d s16 d b gs es d } } |
+  \global \upperStaff \repeat unfold 2 { \tuplet 6/4 4 { cs''16 s16 s4 cs'16 s16 s4 } } |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { s16 d es gs b d s16 d b gs es d } } |
+  \repeat unfold 2 { \tuplet 6/4 4 { b,16 s16 s4 es'16 s16 s4 } } |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { s16 d es gs b d s16 d b gs es d } } |
+  \repeat unfold 2 { \tuplet 6/4 4 { cs,16 s16 s4 cs'16 s16 s4 } } |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { s16 fs a cs d fs s16 fs d cs a fs } } |
+  \tuplet 6/4 4 { cs,16 s16 s4 a''16 s16 s4 cs,,16 s16 s4 b''16 s16 s4 } |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { s16 fs a b d fs s16 fs d b a fs } } |
+  \tuplet 6/4 4 { d,,16 s16 s4 a''16 s16 s4 d,,16 s16 s4 gs'16 s16 s4 } |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { s16 es b' cs d es s16 es d cs b es, } } |
+  \tuplet 6/4 4 { cs,,16 s16 s4 a''16 s16 s4 cs,,16 s16 s4 gs''16 s16 s4 } |
+
+  \tuplet 6/4 4 { s16 fs a bs ds fs s16 fs ds bs a fs s16 fs gs bs ds fs s16 fs ds bs gs fs } |
+  \tuplet 6/4 4 { bs,,16 s16 s4 a''16 s16 s4 bs,,16 s16 s4 gs''16 s16 s4 } |
+
+  \tuplet 5/4 4 { s16 es gs cs es s16 es cs gs es } \tuplet 6/4 4 { s16 es gs cs es s8. es16 cs gs es } |
+  \tuplet 5/4 4 { cs,,16 s4 gs''16 s4 } \tuplet 6/4 4 { cs,,16 s4 gs''16 cs gs s4 } |
+
+  \repeat unfold 2 { \tuplet 5/4 4 { s16 d fs b d s16 d b fs d } } |
+  \repeat unfold 2 { \tuplet 5/4 4 { b,,16 s4 fs''16 s4 } } |
+
+  \repeat unfold 2 { \tuplet 5/4 4 { s16 cs fs as cs s16 cs as fs cs } } |
+  \repeat unfold 2 { \tuplet 5/4 4 { as,,16 s4 fs''16 s4 } } |
+
+  \tuplet 5/4 4 { s16 cs e a! cs s16 cs a e cs s16 cs fs a cs s16 cs a fs cs } |
+  \tuplet 5/4 4 { a,,!16 s4 e''16 s4 a,,16 s4 fs''16 s4 } |
+
+  \repeat unfold 2 { \tuplet 5/4 4 { s16 cs fs gs cs s16 cs gs fs cs } } |
+  \tuplet 5/4 4 { gs,,16 s4 fs''16 s4 gs,,16 s4 gs''16 s4 } |
+
+  \tuplet 5/4 4 { s16 cs es gs cs s16 cs gs es cs s16 cs es gs cs } s4 |
+  \tuplet 5/4 4 { cs,,,16 s4 cs'''16 s4 cs,,,16 s4 } cs'''4 |
+
+  \bar "||"
+
+  \revert Stem #'direction \repeat unfold 2 { \tuplet 6/4 4 { b,16 d fs b d fs b fs d b fs d } } |
+  \lowerStaff <b,,,,, b'>2 <cs cs'>4 <d d'> |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { b16 cs es b' cs es b' es, cs b es, cs } } |
+  <cs cs'>2 <cs, cs'> |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { a16 cs fs a cs fs a fs cs a fs cs } } |
+  <d' d'>2 <cs cs'>4 <b b'> |
+
+  \tuplet 6/4 4 { gs16 cs fs gs cs fs gs fs cs gs fs cs gs cs es gs cs es gs es cs gs es cs } |
+  <cs cs'>1 |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { b16 d es b' d es b' es, d b es, d } } |
+  <d d'>2 <cs cs'>4 <b b'> |
+
+  \tuplet 6/4 4 { g,16 cs e g cs e g e cs g e cs fss, cs' ds fss cs' ds fss ds cs fss, ds cs } |
+  <a a'>4 <g g'> <e e'> <ds ds'> |
+
+  \tuplet 6/4 4 { gs16 cs ds gs cs ds gs ds cs gs ds cs gs bs ds gs bs ds } \ottava #1 \tuplet 3/2 { gs bs ds } gs8 \ottava #0 |
+  <gs gs'>4. ds'8 gs,2 |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { e,,,16 gs cs e gs cs e cs gs e cs gs } } |
+  <cs cs'>2 <ds ds'>4 <e e'> |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { ds16 as' cs ds as' cs ds cs as ds, cs as } } |
+  <ds ds'>2 <fss, fss'> |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { gs16 b ds gs b ds gs ds b gs ds b } } |
+  <gs gs'>2 <fs! fs'!>4 <e e'> |
+
+  \tuplet 6/4 4 { fss16 as cs ds fss as \ottava #1 cs ds fss as cs e ds cs as fss ds cs \ottava #0 as fss ds cs as fss } |
+  <ds ds'>1 |
+
+  gs32 e gs b ds e gs b \tuplet 7/4 4 { ds16 b gs e ds b gs e gs b ds e gs b ds b gs e ds b gs } |
+  <e e'>2 <fs fs'>4 <e e'> |
+
+  \tuplet 7/4 4 { d!16 fs a cs d! fs a cs a fs d cs a fs } d32 fs a b d fs a b d! b a fs d b a fs |
+  <d? d'?>1 |
+
+  \tuplet 6/4 4 { e16 a b e a b e b a e b a e gs b e gs b e b gs e b gs } |
+  <e e'>2 <d d'> |
+
+  \tuplet 6/4 4 { es16 gs cs es gs cs \ottava #1 es gs cs es ds cs \ottava #0 gs es ds cs gs es  ds cs gs es ds cs } |
+  <cs cs'>1 |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { a16 cs fs a cs fs a fs cs a fs cs } } |
+  <fs fs'>2 <gs gs'>4 <a a'> |
+
+  a32 bs ds fs a bs ds fs \tuplet 7/4 4 { a16 fs ds bs a fs ds } bs32 ds fs a bs ds fs a bs a fs ds bs a fs ds |
+  <gs gs'>1 |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { cs16 e gs cs e gs cs gs e cs gs e } } |
+  <a a'>2 <gs gs'>4 <a a'> |
+
+  \tuplet 6/4 4 { b16 e fs b e fs b e fs \ottava #1 b e fs b fs ds b fs ds \ottava #0 b fs ds b fs ds } |
+  <b b'>4. fs'8 b,2 |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { cs16 e gs cs e gs cs gs e cs gs e } } |
+  <cs cs'>2 <ds ds'>4 <e e'> |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { cs16 ds fss cs' ds fss cs' fss, ds cs fss, ds } } |
+  <ds ds'>2 <ds, ds'> |
+
+  \repeat unfold 2 { \tuplet 6/4 4 { b16 ds gs b ds gs b gs ds b gs ds } } |
+  <e' e'>2 <ds ds'>4 <e e'> |
+
+  \tuplet 7/4 4 { cs16 e fs as cs e fs as fs e cs as fs e e fs as cs e fs as cs as fs e cs as fs } |
+  <fs fs'>4 <e e'> <ds ds'> <cs cs'> |
+
+  \bar "||"
+
+  \key b \major \repeat unfold 2 { \tuplet 6/4 4 { b,16 ds fs b ds fs b fs ds b fs ds } } |
+  \key b \major <b b'>2 <cs cs'>4 <ds ds'> |
+
+  \tuplet 6/4 4 { as16 cs e as cs e as e cs as e cs as cs fs as cs fs as fs cs as fs cs } |
+  <cs cs'>2 <fs, fs'> |
+
+  \tuplet 6/4 4 { gs16 cs e gs cs e gs e cs gs e cs fss, cs' e fss cs' e fss e cs fss, e cs } |
+  <cs' cs'>2 <ds ds'>4 <e e'> |
+
+  \tuplet 6/4 4 { a16 cs ds fs! a cs ds fs! a cs ds fs! a fs ds cs a fs ds cs a fs ds cs } |
+  <ds ds'>4. <e e'>8 <fs fs'>2 |
+
+  \tuplet 6/4 4 { b16 e gs b e gs b gs e b gs e b e g b e g b g e b g e } |
+  <e e'>4. <fs fs'>8 <g g'>4 <e e'> |
+
+  \tuplet 6/4 4 { c16 e a c e a c a e c a e c ds a' c ds a' c a ds, c a ds, } |
+  <a a'>4. <g g'>8 <fs fs'>4 <ds ds'> |
+
+  \tuplet 6/4 4 { b16 e gs b e gs b gs e b gs e b cs g' b cs g' b g cs, b g cs, } |
+  <e e'>4 <b b'> <g' g'> <e e'> |
+
+  \tuplet 6/4 4 { fs,16 b cs fs b cs \ottava #1 fs b cs fs b cs fs cs as fs cs as \ottava #0 fs cs as fs e cs } |
+  fs4. cs8 <fs, fs'>2 |
+
+  \tuplet 6/4 4 { b16 ds fs b ds fs \ottava #1 b ds fs b fs e ds b fs \ottava #0 e ds b fs e ds \override Stem #'direction = #UP \change Staff = "mainL" b fs ds } |
+  <b fs' b>1 |
+
+  \tuplet 6/4 4 { b16 ds fs b ds fs \change Staff = "mainR" b ds fs b ds fs } b4 \revert Stem #'direction \clef bass <gs,,, b ds> |
+  \tuplet 6/4 4 { \override Stem #'direction = #DOWN ds16 fs b ds fs b \change Staff = "mainR" ds fs b ds fs b } ds4 \change Staff = "mainL" \revert Stem #'direction <gs,,,,, gs'>4 |
+
+
+
+  <gs b cs e>2 << { <e cs'>4.\arpeggio b'8 } \\ { <g b>4\arpeggio <fs as> } >> |
+  <e e'>2 <fs fs'> |
+
+  <ds fs b>1\fermata |
+  <b fs' b>1\fermata |
+
+  \bar "|."
+}
+
+mainStaff = \new PianoStaff <<
+  \new Staff = "mainR" \with {
+    midiInstrument = "acoustic grand"
+  } \relative c' \mainR
+  \new Staff ="mainL" \with {
+    midiInstrument = "acoustic grand"
+  } { \clef bass \relative c \mainL }
+>>
+
+\score {
+  <<
+    \mainStaff
+  >>
+  \layout {
+    \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
+    }
+  }
+  \midi {}
+}