Change relative paths.
[music/pretentious.git] / 02-song2 / music / stick.ly
index 098a5abe44f87754f889836aebd245b220d23653..adfcfb87ef818f25687cc33ef6b66fe7b5b70885 100644 (file)
-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  |
+\include "../../stafftab.ly"
+\include "../music/guitar.ly"
 
-    <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 4 { R1*2 }
-}
-
-stickTransitionRight = \relative c' {
-  \repeat volta 2 { R1*4 }
-  \repeat volta 4 { R1*2 }
-}
-
-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 |
-  \time 7/8 R8*7 |
-}
-
-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 |
-  \time 7/8 R8*7 |
-}
+stickBreak = \unfoldRepeats \guitar
 
 stickRepriseLeft = \relative c, {
   \time 4/4
-  \repeat unfold 2 {
+  \repeat unfold 3 {
     <fis cis'>8 r16 <b fis'>16 r16 <fis cis'> <fis dis' a'>8 ~
     <fis dis' a'>8 fis <dis' a'> fis, <f d' a'> r16 <f d' a'>8 r16 <fis cis' a'>8 ~
     <fis cis' a'>2 |
@@ -140,7 +20,7 @@ stickRepriseLeft = \relative c, {
 
 stickRepriseRight = \relative c' {
   \time 4/4
-  \repeat unfold 2 {
+  \repeat unfold 3 {
     r8 <a cis fis>16-. r r r <a cis fis>8 ~
     <a cis fis>4 ~ <a cis fis>4
     <f' a d>8 r16 <f a d>8 r16 <fis gis cis>8 ~ <fis a cis>2 |
@@ -164,108 +44,80 @@ 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 fis
+  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\9-1
   \tuplet 6/4 {
-    d''
-    \change Staff = "stick left"  a
-    \change Staff = "stick right" fis
-    \change Staff = "stick left"  a
-    \change Staff = "stick right" fis
-    \change Staff = "stick left"  d
+    \change Staff = "stick right" d''\2-1  % fret: 7
+    \change Staff = "stick left"  a\11-2   % fret: 5
+    \change Staff = "stick right" fis\4-3  % fret: 9
+    \change Staff = "stick left"  a\11-2
+    \change Staff = "stick right" fis\4-2
+    \change Staff = "stick left"  d\10-1   % fret: 5
   }
   \tuplet 6/4 {
-    \change Staff = "stick right" fis
-    \change Staff = "stick left"  d
-    \change Staff = "stick right" a
-    \change Staff = "stick left" d
-    \change Staff = "stick right" a
-    \change Staff = "stick left" e'
+    \change Staff = "stick right" fis\4-1
+    \change Staff = "stick left"  d\10-1
+    \change Staff = "stick right" a\6-3
+    \change Staff = "stick left"  d\10-1
+    \change Staff = "stick right" a\6-3
+    \change Staff = "stick left"  e'\10-3
   }
+  \tuplet 6/4 {
+    \change Staff = "stick right" fis\4-1
+    \change Staff = "stick left"  a\11-1
+    \change Staff = "stick right" cis\3-3
+    \change Staff = "stick left"  a\11-1
+    \change Staff = "stick right" cis\3-3
+    \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\12-2
+    \change Staff = "stick right" fis\2-3
+  }
+  gis16\1-2[ a\1-2] |
 
-  %% |--X--|--X--|-----|-----|-----|-------
-  %% |-----|--X--|-----|--X--|-----|-------
-  %% |-----|-----|-----|--X--|-----|-------
-  %% |-----|--X--|-----|-----|--X--|-------
-  %% |-----|-----|-----|-----|-----|-------
-  %% |-----|-----|-----|-----|-----|-------
-  %%   9     10    11    12    13
-  %%
-  %% fret+string-finger
-  %% 10+4-1 13+4-3 12+3-2  13+4-3 12+3-2 10+2-1
-  \change Staff = "stick right"
-  \tuplet 6/4 { fis a cis  a cis e }
-  \tuplet 3/2 { cis e fis }
-  gis16 a |
-
-  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 = <<
-  \new Staff = "stick right" \relative c' {
+  \new StaffTab = "stick right" \relative c' {
     \clef "treble_8"
     \set Staff.midiPanPosition = #-0.5
+    \set Staff.stringTunings = #stick-matched-reciprocal-tuning
     \key b \minor
 
     %% 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
-    \stickThreeRight
-
-    \stickMartaRekadoRight
-
-    \set PianoStaff.midiInstrument = #"clav"
+    #(mmrest-of-length stickBreak)
     \stickRepriseRight
     \stickFinalRight
   }
 
   %% staff for left hand side
-  \new Staff = "stick left" \relative c  {
+  \new StaffTab = "stick left" \relative c  {
     \clef "bass"
     \set Staff.midiPanPosition = #0.5
+    \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
-    \stickThreeLeft
-
-    \stickMartaRekadoLeft
-
+    #(mmrest-of-length stickBreak)
     \stickRepriseLeft
     \stickFinalLeft
   }