Preuredi imenike

2024-02-27 19:20:03 +01:00
parent 23f6c057e6
commit 88172ed482
8 changed files with 110 additions and 6 deletions
--- a/kitara/valse.ly
+++ b/kitara/valse.ly
@@ -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
+    }
+  }
+}