1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
\version "2.20.0"
\header {
= "Dengoso"
= "João Pernambuco"
= "Andante moderato"
= \markup {
\with-url #"https://creativecommons.org/licenses/by-sa/4.0/" \line {
CC BY-SA 4.0
}
}
= \markup {
\with-url #"https://euandre.org/music.html" \line {
euandre.org/music.html
}
}
}
cWithSlash = \markup {
\fontsize #-2
\combine \roman C \translate #'(0.6 . -0.4) \draw-line #'(0 . 2.0)
}
pestana =
#(define-music-function (barre location str music) (string? ly:music?)
(let ((elts (extract-named-music music '(NoteEvent EventChord))))
(if (pair? elts)
(let ((first-element (first elts))
(last-element (last elts)))
(set! (ly:music-property first-element 'articulations)
(cons (make-music 'TextSpanEvent 'span-direction -1)
(ly:music-property first-element 'articulations)))
(set! (ly:music-property last-element 'articulations)
(cons (make-music 'TextSpanEvent 'span-direction 1)
(ly:music-property last-element 'articulations))))))
#{
\once \override TextSpanner.font-shape = #'upright
\once \override TextSpanner.style = #'line
\once \override TextSpanner.bound-details =
#`((right
(text . ,#{ \markup { \draw-line #'( 0 . -.5) } #})
(Y . 0))
(left
(text . ,#{ \markup { \cWithSlash \fontsize #-2 #str } #})
(Y . 0)
(attach-dir . -4)))
$music
#})
globals = {
\clef "treble_8"
\key d \major
\time 2/4
\set fingeringOrientations = #'(left)
\tempo 4 = 100
}
upper = \relative c {
\globals
r16 <d-0>8 <e-1>16 <fis-3> <e-1>8 <d-0>16 |
<a'-3>8. a16 <g-1>8. g16 |
<fis-3>8. fis16 <f-2>8. <e-1>16 |
r2 |
r16 d8 e16 fis e8 d16 |
a'8. a16 g8. g16 |
fis8. fis16 f8. e16 |
r2 |
<d'-2>8 \pestana #"II" { <fis,-3 a-1> fis' d16 } <e-0>~ |
e2 |
d8 \pestana #"II" { <fis, a> fis' d16 } e~ |
e2 |
\repeat volta 2 {
\pestana #"V" {
a16 <a,-3 d-4>8 <a d>16 r16 <g'-4>8 <fis-3>16 |
a16 <g,-1 cis-2>8 <g cis>16 r16 <cis-2> <fis-4> <cis-2> |
}
<a-1 e'-0>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
<b-0>16 <cis,-3 g'-4>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |
<d'-2>16 <fis,-3 a-1>8 <fis a>16 <fis'-4>8 <a,-3 c-2> |
<e'-0>16 <a,-2 cis-3>8 <a cis>16 r16 <g-0> <cis-3> <e-0> |
<d gis d'>16 <d gis d'>8 <d gis d'>16 <d gis cis>8 <d gis b> |
<e'-4>16 <cis,-2 g'-3>8 <cis g'>16 <cis g' b>8 <cis-2 g'-3 a-1> |
\pestana #"V" {
a'16 <a, d>8 <a d>16 r16 <g'>8 <fis>16 |
a16 <g, cis>8 <g cis>16 r16 <cis> <fis> <cis> |
}
<a e'>16 <a d>8 <a cis>16^\markup { \cWithSlash \fontsize #-2 II } <a b>8 a |
<b>16 <cis, g'>8 <cis g'>16 \pestana #"II" { cis'8 <g a> } |
d'16 <fis, a>8 <fis a>16 dis'8 <fis, a> |
<e'-0>8 <b-3 d-2>16 <ais-2 cis-1> <g b e> <d'-2>( <b-0>) <g-0> |
<fis-3> <d'-2> <a-1> <fis-3> <e-1> <cis'-2> <g-0> <e-1>
}
\alternative {
{ d, \pestana #"II" { a'' d fis g fis g gis } | }
{ r4 <d fis d'>^\markup { \cWithSlash \fontsize #-2 VII } | }
}
\bar "||"
}
lower = \relative c {
\globals
r2 |
r8 a r a |
r8 a r a |
r16 <a-0>8 <b-1>16 <cis-3> <b-1>8 <a-0>16 |
d16 r8. r4
r8 a r a |
r8 a r a |
r16 a8 b16 cis b8 a16 |
d,4. a''16 a,~ |
a a8 b16 cis b8 a16
d,4. a''16 a,~ |
a a8 b16 cis b8 a16 |
\repeat volta 2 {
d,4 dis' |
<e-3> g, |
<fis'-3>16 fis8 fis16 fis8 fis |
e,4 cis' |
d, dis |
<e-1> <ais-1> |
e' e |
a, r4 |
d, <dis'-2> |
e g, |
fis'16 fis8 fis16 fis8 fis |
e,4 cis' |
d, fis |
<e-4>8 r8 r4 |
fis'8. fis16 e8. e16 |
}
\alternative {
{ d,2 | }
{ d8 a' d4 | }
}
}
staff = \new Staff <<
\upper
\\
\lower
>>
\score {
\staff
\layout { }
}
\score {
\unfoldRepeats \staff
\midi { }
}
% duas coisas:
% marcação de cordas
% compartilhar notas entre vozes
|
