From 88172ed482b1d671a6a601bb106289c4de9f9c93 Mon Sep 17 00:00:00 2001 From: Kljunas2 Date: Tue, 27 Feb 2024 19:20:03 +0100 Subject: [PATCH] Preuredi imenike --- iedere.ly => kitara/iedere.ly | 0 kitara/lagrima.ly | 103 ++++++++++++++++++ valse.ly => kitara/valse.ly | 11 +- .../raduj_clovek_moj.ly | 2 +- raduj_se.ly => ljudske/raduj_se.ly | 0 sv_noc.ly => ljudske/sv_noc.ly | 0 domovina.ly => svetne/domovina.ly | 0 pozdrav.ly => svetne/pozdrav.ly | 0 8 files changed, 110 insertions(+), 6 deletions(-) rename iedere.ly => kitara/iedere.ly (100%) create mode 100644 kitara/lagrima.ly rename valse.ly => kitara/valse.ly (94%) rename raduj_clovek_moj.ly => ljudske/raduj_clovek_moj.ly (99%) rename raduj_se.ly => ljudske/raduj_se.ly (100%) rename sv_noc.ly => ljudske/sv_noc.ly (100%) rename domovina.ly => svetne/domovina.ly (100%) rename pozdrav.ly => svetne/pozdrav.ly (100%) diff --git a/iedere.ly b/kitara/iedere.ly similarity index 100% rename from iedere.ly rename to kitara/iedere.ly diff --git a/kitara/lagrima.ly b/kitara/lagrima.ly new file mode 100644 index 0000000..57e038e --- /dev/null +++ b/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 + } + } +} diff --git a/valse.ly b/kitara/valse.ly similarity index 94% rename from valse.ly rename to kitara/valse.ly index c149242..daa3e82 100644 --- a/valse.ly +++ b/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)))))) #{ + 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. diff --git a/raduj_clovek_moj.ly b/ljudske/raduj_clovek_moj.ly similarity index 99% rename from raduj_clovek_moj.ly rename to ljudske/raduj_clovek_moj.ly index 53a7364..592e1cc 100644 --- a/raduj_clovek_moj.ly +++ b/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 diff --git a/raduj_se.ly b/ljudske/raduj_se.ly similarity index 100% rename from raduj_se.ly rename to ljudske/raduj_se.ly diff --git a/sv_noc.ly b/ljudske/sv_noc.ly similarity index 100% rename from sv_noc.ly rename to ljudske/sv_noc.ly diff --git a/domovina.ly b/svetne/domovina.ly similarity index 100% rename from domovina.ly rename to svetne/domovina.ly diff --git a/pozdrav.ly b/svetne/pozdrav.ly similarity index 100% rename from pozdrav.ly rename to svetne/pozdrav.ly