Voice 1 - Introduction, Allegro bar 1-122
This commit is contained in:
John Doe
commit
ace5d2752f
|
|
@ -0,0 +1,4 @@
|
|||
*.pdf
|
||||
*.midi
|
||||
*~
|
||||
\#*
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
build :
|
||||
lilypond main.ly
|
||||
|
||||
tags : build
|
||||
rm TAGS ; etags -l none -r '/^[a-zA-Z]*\ *=/' *ly
|
||||
|
|
@ -0,0 +1,65 @@
|
|||
#!/usr/bin/guile -s
|
||||
!#
|
||||
(use-modules
|
||||
(ice-9 match)
|
||||
(srfi srfi-1)
|
||||
(ice-9 format)
|
||||
(ice-9 regex))
|
||||
|
||||
;; (format #t "~2%")
|
||||
|
||||
(define *options*
|
||||
'("pac" "size"))
|
||||
|
||||
(define *project-name*
|
||||
(regexp-substitute #f (string-match ".*/" (getcwd)) 'post))
|
||||
|
||||
(define get-valid-args
|
||||
(lambda (cli-args)
|
||||
;; (format (current-error-port) "~s~s~%" "cli-args - " cli-args)
|
||||
(map (lambda (opt)
|
||||
(find (lambda (cli-word)
|
||||
(string-match
|
||||
(string-append opt "*")
|
||||
cli-word))
|
||||
cli-args))
|
||||
*options*)))
|
||||
|
||||
(define valid-args->alist
|
||||
(lambda (valid-args)
|
||||
;; (format (current-error-port) "~s~s~%" "valid-args - " valid-args)
|
||||
(map (lambda (arg)
|
||||
(and arg
|
||||
(string-contains arg "=")
|
||||
(cons
|
||||
(regexp-substitute #f (string-match "=" arg) 'pre)
|
||||
(regexp-substitute #f (string-match "=" arg) 'post))))
|
||||
valid-args)))
|
||||
|
||||
(if (< (length (command-line)) 2)
|
||||
(format #t "~a~%" "Usage: build.scm TARGET [ARG=VALUE]*")
|
||||
(let* ((cli-args (command-line))
|
||||
(target (cadr cli-args))
|
||||
(valid-args (get-valid-args cli-args))
|
||||
(alist (valid-args->alist valid-args))
|
||||
(size (match (assoc-ref alist "size")
|
||||
("a4" "-a4")
|
||||
(_ "")))
|
||||
(ly-command (string-append
|
||||
"lilypond "
|
||||
|
||||
(match (assoc-ref alist "pac")
|
||||
("off" "-dno-point-and-click ")
|
||||
(_ ""))
|
||||
|
||||
"-o output/"
|
||||
*project-name* (match target
|
||||
("main" "")
|
||||
(_ (string-append "-" target)))
|
||||
size
|
||||
" "
|
||||
|
||||
target size ".ly")))
|
||||
;; (format (current-error-port) "~s~s~%" "alist - " alist)
|
||||
(format #t "~2%~a~2%" ly-command)
|
||||
(system ly-command)))
|
||||
|
|
@ -0,0 +1,28 @@
|
|||
\version "2.18.2"
|
||||
|
||||
common = {
|
||||
\key a \major
|
||||
\time 2/4
|
||||
}
|
||||
|
||||
copyright = \markup \center-column {
|
||||
\smaller {
|
||||
\concat {
|
||||
"The author (contrapunctus/Kashish Sharma, "
|
||||
\with-url #"xmpp:contrapunctus@jabber.fr" {xmpp:contrapunctus@jabber.fr}
|
||||
") of this edition of a"
|
||||
}
|
||||
% \raise #1
|
||||
"public domain work has released it into the public domain using the Creative Commons CC0 License - "
|
||||
\with-url #"http://creativecommons.org/publicdomain/zero/1.0/"
|
||||
{http://creativecommons.org/publicdomain/zero/1.0/}
|
||||
% \with-url #"http://lilypond.org/" {
|
||||
% LilyPond ... \italic {
|
||||
% music notation for everyone
|
||||
% }
|
||||
% }
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
title = \markup \fontsize #4 "Grande Solo"
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
\version "2.18.2"
|
||||
|
||||
\include "common.ly"
|
||||
|
||||
%#(set-global-staff-size 16 )
|
||||
\header {
|
||||
title = \title
|
||||
subsubtitle = "Op. 14"
|
||||
composer = "Fernando Sor"
|
||||
copyright = \copyright
|
||||
}
|
||||
|
||||
\include "music/1-introduction/guitar.ly"
|
||||
|
||||
\score {
|
||||
<<
|
||||
\new Staff << \guitar >>
|
||||
>>
|
||||
\layout {}
|
||||
\header {
|
||||
piece = \markup \fontsize #3 "Introduction"
|
||||
}
|
||||
}
|
||||
|
||||
\include "music/2-allegro/guitar.ly"
|
||||
|
||||
\score {
|
||||
<<
|
||||
\new Staff << \guitar >>
|
||||
>>
|
||||
\layout {}
|
||||
\header {
|
||||
piece = \markup \fontsize #3 "Allegro"
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,66 @@
|
|||
\version "2.18.2"
|
||||
|
||||
guitarVoiceOne = \relative c' {
|
||||
|
||||
<f a,>4 q8 q8. <e g,>16 <d f,>8 |
|
||||
cis4 <cis bes g>8 q4 r8 |
|
||||
g'4 g8 g8. f16 e8 |
|
||||
f4 <d c d,>8 q4 r8 |
|
||||
c'4 c8 d16 c bes a g fis |
|
||||
g4 <g d g,>8 q4 r8 |
|
||||
<gis d>4. q |
|
||||
<a cis, a e>4. r |
|
||||
bes16( a) bes( a) bes8 r <a e cis a> <e cis a> |
|
||||
a16( gis) a( gis) a8 r <d, a f> q |
|
||||
<g cis,>4. r8 <e cis a> q |
|
||||
<f d>4. r8 <f d a> q |
|
||||
<f d gis,> q q q g16( f) e-. d-. |
|
||||
f8 q q q g16( f) e-. d-. |
|
||||
f8 q q q g16( f) e-. d-. |
|
||||
<cis a>4. <a' e cis> |
|
||||
<bes f d> <cis g e> |
|
||||
<d a f>~ q4 <c g e>8 |
|
||||
<bes f d>4. q8 <a f d> <gis f d> |
|
||||
<a e cis>4. r |
|
||||
<bes f d> <gis f d> |
|
||||
<a e cis> r4 <a e cis>8 |
|
||||
<gis f d>4. <b f d gis> |
|
||||
<a e cis a> r |
|
||||
a,2.\fermata | \bar "|."
|
||||
|
||||
}
|
||||
|
||||
guitarVoiceTwo = \relative c, {
|
||||
|
||||
\voiceTwo
|
||||
d4 d'8 d,4. |
|
||||
e'4 e,8 e4 r8 |
|
||||
bes''4 bes8 bes8. a16 g8 |
|
||||
f4 <fis, a>8 <fis a>4 r8 |
|
||||
|
||||
}
|
||||
|
||||
guitarVoiceThree = \relative c' {
|
||||
|
||||
\voiceThree
|
||||
a4 a8 a8. g16 f8 |
|
||||
e4 r8 r4. |
|
||||
bes''4 bes8 bes8. a16 g8 |
|
||||
bes''4 bes8 bes8. a16 g8 |
|
||||
f4 <fis a>8 <fis a>4 r8 |
|
||||
|
||||
}
|
||||
|
||||
guitar = \relative c' {
|
||||
|
||||
\clef "treble_8"
|
||||
\key d \minor
|
||||
\time 6/8
|
||||
|
||||
<<
|
||||
{ \guitarVoiceOne }
|
||||
\\
|
||||
{ \guitarVoiceTwo }
|
||||
>>
|
||||
|
||||
}
|
||||
|
|
@ -0,0 +1,224 @@
|
|||
\version "2.18.2"
|
||||
|
||||
guitarVoiceOne = \relative c {
|
||||
|
||||
% 01
|
||||
\repeat unfold 4 { d8 d16( cis) } |
|
||||
d2 r4 <d' b> |
|
||||
<cis a> <a fis> <g e> <b g> |
|
||||
<a fis>2 fis4 r |
|
||||
|
||||
% 05
|
||||
a'8 gis-3 g2-2 fis4 |
|
||||
e8 fis g2 fis4 |
|
||||
e16( dis) fis( e) g( fis) a( g) e8 cis'16( b) a( g) fis( e) |
|
||||
<d fis,>4. <e g,>8 <cis e,>4 r |
|
||||
|
||||
% 09
|
||||
\repeat unfold 4 { d,8 d16( cis) } |
|
||||
d2 r4 <d' b> |
|
||||
<cis a> <a fis> <g e> <b g> |
|
||||
<a fis>2 fis4 r |
|
||||
|
||||
% 13
|
||||
a'8 gis-3 g2-2 fis4 |
|
||||
e8 fis g2 fis4 |
|
||||
e8( e16 dis e8 g) cis,( cis16 b cis8 e) |
|
||||
<d fis,>8 e fis g gis( a) fis d |
|
||||
|
||||
% 17
|
||||
e8( e16 dis e8 g) cis,( cis16 b cis8 e) |
|
||||
<d fis,>8 e fis g gis( a) fis d |
|
||||
e8( e16 dis e8 g) cis,( cis16 b cis8 e) |
|
||||
<d fis,>4 q q r |
|
||||
|
||||
% 21
|
||||
\repeat unfold 4 { r16 d fis d' } |
|
||||
\repeat unfold 4 { cis4 } |
|
||||
\repeat unfold 4 { r16 d, fis d' } |
|
||||
\repeat unfold 4 { cis4 } |
|
||||
|
||||
% 25
|
||||
\tuplet 6/4 { d8 d d d d d } \tuplet 6/4 { d d d cis cis cis } |
|
||||
\tuplet 6/4 { b b b b b b } \tuplet 6/4 { b b b a a a } |
|
||||
\tuplet 6/4 { g g g g g g } \tuplet 6/4 { b b b b b b } |
|
||||
\tuplet 3/2 { a a a } \tuplet 3/2 { a a a } \tuplet 3/2 { gis gis gis } \tuplet 3/2 { gis gis gis } |
|
||||
|
||||
% 29
|
||||
r8 <a e cis> q8. q16 r8 <cis g e> q8. q16 |
|
||||
r8 <d fis, d> q8. q16 r8 <b f d> q8. q16 |
|
||||
r8 <a e cis> q8. q16 r8 <cis g e> q8. q16 |
|
||||
r8 <d fis, d> q8. q16 r8 <b f d> q8. q16 |
|
||||
|
||||
% 33
|
||||
<a e cis a>4 <cis e, cis a> <a e cis a> r |
|
||||
cis4. b8 a4 a |
|
||||
b b b r |
|
||||
cis4. cis8 d cis b cis |
|
||||
|
||||
% 37
|
||||
d4 d d r |
|
||||
b4. cis16 b a8 gis fis e |
|
||||
a8 cis16 b b( a) gis( a) a8 cis16 b b( a) gis( a) |
|
||||
fis8 gis a ais b fis d' b |
|
||||
|
||||
% 41
|
||||
a4. b8 gis4 r |
|
||||
cis4. b8 a4 a |
|
||||
b4 b b r |
|
||||
cis4. cis8 d cis b cis |
|
||||
|
||||
% 45
|
||||
d4 d d r |
|
||||
b4. cis16( b) a8 gis fis e |
|
||||
a8 a cis e d cis b ais |
|
||||
b4 b b a |
|
||||
|
||||
% 49
|
||||
gis16 e dis e fis( e) dis e b e cis e d e b e |
|
||||
cis e e e e e e e d e cis e b e a, e' |
|
||||
r16 e dis e fis e dis e b e cis e d e b e |
|
||||
cis e e e e e e e d e cis e b e a, e' |
|
||||
|
||||
% 53
|
||||
e4 gis e r |
|
||||
r2. <cis' e,>4 |
|
||||
<bis dis,>2 <cis e,>4 q |
|
||||
<bis dis,>2 <cis e,>4 q |
|
||||
|
||||
% 57
|
||||
<e g,>2 <d fis,>4 q |
|
||||
<b gis>8 fis' e d <cis a>4 <cis, e,> |
|
||||
<bis dis,>2 <cis e,>4 q |
|
||||
<bis dis,>2 <cis e,>4 q |
|
||||
|
||||
% 61
|
||||
<e g,>2 <d fis,>4 q |
|
||||
<b gis>8 fis' e d <cis a> e e e |
|
||||
r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
|
||||
r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
|
||||
|
||||
% 65
|
||||
r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
|
||||
r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
|
||||
r4 ais ais ais |
|
||||
b8 cis d cis e dis d b |
|
||||
|
||||
% 69
|
||||
cis8. b16 a2 gis4 |
|
||||
a s2. |
|
||||
r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
|
||||
r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
|
||||
|
||||
% 73
|
||||
r16 e dis e fis( e) dis e gis( e) b'( gis) e8 r |
|
||||
r16 e dis e fis( e) dis e a( e) cis'( a) e8 r |
|
||||
r4 ais ais ais |
|
||||
b8 cis d cis e dis d b |
|
||||
|
||||
% 77
|
||||
cis8. b16 a2 gis4 |
|
||||
<a cis,>4 r r <a fis> |
|
||||
<gis e> <fis d> <e cis> <dis bis> |
|
||||
<e cis>2 <cis a>4 r8 <g' cis,> |
|
||||
|
||||
% 81
|
||||
fis8 fis16( e) fis8 a gis e b' gis |
|
||||
<a cis,>4 r r <a fis> |
|
||||
<gis e> <fis d> <e cis> <dis bis> |
|
||||
<e cis>2 <cis a>4 r8 <g' cis,> |
|
||||
|
||||
% 85
|
||||
fis8 fis16( e) fis8 a gis e b' gis |
|
||||
<a e cis a>4 <cis e, cis a>4. b8 a gis |
|
||||
fis e d cis <fis d a>4 <gis d b> |
|
||||
<a e cis a>4 <cis e, cis a>4. b8 a gis |
|
||||
|
||||
% 89
|
||||
fis e d cis <fis d a>4 <gis d b> |
|
||||
r8 <a cis,> q4 r8 q q4 |
|
||||
r8 <b d,> q4 r8 q q4 |
|
||||
r8 <a cis,> q4 r8 q q4 |
|
||||
|
||||
% 93
|
||||
r8 <b d,> q4 r8 q q4 |
|
||||
r8 <a cis,> q4 r8 <b d,> q4 |
|
||||
r4 <a e cis a> q <cis e, cis a> |
|
||||
<a e cis a>2 r | \bar "|."
|
||||
|
||||
% 97
|
||||
<a ees>4 q q q |
|
||||
q2 r |
|
||||
<bes f>4 q q q |
|
||||
q2 r |
|
||||
|
||||
% 101
|
||||
<c ges>4 q q q |
|
||||
q2 r |
|
||||
\key des \major <des des,>2 s |
|
||||
<des des,> s |
|
||||
|
||||
% 105
|
||||
\repeat unfold 4 { ees,16 ges c ges } |
|
||||
\repeat unfold 4 { ees16 ges c ges } |
|
||||
<des' des,>2 s |
|
||||
<des des,> s |
|
||||
|
||||
% 109
|
||||
\repeat unfold 4 { ees,16 ges c ges } |
|
||||
\repeat unfold 4 { ees16 ges c ges } |
|
||||
\repeat unfold 8 des'8 |
|
||||
\repeat unfold 8 des8 |
|
||||
|
||||
% 113
|
||||
\key d \major \repeat unfold 8 <b e, d>8 |
|
||||
\repeat unfold 8 <b e, d>8 |
|
||||
\repeat unfold 4 { a,16 cis e a } |
|
||||
\repeat unfold 4 { a, cis e a } |
|
||||
|
||||
% 117
|
||||
\repeat unfold 4 { g, cis e bes' } |
|
||||
\repeat unfold 4 { g, cis e bes' } |
|
||||
\repeat unfold 4 { f, a d a' } |
|
||||
\repeat unfold 4 { f, a d a' } |
|
||||
|
||||
% 121
|
||||
\repeat unfold 4 { e, bes' cis g' } |
|
||||
\repeat unfold 4 { e, bes' cis g' } |
|
||||
|
||||
}
|
||||
|
||||
guitarVoiceTwo = \relative c, {
|
||||
|
||||
\voiceTwo
|
||||
\repeat unfold 4 d4 |
|
||||
\repeat unfold 8 d8 |
|
||||
\repeat unfold 8 d8 |
|
||||
\repeat unfold 4 d8 d e fis g |
|
||||
|
||||
}
|
||||
|
||||
guitarVoiceThree = \relative c' {
|
||||
|
||||
\voiceThree
|
||||
a4 a8 a8. g16 f8 |
|
||||
e4 r8 r4. |
|
||||
bes''4 bes8 bes8. a16 g8 |
|
||||
bes''4 bes8 bes8. a16 g8 |
|
||||
f4 <fis a>8 <fis a>4 r8 |
|
||||
|
||||
}
|
||||
|
||||
guitar = \relative c' {
|
||||
|
||||
\clef "treble_8"
|
||||
\key d \major
|
||||
\time 4/4
|
||||
|
||||
<<
|
||||
{ \guitarVoiceOne }
|
||||
\\
|
||||
{ \guitarVoiceTwo }
|
||||
>>
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue