Preuredi imenike
This commit is contained in:
92
kitara/iedere.ly
Normal file
92
kitara/iedere.ly
Normal file
@@ -0,0 +1,92 @@
|
||||
\version "2.22.2"
|
||||
\language "deutsch"
|
||||
\header{
|
||||
title = "Iedere nacht verlang ik"
|
||||
tagline = ##f
|
||||
}
|
||||
bbarre =
|
||||
#(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-size = #-2
|
||||
\once \override TextSpanner.font-shape = #'upright
|
||||
\once \override TextSpanner.staff-padding = #3
|
||||
\once \override TextSpanner.style = #'line
|
||||
\once \override TextSpanner.to-barline = ##f
|
||||
\once \override TextSpanner.bound-details =
|
||||
#`((left
|
||||
(text . ,#{ \markup { \draw-line #'( 0 . -.5) } #})
|
||||
(Y . 0)
|
||||
(padding . 0.25)
|
||||
(attach-dir . -2))
|
||||
(right
|
||||
(text . ,#{ \markup { #str } #})
|
||||
(Y . 0)
|
||||
(padding . 0.25)
|
||||
(attach-dir . 2)))
|
||||
%% uncomment this line for make full barred
|
||||
% \once \override TextSpanner.bound-details.left.text = \markup{"B" #str}
|
||||
$music
|
||||
#})
|
||||
melody = \relative {
|
||||
\set fingeringOrientations = #'(down)
|
||||
\mergeDifferentlyHeadedOn
|
||||
\mergeDifferentlyDottedOn
|
||||
\key g \major
|
||||
\time 4/4
|
||||
\voiceOne
|
||||
\partial 4. h'8 e fis \bar ".|:"
|
||||
e, e' h e, a, [<c'-1>] h <d-4>
|
||||
e, [e'] <fis-1> [<d-2>] <h-4> <d-2> <a'-3> d,
|
||||
e [<a-4>] a [g] g [e] e g
|
||||
\bbarre #"II" {
|
||||
fis d h d
|
||||
\autoBeamOff fis
|
||||
} g d, [fis']
|
||||
\autoBeamOn
|
||||
c, c' e g a [d,] <g-2> <a-4>
|
||||
<h-4> [h,] <c'-4> e, a e c <g'-4>
|
||||
<fis-2> [h,] e, g' a [e] <d-3> <fis-2>
|
||||
e, e' h g e, h'' e fis
|
||||
}
|
||||
bass = \relative {
|
||||
\set fingeringOrientations = #'(down)
|
||||
\key g \major
|
||||
\time 4/4
|
||||
\voiceTwo
|
||||
\partial 4. s4.
|
||||
<e'-2>4. e8 a,4 <h-2>
|
||||
<e-2> d <g,-1>4. g8
|
||||
<c-1>4 a <e'-1> e
|
||||
h2 r8 e d4
|
||||
c4. c8 d4 <e-1>8 <fis-3>
|
||||
<g-0>4 <c,-3> a4. <e'-1>8
|
||||
<h-1>4 e a, d
|
||||
<e-1>2 e, \bar ":|."
|
||||
}
|
||||
|
||||
\score {
|
||||
\new Staff = "guitar" <<
|
||||
\tempo 4 = 78
|
||||
\context Voice = "upper" { \melody }
|
||||
\context Voice = "lower" { \bass }
|
||||
>>
|
||||
\layout {
|
||||
\context {
|
||||
\Score
|
||||
\remove "Bar_number_engraver"
|
||||
\override Fingering.staff-padding = #'()
|
||||
\omit TupletNumber
|
||||
\override TupletBracket.bracket-visibility = ##f
|
||||
}
|
||||
}
|
||||
}
|
||||
103
kitara/lagrima.ly
Normal file
103
kitara/lagrima.ly
Normal file
@@ -0,0 +1,103 @@
|
||||
\version "2.22.2"
|
||||
\language "deutsch"
|
||||
\header{
|
||||
title = "Lagrima"
|
||||
composer = "Francisco Tarrega"
|
||||
tagline = ##f
|
||||
}
|
||||
bbarre =
|
||||
#(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-size = #-2
|
||||
\once \override TextSpanner.font-shape = #'upright
|
||||
\once \override TextSpanner.staff-padding = #3
|
||||
\once \override TextSpanner.style = #'line
|
||||
\once \override TextSpanner.to-barline = ##f
|
||||
\once \override TextSpanner.bound-details =
|
||||
#`((left
|
||||
(text . ,#{ \markup { \draw-line #'( 0 . -.5) } #})
|
||||
(Y . 0)
|
||||
(padding . 0.25)
|
||||
(attach-dir . -2))
|
||||
(right
|
||||
(text . ,#{ \markup { #str } #})
|
||||
(Y . 0)
|
||||
(padding . 0.25)
|
||||
(attach-dir . 2)))
|
||||
%% uncomment this line for make full barred
|
||||
% \once \override TextSpanner.bound-details.left.text = \markup{"B" #str}
|
||||
$music
|
||||
#})
|
||||
|
||||
global = {
|
||||
\set fingeringOrientations = #'(left)
|
||||
\mergeDifferentlyHeadedOn
|
||||
\mergeDifferentlyDottedOn
|
||||
\key e \major
|
||||
\time 3/4
|
||||
}
|
||||
|
||||
melodyone = \relative {
|
||||
\global
|
||||
\voiceOne
|
||||
\bar "|."
|
||||
gis''4-3 a4-2 h4-4
|
||||
fis2.-4
|
||||
gis4 a4 h4
|
||||
fis2.
|
||||
|
||||
\bbarre #"IX" {
|
||||
e'4-4 dis4-4
|
||||
} \bbarre #"VII" {
|
||||
cis4-3
|
||||
h4-1
|
||||
}
|
||||
cis,8[ e8 fis8 a8]
|
||||
gis4-3 cis,8[ fis8] h,,8[ dis'8]
|
||||
e2 r4
|
||||
}
|
||||
|
||||
melodytwo = \relative {
|
||||
\global
|
||||
\voiceFour
|
||||
}
|
||||
|
||||
bass = \relative {
|
||||
\global
|
||||
\voiceTwo
|
||||
e'4-1 fis4-1 gis4-3
|
||||
dis2.-1
|
||||
e4 fis4 gis4
|
||||
dis2.
|
||||
|
||||
cis'4-3 h4 a4
|
||||
h4-2\glissando cis2-2
|
||||
}
|
||||
|
||||
\score {
|
||||
\new Staff = "guitar" <<
|
||||
%\tempo 4 = 114
|
||||
\context Voice = "upper" { \melodyone }
|
||||
\context Voice = "middle" { \melodytwo }
|
||||
\context Voice = "lower" { \bass }
|
||||
>>
|
||||
\layout {
|
||||
\context {
|
||||
\Score
|
||||
\remove "Bar_number_engraver"
|
||||
\override Fingering.staff-padding = #'()
|
||||
%\omit TupletNumber
|
||||
%\override TupletBracket.bracket-visibility = ##f
|
||||
}
|
||||
}
|
||||
}
|
||||
167
kitara/valse.ly
Normal file
167
kitara/valse.ly
Normal file
@@ -0,0 +1,167 @@
|
||||
\version "2.22.2"
|
||||
\language "deutsch"
|
||||
\header{
|
||||
title = "Valse"
|
||||
composer = "Francisco Tarrega"
|
||||
tagline = ##f
|
||||
}
|
||||
bbarre =
|
||||
#(define-music-function (barre location str bottom top music) (string? ly:pitch? ly:pitch? 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))))))
|
||||
#{
|
||||
<a e>1\arpeggio
|
||||
\once \override TextSpanner.font-size = #-2
|
||||
\once \override TextSpanner.font-shape = #'upright
|
||||
\once \override TextSpanner.staff-padding = #3
|
||||
\once \override TextSpanner.style = #'line
|
||||
\once \override TextSpanner.to-barline = ##f
|
||||
\once \override TextSpanner.bound-details =
|
||||
#`((left
|
||||
(text . ,#{ \markup { #str } #})
|
||||
(text . ,#{ \markup { \draw-line #'( 0 . -.5) } #})
|
||||
(Y . 0)
|
||||
(padding . 0.25)
|
||||
(attach-dir . -2))
|
||||
(right
|
||||
(Y . 0)
|
||||
(padding . 0.25)
|
||||
(attach-dir . 2)))
|
||||
%% uncomment this line for make full barred
|
||||
% \once \override TextSpanner.bound-details.left.text = \markup{"B" #str}
|
||||
$music
|
||||
#})
|
||||
|
||||
global = {
|
||||
\set fingeringOrientations = #'(left)
|
||||
\mergeDifferentlyHeadedOn
|
||||
\mergeDifferentlyDottedOn
|
||||
\key a \major
|
||||
\time 3/4
|
||||
\partial 4
|
||||
}
|
||||
|
||||
melodyone = \relative {
|
||||
\global
|
||||
\voiceOne
|
||||
e''4-0
|
||||
e2.-0
|
||||
fis2.-3
|
||||
\bbarre #"II" a d {fis2.
|
||||
gis2.-3
|
||||
gis2 a4-4
|
||||
a2 gis4
|
||||
} %\bbarre #"II" {
|
||||
%fis2. }
|
||||
|
||||
r2.
|
||||
fis2.
|
||||
gis2-4 a4
|
||||
cis2.
|
||||
h2.
|
||||
e8-4 d8-2 fis,4-3 gis4-1
|
||||
cis8-4 h8 d,4-1 e4-3
|
||||
h'8-4 a8 cis,4-2 e4
|
||||
r4 r4
|
||||
|
||||
e4
|
||||
e2.
|
||||
fis2.
|
||||
fis2.
|
||||
gis2.
|
||||
gis2.
|
||||
a2.
|
||||
e'2.-4
|
||||
d2.-1
|
||||
fis,2.
|
||||
d'2.-4
|
||||
cis2.-3
|
||||
e,2.
|
||||
fis2.-1
|
||||
h2.
|
||||
a2.
|
||||
a2
|
||||
}
|
||||
|
||||
melodytwo = \relative {
|
||||
\global
|
||||
\voiceThree
|
||||
s4
|
||||
r4 <a'-1 cis-2>4 <a cis>4
|
||||
r4 <a cis>4 <a cis>4
|
||||
r4 <a cis>4 <a cis>4
|
||||
r4 <a cis>4 <a cis>4
|
||||
r4 <a cis>4 <a cis>4
|
||||
r4 <a cis>4 <a cis>4
|
||||
r4 <h-3 d-3>4 <h d>4
|
||||
|
||||
%r2.
|
||||
}
|
||||
|
||||
bass = \relative {
|
||||
\global
|
||||
\voiceTwo
|
||||
r4
|
||||
a2.
|
||||
e2.
|
||||
a2.
|
||||
e2.
|
||||
a2.
|
||||
e2.
|
||||
h'2.
|
||||
|
||||
h4 cis4-3 d4
|
||||
e,2.
|
||||
h'2.
|
||||
e,2.
|
||||
e'2.
|
||||
e,2.
|
||||
e2.
|
||||
a2.
|
||||
\override NoteHead.style = #'harmonic-mixed
|
||||
a2.-3^\markup { \italic \fontsize #-2 "Harm. VII" }
|
||||
\revert NoteHead.style
|
||||
|
||||
a2.
|
||||
e2.
|
||||
a2.
|
||||
e2.
|
||||
a2.
|
||||
a2.
|
||||
d2.
|
||||
d2.
|
||||
h2.
|
||||
d2.
|
||||
e2.
|
||||
e,2.
|
||||
e2.
|
||||
e'2.
|
||||
a,2.
|
||||
a2
|
||||
}
|
||||
|
||||
\score {
|
||||
\new Staff = "guitar" <<
|
||||
\tempo 4 = 114
|
||||
\context Voice = "upper" { \melodyone }
|
||||
\context Voice = "middle" { \melodytwo }
|
||||
\context Voice = "lower" { \bass }
|
||||
>>
|
||||
\layout {
|
||||
\context {
|
||||
\Score
|
||||
\remove "Bar_number_engraver"
|
||||
\override Fingering.staff-padding = #'()
|
||||
\omit TupletNumber
|
||||
\override TupletBracket.bracket-visibility = ##f
|
||||
}
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user