Boeves Psalm/midi

Zur Navigation springen Zur Suche springen
\version "2.20.0"
\language "deutsch"

%#(set! sequence-number (1+ sequence-number))

myTitel = "Boeve's Psalm"
\include "midi.ily"
mycomp=\markup \override #'(baseline-skip . 2)
\right-column { "Lars Hollmer" \fontsize #-1 "*21. Juli 1948  †25. Dezember 2008" }

%% diese Stimme gibt den Rhythmus der Noten an

%% Artikulationszeichen im Bassbereich

bf = {
  < b d f >8( < f a c >) < b d f >( < f a c >)
}

fd = {
  f,8( < f a c >) q q
}

ffd = { \fd \fd }
ffb = { \fd \bf }

ec =  { e,8( <c e g >) q q }
eec= { \ec \ec }

dm=  {
  d8( < d f a >) q q
}

ddm = { \dm \dm }
gm = { g,8( < g b d >) q q }
cd = { c, ( < c e g > ) q q }
gmcd = { \gm \cd }

chordnotes = {
  %\set ChordNames.chordChanges = ##f
  \set chordChanges = ##t
  \time 4/4
  \set Timing.beatStructure = #'(2 2)
  \tag #'intro {
    \repeat unfold 4 {
      {
        \ffd \ffb
      }
    }
  }
  \ffd
  \eec %\repeat unfold 2 { \gRoot e( c:m) q q }
  \ddm %\repeat unfold 2 { d( d:m9) q q }
  \gmcd %g( g:m9) q q c ( c:m ) q q
  \repeat unfold 4 \ffb
  \ffd \eec \ddm \gmcd
  \ffb \ffb \fd  a ( < f a c > ) q q
  \gm \gm \cd  e ( < c e g > ) q q
  f ( < f a c > )  a ( < f a c > ) \cd
  \ffd \eec \ddm \gmcd
  \tag #'schluss
  {
    \repeat unfold 4 \ffb
  }
  \tag #'coda {
    \ffb \ffb
    \fd
    f2 ~ f2. r4
  }
}

%% traditionelle Akkordnotation

rit = { \override TextSpanner.bound-details.left.text = \markup { \upright "rit." } }

Akki= \relative c' {
  \key f \major
  \tag #'intro {
    s1 * 4
    \mark \markup \box "A"
    R1 R1 R1 r2 r4 c
  }
  f1 g a
  b8 a g f g4 g
  f1 ~ f ~ f ~ f2. c4
  f1 g a
  b8 a g f g4 g
  f1 ~ 2. a8 b c4 c b a
  b2. g8 a b4 b c b
  a8 b c a g4 c,
  f1 g a b8 a g f g4 g
  \tag #'schluss
  {
    f1 ~ f ~ f ~f2. f4
  }
  \tag #'coda { f1 ~ f ~ f_~ <f a c f>2. r4 }

}

akksnd = \relative c'' {
  s1 * 27
  \override TextSpanner.bound-details.left.text = \markup {  "rit." }
  s2. s4^\startTextSpan
  \voiceTwo
  %\override NoteCollision.
  \override NoteColumn.ignore-collision = ##t
  s2 a ~ a2. \stopTextSpan
}

akktrd = \relative c'' {
  s1 * 28
  \voiceThree
  \override NoteColumn.ignore-collision = ##t
  s2. c4 ~
  \override Stem.transparent = ##t
  c2.
}

Akkii= \relative c' {
  \key f \major
  %\set Voice.beatStructure = #'(2 2)
  r8 c( f a b a f c)
  r c( e g c g e c)
  r d( f a d a f d)
  r d( g b) r c,( e g)
  \repeat unfold 4 { r8 c,( f a b a f c) }
  r c ( f a b a f c)
  r c( e g c g e c )
  r d( f a d a f d )
  r d ( g b ) r c, ( e g )
  \repeat unfold 3 { r c, ( f a b a f c) }
  r d( g b d b g d)
  \repeat unfold 2 { r c( e g ) }
  r c, ( f a ) g2
  r8 c, ( f a b a f c)
  r c( e g c g e c)
  r d( f a d a f d)
  r d( g b) r c,( e g)
  \tag #'schluss
  {
    \repeat unfold 4 { r8 c, ( f a b a f c) }
  }
  \tag #'coda {
    \repeat unfold 2 { r8 c ( f a b a f c) }
    f1 ~ <f a c f>2._\< r4\!
  }
}

Akkiii= \relative c' {
  \key f \major
  %\set Voice.beatStructure = #'(2 2)
  f2 c' d4. c8 d e d c
  f,2 c' b4. a8 b c b a
  \repeat unfold 2 { f2 c' d4. c8 d e d c }
  f,2 c' d4. c8 d e d c
  f,2 c' b4. a8 b c b a
  f2 c' d4. c8 d e d c a2 c
  b1 g2 e'
  f4 a, g2
  f2 c' d4. c8 d e d c
  f,2 c' b4. a8 b c b a
  \tag #'schluss {
    \repeat unfold 2 { f2 c' d4. c8 d e d c }
  }
  \tag #'coda
  {
    f,1 ~ f ~ f_~ <f a c f>2. r4
  }
}

alle=\score {
  <<
    \new ConcertinaStaff {
      <<
        {
          \removeWithTag #'coda \Akki
          \bar ".."
          \removeWithTag #'intro \removeWithTag #'coda \Akki
          \removeWithTag #'intro \removeWithTag #'coda \Akki
          \bar "S"
          \removeWithTag #'intro \removeWithTag #'schluss \Akki
        }
        \new Voice { s1 * 4 s1 * 78 \akksnd }
        \new Voice { s1 * 4 s1 * 78 \akktrd }
      >>
    }
    \new VibraStaff {
      <<
        {
          s1 * 8
          s1 * 26
          {
            \removeWithTag #'coda \Akkii
            \removeWithTag #'coda \Akkii
            \removeWithTag #'schluss \Akkii
          }
        }
        \new Voice { s1 * 4 s1 * 78 \akksnd }
        \new Voice { s1 * 4 s1 * 78 \akktrd }
      >>
    }
    \new FluteStaff {
      <<
        {
          s1 * 8
          s1 * 26
          s1 * 26
          {
            \removeWithTag #'coda \Akkiii
            \removeWithTag #'schluss \Akkiii
          }
        }
        \new Voice { s1 * 4 s1 * 78 \akksnd }
        \new Voice { s1 * 4 s1 * 78 \akktrd }
      >>
    }
    \new BassStaff {
      \clef bass
      \removeWithTag #'coda \chordnotes
      \removeWithTag #'coda \removeWithTag #'intro \chordnotes
      \removeWithTag #'coda \removeWithTag #'intro \chordnotes
      \removeWithTag #'schluss \removeWithTag #'intro \chordnotes
    }
  >>
}

\make-midi-list "boeve" \alle #'(60 80 90 100 112)
%\alle