diff options
| -rw-r--r-- | TODOs.org | 20 | ||||
| -rw-r--r-- | music/choro-da-saudade.ly | 209 | ||||
| -rw-r--r-- | music/common.ly | 5 |
3 files changed, 221 insertions, 13 deletions
@@ -19,6 +19,26 @@ CLOSED: [2021-01-03 dim. 12:46] - [X] add string markers - [X] pestana over rests (measure 42) - [X] handle optional sharp on measure 77 +** TODO =choro-da-saudade.ly= [0/2] +:PROPERTIES: +:CUSTOM_ID: 04afbdc0-4e2c-4176-b7c3-0c04087c09a8 +:END: +- State "TODO" from [2021-01-03 dim. 15:34] + +- [ ] Make =D.S. al Coda= appear in MIDI + #+BEGIN_SRC lilypond + \bar ".."^\markup { D.S. al Coda } + \cadenzaOn + \stopStaff + \once \override TextScript.extra-offset = #'(0 . -3) + <>^\markup { D.S. al Coda } + \repeat unfold 3 { + s1 + \bar "" + } + \cadenzaOff + \startStaff + #+END_SRC ** TODO Embed LilyPond source code in PDF and audio :PROPERTIES: :CUSTOM_ID: 340da973-622c-45d6-8d3c-7db839586517 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" +} |