From ba776ad009b4063480dea647dbbee01c4535e06b Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sun, 3 Jan 2021 19:24:43 -0300
Subject: v0 of "Choro da Saudade"

---
 music/choro-da-saudade.ly | 209 +++++++++++++++++++++++++++++++++++++++++++---
 music/common.ly           |   5 ++
 2 files changed, 201 insertions(+), 13 deletions(-)

(limited to 'music')

diff --git a/music/choro-da-saudade.ly b/music/choro-da-saudade.ly
index c175d9f..08b1c6e 100644
--- a/music/choro-da-saudade.ly
+++ b/music/choro-da-saudade.ly
@@ -1,35 +1,218 @@
 \version "2.20.0"
 \pointAndClickOff
 
+\include "common.ly"
+\include "guitar.ly"
+
 \header {
   title = "Choro da Saudade"
   composer = "Agustín Barrios"
-  copyright = \markup {
-    \with-url #"https://creativecommons.org/licenses/by-sa/4.0/" \line {
-      CC BY-SA 4.0
-    }
-  }
-  tagline = \markup {
-    \with-url #"https://euandre.org/music.html" \line {
-      euandre.org/music.html
-    }
-  }
+  copyright = \copyright
+  tagline = \tagline
 }
 
 globals = {
   \clef "treble_8"
-  \key d \major
+  \key g \minor
   \time 2/4
   \set fingeringOrientations = #'(left)
-  \tempo 4 = 100
+  \tempo Largo 4 = 50
 }
 
 upper = \relative c {
   \globals
+
+  \repeat volta 2 {
+    <g-0>16 <d'-0> <bes'-2 ees-4> d, <bes'-2 d-3> d, d, d' |
+    <a-1> <d-0> <c'-4 ees-3> d, <c'-4 d-2> d, d, d' |
+  }
+
+  <g,-0>8. <d'-0>16 <bes'-2>\tenuto( <a-1>) a <g-0> |
+  \repeat volta 2 {
+    \mark \markup { \musicglyph #"scripts.segno" }
+    \repeat unfold 2 {
+      <ees'-2>4 <cis-1>16( <d-2>) <fis-1> <a-4> |
+      \pestanaSpan "III" <bes-4>8.\startTextSpan <g-1>16 <d-1> <bes-1> <g-3>( <d-0>)\stopTextSpan |
+      \pestanaSpan "V" <c-1>\startTextSpan <d'-2> <fis-3>( <g-4>) <a-1> <bes-2> <c-4> a\stopTextSpan |
+    }
+    \alternative {
+      {
+        <d-4>4\fermata <c-4>16( <bes-2>) <a-1> <g\2-4> |
+        <bes-2>4 <a-1>16( <bes-2>) <c-4> a |
+        \pestanaSpan "I" <g-4>4\startTextSpan <f-1>16 <ees-4> <d-3> <c-1>\stopTextSpan |
+        \pestanaSpan "III" <f-4>(\startTextSpan <d-1>) <bes-1> <g-1> <f-1>( <d-0>) <bes-1> <g-9>\stopTextSpan |
+        <fis-2>8.\fermata <d'-0>16 <bes'-2>\tenuto( <a-1>) a <g-0> |
+      }
+
+      {
+        <d''-4>4 \pestanaSpan "VII" <b-1>16\startTextSpan <g-2> <f-4> <d-1>\stopTextSpan |
+        \pestanaSpan "V" <c-1>\startTextSpan <g-1> <ees-4> <c-1> <a-3>( <bes-4>) <c-1> <ees-4>\stopTextSpan |
+        \pestanaSpan "III" <d-0>\startTextSpan <bes'-1> <d g-1>8 \appoggiatura { <d-1>16 <f-4> } <ees-2>16 <d-1> <c-3> <bes-1>\stopTextSpan |
+        <a,-1>( <cis-4>) <e-1> <g-0> <d-0> <fis-3> <a-1> <d-2> \mark \markup { \musicglyph #"scripts.coda" } |
+      }
+    }
+  }
+  \alternative {
+    { <g,-0> <d-0> g d bes'\tenuto( a) a g | }
+    { <g-0> <bes-2 d-3>8 <bes d>16 <bes d> <bes ees-4>8 <bes d>16 | }
+  }
+
+  % part B
+  r <c-4 d-2>8 <c d>16 r <bes-1 d-2>8 <bes d> 16 |
+  r <a-1 d-2>8 <a d>16 <a d> <a cis-1>8 <a d>16 |
+  r <b-0 g'-4>8 <b g'>16 r <c-1 g'-4>8 <c g'>16 |
+
+  \pestanaSpan "III" r\startTextSpan <d-1 g-1>8 <d g>16 <d g> <f-4 g-1>8 <e-3 g-1>16 |
+  r <ees-2 g-1>8 <ees g>16 r <ees g>8 <ees g>16\stopTextSpan |
+  \pestanaSpan "II" r\startTextSpan <c-4 ees-3 fis-1>8 <c ees fis>16 <c ees fis> <c ees g-2>8\stopTextSpan \pestanaSpan "III" <bes-1 d-1 bes'-4>16\startTextSpan |
+  r <c-3 d-1 a'-4>8 <c d a'>16 r <c-3 dis-2 a'-4>8 <c dis a'>16\stopTextSpan |
+
+  r <g-2 cis-3 bes'-4>8 <g cis bes'>16 r <g cis bes'>8 <g cis bes'>16 |
+  r <d'-2 g-3 bes-1>8 <d g bes>16 <d g bes> <d g c-4>8 <d g bes>16 |
+  r <cis-3 g'-4 a-2>8 <cis g' a>16 r <cis g' a>8 <cis g' a>16 |
+  \pestanaSpan "V" r\startTextSpan <c-1 fis-3 a-1>8 <c fis a>16 <c fis a> <c fis bes-2>8 <c fis a>16\stopTextSpan |
+
+  r <b-3 f'-4 g-2>8 <b f' g>16 r <b f' g>8 <b f' g>16 |
+  \pestanaSpan "III" r\startTextSpan <bes-1 e-3 g-1>8 <bes e g>16 <bes e g> <bes e a-4>8 <bes e g>16\stopTextSpan |
+  \pestanaSpan "I" r\startTextSpan <a-2 c-1 f-1>8 <a c f>16\stopTextSpan r <f'-1 bes-2 f'-4>8 <f bes f'>16 |
+  r <d-1 gis-4>8 <d gis>16 r <cis-2 g'-3 e'-4>8 <cis g' e'>16 |
+
+  \pestanaSpan "V" r\startTextSpan <c-1 fis-3 a-1>8 <c fis a>16\stopTextSpan r <b-0 f'-3 d'-4>8 <b f' d'>16 |
+  \pestanaSpan "V" r\startTextSpan <g-1 ees'-3 c'-4>8 <g ees' c'>16 <g ees' c'> <g ees' b'-2>8 <g ees' c'>16\stopTextSpan |
+  \pestanaSpan "III" r\startTextSpan <bes-1 d-1 bes'-4>8 <bes d bes'>16 <bes d bes'> <bes d a'-3>8 <bes d g-1>16\stopTextSpan |
+  r <g-2 cis-3 bes'-4>8 <g cis bes'>16 \pestanaSpan "III" r\startTextSpan <c-3 d-1 a'-4>8 <c d a'>16 |
+
+  <bes-1 d-1 g-1>8.\stopTextSpan <d,-0>16 <bes'-2>\tenuto( <a-1>) a <g-0> |
+
+  \bar "||"
+  <g-0>8. <d'-1\3>16\mordent <b-3\4> d <g-2> <b-1>
+  \key g \major
+  \repeat volta 2 {
+    <g,,-0>16 <d'''-4> <b,-0 e-2> g, <gis-1\6> <d'''-4> <b,-0 f'-3> gis, |
+    <a-1\6> <d''-4> <c,-3 fis-1> \corda "5" <d,-1>\startTextSpan <e-3>\stopTextSpan <g-0> <b-4\4> <d-1> |
+    <g,,-0> <g''-1> <bes,-2 d-1> g, <g'-4\4> <fis'-1> <bes,-2 cis-1> g |
+
+    <fis-3> <e'-0> <a,-1 d-2> e' <fis-2\3> <a-1> <c-4> <d-1> |
+    <ais,,-1> <e'''-4> <cis,-2 g'-3> ais, \pestanaSpan "VII" <b-3>\startTextSpan <d''-4> <d,-1 fis-1> b,\stopTextSpan |
+    <cis-1> <cis''-4> <ais,-2 e'-3> cis, <d-1> <b''-1> <b,-3 d-1> d, |
+    <e-1> <d''-2> <b,-0 cis-3> e,, <fis-3> <fis''-1> <e,-1 ais-2> fis' |
+
+    \rall <b,,-3>\startTextSpan <fis'-4> <d'-2> <cis-1> <c-4>\fermata <d-2>\fermata <fis-1>\fermata <a-4>\fermata\glissando |
+    \once \override NoteColumn.glissando-skip = ##t <g,,-0>16\stopTextSpan <d'''-4> <b,-0 e-2> g, <gis-1\6> <d'''-4> <b,-0 f'-3> gis, |
+    <a-1\6> <d''-4> <c,-3 fis-1> <c'-2>\mordent <a-4\2> <fis-1> <d-1\3> <c-4\4> |
+    <b-1> <f'-2 e'-4>8 <f e'>16 <g,,-0> <f''-1 b-2 g'-4>8 <f b e-3>16 |
+
+    <a,-3>16 <c-1 e-1 c'-4>8. r4 |
+    \pestanaSpan "VII" <a,-1\6>16\startTextSpan <c''-3> <e,-4 g-2> a,,\stopTextSpan \pestanaSpan "VI" <cis-1\5>\startTextSpan <ais''-1> <cis,-1 g'-4> cis,\stopTextSpan |
+    <d-0> <b''-1>8 <d,-1 g-2>16 r4 |
+    <e,,-1>16 <g'-4 b-3 cis-1>8 <g b cis>16 <d,-0>  <c''-1 fis-3 b-4>8 <c fis a-1>16 |
+  }
+  \alternative {
+    { <b-2 d-1 g-1>8. <d-1\3>16\mordent <b-3\4> <d-1> <g-2> <b-1> | }
+    { <b,-2 d-1 g-1>\tenuto <bes-2 d-3>8 <bes d>16 <bes d> <bes ees-4>8 <bes d>16 | }
+  }
+
+  \bar "||"
+
+  <g-0>4 <b'-2 d-3 g-4>
+
+  \bar "|."
 }
 
-lower = \relative c {
+lower = \relative c' {
   \globals
+  \set stringNumberOrientations = #'(down)
+
+  \repeat volta 2 {
+    g,4. d8 |
+    a'4. d,8 |
+  }
+
+  g8. r16 r4 |
+  \repeat volta 2 {
+    r16 <a-1> <g'-3> <c-4> d,,4 |
+    <g-0>8 <bes'-1 d-1> r4 |
+    <c,-1>2 |
+
+    r16 <bes-2\6> <d'-1> <g-3> r4 |
+    r16 <d,,-0> <d'-0> <c'-1> r4 |
+    r16 <ees,,-1> <ees'-1> <a-2> r4 |
+    d,,2 |
+
+    fis8. r16 r4 |
+    r16 <a-1> <g'-3> <c-4> d,,4 |
+    <g-0>8 <bes'-1 d-1> r4 |
+    <c,-1>2 |
+
+    r16 <b-2\6> <f''-3> <g-1> r4 |
+    r2 |
+    d,4 d, |
+    r d |
+  }
+  \alternative {
+    { <g-0> r | }
+    { <g-0>4. d8 | }
+  }
+
+  % part B
+  <a'-1>4 <g-0> |
+  <fis-3>4. <d-0>8 |
+  <g-0>4 <a-2>\glissando |
+  <b-2>4. <g-0>8 |
+
+  <c-3>4 <bes-1> |
+  <a-1>4. <g-0>8 |
+  <fis-2>4\glissando <f-1>\glissando |
+  <e-1>\glissando <ees-1> |
+
+  <d-0>4. d8 |
+  \slashedGrace cis'\glissando <e-1\5>4\glissando <ees-1> |
+  <d-0>4. d8 |
+  <d-1\5>4 <des-1> |
+
+  <c-2>4. <bes-1>8 |
+  <ees-1>4 <d-0> |
+  <e-3\5> <a,-1\6> |
+  <d,-0> <g-0> |
+
+  <c-1>4. c8 |
+  <d-0>4. d8 |
+  <e,-1>4 <fis-2> |
+  <g-0>8. r16 r4 |
+
+  \bar "||"
+
+  \repeat volta 2 {
+    <g-0>4 b' |
+    g,8. g16 gis8. gis16 |
+    a8. d16 e4 |
+    g,8. g16 g'8. g16 |
+
+    fis8 a fis'4 |
+    ais,,8. ais16 b8. b16 |
+    cis8. cis16 d8. d16 |
+    e8. <e,-1>32( <eis-2>) fis8 e' |
+
+    b4 <d, fis'-3> |
+    g8. g16 gis8. gis16 |
+    a4 r |
+    b' g, |
+
+    \corda "4" a'8.\startTextSpan <gis-2>16 <b-3> <a-1>8\stopTextSpan \once \set stringNumberOrientations = #'(up) <e-3\5>16 |
+    a,8. a16 cis8. cis16 |
+    d4 \corda "5" <cis-1>16\startTextSpan <e-4> <d-2>\mordent <b-3>\stopTextSpan |
+    e,4 d |
+  }
+  \alternative {
+    { <g-0> b' | }
+    { <g,-0>4. <d-0>8 | }
+  }
+
+  \bar "||"
+
+  <g-0>4 <g-0 d'-0>
+
+  \bar "|."
 }
 
 staff = \new Staff <<
diff --git a/music/common.ly b/music/common.ly
index f2dddc2..b6ba93a 100644
--- a/music/common.ly
+++ b/music/common.ly
@@ -8,3 +8,8 @@ tagline = \markup {
     euandre.org/music.html
   }
 }
+
+rall = {
+  \override TextSpanner.bound-details.left.text = "rall."
+  \override TextSpanner.bound-details.right.text = "a tempo"
+}
-- 
cgit v1.2.3