Leitereigene Vierklänge H Dur

Zur Navigation springen Zur Suche springen
Leitereigene Vierklänge H Dur.png

hier gibt es ergänzenden Lilypond-Code, um den Score kompilieren zu können

Stufen = {
  s1-"I" s1-"ii" s1-"iii" s-"IV" s-"V" s-"vi" s-"vii"
}

leiter  = \relative c' { c1 d e f g a h }
leiters = \modalTranspose c e \leiter \leiter
leitert = \modalTranspose c g \leiter \leiter
leiterq = \modalTranspose c h \leiter \leiter

\paper {
  markup-system-spacing.minimum-distance = #15
  markup-markup-spacing.minimum-distance = #15
  top-markup-spacing.minimum-distance = #20
  oddHeaderMarkup = ##f
  evenHeaderMarkup = #oddHeaderMarkup
  oddFooterMarkup = #oddHeaderMarkup
  evenFooterMarkup = #oddHeaderMarkup
}

\bookpart {
  \header {
    title = \markup \override #'(font-features . ("smcp")) \override #'(box-padding . 1)
    \override #'(thickness . 2)
    \concat { \rounded-box "Leitereigene Vierklänge H-Dur" "     " }
    tagline = ##f
  }

  \paper {
    ragged-right = ##f
    ragged-last = ##f
    ragged-bottom = ##t
    ragged-last-bottom = ##t
    line-width = 140\mm
  }
  \score {
    \VierKlang \leiter \leiters \leitert \leiterq h
    \layout {
      \context {
        \Voice
        \override TextScript.outside-staff-priority = ##f
        \override TextScript.padding = #4
      }
      \context {
        \Staff
        \remove "Time_signature_engraver"
      }
      \context {
        \Score
        \override VerticalAxisGroup.staff-staff-spacing.minimum-distance = #16
        \override VerticalAxisGroup.staff-staff-spacing.padding = #7
        \override BarNumber.stencil = ##f
        \override KeyCancellation.break-visibility = #'#(#f #f #f)
        \remove "System_start_delimiter_engraver"
        \remove "Default_bar_line_engraver"
        \remove "Mark_engraver"
        \override SpacingSpanner.strict-note-spacing = ##t
      }
      % {
      \context {
        \ChordNames
        \alias ChordNames
        \override ChordName.self-alignment-X = #LEFT
        chordNameLowercaseMinor = ##f
        \override Rest.stencil = ##f
        chordNoteNamer = #(chord-name->german-markup #f)
        chordChanges = ##f
        chordNameLowercaseMinor = ##f
        chordNameExceptions = #chExceptions
        chordRootNamer = #germanChords
        majorSevenSymbol = \markup { maj7 }
        \override ChordName.font-name = #"Arial Narrow"
        \override ChordName.layer = #2
        \override ChordName.extra-spacing-width = #'(+inf.0 . -inf.0)
        \override ChordName.font-size = #1
        noChordSymbol = ##f 
        \override VerticalAxisGroup.staff-affinity = #DOWN
        \override VerticalAxisGroup.nonstaff-relatedstaff-spacing.padding = #1
      }
    }
  }
}