Change relative paths.
[music/pretentious.git] / 02-song2 / music / stick.ly
index c899807f521d64a7e6dd98f82ab7585f1b99ee57..adfcfb87ef818f25687cc33ef6b66fe7b5b70885 100644 (file)
@@ -1,141 +1,7 @@
-\include "../stafftab.ly"
+\include "../../stafftab.ly"
+\include "../music/guitar.ly"
 
-stickIntroLeft = \relative c {
-  \repeat unfold 2 {
-    <b a' d>8 r16 q8 r16
-    <b gis' d'>4 b8 ~ q b |
-    <b g' d'>8 r16 q8 r16
-    <b fis' d'>4 b8 ~ q4  |
-
-    <b a' d>8 r16 q8 r16
-    <b gis' d'>4 b8 ~ q b |
-    <b g' d'>8 r16 q8 r16
-    <b fis' d'>8 ~ q2     |
-  }
-}
-
-stickIntroRight = \relative c' {
-  fis8. fis e4 r16 ais,16 b cis d gis, |
-  e'8.  e   d4 ~ d4 r8                 |
-  \grace{e16} fis8. fis e4 ~ e4 fis8   |
-  d8.   cis b4 r4.                     |
-
-  \grace{e16} fis8. a8 fis16 e4 r16 ais,16 b cis d gis, |
-  fis'8. fis8 r16 e d e d8.  r4            |
-  \grace{ e8 \glissando s8 } fis8 ~ <fis d'>16 r8 <e cis'>16 r8 <d b'>2 |
-  \grace{d32 g32} b16 r8 g r16 fis8 ~ fis2 |
-}
-
-stickStanzaLeft = \relative c {
-  \repeat unfold 2 {
-    <b fis'>8 r16 q8 r16
-    <b fis'>4 q8 r q  |
-    <b g'>8 r16 q8 r16
-    <b fis'>4 q8 ~ q4 |
-
-    <b fis'>8 r16 q8 r16
-    <e b>4 q8 r q |
-  } \alternative {
-    { <b g'>8 r16 q8 r16  <b fis'>2 r8 |}
-    { <b g' d'>8 r16 <a e'>8 r16 <d, a'>8 ~ <d a'>2 |}
-  }
-}
-
-stickStanzaRight = \relative c' {
-  \repeat unfold 2 {
-    <a d>8 r16 <a d>8 r16
-    <gis d'>4 r8 <gis d'> r |
-    <d' g>8 r16 <d g>8 r16
-    <d fis>4 r8 <d fis> r |
-
-    <a d>8 r16 <a d>8 r16
-    <gis d'>4 r8 <gis d'> r |
-  } \alternative {
-    { <d' g>8 r16 <d g>8 r16 <d fis>2 r8 |}
-    { <d  g>8 r16 <d g>8 r16 <d fis>8 ~ <d fis>2 |}
-  }
-}
-
-stickBLeft = \relative c {
-  \repeat unfold 2 {
-    <cis gis'>4.\arpeggio <fis, cis'>4\arpeggio\sustainOn fis4 cis'8\sustainOff |
-  } \alternative {
-    { a,8 cis'4 e,4\sustainOn b'8 gis' e,\sustainOff |}
-    { cis' r16 dis8 r16 e8 ~ e2 |}
-  }
-}
-
-stickBRight = \relative c' {
-  <b e>8\arpeggio r16 <b e>8 r16
-  <ais e'>4 r8 <ais e'> r |
-  a8. ~ <a e'>8 a16 gis2 r8 |
-
-  <b e>8 r16 <b e>8 r16 <ais e'>4 r8 <ais e'> r |
-  <e' a>8 r16 <fis a>8 r16 <e gis>2 r8 |
-}
-
-%% switch to acoustic guitar here
-stickTransitionLeft = \relative c, {
-  \repeat volta 2 { R1*4 }
-  \repeat volta 2 { R1*2 }
-  \repeat volta 2 { R1*2 }
-}
-
-stickTransitionRight = \relative c' {
-  \repeat volta 2 { R1*4 }
-  \repeat volta 2 { R1*2 }
-  \repeat volta 2 { R1*2 }
-}
-
-stickCrescendoLeft = \relative c, {
-  \time 6/8
-  \repeat unfold 8 { R2. |}
-}
-
-stickCrescendoRight = \relative c' {
-  \time 6/8
-  \repeat unfold 8 { R2. |}
-}
-
-stickThreeLeft = \relative c, {
-  \time 6/8
-  \repeat volta 2 { R2.*2 }
-  R2.*4
-}
-
-stickThreeRight = \relative c' {
-  \time 6/8
-  \repeat volta 2 { R2.*2 }
-  R2.*4
-}
-
-stickMartaRekadoLeft = \relative c, {
-  \time 5/8 R8*5 |
-  \time 7/8 R8*7 |
-  \time 2/4 R4*2 |
-
-  \time 5/8 R8*5 |
-  \time 7/8 R8*7 |
-  \time 2/4 R4*2 |
-
-  \time 3/4
-  R4*3 | R4*3 | R4*3 | R4*3 | R4*3 | R4*3 | R4*3 |
-  \time 4/4 R8*8 |
-}
-
-stickMartaRekadoRight = \relative c' {
-  \time 5/8 R8*5 |
-  \time 7/8 R8*7 |
-  \time 2/4 R4*2 |
-
-  \time 5/8 R8*5 |
-  \time 7/8 R8*7 |
-  \time 2/4 R4*2 |
-
-  \time 3/4
-  R4*3 | R4*3 | R4*3 |  R4*3 | R4*3 | R4*3 | R4*3 |
-  \time 4/4 R8*8 |
-}
+stickBreak = \unfoldRepeats \guitar
 
 stickRepriseLeft = \relative c, {
   \time 4/4
@@ -178,13 +44,16 @@ stickFinalRight = \relative c' {
   \time 4/4
   \repeat volta 4 { R1*4 }
 
-  b'16 a fis dis
-  b' fis dis fis
-  dis b fis b
-  fis dis b
+  b'16\1-2 a\1-1 fis\2-3 dis\2-1
+  b'\1-2 fis\2-3 dis\2-1 fis\2-3
+  dis\2-1 b\3-2 fis\4-3 b\3-2
+  fis\4-3 dis\4-1 b\5-2
+
+  \override Beam.auto-knee-gap = #100
+  \set subdivideBeams = ##t
 
   %% alternate right and left hand
-  \change Staff = "stick left" fis-1
+  \change Staff = "stick left" fis\9-1
   \tuplet 6/4 {
     \change Staff = "stick right" d''\2-1  % fret: 7
     \change Staff = "stick left"  a\11-2   % fret: 5
@@ -203,23 +72,26 @@ stickFinalRight = \relative c' {
   }
   \tuplet 6/4 {
     \change Staff = "stick right" fis\4-1
-    \change Staff = "stick left"  a\10-1
+    \change Staff = "stick left"  a\11-1
     \change Staff = "stick right" cis\3-3
-    \change Staff = "stick left"  a\10-1
+    \change Staff = "stick left"  a\11-1
     \change Staff = "stick right" cis\3-3
-    \change Staff = "stick left"  e\11-2
+    \change Staff = "stick left"  e\12-2
   }
+  \override Beam.auto-knee-gap = #5.5
   \tuplet 3/2 {
     \change Staff = "stick right" cis\3-3
-    \change Staff = "stick left"  e\11-2
+    \change Staff = "stick left"  e\12-2
     \change Staff = "stick right" fis\2-3
   }
-  gis16\1-2 a\1-2 |
+  gis16\1-2[ a\1-2] |
 
-  b16 a fis dis b' fis dis fis
-  dis b fis b fis dis b fis
+  b16\1-2 a\1-1 fis\2-3 dis\2-1
+  b'\1-2 fis\2-3 dis\2-1 fis\2-3
+  dis\2-1 b\3-2 fis\4-3 b\3-2
+  fis\4-3 dis\4-1 b\5-2 fis'\4-3
 
-  f8 b' r8 d16 f gis1.
+  f8\4-2 b\3-3 r8 d16\2-1 f\2-4 gis1.\1-2\trill
 }
 
 stick = <<
