From: fred Date: Tue, 8 Dec 1998 11:59:57 +0000 (+0000) Subject: lilypond-1.1.13 X-Git-Tag: release/1.5.59~5813 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8f9c7077801b655706e9bd1777e19102b5e56b7a;p=lilypond.git lilypond-1.1.13 --- diff --git a/mutopia/D.Zipoli/verso_2.ly b/mutopia/D.Zipoli/verso_2.ly new file mode 100644 index 0000000000..5144576d2e --- /dev/null +++ b/mutopia/D.Zipoli/verso_2.ly @@ -0,0 +1,104 @@ +\header{ +filename="verso_2.ly"; +enteredby = "Peter Chubb"; +arranger = "Peter Chubb"; +composer = "Domenico Zipoli"; +date = "c1700"; +title = "Verso II"; +} + +%{ + This is an organ piece that I've arranged for Recorder trio. + The third part can be played either on a second treble + recorder, or on a tenor. + + Copright 1998 Peter Chubb. + This work may be used and modified freely + under the Gnu Public Licence. +%} + +\version "1.0.10"; + +$voice_one = \notes \relative c' { + a'2 bes4. [c16 bes] | a4 d ~ d c ~ | c b ~ [b8 a] a4 ~| + [a8 gis16 fis16] gis4 a4^"'" e'4 | f2 ~ [f8 g16 f] e4 ~| [e8 f16 e] [d8 c] d2 | + c2 bes4 ~ [bes8 c16 bes] | a4~[a8 bes16 a] g4~ [g8 a16 g] f4 ~ [ f8 g16 f] e4 a4~| + [a8 g16 fis] g4 ~ g f | e2 ~ e4 g4 ~ | g [fis8 e] fis2 \bar "|."; +} + +$voice_two = \notes \relative c' { + [d8 e f d ] g4 c, | f d e2 | f4 ~ [f8 g16 f] e4 a| + d,4. d8 c4 a'4 | r4 a4 bes4 ~ [bes8 c16 bes] | a2 ~ [a8 bes16 a] g4 ~| + [ g8 a16 g ] f4 ~ [f8 g16 f] e4 | f2 ~ f4 e4 ~| e4 d4~ d4 cis4 | + d2 cis4 d4~ | d4 [cis8 b] cis2 | d1 \bar "|."; +} + +$voice_three = \notes \relative c' + { + r1 | r2 [a8 b c a] | d4 g, c4. [d16 c] | + b4. b8 [a b c a ] | [d, e f d ] g4 c,4 | f2 bes4 ~ [bes8 c16 bes]| + a4 ~ [a8 bes16 a] g4 c, | [f8 g a f ] [c d e cis] | [d e f d] a2 | + bes4. [c16 bes] a4 d | a1 | d1 \bar"|."; +} + +global=\notes { + \time 2/2; + \keysignature c; + \property Staff.timeSignatureStyle = "C" +} + + +recorder= { +% For three recorders. +% + \type StaffGroup + < + \type Staff = descant { + \property Staff.Instrument = "Descant" + \clef "G^8"; + \notes \transpose bes' {\global \$voice_one } + } + + \type Staff = treble { + \property Staff.Instrument = "Treble" + \clef "G"; + \notes \transpose bes' {\global \$voice_two } + } + + \type Staff = lower { + \property Staff.Instrument = "Tenor or Treble II" + \clef "G"; + \notes \transpose bes'' {\global \$voice_three } + } + > +} + +% +% For keyboard (Organ) +% Not quite the same as the original. +% TODO: add inner part; +% Try to make parts cross staves as apropriate. +% +organ={ + \type GrandStaff + < + \type Staff = treble { + \clef "G"; + \global + \type Staff < + { \voiceone \$voice_one } + { \voicetwo \$voice_two } + > + } + \type Staff = bass { + \clef "F"; \global \$voice_three + } + > +} + +\score{ + \recorder + + \paper{} +} + diff --git a/mutopia/F.Schubert/AnSylvia.ly b/mutopia/F.Schubert/AnSylvia.ly new file mode 100644 index 0000000000..e8e7bd3574 --- /dev/null +++ b/mutopia/F.Schubert/AnSylvia.ly @@ -0,0 +1,404 @@ +\header { +filename = "AnSylvia.ly"; +enteredby = "Peter Chubb"; +composer = "Franz Schubert"; +poet = "Original text by William Shakespeare\\\\" + + "German text by Eduard von Bauernfeld"; +opus = "D. 891"; +date = "1826"; +title = "An Sylvia"; +} + + +\version "1.0.10"; + +\include "paper16.ly"; +\include "paper13.ly"; + +pianoRH=\notes \relative c'' { + \clef "G"; +%1 + <[b,8-.(\pp d-. g-.> <)b-. d-. g-.]> + <[b8-. d-. g-.(> <)b-. d-. g-.]> + | +%2 + <[c d g_"{\it simile}" \< > + <[c d fis> < \! c d fis > +%3 + | + <[d f gis \> > < \! d f gis ]> + <[c e a> + | +%4 + <[d a' b> + <[d g a> | + \bar "|:"; +%5 + <[b_. d g( \pp > <)b_. d g]> + <[b_. d g(> <)b_. d g]> + | +%6 + <[c d g> + <[c d fis> < a c dis fis> + | +%7 + <[g c e g> + <[g c e g> + | +%8 + <[g c e> + <[g b d> + | +%9 + <[fis a d> + <[g b d> + | +%10 + <[ g a c d \> > <\! fis a c d ]> + <[g b d> + | +%11 + <[g a c d> + <[g b d> <[b d g> + | +%12 + <[ d fis b> + <[ d fis b> + | +%13 + <[e fis b> < e fis ais> + <[e fis ais> + | +%14 + <[cis g' a!> + <[cis g' a> < e g a> + | +%15 + <[e g a> + <[d fis a> + | +%16 + <[d fis a> + <[d fis a \< > < \! d fis a ]> + | +%17 + <[d a' c \> > < \! d a' c ]> + <[d a' c> + | +%18 + <[d g a c \> > + <[d fis a c> <\! d fis a c \pp > + | +%19 + <[d g b> + <[d g b> + | +%20 + <[e g c> + <[e a c> < e b' c]> + | +%21 + <[e c'> + <[e a c> + | +%22 + <[d a' c> + <[d a' d> + | +%23 + <[b d b'> + <[b d g \< > < \! b d fis ]> + | +%24 + <[b d e \> > < \! gis b e ]> + <[a c e> + | +%25 + <[d a' c> + <[d a'> > < \! c d fis \p ]> + | +%26 + <[b d g> + <[b d g> + | +%27 + <[c d g > + <[c d fis \< > < \! c d fis > + | +%28 + <[d f gis \> > < \! d f gis > + <[c e a> +%29 + <[d a' b> + <[d g a> < d fis! a> + \bar ":|"; +%30 + r2 + \bar "|."; +} + +pianoLH=\notes \relative c { + \clef "F"; + g4-. d-. r [g8.( g16] | )a4-. d,-. r [a'8.( a16] | +%3 + )b4-. [d,8.( d16] )c'4-. [d,8. d16] | +%4 + d'4-. d,-. d'-. [d,8.( d16 ] + \bar "|:"; +%5 + )g4-. d_. r4 [g8.( g16] | +%6 + )a4-. d,-. r4 [a'8.( a16] | +%7 + )c4-. c,-. r [e8.( e16] | +%8 + )g4-. g,-. r4 [b'8.( b16] | +%9 + )d4-. c-. b-. g-. | +%10 + d2(-> )g4 r4 \clef "G"; | +%11 + d'''2->( )b4 r4 \clef "F"; | +%12 + b,,4-. fis-. r [b8.( b16] | +%13 + )cis4-. fis,4-. r4 [d'8.( d16] | +%14 + )e4-. g,4-. r [cis8.( cis16] | +%15 + )d4-. d,4-. r4 [d'8.( d16] | +%16 + )fis4-. d-. a-. d-. | +%17 + fis,4.( a8 )d4 r4 \clef "G"; | +%18 + e''2->( )d4 r4 \clef "F"; | +%19 + g,,,4-. b-. r [g8.( g16 ] | +%20 + )c4-. e-. r [gis,8.( gis16] | +%21 + )a4-. c-. r [g!8.( g16 ] | +%22 + )fis4-. d'-. r [fis,,8.( fis16] | +%23 + )g4-. g'-. r [b,8.( b16] | +%24 + )c4-. c'-. r [c,8.( c16] | +%25 + )d4-. d'-. r [d,8.( d16] | +%26 + )g4-. d-. r [g8.( g16] | +%27 + )a4-. d,-. r [a'8.( a16] | +%28 + )b4 [d,8.( d16] )c'4-. [d,8. d16] | +%29 + d'4-. d,-. d'-. [d,8.( d16 ] + \bar ":|"; +%30 + )g2 r2 \bar "|."; + +} + +tune=\notes \relative c'' { + % Put dynamics over the stave. + \property Voice.dynamicdir = "1" + + r1 | r1 |r1 | r1 | + \bar "|:"; +%5 + b2. g4 | +%6 + g( )fis \type Staff < {\voiceone r2}{\voicetwo r4 a4}> | +%7 + g2. e4 | +%8 + e4( )d r4 \< g | +%9 + fis a g \! b | +%10 + d2 b4 r4 | +%11 + r1 | +%12 + d2. b4 | +%13 + b4( )ais r [cis8()b] | +%14 + a!2. e4 | +%15 + g4()fis r4 \< d4 | +%16 + a' fis c' \! a | +%17 + e'4.( \> )c8 \! a4 r | +%18 + r1 | +%19 + d2. \type Staff < {\voiceone b8 ~ g8} {\voicetwo [b8 g8]} > | +%20 + \property Voice.slurdash = 2 + fis4( )e \property Voice.slurdash = "" + \type Staff < {\voiceone r2}{\voicetwo r4 e4} > | +%21 + c'2. [b16( a g )fis] | +%22 + e4( )d \type Staff <{\voiceone r2} {\voicetwo r4 d4}> | +%23 + d2 d'2 | +%24 + e2 e,2 | +%25 + fis2. \> [g8( )a] | +%26 + \! g2 r2 | +%27 + r1 | r1 | r1 + \bar ":|"; + r1 \bar "|."; +} + +fourbars=\lyrics { _1 | _1 | _1 | _1 | } +verseOne=\lyrics { + Who2. is4 | Syl- via, _2 | + What2. is4 | she, _ _ That | + all our swains com- | + mend2 her?4 _ | + _1 | + Ho-4 - - ly, | + fair,2 _4 and | + wise2. is4 | + she;2 _4 The | + heav'ns4 such grace did | + lend2 her4 _ | _1 | + That2. a-4 | + do- red _2 | + She2. might4 | + be,2 _ | + That2 a- | + do- red | + she2. might4 | be.2 _ | +} + +verseTwo=\lyrics { + Is2. she4 | kind,2 _4 as | + she2. is4 |fair?2 _4 For | + beau- ty lives with | kind-2 ness4 _ | _1 | + To2. her4 |eyes2 _4 doth | Love 2. re-4 | + pair,2 _4 To | help him of his | blind-2 ness;4 _ | + _1 | + And2*3/2 be-8 ing | help'd4 - _ _ | in-2. hab-8 its | + there,2 _4 And | + be-2 ing | help'd in- | ha-2 -4 bits4 | there.2 _2 | +} + +verseThree=\lyrics { + Then2. to4 | Syl-4 via _2 | + let2. us4 | sing,2 _4 That | + Syl- via is ex- | cel4 - ing; _ | _1 | + She2. ex-4 | cels2 _4 each | mor - - tal | + thing,2 _4 Up- | on the dull earth | dwell-2 ing4 + _ | _1 | + To2. her4 | gar- lands _2 | let2. us4 | + bring,2 _ | To her | gar- lands | let2. us4 | + bring.2 _ | +} + + +%% +%% German Words -- syllabification may be incorrect (entered by +%% someone who knows no German!) +origVerseOne=\lyrics { + Was2. ist4 | Sil-4 via, _2 | + sag-2. et4 | an,2 _4 + Da{\ss}4 | + sie die wie- te | Flur2 preist?4 _ | _1| + Sch\"on2. und4 | zart2 _4 seh'- | ich2. sie4 | + nah'n,2 _4 Auf4 | + Him- melsg- gunst " und" | Spur2 weist,4 _ | _1 + Da{\ss}2. ihr4 | al- les _2 | + un-2. ter4 | tan.2 _ | + Da{\ss}2 ihr | al- les | un-2. ter4 | tan2 _ | +} + +origVerseTwo=\lyrics { + Ist2. sie4 | sch\"on2 _4 und4 | gut2. da-4 | zu?2 _4 + Reiz4| labt wie mil- de | Kind-2 heit;4 _ | _1 | + Ihr-2. em4 | Aug'-2 _4 eilt | A-2. mor4 | + zu,2 _4 + Dort4 | heilt er sein- e | Blind-2 heit,4 _ | _1 | + Und2. ver-4 | weilt2 _4 in4 | s\"u{\ss}-2. er4 + Ruh'.2 _ | + Und2 ver-2 | weilt in | s\"u{\ss}-2. er4| Ruh'.2 _ | +} + +origVerseThree=\lyrics { + Dar4 - - um | Sil- via, _2 | t\"on',2. o4 | + Sang,2 _4 + Der4 | hold- en Sil- via | Ehr-2 en;4 _4 | _1 | + Je2. den4 | Reiz2 _4 be- |siegt2. sie4 | lang,2 _4 + Den | Er- de kann ge- | w\"ah-2 ren;4 _ | _1 | + Kr\"an-2. ze4 | ihr2 _4 und4 | Sai-2. ten4 + |klang!2 _ + Kr\"an-2 ze | ihr und | Sai-2. ten-4 |klang!2 _ | +} + +global=\notes { + \key G; + \time 2/2; + \property Staff.timeSignatureStyle = "C" +} + +Piano=\type GrandStaff = piano { + \property GrandStaff.instrument="Piano" + < + \type Staff=RH {\global \pianoRH } + \type Staff=LH {\global \pianoLH } + > +} + + +EnglishWords= \lyrics< + {\fourbars \verseOne \fourbars} + {\fourbars \verseTwo \fourbars} + {\fourbars \verseThree \fourbars} +> + +GermanWords = \lyrics< + {\fourbars \origVerseOne \fourbars} + {\fourbars \origVerseTwo \fourbars} + {\fourbars \origVerseThree \fourbars} + +> + +Vocals= < + \type Staff = vocal < + \notes \transpose c {\clef "F"; \global\tune} +% {\type Lyrics = vocal \EnglishWords} + {\type Lyrics = vocal \GermanWords} + > +> + + +\score { + < + % \transpose aes for basses (Key Eflat). + % (bes to c'') + % \transpose d' for original (in A.) + % Untransposed range: d' to e'' + \notes \transpose d' < + \Vocals + \Piano + > + > + \paper { + % \paper_thirteen; + \paper_sixteen; + linewidth = 18.0\cm; + textheight = 26.0\cm; + gourlay_maxmeasures=15.0; + \translator { \HaraKiriStaffContext } + } +} + diff --git a/mutopia/Hymns/GNUmakefile b/mutopia/Hymns/GNUmakefile new file mode 100644 index 0000000000..2d7fc58cf0 --- /dev/null +++ b/mutopia/Hymns/GNUmakefile @@ -0,0 +1,10 @@ +# + +depth = ../.. + +examples= +LOCALSTEPMAKE_TEMPLATES=mutopia + +include $(depth)/make/stepmake.make + + diff --git a/mutopia/Hymns/diademata.ly b/mutopia/Hymns/diademata.ly new file mode 100644 index 0000000000..d05370f110 --- /dev/null +++ b/mutopia/Hymns/diademata.ly @@ -0,0 +1,90 @@ +\header { +filename = "diademata.ly"; +enteredby = "Peter Chubb"; +composer = "Sir G. J. Elvey"; +date = "1868"; +title = "Diademata"; +metre = "6 6. 8 6. D"; +} +\version "1.0.10"; + +sop=\notes \transpose c''{ + ees2 | ees4 ees4 g2 g2 | c'1. \bar "||"; + c'2 | bes2 ees aes g | f1. \bar "||"; + f2 | g bes c' bes | a g4 ~ f bes2 + ees'2 | d' ees' c' c' | bes1. \bar "||"; + bes2 | bes g f ees | c'1. \bar "||"; + c'2 | c' a g f | d'1. \bar "||"; + d'2 | ees'2. d'4 c'2 bes | aes f g + bes2 | aes g f f | ees\breve \bar "||"; + +} + +alt=\notes \transpose c''{ + bes,2 bes,4 bes,4 ees2 ees2 | ees1. \bar "||"; + ees2 | ees ees d ees | d1. \bar "||"; + d2 | ees f ees g | ees c f + ees2 | f g c f | d1. \bar "||"; + d2 | ees ees d ees | ees1. \bar "||"; + e2 | f f ees ees | d1. \bar "||"; + f2 | ees ees ees ees | ees d ees + ees | ees ees ees d | ees\breve \bar "||"; +} + + +ten=\notes \transpose c' { + g2 g4 g4 g2 g2 | aes1. \bar "||"; + aes2 | bes c' aes bes | bes1. \bar "||"; + bes2 | bes bes g g | c' a bes + a2 | bes bes bes a | bes1. \bar "||"; + bes2 | bes bes aes bes | c'1. \bar "||"; + bes2 | a c' bes c' | bes1. \bar "||"; + bes2 | bes bes aes bes | c' bes bes + bes c' bes bes2. aes4 | g\breve \bar "||"; +} + +bass=\notes \transpose c' { + ees2 ees4 ees4 c2 c2 | aes,1. \bar "||"; + aes2 | g aes f ees | bes,1. \bar "||"; + bes,2 | ees d c ees | f ees d + c2 bes, ees f f | bes,1. \bar "||"; + aes2 | g ees f g | aes1. \bar "||"; + g2 | f f g a | bes1. \bar "||"; + aes2 | g g aes g | f bes ees + g,2 | aes, ees bes, bes, | ees\breve \bar "||"; +} + +global = \notes{ + \time 4/2; + \property Staff.timeSignatureStyle="none" + \key ees; +} + +$upper_staff = \type Staff = upper { + \global + \clef "treble"; + \type Staff < + { \voiceone \sop } + { \voicetwo \alt } + > +} + +$lower_staff = \type Staff = lower { + \global + \clef "bass"; + \type Staff < + { \voiceone \ten } + { \voicetwo \bass } + > +} + +\score{ + \type ChoirStaff\notes < + \$upper_staff + \$lower_staff + > + \paper { + linewidth= 140.0\mm; + gourlay_maxmeasures = 6.0; + } +} diff --git a/mutopia/Hymns/laudatedom.ly b/mutopia/Hymns/laudatedom.ly new file mode 100644 index 0000000000..0d0e4a5a5b --- /dev/null +++ b/mutopia/Hymns/laudatedom.ly @@ -0,0 +1,76 @@ +\header { +title = "Laudate Dominum"; +composer = "Parry"; +metre = "10 10 . 11 11"; +} + +\version "1.0.10"; + +sop = \notes \transpose c''{ + f4 | d' bes c' | f2 \bar "||"; + bes4 | g f ees | d2 \bar "||"; + f4 | d' c' f | bes2 \bar "||"; + a4 | c' bes g | f2 \bar "||"; + f4 | bes bes bes | bes [a8 ~ g8] \bar "||"; + [a8~bes8] | c'4 bes c' | f2 \bar "||"; + a4 | d' d' d' | [bes8 ~ a8] g4 \bar "||"; + ees'4 | d' bes c' | bes2 \bar "||"; +} + +alto = \notes \transpose c'' { + f4 | f f g | f2 \bar "||"; + f4 | bes, d c | bes,2 \bar "||"; + f4 | bes a f | f ~ g \bar "||"; + f4 | fis g e | f2 \bar "||"; + c4 | bes, ees f | g ees \bar "||"; + f4 | g f g | f2 \bar "||"; + f4 | fis g a | g g \bar "||"; + g | f4. g8 a4 | bes2 \bar "||"; +} + +tenor = \notes \transpose c' { + f4 | bes d' [c'8 ~ bes] | a2 \bar "||"; + f4 | g g a | bes2 \bar "||"; + d'4 | e' f' c' | d' ~ c' \bar "||"; + c'4 | ees' d' bes | a2 \bar "||"; + a4 | bes bes aes | g bes \bar "||"; + bes | ees' d' [c'8 ~ bes8] | a2 \bar "||"; + c'4 | c' bes a | [d'8 ~ c'8] bes4 \bar "||"; + bes4 | bes d' ees' | d'2 \bar "||"; +} + +bass = \notes \transpose c'{ + f4 | bes d ees | f2 \bar "||"; + d4 | ees c f | bes,2 \bar "||"; + bes4 | g a a, | d ~ e \bar "||"; + f | a, bes, c | f2 \bar "||"; + ees4 | d c d | ees ees \bar "||"; + d | c d ees | f2 \bar "||"; + ees4| d e fis | g g \bar "||"; + c4 | f f f | bes,2 \bar "||"; +} + +global = \notes { + \time 3/4; + \partial 4; + \key bes; +} + +\score { + < + \type Staff=top { + \global \clef "G"; + \type Staff < + \notes{\voiceone \sop } + \notes{\voicetwo \alto } + > + } + \type Staff=bottom { + \global \clef "F"; + \type Staff < + \notes{\voiceone \tenor} + \notes{\voicetwo \bass } + > + } + > +} diff --git a/mutopia/Hymns/maccabaeus.ly b/mutopia/Hymns/maccabaeus.ly new file mode 100644 index 0000000000..607e0cf461 --- /dev/null +++ b/mutopia/Hymns/maccabaeus.ly @@ -0,0 +1,109 @@ +\header { +filename = "maccabaeus.ly"; +enteredby = "Peter Chubb"; +composer = "G. F. Handel"; +date = "1680"; +title = "Maccabaeus"; +metre = "10 11. 11 11. and refrain"; +} + +\version "1.0.10"; + +sop=\notes \relative c'' { + b2 gis4. a8 |b2 e,2 | + [fis8 gis] [a b] a4 gis | + fis1 \bar "||"; + [gis8 a] [b cis] b4 b | + e2 b | + a4 [gis8 fis] fis4. e8 | + e1 \bar "||"; + [gis8 fis] [gis a] gis4 gis | + fis2 e | + a4 gis fis e | dis1 \bar "||"; + [e8 dis] [e fis] e4 e | cis'2 ais | + b4 [cis8 b] ais4. b8 | b1 \bar "||"; + + b2^"{\it Refrain}" gis4. a8 | b2 e, | + [fis8 gis] [a b] a4 gis | fis1 \bar "||"; + [gis8 a] [b cis] b4 b | e2 b | + a4 [gis8 fis] fis4. e8 | e1 \bar "|."; +} + +alt=\notes \relative c'{ + e2 e4. dis8 | e2 b | + [dis8 e] [fis gis] fis4 e | dis1 | + e4 e e dis | e2 e | + dis4 e e4. b8 | b1 | + [e8 dis] [e fis] e4 e | + dis2 cis | + bis4 cis cis cis | bis1 | + [cis8 bis] [cis dis] cis4 e4| + e2 e2 | + dis4 gis fis fis | fis1 | + gis2 e4. dis8 | e2 b2 | + [dis8 e] [fis gis] fis4 e | dis1 | + e4 e e dis | e2 e | dis4 e dis4. b8 | b1 | +} + +ten=\notes \relative c' { + gis2 b4. a8 | gis2 b | + b4 b b b | b1 | + b4 [b8 a] b4 a | b2 gis | + a4 b b4. gis8 | gis1 | + b4 b b b | a2 gis | fis4 gis a gis | gis1 | + gis4 gis cis cis | cis2 cis | + b4 gis cis cis | dis1 | + e2 b4. a8 | gis2 b2 | + b4 b b b | b1 | + b4 [b8 a] b4 a | b2 gis | + a4 [b8 cis] b4. gis8 | gis1| +} + +bass=\notes \relative c { + e2 gis4. fis8 | e2 gis | + b4 b dis, e | b1 \bar "||"; + [e8 fis] [gis a] gis4 fis | gis2 gis | + fis4 e b4. e8 | e1 \bar "||"; + e4 e e e | b2 cis | + dis4 e fis cis | + gis1 \bar "||"; + cis4 cis cis b' | ais2 fis | + gis4 e fis fis | b1 \bar "||"; + e,2 e4. fis8 | gis2 gis,2 | + b4 b dis e | b1 \bar "||"; + [e8 fis] [gis a] gis4 fis | gis2 gis | + fis4 [gis8 a] b4. e,8 | e1 \bar "|."; +} + +global = \notes { + \time 2/2; + \property Staff.timeSignatureStyle = "C" + \key E; +} + +$upper_staff = \type Staff = upper { + \global + \clef "treble"; + \type Staff < + {\voiceone \sop } + {\voicetwo \alt } + > +} + +$lower_staff = \type Staff = lower { + \global + \clef "bass"; + \type Staff < + {\voiceone \ten } + {\voicetwo \bass } + > +} + +\score { + < + \$upper_staff + \$lower_staff + > + \paper { + } +} diff --git a/mutopia/Hymns/ode.ly b/mutopia/Hymns/ode.ly new file mode 100644 index 0000000000..9f6dd47129 --- /dev/null +++ b/mutopia/Hymns/ode.ly @@ -0,0 +1,74 @@ +\header { +filename = "ode.ly"; +enteredby = "Peter Chubb"; +composer = " Beethoven"; +date = "1800"; +title = "Ode to Joy"; +metre = "8 7 8 7 D"; +} + +\version "1.0.10"; + +sop=\notes \relative c'' { + b4 b c d | d c b a | g g a b | b4. a8 a2 \bar "||"; + b4 b c d | d c b a | g g a b | a4. g8 g2 \bar "||"; + a4 a b g | a [b8 ~ c] b4 g | a [b8 ~ c] b4 a | g a d,2 \bar "||"; + b'4 b c d | d c b a | g g a b | a4. g8 g2 \bar "||"; +} + +alto=\notes \relative c'' { + g4 g a g | g4. a8 g4 fis | d d fis g| g4. fis8 fis2 \bar "||"; + g4 g a g | g4. a8 g4 fis | d d fis g| g4 fis d2 \bar "||"; + d4 d d d | d d d d | d d fis fis | e cis d2 \bar "||"; + d4 g a a b [g8~a] g4 e | e d fis g |g fis g2 \bar "||"; +} + +tenor=\notes \relative c'{ + d4 d c b | e4. d8 d4 d | b b d d | d4. d8 d2 \bar "||"; + d4 d c b | e4. d8 d4 d | b b d d | d4 d b2 \bar "||"; + fis4 fis g e | fis [g8 ~ a8] g4 e | fis fis fis b | b a g ~ fis \bar "||"; + g4 d' f, f | g4. d'8 d4 c | g g c c | d d b2 \bar "||"; +} + +bass= \notes \relative c' { + g4 g g g | e4. fis8 g4 d | b b a g | d'4. d8 d2 \bar "||"; + g4 g g g | e4. fis8 g4 d | b b a g | d' d g,2 \bar "||"; + d'4 d d d | d d d d | d d dis dis | e a, d2 \bar "||"; + g4 g f f | e4. fis8 g4 c, | c b a g | d' d g,2 \bar "||"; +} + + +global=\notes{ + \time 4/4; + \property Staff.timeSignatureStyle="C" + \key G; +} + +$upper_staff = \type Staff = upper \notes { + \global + \clef "G"; + \type Staff < + {\voiceone \sop} + {\voicetwo \alto} + > + \bar "|."; +} + +$lower_staff = \type Staff = lower \notes { + \global + \clef "F"; + \type Staff < + {\voiceone \tenor} + {\voicetwo \bass } + > + \bar "|."; +} + +\score{ + < + \$upper_staff + \$lower_staff + > + \paper { + } +} diff --git a/mutopia/Hymns/passion.ly b/mutopia/Hymns/passion.ly new file mode 100644 index 0000000000..a4754360a3 --- /dev/null +++ b/mutopia/Hymns/passion.ly @@ -0,0 +1,85 @@ +\header { +filename = "passion.ly"; +title = "Passion Chorale"; +composer = "J. S. Bach"; +enteredby = "Peter Chubb"; +} + +\version "1.0.10"; + +sop=\notes \transpose c'' { + \repeat 2 { + \partial 2; + e2 | a g f e | d1 e2 ^"{\kern1em\Huge ,}" b | c' b4([c'8 + )d'] c'2 b4( )a4 | + a1. } + c'2 | b4( )a4 g2 a b | c'1 c'2 ^"{\kern1em\Huge ,}" g2 | + a g a4( )g f2 | e1. ^"{\kern3em\Huge ,}" + c'2 | b4( )c'4 d'2 c' b | a1 b2 ^"{\kern1em\Huge ,}" + e2 | f e d g4( )f4 | e1. \bar "||"; +} + +alt=\notes \transpose c'' { + \repeat 2 { + \partial 2; + c2 | c4( )d4 e2 a,4( )b,4 c2 | c2( )b, c + e | e f e d4( )c4 | + c1. } + e2 | fis e f f | g( )f e + e2 e4( )d cis( )d e2 e4( + )d | d2( )cis1 + a2 | g g g4( )a b( )g | g2( )fis g + c2 | d c d e4( )d | d2( c )b, \bar "||"; +} + + +ten=\notes{ + \repeat 2 { + \partial 2; + a2 | a4( )b c'2 d' g | a( )g g b | + a a a gis | + e1. } + a2 | fis b c' d' | c'4( bes2 )aes4 g2 + c'4( )bes |a2 bes a a | a1. + d'2 | d' d'4( [e'8 )f'8] e'2 d' | e'2( )d' d' + g2 | g g g4( )a bes2 | b2( a )gis \bar "||"; +} + +bass=\notes{ + \repeat 2 { + \partial 2; + a4( )g | f2 e d c | fis,( )g, c + gis,2 | a, d e e | + a,1. } + a2 | dis e ees d | e( )f c + c | f e4( )d cis2 d | a,1. + fis2 | g4( )a b2 e4( )fis g2 | cis2( )d2 g, + c2 | b, c bes,4( )a, g,2 | gis,2( a, )e \bar "||"; +} + +global=\notes{ + \key c; + \time 4/2; + \property Staff.timeSignatureStyle="none" +} + +\score{ + < + \type Staff = "top" { + \clef "treble"; + \global + \type Staff <{\voiceone \sop}{\voicetwo \alt} > + } + \type Staff = "bottom" { + \clef "bass"; + \global + \type Staff < {\voiceone \ten}{\voicetwo \bass} > + } + > + + \paper { + linewidth= 140.\mm; + + gourlay_maxmeasures = 6.; + } +} diff --git a/mutopia/Hymns/stille.ly b/mutopia/Hymns/stille.ly new file mode 100644 index 0000000000..336c30bf38 --- /dev/null +++ b/mutopia/Hymns/stille.ly @@ -0,0 +1,187 @@ +\header { +title = "Stille Nacht"; +subtitle = "(Silent Night)"; +filename = "stille.ly"; +enteredby = "Peter Chubb"; +composer = "Franz X. Gruber"; +poet = "Joseph Mohr"; +} + + +\version "1.0.7"; + +global=\notes { + \time 6/4; + \key Bes; +} + +sop=\notes \relative f' { +%1 + f4. ( ) g8 f4 d2. | + f4. ( ) g8 f4 d2 r4 | + c'2 c4 a2 r4 | + bes2 bes4 f2. | +%5 + g2 g4 bes4.( )a8 g4 | + f4.()g8 f4 d2 r4 | + g2 g4 bes4.( )a8 g4 | + f4.()g8 f4 d2 r4 | +%9 + c'2 c4 es4.()c8 a4 | + bes2.~ ( r4 | + bes4 ( )f d f4.( )es8 c4 | + bes2. ~ bes2 r4 \bar "|."; +} + +alt=\notes\relative c' { +%1 + d4. es8 d4 bes2. | + d4. es8 d4 bes2 r4 | + es2 es4 ges2 r4 | + f2 es4 d2. | +%5 + es2 es4 es4. f8 es4 | + d4. es8 d4 bes2 r4 | + es2 es4 es4. f8 es4 | + d4. es8 d4 c( )bes r4 | +%9 + es4( )f g a4. a8 ges4| + f2.~ e!2-- r4 | + d2 bes4 d4. c8 c4 | + bes2. ~ bes2 r4 \bar "|."; +} + +ten=\notes\relative c' { + bes2 bes4 f2. | + bes2 a4 f2 r4 | + a2 a4 c2 r4 | + bes2 a4 f2 ( ) bes4 | +%5 + bes2 bes4 g4. a8 bes4 | + bes4. bes8 bes4 f2 r4 | + bes2 bes4 g4. a8 bes4 | + bes4. bes8 bes4 f2 r4 | +%9 + g2 bes4 c4. c8 c4 | + bes2. ~ g2-- r4 | + bes2 g4 a4. bes8 a4 | + bes2. ~ bes2 r4 \bar "|."; +} + +bass=\notes\relative c { +%1 + bes2 bes4 bes2. | + bes2 bes4 bes2 r4 | + f'2 f4 es2 r4 | + d2 c4 bes2. | +%5 + es2 es4 es2 es4 | + bes4. bes8 bes4 bes2 r4 | + es2 es4 es4. es8 es4 | + bes4. bes8 bes4 bes2 r4 | +%9 + c4 d es f4. f8 es4 | + d2. ~ c2-- r4 | + f2 f4 f4. g8 a4 | + bes2. ~ bes2 r4 \bar "|."; +} + +chords=\lyrics{ + "B\\textflat"1 ""2 + "B\\textflat maj7"1 ""2 + "F7"2. "E\\textflat dim"2. | + "B\\textflat /D"2 "Cm7"4 "B\\textflat"2. | + "E\\textflat"1 ""2 | + "B\\textflat"1 ""2 | + "E\\textflat"1 ""2 | + "B\\textflat"1 ""2 | + "Cm "4 "Gm7sus4/D "4 "Cm/E\\textflat "4 "F7"2 "E\\textflat dim"4 | + "B\\textflat /D"2. "C9"2 ""4 | + "B\\textflat /F"2. "F7"2. | + "B\\textflat"2 ""2 ""2 +} + +v1 = \lyrics { + Stil-2 le4 Nacht,2. hei-4. li-8 ge4 Nacht,2. + Al-2 les4 schl\"aft,2. ein-2 sam4 wacht2. + Nur2 das4 trau-2 te,4 hoch-4. heil8 ige4 Paar,2. + Hold-2 er4 Knabe2 im4 lock-4. i-8 gen4 Haar2. + Schlaf2 in4 himm-4. li-8 scher4 Ruh'!2 - - + Schlaf2 in4 himm-4. li-8 scher4 Ruh'!2 - - +} +v2 = \lyrics { + Stil-2 le4 Nacht,2. hei-4. li-8 ge4 Nacht,2. + Hir-2 ten4 erst2. kund2 ge-4 macht2. + Durch2 der4 En-2 gel4 Ha-4. lle-8 lu4 ja2. + T\"ont2 es4 laut2 von4 fern2 und4 nah:2. + "``Christ,"2 der4 Ret-4. ter,8 ist4 "da!''"2 - - + "``Christ,"2 der4 Ret-4. ter,8 ist4 "da!''"2 - - +} + +v3 = \lyrics { + Stil-2 le4 Nacht,2. hei-4. li-8 ge4 Nacht,2. + Go-2 ttes4 Sohn,2. o-2 wie4 lacht2. + Lieb'2 aus4 dei-2 nem4 g\"ott-4. li-8 chen4 Mund,2. + Da2 uns4 schlägt2 die4 ret-2 tende4 Stund'.2. + Christ,2 in4 Dei-4. ner8 Ge-4 burt!2 - - + Christ,2 in4 Dei-4. ner8 Ge-4 burt!2 - - +} + +v1e = \lyrics { + Sil-2 ent4 night,2. Ho-2 ly4 night,2. + All2 is4 calm,2. all2 is4 bright,2. + 'Round2 yon4 Vir-2 gin4 Mo-4. ther8 and4 Child2. + Ho-2 ly4 In-4. fant8 so4 ten-4. der8 and4 mild,2. + Sleep2 in4 hea-4. ven-8 ly4 peace,2 - - + Sleep2 in4 hea-4. ven-8 ly4 peace.2 - - +} +v2e = \lyrics { + Si-2 lent4 night,2. Ho-2 ly4 night,2. + Shep-2 herds4 quake2. at2 the4 sight,2. + Glo-2 ies4 stream2 from4 hea-4. ven8 a-4 far,2. + Hea-2 v'nly4 hosts2 sing4 "``A-"4. lle-8 lu-4 ia;2. + Christ2 the4 Sa-4. viour8 is4 born,2. + Christ2 the4 Sa-4. viour8 is4 "born.''"2. +} + +v3e = \lyrics { + Si-2 lent4 night,2. Ho-2 ly4 night,2. + Son2 of4 God,2. love's2 pure4 light2. + Ra-2 diant4 beams4. from8 Thy4 ho-4. ly8 face,2. + With2 the4 dawn2 of4 sa-4. ving8 grace2. + Je-2 sus,4 Lord,4. at8 Thy4 birth,2. + Je-2 sus,4 Lord,4. at8 Thy4 birth.2. +} + + +upper= \notes { + \type Staff = upper { + \clef "treble"; \global + \type Staff < + { \voiceone \sop } + { \voicetwo \alt } + > + } +} + +lower = \notes { + \type Staff = lower { + \clef "bass"; \global + \type Staff < + { \voicethree \ten } + { \voicefour \bass } + > + } +} + +\score { + \type ChoirStaff + < + { \type Lyrics = top \chords } + \upper + { \type Lyrics = upper \v1 } + { \type Lyrics = upper \v2 } + { \type Lyrics = upper \v3 } + \lower + > +}