Preuredi imenike

kitara/lagrima.ly

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

kitara/valse.ly

@@ -6,7 +6,7 @@
   tagline = ##f
 }
 bbarre =
-#(define-music-function (barre location str music) (string? ly:music?)
+#(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))
@@ -18,6 +18,7 @@ bbarre =
                  (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
@@ -25,12 +26,12 @@ bbarre =
        \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
-                (text . ,#{ \markup { #str } #})
                 (Y . 0)
                 (padding . 0.25)
                 (attach-dir . 2)))
@@ -54,12 +55,12 @@ melodyone = \relative  {
   e''4-0
   e2.-0
   fis2.-3
-  \bbarre #"II" {fis2.
+  \bbarre #"II" a d {fis2.
   gis2.-3
   gis2 a4-4
   a2 gis4
-  } \bbarre #"II" {
-  fis2. }
+  } %\bbarre #"II" {
+  %fis2. }
 
   r2.
   fis2.

ljudske/raduj_clovek_moj.ly

@@ -33,7 +33,7 @@ sopran = \relative  {
   d'4\f( a4) d8[ c8]
   h8 h8 g4 r4
 
-  d8\p d8 a'4 g4
+  e8\p e8 a4 g4
   fis2 r4
 
   d4( g4) a4