💾 Archived View for thrig.me › blog › 2023 › 07 › 11 › chorale24.ly captured on 2024-07-09 at 01:14:43.

View Raw

More Information

⬅️ Previous capture (2023-07-22)

-=-=-=-=-=-=-

% LilyPond engraving system - https://www.lilypond.org/

\version "2.22.0"

\header {
  title = "Chorale No. 24"
  subsubtitle = "2023-07-10"
  composer = "Jeremy Mates"
  copyright   = \markup { \with-color #grey \teeny {
    \char ##x00A9
    "2023 Jeremy Mates - Creative Commons Attribution 3.0 United States License"
  } }
  tagline = #f
}

#(define-markup-list-command (paragraph layout props args) (markup-list?)
 (interpret-markup-list layout props
    (make-justified-lines-markup-list (cons (make-hspace-markup 0) args))))

sopa = \relative a' {
  f4 d a'2
  g2 b
  c4 d c a
  g2 r2

  c4 d c a
  d4 f e c
  d2 d4 c
  c4 d e2

  d4 e f2~
  f4 r4 e2
  b2 c
  d2 b

  c4 d c a
  g2 c4 b
  d4 c b2
}

sopb = \relative a' {
  c8 b a4 e' d

  f4 d c2
  r2 e4 b
  a2 d4 b
  g2 a

  b2 c4 b
  a4 r4 a2
}

sopc = \relative a' {
  g2 b4 c
  d2 e

  a,2 c4 d
  e2 f
  b,2 d4 e
  f4 e g f

  e2. r4
  r2 d2
  c4 b a2
  a2 b

  a1
}

altoa = \relative f' {
  d2 e
  e2 g_~
  g4 r4 f2_~
  f2 e

  a2 g
  a2. r4
  b4 a g g
  a2 g

  b2 a4 g
  a2 r4 g4
  g2 a4 g
  fis2 g4 e_~

  e4 r4 c4 e_~
  e4 d c2
  r2 e2_~
}

altob = \relative f' {
  e4 fis g2

  d2 e
  g2 e_~
  e4 d2 r4
  e1

  d2 a'4 g
  fis2 r2
}

altoc = \relative f' {
  r4 e4 fis2_~
  fis4 e e d

  e2. f4
  e4 g a g
  f4 e d c
  a4 a' g2

  c2 b
  a2 f2
  e1
  f2 d

  r1
}

tenora = \relative a {
  a1
  b2 e
  a,2 r2
  c4 d c b

  a1
  a2 r2
  g4 a b2
  c2. b4

  d4 b d2^~
  d2 e^~
  e4 e c2^~
  c4 b g g

  a2 r4 a4
  c4 b a g
  fis4 e gis2
}

tenorb = \relative a {
  a2 b4 a

  a4 r2 c4^~
  c4 b g2
  a2 b4 b
  c1

  r2 e4 e
  fis4 e d2
}

tenorc = \relative e' {
  e2 b
  a4 g a2

  a4 a g2^~
  g4 r4 f2^~
  f2 g
  f4 c'2.^~

  c4 r4 e2^~
  e4 d2.
  r2 c2
  d1

  c1
}

bassa = \relative d {
  d2 c
  g'4 f e2
  a4 g f2
  c2 e

  f2 r2
  d4 d c2
  b1
  a4 a' e g_~

  g4 g4 d2
  f4 d c g'
  e2 a,
  d2 e

  a,2 c_~
  c4 r4 c4 c
  b2 r2
}

bassb = \relative d {
  a2 g

  d'2 a
  e'2. r4
  f2 g
  e4 d c2

  g'2 c,
  d4 e fis2
}

bassc = \relative d {
  e2 d
  d2 c4 b

  c4 a e'2
  c4 b a2
  d2 b4 c
  a2 e'

  a2 g
  f1
  a1
  d,2 g

  a1
}

msop = {
  \tempo 4=168
  \sopa
  \sopb
  \sopc
}
malto = {
  \altoa
  \altob
  \altoc
}
mtenor = {
  \tenora
  \tenorb
  \tenorc
}
mbass = {
  \bassa
  \bassb
  \bassc
}

ssop = {
  \stemUp
  \sopa
  \sopb
  \sopc
  \bar "|."
}
salto = {
  \stemDown
  \altoa
  \altob
  \altoc
  \bar "|."
}
stenor = {
  \stemUp
  \tenora
  \tenorb
  \tenorc
  \bar "|."
}
sbass = {
  \stemDown
  \bassa
  \bassb
  \bassc
  \bar "|."
}

\score {
  \new PianoStaff <<
    \new Staff <<
      \clef treble
      \key a \minor
      \new Voice = "soprano" \ssop
      \new Voice = "alto" \salto
    >>
    \new Staff <<
      \clef bass
      \key a \minor
      \new Voice = "tenor" \stenor
      \new Voice = "bass" \sbass
    >>
  >>
  \layout { }
}

\score {
  \new PianoStaff <<
    \set Score.midiChannelMapping = #'staff
    \new Staff <<
      \new Voice = "soprano" \msop
      \new Voice = "alto" \malto
    >>
    \new Staff <<
      \new Voice = "tenor" \mtenor
      \new Voice = "bass" \mbass
    >>
  >>
  \midi { }
}

\markuplist { \paragraph { \with-color #grey \tiny {
This work is licensed under the Creative Commons Attribution 3.0 United
States License. To view a copy of this license, visit
https://creativecommons.org/licenses/by/3.0/us/ or send a letter to
Creative Commons, 171 Second Street, Suite 300, San Francisco,
California, 94105, USA.
} } }