#!/usr/bin/newlisp (define (title "The Trumpet") (meter "12s") (source "The Sacred Harp (1991 Denson Edition)") (sourcepage 149) (composer "J. Williams, 1831.") (poet "H. H. Milman, 1827.") (arranger "") (translator "")) (define tt [text] \header { title = "149. The Trumpet 12s." source = "The Sacred Harp (1991 Denson edition)" composer = "J. Williams, 1831." poet = "H. H. Milman, 1827." tagline = \markup { \fill-line { "Copyright 2007, Reactor Core Hymn Repository" \with-url #"http://hymns.reactor-core.org/" "http://hymns.reactor-core.org/" } } } #(set-global-staff-size 16) #(set-default-paper-size "letter") \paper { pagenumber = "yes" linewidth = 120\mm indent = 0\mm } global = { \key d \major \time 2/2 \set Staff.printPartCombineTexts = ##f } soprano = \relative g' { \sacredHarpHeads \set autoBeaming = ##f r2 r4 d' | d1 | d4 r2 a4 | a1 | a4 r2 d4 | e2 d4 e | fis2 d4. b8 | a2 a4 a | b2 e4 e | fis2 e4 e | e1 | r2 d4. d8 | d2 d4 b | a2 a4 a | d2 d4 e | fis2 d4. b8 | a2 d4 e | fis2 e4 e | d2 a4 a | 1 \bar "|." } alto = \relative g' { \sacredHarpHeads \set autoBeaming = ##f r2 r4 fis | fis1 | fis4 r2 d4 | d1 | d4 r2 fis4 | e2 a4 a | a2 fis4. fis8 | fis2 e4 e | d2 e4 e | a2 a4 g | 1 | r2 fis4. fis8 | fis2 g4 g | fis2 a4 g | fis2 fis4 fis | fis2 d4. fis8 | fis2 fis4 a | a2 a4 e | d2 e4 e | fis1 } tenor = \relative g' { \sacredHarpHeads \set autoBeaming = ##f r2 r4 a | a1 | a4 r2 fis'4 | fis1 | fis4 r2 d4 | e2 d4 cis | d2 a4. fis'8 | d2 e4 e | fis2 e4 e | d2 cis4 b | a1 | r2 a4. d8 | a2 fis'4 e | d2 fis,4 g | a2 d4 b | a2 a4. d8 | fis2 d4 e | d2 a4 g' | fis2 e4 e8[ d] | e1 } bass = \relative f { \sacredHarpHeads \set autoBeaming = ##f r2 r4 d | d1 | d4 r2 d'4 | d1 | d4 r2 d,4 | a'2 e4 e | d2 d4. d8 | d2 a'4 a | d2 a4 a | d,2 e4 e | 1 | r2 d,4. d8 | d2 d4 d | d2 d4 d | d2 d4 d | d2 a'4. fis8 | 2 a4 a | d,2 fis4 g | a2 4 | d1 } sopwords = << \lyricsto "sopvox" \context Lyrics = a { \set stanza = "1. " The char -- iot! the char -- iot! its wheels roll in fire, As the Lord com -- eth down in the pomp of His ire! Lo! self -- mov -- ing it drives on its path -- way of cloud, And the heav'ns with the bur -- den of God -- head are bowed. } \lyricsto "sopvox" \context Lyrics = b { \set stanza = "2. " The glo -- ry! the glo -- ry! a -- round Him are poured Might -- y hosts of the an -- gels that wait on the Lord; And the glo -- ri -- fied saints and the mar -- tyrs are there, And there all who the palm -- wreaths of vic -- to -- ry wear. } >> altwords = << \lyricsto "altvox" \context Lyrics = c { \set stanza = "3. " The trum -- pet! the trum -- pet! the dead all have heard, Lo, the depths of the stone -- cov -- ered char -- nel are stirred: From the sea, from the earth, from the south, from the north, And the vast gen -- er -- a -- tions of man are come forth. } \lyricsto "altvox" \context Lyrics = d { \set stanza = "4. " The judg -- ment! the judg -- ment! the thrones are all set, Where the Lamb and the white -- vest -- ed eld -- ers are met; There all flesh is at once in the sight of the Lord, And the doom of e -- ter -- ni -- ty hangs on His word. } >> tnrwords = << \lyricsto "tnrvox" \context Lyrics = e { \set stanza = "5. " O mer -- cy! O mer -- cy! look down from a -- bove, Great Cre -- a -- tor, on us, Thy sad chil -- dren, with love; When be -- neath to their dark -- ness the wick -- ed are driv'n, May our jus -- ti -- fied souls find a wel -- come in heav'n. } >> \score { \new ChoirStaff << \new Staff << \global \clef treble \new Voice = "sopvox" \soprano \new Lyrics \sopwords >> \new Staff << \global \clef treble \new Voice = "altvox" \alto \new Lyrics \altwords >> \new Staff << \global \clef treble \new Voice = "tnrvox" \tenor \new Lyrics \tnrwords >> \new Staff << \global \clef bass \bass >> >> \layout { \context { \Score \remove "Bar_number_engraver" \override PaperColumn #'keep-inside-line = ##t } \context { \ChoirStaff \accepts "Lyrics" } \context { \Lyrics \override LyricSpace #'minimum-distance = #1.2 \override LyricText #'self-alignment-X = #LEFT \consists "Bar_engraver" \consists "Separating_line_group_engraver" \override BarLine #'transparent = ##t } } } \score { << \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \transpose g' g'' \repeat unfold 5 \unfoldRepeats { \soprano } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \transpose g' g'' \repeat unfold 5 \unfoldRepeats { \soprano } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \repeat unfold 5 \unfoldRepeats { \soprano } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \transpose g' g'' \repeat unfold 5 \unfoldRepeats { \alto } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \repeat unfold 5 \unfoldRepeats { \alto } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \repeat unfold 5 \unfoldRepeats { \alto } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \repeat unfold 5 \unfoldRepeats { \tenor } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef treble \transpose g' g \repeat unfold 5 \unfoldRepeats { \tenor } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef bass \repeat unfold 5 \unfoldRepeats { \bass } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef bass \transpose f f, \repeat unfold 5 \unfoldRepeats { \bass } } \new Staff { \set Staff.midiInstrument = #"church organ" \global \clef bass \transpose f f, \repeat unfold 5 \unfoldRepeats { \bass } } >> \midi { \context { \Score tempoWholesPerMinute = #(ly:make-moment 89 4) } } } [/text] ) (define (print-header) (println {\version "2.10.15"}) (printbk "\header {" (list title meter source sourcepage ) "}" ) (title "The Trumpet") (meter "12s") (source "The Sacred Harp (1991 Denson Edition)") (sourcepage 149) (composer "J. Williams, 1831.") (poet "H. H. Milman, 1827.") (arranger "") (translator "")) (print-header) (print tt) (exit)