@@ -231,27 +103,7 @@ stick = <<
 
     %% intro
     \time 4/4
-    \stickIntroRight
-    \stickStanzaRight
-
-    \key e \major
-    \stickBRight
-
-    \key b \minor
-    \stickStanzaRight
-
-    \key e \major
-    \stickBRight
-
-    \key fis \minor
-    \set PianoStaff.midiInstrument = #"electric guitar (jazz)"
-    \stickTransitionRight
-    \stickCrescendoRight
-    \stickThreeRight
-
-    \stickMartaRekadoRight
-
-    \set PianoStaff.midiInstrument = #"clav"
+    #(mmrest-of-length stickBreak)
     \stickRepriseRight
     \stickFinalRight
   }
@@ -260,30 +112,12 @@ stick = <<
   \new StaffTab = "stick left" \relative c  {
     \clef "bass"
     \set Staff.midiPanPosition = #0.5
-    \key b \minor
     \set Staff.stringTunings = #stick-matched-reciprocal-tuning
+    \key b \minor
 
     %% intro
     \time 4/4
-    \stickIntroLeft
-    \stickStanzaLeft
-
-    \key e \major
-    \stickBLeft
-
-    \key b \minor
-    \stickStanzaLeft
-
-    \key e \major
-    \stickBLeft
-
-    \key fis \minor
-    \stickTransitionLeft
-    \stickCrescendoLeft
-    \stickThreeLeft
-
-    \stickMartaRekadoLeft
-
+    #(mmrest-of-length stickBreak)
     \stickRepriseLeft
     \stickFinalLeft
   }