Orgel Vorspiel Bungart 66/score

Zur Navigation springen Zur Suche springen
\version "2.20.0"
\language "deutsch"
myTitel = "Orgel Präludium № 66"

#(define (naturalize-pitch p)
   (let ((o (ly:pitch-octave p))
         (a (* 4 (ly:pitch-alteration p)))
         ;; alteration, a, in quarter tone steps,
         ;; for historical reasons
         (n (ly:pitch-notename p)))
     (if (= n 5) (set! a (+ a 2)))
     (if (= n 2) (set! a 0))
     ; (if (= n 6) (set! a (+ a 2)))
     (ly:make-pitch o n (/ a 4))))

#(define (naturalize music)
   (let ((es (ly:music-property music 'elements))
         (e (ly:music-property music 'element))
         (p (ly:music-property music 'pitch)))
     (if (pair? es)
         (ly:music-set-property!
          music 'elements
          (map naturalize es)))
     (if (ly:music? e)
         (ly:music-set-property!
          music 'element
          (naturalize e)))
     (if (ly:pitch? p)
         (begin
          (set! p (naturalize-pitch p))
          (ly:music-set-property! music 'pitch p)))
     music))

naturalizeMusic =
#(define-music-function (m)
   (ly:music?)
   (naturalize m))

MollDur =
#(define-music-function (p q m)
   (ly:pitch? ly:pitch? ly:music?)
   #{
     \key $p \major \transpose c $p \naturalizeMusic \transpose $q c { $m }
   #}
   )

\layout {
  \context {
    \Voice
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override Stem.neutral-direction = #down
    \override Script.outside-staff-priority = #'()
    \override Script.padding = #1
    \override Tie.thickness = #1
    \override PhrasingSlur.thickness = #3
    \override Rest.voiced-position = #0
    \override MultiMeasureRest.expand-limit = #3
  }
  \context {
    \Staff
    printPartCombineTexts = ##f
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override InstrumentName.font-features = #'("smcp")
  }
  \context {
    \Score
    \override VerticalAxisGroup.remove-first = ##t
    skipBars = ##f
    \override MetronomeMark.font-size = #1
    \override MetronomeMark.font-shape = #'caps
    \override BarLine.thick-thickness = 5
    barNumberVisibility = #all-bar-numbers-visible
    \override Timing.beamExceptions = #'()
    \override BarNumber.color = #(rgb-color 0.7 0.7 0.7)
    \override BarNumber.layer = #-200
    \override BarNumber.outside-staff-priority =#'()
    \override BarNumber.padding = #1
    \override BarNumber.font-size = #-1
    \override BarNumber.font-series = #'bold
    \override BarNumber.self-alignment-X = #0
    \override BarNumber.break-visibility = #end-of-line-invisible
  }
}

sop = \relative c'' {
  \time 4/4
  d2 f, b a4 g
  f2. e4
  d2 cis d1
  \bar "|."
}

alt = \relative c' {
  f2 d e1
  d2 b
  a1 ~ a
}

ten = \relative c' {
  \clef bass
  a1 g2 a2 ~
  a g f g
  f1
}

bas = \relative c {
  d1 ~ d2 cis d g,
  a1 d
}

Struktur =
{
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/12)
  %\override PianoStaff.VerticalAxisGroup.staff-staff-spacing.padding = #21
  \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.basic-distance = #16

}

kopf=\header {
  title = \markup \line
  {
    \myTitel
  }
  subtitle = "Präludienalbum"
  subsubtitle = "Heinrich Bungart"
  poet = "Notensatz: lilypond.miraheze.org"
  composer = "M: Johann Gottlob Töpfer (1791-1870)"
  opus = ##f
  arranger = "Originaltonart: D-Moll"
  meter = ##f %%unterhalb poet links
  piece = ##f %"Originaltonart: D-Moll"
}

\bookpart {
  \paper {
    top-margin = 45\mm
    ragged-right = ##f
    ragged-last = ##f
    ragged-bottom = ##t
    ragged-last-bottom = ##t
    bottom-margin = 25\mm
    indent = #0
    line-width = 140\mm
    print-all-headers = ##f
    #(include-special-characters)
    print-first-page-number = ##t
    first-page-number = #1
    oddFooterMarkup = ##f
    evenFooterMarkup = ##f
    oddHeaderMarkup = #oddFooterMarkup
    evenHeaderMarkup = #evenFooterMarkup
    markup-markup-spacing.padding = #10
    system-system-spacing.basic-distance = #20
    markup-markup-spacing.padding = #10
  }
  \kopf
  \markup \huge "D-Moll"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \key f \major \voiceOne \sop }
          \new Voice { \voiceTwo \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \key f \major \voiceOne \ten }
          \new Voice { \voiceTwo \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "D-Dur"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \voiceOne \MollDur d d \sop }
          \new Voice { \voiceTwo \MollDur d d \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \voiceOne \MollDur d d \ten }
          \new Voice { \voiceTwo \MollDur d d \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
}