Preuredi imenike

kitara/iedere.ly

@@ -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
+    }
+  }
+}