Orgel Vorspiel Sattler 228/score

Lilypond Score

\version "2.20.0"
\language "deutsch"
myTitel = "Orgel Präludium № 228"

#(use-modules (scm accreg))
myBlue = #(x11-color 'sienna4)

make-midi-list =
#(define-void-function (name score tempolist)
   ((string? #f) ly:score? list?)
   (for-each
    (lambda (tempo)
      (ly:book-process
       (apply
        ly:make-book
        $defaultpaper
        $defaultheader
        (list score))
       $defaultpaper
       #{
         \midi {
           \tempo 4 = $tempo
         }
       #}
       (format #f "~a_~a"
         (or name "midi")
         tempo)))
    tempolist))

#(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
  e2 a h c
  a f' e a
  f d4 h
  c2 h
  a2 f4 gis
  a1
  \bar "|."
}

alt = \relative c' {
  c2 e f e
  e gis
  a1 ~ a ~ a2 gis
  e1 ~ e
}

ten = \relative c' {
  \clef bass
  a2 c
  d d c d
  e1
  d2 f e d
  c d4 h
  c1
}

bas = \relative c' {
  a1 ~ a2 gis
  a h c cis
  d h4 d
  e2 a,
  a1 ~ a
}

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 = #12
}

kopf=\header {
  title = \markup \line
  {
    \myTitel
  }
  subtitle = ##f % "№ 5"
  subsubtitle = ##f
  poet = "Notensatz: lilypond.miraheze.org"
  composer = "M: Carl Sattler (1871/74-1938)"
  piece = ##f
}

\bookpart {
  \paper {
    top-margin = 25\mm
    ragged-right = ##f
    ragged-last = ##f
    ragged-bottom = ##t
    ragged-last-bottom = ##t
    bottom-margin = 25\mm
    indent = #0
    line-width = 160\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
  }
  \kopf
  \markup \huge "A-Moll"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \voiceOne \sop }
          \new Voice { \voiceTwo \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \voiceOne \ten }
          \new Voice { \voiceTwo \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "D-Moll"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \key f \major \voiceOne \transpose c f \sop }
          \new Voice { \voiceTwo \transpose c f \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \key f \major \voiceOne \transpose c f, \ten }
          \new Voice { \voiceTwo \transpose c f, \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "E-Moll"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \key g \major \voiceOne \transpose c g, \sop }
          \new Voice { \voiceTwo \transpose c g, \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \key g \major \voiceOne \transpose c g, \ten }
          \new Voice { \voiceTwo \transpose c g, \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "H-Moll"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \key d \major \voiceOne \transpose c d \sop }
          \new Voice { \voiceTwo \transpose c d \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \key d \major \voiceOne \transpose c d, \ten }
          \new Voice { \voiceTwo \transpose c d, \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \pageBreak
  \markup \huge "F-Dur"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \voiceOne \MollDur f a \sop }
          \new Voice { \voiceTwo \MollDur f a \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \voiceOne \MollDur f a \ten }
          \new Voice { \voiceTwo \MollDur f a \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "C-Dur"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \voiceOne \MollDur c' a \sop }
          \new Voice { \voiceTwo \MollDur c' a \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \voiceOne \MollDur c a \ten }
          \new Voice { \voiceTwo \MollDur c a \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "G-Dur"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \voiceOne \MollDur g a \sop }
          \new Voice { \voiceTwo \MollDur g a \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \voiceOne \MollDur g a \ten }
          \new Voice { \voiceTwo \MollDur g a \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
  \markup \huge "D-Dur"
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="Discant"
        <<
          \new Voice="Alt" { \voiceOne \MollDur d' a \sop }
          \new Voice { \voiceTwo \MollDur d' a \alt }
        >>
        \new Staff="Bass"
        <<
          \new Voice { \voiceOne \MollDur d a \ten }
          \new Voice { \voiceTwo \MollDur d a \bas }
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
}

\include "articulate.ly"

alle =
\score {
  \new StaffGroup
  <<
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \sop
      }
    }
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \alt
      }
    }
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \clef bass
        \ten
      }
    }
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \bas
      }
    }
  >>
}


alledur =
\score {
  \new StaffGroup
  <<
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \MollDur c a
        \sop
      }
    }
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \MollDur c a
        \alt
      }
    }
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \clef bass
        \MollDur c a
        \ten
      }
    }
    \new Staff {
      \new Voice {
        \set Staff.midiInstrument = "Church Organ"
        \MollDur c a
        \bas
      }
    }
  >>
}

\make-midi-list "moll" \alle #'(108 120)
\make-midi-list "dur" \alledur #'(108 120)