Greensleeves/score

Zur Navigation springen Zur Suche springen


Score + Layout

myTitel = "Greensleeves"
xcomp = \markup "trad"

Struktur = {
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
  \mark \markup \box A
  s8 s2. * 8
  \mark \markup \box B
}

kopf=   \header {
  title = \markup \line
  {
    #myTitel
  }
  subtitle = ##f
  subsubtitle = ##f
  poet = ##f
  composer = \markup { #xcomp }
  piece = ##f
  opus = ##f
}

\bookpart {
  \include "_index.ly"
  \kopf
  \paper {
    print-all-headers = ##f
    system-system-spacing = #'((basic-distance . 12)
                               (padding . 12)
                               (minimum-distance . 5))
    markup-markup-spacing = #'((basic-distance . 10)
                               (padding . 4)
                               (stretchability . 60))
    top-markup-spacing = #'((basic-distance . 10)
                            (padding . 4)
                            (stretchability . 30))
    top-system-spacing = #'((basic-distance . 10)
                            (padding . 15)
                            (stretchability . 60))
    markup-system-spacing  = #'((basic-distance . 10)
                                (minimum-distance . 5)
                                (padding . 5)
                                (stretchability . 60))
  }
  \score {
    \new StaffGroup
    <<
      \new BarNumberStaff=melodie
      <<
        \new Voice="melody"
        \AccordionI
        \new NullVoice \Struktur
      >>
      \new Staff \new Voice \AccordionII
      \new Lyrics \lyricsto "melody" \sndverse
      \new Lyrics \lyricsto "melody" \firstverse
      \new Staff \new Voice \AccordionIII
      \new ChordNames=oben
      {
        \Bassi
      }
      \new RhythmicStaff \new Voice \Bassrhy
      \new SecondChords \Akk
      \new UpperChords
      \with {
      }
      {
        \set ChordNames.alignAboveContext = melodie
        \OAkk
      }
    >>
    \layout {
      \context {
        \BarNumberStaff
        \override VerticalAxisGroup.staff-staff-spacing.padding = #8
      }

      \context {
        \Staff
        \override VerticalAxisGroup.staff-staff-spacing.padding = #8
      }
    }
  }
}