From: Han-Wen Nienhuys Date: Sun, 14 Jul 2002 16:27:24 +0000 (+0000) Subject: move mutopia subdirectory X-Git-Tag: release/1.5.68~7 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=6ce2bcbe780ee19563e10cabfd4f1a9a2b8e882c;p=lilypond.git move mutopia subdirectory --- diff --git a/GNUmakefile.in b/GNUmakefile.in index 5ecb4bbfcf..0da6f9ad5e 100644 --- a/GNUmakefile.in +++ b/GNUmakefile.in @@ -12,8 +12,7 @@ SUBDIRS = buildscripts scripts flower lily \ mf ly tex ps scm \ python po make intl \ debian $(builddir)/stepmake \ - Documentation input \ - mutopia + Documentation input # SCRIPTS = configure aclocal.m4 autogen.sh diff --git a/input/mutopia/E.Satie/GNUmakefile b/input/mutopia/E.Satie/GNUmakefile new file mode 100644 index 0000000000..fecc9eade1 --- /dev/null +++ b/input/mutopia/E.Satie/GNUmakefile @@ -0,0 +1,9 @@ + +depth = ../../.. + +examples=petite-ouverture-a-danser +LOCALSTEPMAKE_TEMPLATES=ly mutopia + +include $(depth)/make/stepmake.make + + diff --git a/input/mutopia/E.Satie/petite-ouverture-a-danser.ly b/input/mutopia/E.Satie/petite-ouverture-a-danser.ly new file mode 100644 index 0000000000..5b213c0346 --- /dev/null +++ b/input/mutopia/E.Satie/petite-ouverture-a-danser.ly @@ -0,0 +1,161 @@ +\header { + filename = "petite-ouverture-a-danser.ly" + title = "Petite Ouverture \\`a danser" + subtitle = "4" + source = "" + composer = "Erik Satie (1866-1925)" + enteredby = "jcn" + copyright = "Public Domain" +} + +%{ + Tested Features: +%} + +\version "1.3.146" + +\include "nederlands.ly" + +global = \notes { + \key a \minor + \time 2/4 + s2*10 + \bar "||" + s2*11 + \bar "||" + \time 3/4 + s2. + \bar "||" + \time 2/4 + s2*4 + \bar "||" + \time 3/4 + s2.*2 + \bar "||" + \time 2/4 + s2*18 + \bar "|." +} + +i = \context Staff \notes\relative c''{ + \context Voice=i + \voiceOne + + c8.( es16 bes4 ~ | )bes8 r c8.( bes16 | des4 c8. bes16 | c4 ~ ) c8 r | + c4( f,8. as16 | bes4 ~ )bes8 r | f8.( es16 f4 | es )f | + g8.( es16 f4 ~ | )f f8 r + + % Au mouvement + f4 ( g | a2 ~ | )a | a4-- a-> ~ | a8 r b!8.( a16 | )b4 c-- ~ | + c8 r b8.( d16 | a4 ~ )a8 r | d4( cis | c! b8. d16 | a4 ~ )a8 r + + a8.( g16 a4 ~ ) a8 r | + + a4-> ~ a8 r | g8.( a16 )fis4 | e8.( d16 e4 | fis ~ ) fis8 r + + d4( d-- ~ )d8 r e4( f!2 ~ | + + f4 ~ )f8 r | es4( g | as bes ~ | )bes c( | )b!2 | c4( d | )bes2 | c4~ c8 r | + + % copy from begin: 1-10 + c8.( es16 bes4 ~ | )bes8 r c8.( bes16 | des4 c8. bes16 | c4 ~ ) c8 r | + c4( f,8. as16 | bes4 ~ )bes8 r | f8.( es16 f4 | es )f | +% g8.( es16 f4 ~ | )f f8 r ? + g8.( es16 f4 ~ | )f ~ f8 r + +} + +ii = \context Staff \notes\relative c'{ + \context Voice=ii + \voiceTwo + + r8 r | r r | r r | + r r | r r | r r | + r r | r bes r | r r | + r r + + % Au movement + r r | r r | r r | + r r | r r | r r | r r | + r r | r r | r r | + r r | + + r r r | + + r r | r r | r r | + r r | + + \translator Staff=bass\voiceOne + r r r | r + \translator Staff=treble\voiceTwo + r r | + + r r | r r | r r | + r r | r r | r r | + r r | r r | + + + % copy from begin: 1-10 + r8 r | r r | r r | + r r | r r | r r | + r r | r bes r | r r | + r r + +} + +lower = \context Staff \notes \relative c{ + \context Voice=iii + + | r | | r | + | r | | + | | r | + + % Au movement + | | r | | + r | | r | r | | + | r | + + r | + + r | | | r | + + r | | + + r | | | | + | | r | r + + % copy from begin: 1-10 + | r | | r | + | r | | + | | r | + +} + +\score { + \context GrandStaff < + \context Staff = treble < + \global + \clef violin + \i + \ii + > + \context Staff = bass < + \global + \clef bass + \lower + > + > + + \paper { + \translator{ + \VoiceContext + Slur \override #'attachment = #'(stem . stem) + autoBeamSettings \override #'(end 1 8 * *) = #(make-moment 1 4) + autoBeamSettings \override #'(end 1 16 * *) = #(make-moment 1 4) + } + } + \midi { + \tempo 4 = 60 + } +} + diff --git a/input/mutopia/F.Schubert/GNUmakefile b/input/mutopia/F.Schubert/GNUmakefile new file mode 100644 index 0000000000..f0add85f77 --- /dev/null +++ b/input/mutopia/F.Schubert/GNUmakefile @@ -0,0 +1,9 @@ +depth = ../../.. + +examples=standchen +mutopia-examples=standchen +LOCALSTEPMAKE_TEMPLATES=ly mutopia + +include $(depth)/make/stepmake.make + + diff --git a/input/mutopia/F.Schubert/standchen.ly b/input/mutopia/F.Schubert/standchen.ly new file mode 100644 index 0000000000..c5401da0e7 --- /dev/null +++ b/input/mutopia/F.Schubert/standchen.ly @@ -0,0 +1,469 @@ + +% #(set! point-and-click line-column-location) + +instrument = "Piano" + +\header { + title = "Ständchen" + subtitle = "(Serenade)" + subsubtitle = "Leise flehen meine Lieder" + opus = "D. 957 No. 4" + date = "August 1828" + composer = "Franz Schubert (1797-1828)" + poet = "Text by Ludwig Rellstab (1799-1860)" + enteredby = "JCN" + copyright = "public domain" + % instrument = \instrument + + % mutopia headers. + mutopiatitle = "Standchen" + mutopiasubtitle = "Leise flehen meine Lieder" + mutopiacomposer = "Franz Schubert (1797-1828)" + mutopiapoet = "Ludwig Rellstab (1799-1860)" + mutopiaopus = "D957.4" + mutopiainstrument = \instrument + date = "1828/08" + style = "Romantic" + source = "Schubert-Lieder Edition Schott No. 608, (Not dated). + Jubilaeums-Ausgabe zum 100. Todestage (~1928)." + + copyright = "Public Domain" + maintainer = "Jan Nieuwenhuizen" + maintainerEmail = "janneke@gnu.org" + lastupdated = "2001/Apr/27" + mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\thefooter\\quad\\small + \\\\This music is part of the Mutopia project, + \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset + and placed in the public domain by " + \maintainer + + ".\\\\Unrestricted modification and redistribution is permitted + and encouraged---copy this music and share it.}" + tagline = \mutopiapublicdomain + footer = "Mutopia-2001/04/27-xx" +} + +\version "1.5.49" + +dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1 +dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction + +\include "paper16.ly" + +vocalVerse = \notes\relative c''{ + \dynamicUp + \times 2/3 { [ g8( )as] g } c4. g8 | + \times 2/3 { [ f8( )g] f } c'4 f,8 r | + g4.-> f8 \times 2/3 { [ f( )es] d } | + es2 r4 | + R2. | + R2. | + \times 2/3 { [ g8( )as] g } es'4. g,8 | + \times 2/3 { [ f8( )g] f } d'4. c8 | + bes4. as8 \times 2/3 { [ as( )g] f } | + g2 r4 | + R2. | + R2. | + g8. b16 es4. d8 | + c8. g16 es4. c8 | + \grace { [ as'32( bes ] } \times 2/3 { [ )as8( )g] as } c4. as8 | + g2. | + \grace { [ f32( g ] } \times 2/3 { [ )f8( )e] f } as4. f8 | + + es!2. | + g8. b16 es4. d8 | + c8. g16 e4. c8 | + \grace { [ a'32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | + g!2. | + \times 2/3 { [ d'8\f( )cis] d } f4. b,8 | + c!2. | +} + +vocalThrough = \notes\relative c{ + \dynamicUp + g''8. g16 b8. b16 d8. d16 | + c4 b r | + g4. b8 d8. c16 | + b2 r4 | + e4. d8 \times 2/3 { [ d( )c] b } | + a8. b16 c4-> a8 r | + R2. | + R2. | + \grace { [ a32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | + g!2. | + \times 2/3 { [ d'8\f( )cis] d } f4. b,8 | + c!2. ~ | + % bug: slur on other staff fools lily into extending melisma + c4 r c | + as2. | + g | + e2 r4 | +} + +lyricVerseOne = \lyrics{ + Lei -- se fle -- hen mei -- ne Lie -- der + durch die Nacht zu dir; + in den stil -- len Hain her nie -- der, + Lieb -- chen, komm zu mir! + + Fl\"us -- ternd schlan -- ke Wip -- fel rau -- schen + in des Mon -- des Licht, + in des Mon -- des Licht; + + des Ver -- r\"a -- ters feind -- lich Lau -- schen + f\"urch -- te, Hol -- de, nicht, + f\"urch -- te, Hol -- de, nicht. +} + +lyricVerseTwo = \lyrics{ + H\"orst die Nach -- ti -- gal -- len schla -- gen? + ach! sie fle -- hen dich, + mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen + fle -- hen sie f\"ur mich. + + Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen, + ken -- nen Lieb -- es -- schmerz, + ken -- nen Lieb -- es -- schmerz, + + r\"uh -- ren mit den Sil -- ber -- t\"o -- nen + jed -- es wei -- che Herz, + jed -- es wei -- che Herz. +} + +lyricThrough = \lyrics{ + La\ss auch dir die Brust be -- we -- gen + Lieb -- chen, h\"o -- re mich! + be -- bend harr' ich dir ent -- ge -- gen! + + komm, be -- gl\"uk -- ke mich! + komm, be -- gl\"uk -- ke mich, __ + be -- gl\"uk -- ke mich! +} + +trebleIntro = \notes\relative c{ + r8^"\bf M\\\"a\\ss ig"\pp | + r8 | + r8 | + r8 | +} + +trebleVerseOne = \notes\relative c{ + %5 + r8 | + r8 | + r8 | + r8 | + <)f8 d> + % manual beam override bug + %\times 2/3 { < [f( d> <)d b] > } | + \times 2/3 < { [ f( es )d ] } { d c b } > | + %10 + | + r8 | + r8 | + r8 | + % manual beam override bug + % r8 < [ es g bes> + r8 < { [ es g es g ] } { g bes g bes } { bes es bes es } > + <{ es'( ) d4.() f8}{ c' | bes4. as8 } > + % manual beam override bug + % \times 2/3 { < [f( as> <)d f] > } | + \times 2/3 < { [ f( es )d ] } { as g f } > | + %16 + | + r8 | + r8 | + r8\pp | + %20 + r8 | + \property Voice.Slur \override #'attachment = #'(stem . stem) + \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 | + \property Voice.Slur \revert #'attachment + g2. | + r8 | + r8 | + r8 | + r8 | + \times 2/3 < { [ f'8\f( e f] } { f' e f } > + < {a4.- > )f8} { a'4. f8 } > | +} + +trebleEentje = \notes \relative c'{ + \stemBoth + r4 | + ( c> | + % urg: slurs with staccati are ugly + | + | + | + | + | + | + %60 + r4 | +} + +trebleThrough = \notes \relative c'{ + \stemBoth + | + %61 + R2. | + [ <\! b16\> b'16> ] | + < { c4( )b } { c'4( )b } > \!r | + + [ d,-> > c16] | + %65 + < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 | + \context Staff < + \context Voice=one { + \voiceOne + %urg + %a8. b16 c4-> () a8 r | + a8. b16 c4^> () a8 r | + %a8. b16 c4-> () a8 r | + a8. b16 c4^> () a8 r | + } + \context Voice=two { + \voiceTwo + | + | + } + > + + % 4 bars copied from end verse1 + r8 | + %70 + r8 | + \times 2/3 < { [ f'8\f( e f] } { f' e f } > + < { a4.-> )f8 } { a'4. f8 } > | + | + | + \property Voice . TextScript \override #'font-shape = #'italic + | + \property Voice . TextScript \revert #'font-shape + + %75 + | + | + + % four copied from begin eentje + c> | + | + | + %80 + + \property Voice . TextScript \override #'font-shape = #'italic + | + \property Voice . TextScript \revert #'font-shape + + | + | +} + +bassIntro = \notes\relative c{ + \dynamicUp +%1 + r4 | + r4 | + r4 | + r4 | +} + +bassVerseOne = \notes\relative c{ +% \clef bass + \dynamicUp +%5 + r4 | + r4 | + r4 | + r4 | + [ ] | +%10 + [ ] | + r4 | + r4 | + r4 | + r4 | +%15 + bes'8 [ ] | + es,8 [ ] | + r4 | + r4 | + r4 | + r4 | + [ ] | + [ ] | + r4 | + r4 | + r4 | + r4 | + [ ] | + c,8 [ ] | +} + +bassEentje = \notes\relative c{ + \dynamicUp + [ ] | + c,8 [ ] | + [ ] | + c,8 [ ] | + [ ] | + c,8 [ ] | + [ ] | + c,8 [ ] | +} + +bassThrough = \notes\relative c{ + \dynamicUp + %61 + [ b-> d->> ] | + [ b-> d->> ] | + % copied + [ b-> d->> ] | + [ b-> d->> ] | + %65 + [ e> ] | + [ ] | + [ ] | + [ ] | + % 4 bars copied from end verse1 + r4 | + %70 + r4 | + [ ] | + c,8\> [ < \! e g c> ] | + + [ ] | + [ ] | + %75 + [ ] | + c,8 [ ] | + c,8 [ ] | + c,8 [ ] | + g,8 [ ] | + %80 + c,8 [ ] | + c,8 [ ] | + | +} + +global = \notes{ + \time 3/4 + \key es \major + \skip 1 * 3/4 * 4 + \break + \skip 1 * 3/4 * 25 + \break + \skip 1 * 3/4 * 6 + \break + \skip 1 * 3/4 * 41 + \break + \skip 1 * 3/4 * 6 + \bar "|." +} + +allLyrics = \lyrics { + % maybe should be bigger by default, in grob-description.scm ? + \property Lyrics . LyricText \override #'font-relative-size = #1 + \property Lyrics . LyricHyphen \override #'maximum-length = #1.5 + \lyricVerseOne + \lyricVerseTwo + \lyricThrough +} + +lyricStaff = \context Lyrics { + \allLyrics +} + +vocals = \context Voice \notes { + \clef treble + % certainly no auto-beaming for vocals + \property Voice.autoBeaming = ##f + \property Staff.automaticMelismata= ##t + + \dynamicUp + % duh 1 != 3/4 + R1 * 3/4 * 4 + \vocalVerse + R1 * 3/4 * 8 + \vocalVerse + \vocalThrough + R1 * 3/4 * 6 +} + +vocalStaff = \context Staff = vocal< + \property Staff.midiInstrument = "synth voice" + \global + \vocals +> + +treble = { + \clef treble + \property Voice.autoBeamSettings \override #'(begin * * * *) = #(make-moment 0 1) + \trebleIntro + \trebleVerseOne + \trebleEentje + \trebleVerseOne + \trebleThrough +} + +trebleStaff = \context Staff = treble< + \property Staff.midiInstrument = "acoustic grand" + \global + \treble +> +bass = { + \clef bass + \bassIntro + \bassVerseOne + \bassEentje + \bassVerseOne + \bassThrough +} + +bassStaff = \context Staff = bass< + \property Staff.midiInstrument = "acoustic grand" + \global + \bass +> + +grandStaff = \context PianoStaff < + + \trebleStaff + \bassStaff +> + + +\score{ + < + +%{ + Transpose as you like for your voice + Range untransposed is c' to f'' (for tenors and sopranos) + \transpose a gives a' to d'' (for basses, who sing an octave down) + + \addlyrics + \notes \transpose a \vocalStaff + \lyricStaff + \notes \transpose a \grandStaff +%} + + \addlyrics + \vocalStaff + \lyricStaff + \grandStaff + > + \paper { + % Use + % textheight = 280.\mm + % linewidth = 190.\mm + % to get this on 3 pages of a4. + + % Mandatory Mutopia settings yield 4 pages :-( + textheight = 270.0\mm + linewidth = 180.0\mm + + \translator { \HaraKiriStaffContext } + } + \midi{ + \tempo 4 = 54 + } +} diff --git a/input/mutopia/GNUmakefile b/input/mutopia/GNUmakefile new file mode 100644 index 0000000000..94cc0a2f02 --- /dev/null +++ b/input/mutopia/GNUmakefile @@ -0,0 +1,9 @@ +depth = ../.. + +LOCALSTEPMAKE_TEMPLATES=ly mutopia +EXTRA_DIST_FILES += claop.py +SUBDIRS = J.S.Bach F.Schubert E.Satie W.A.Mozart + +include $(depth)/make/stepmake.make + + diff --git a/input/mutopia/J.S.Bach/GNUmakefile b/input/mutopia/J.S.Bach/GNUmakefile new file mode 100644 index 0000000000..e752a4ace6 --- /dev/null +++ b/input/mutopia/J.S.Bach/GNUmakefile @@ -0,0 +1,12 @@ +# input/mutopia/J.S.Bach/GNUmakefile + +depth = ../../.. + +SUBDIRS = Petites-Preludes +EXTRA_DIST_FILES= + +LOCALSTEPMAKE_TEMPLATES=ly mutopia +examples=wtk1-fugue2 baerenreiter-sarabande + +include $(depth)/make/stepmake.make + diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile b/input/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile new file mode 100644 index 0000000000..48b1a47b36 --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile @@ -0,0 +1,15 @@ +# mutopia/J.S.Bach/Petites-Preludes/Makefile + +depth = ../../.. + +EXTRA_DIST_FILES= + +LILYINCLUDE:=$(LILYINCLUDE):out +export LILYINCLUDE + +examples=preludes-2 +LOCALSTEPMAKE_TEMPLATES=ly mutopia + +mutopia-examples=preludes-score + +include $(depth)/make/stepmake.make diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/header.ly b/input/mutopia/J.S.Bach/Petites-Preludes/header.ly new file mode 100644 index 0000000000..e700af66ac --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/header.ly @@ -0,0 +1,41 @@ +\version "1.3.146" +%{ + Header for Petites Preludes. + + Six Petits Preludes, + Collection Johann Peter Kellner + ca 1703 - 1707 + + Kellner was a student of Bach's that copied some 90 works of his master. +%} + +instrument = "Piano" + +\header{ + title = "Petites Pr\'eludes" + subtitle = "Clavierbuechlein" + composer = "Johann Sebastian Bach (1685-1750)" + enteredby = "JCN,HWN" + instrument = \instrument + + % mutopia headers. + mutopiatitle = "Petites Préluedes" + mutopiacomposer = "J.S.Bach (1685-1750)" + mutopiaopus = "BWV924,939,999,925,926,940" + mutopiainstrument = \intrument + date = "1700s" + source = "Ed. Henry Lemoine Urtext" + style = "Baroque" + copyright = "Public Domain" + maintainer = "Jan Nieuwenhuizen" + maintainer_email = "janneke@gnu.org" + lastupdated = "2001/Feb/25" + mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small + \\\\This music is part of the Mutopia project, + \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset + and placed in the public domain by " + \maintainer + + ".\\\\Unrestricted modification and redistribution is permitted + and encouraged---copy this music and share it.}" + tagline = \mutopiapublicdomain + footer = "pre-Mutopia-200y/mm/dd-nr" +} diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly new file mode 100644 index 0000000000..db728f19d5 --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly @@ -0,0 +1,138 @@ +#(set! point-and-click line-column-location) + +opus = "BWV 924" +piece = "1" + + +%{ + +TODO: this file needs additional layouting: the trills look +differently in Lemoine, and the sharps should be below the trill. + +Additionally, the performance of trills should be explained. + +FIXME (Bach sure didn't)? +Lemoine puts fermatas on ending bar lines everywhere. + +%} + + + +\version "1.3.146" + + +lowstaff = \translator "Staff" = "lower" +upstaff = \translator "Staff" = "upper" + +% upper = \context Staff \notes\relative c { +upper = \context Staff=upper \notes\relative c { + \context Voice=i + \property Voice.TextScript \set #'font-style = #'italic + + r16 g'' c e r g, c e + r g, c d r b d g | + r16 a, d g r a, d f + r a, d e r c e a | + r16 b, e a r b, e g + r c, e f r g, d' f | + + r g, d' e r g, c e + r a, c d r e, b' d | + r e, b' c r e, a c + r f, a bes r c, g' bes | + r c, g' a r c, f a + r d, f b r e, g c | + r d, g c r d, g b + r c, g' b r c, fis a | + r b, d a' r b, d g + r a, c g' r a, c f! | + + % ugh arpeggio FIXME: is that so? + + r4 + + \stemBoth + \lowstaff + \stemUp + r16 g,, b d + [ f \upstaff \stemDown g16 b d ] | + \stemUp b + \lowstaff \stemDown + [ g b d ] f + \upstaff + [ g16 b d ] b + [ g b d ] + \stemUp + + % urg, below translator change affects previous beam too!? + % howto separate translator command from previous beam end? + \upstaff f g b f | + \stemBoth + e c' g f e c' g e + d c' f, e d b' f d | + c b' e, d c a' e c + b a' d, c b g' d b | + a g' c, b a fis' c a + b f' d c b f' d b | + g e' c b a e' c a + fis d' b a g d' b g | + e c' a g fis c' a fis + d c' b a b g d' f, | + g e f d' c b a g + f' d es c fis, es' d c | + b d b g as f g d + es fis a c + < + { \stemUp r c8 b16 } + \context Voice=ii { \stemDown d,8 f } + > + \stemBoth | + + \bar "|." +} + +% lower = \context Staff \notes\relative c{ +lower = \context Staff=lower \notes\relative c{ + \context Voice=i + \property Voice.TextScript \set #'font-style = #'roman + c4 e g^#'(music "accidentals-1") -\mordent g,4 | + d'4-\mordent f a-\mordent^#'(music "accidentals-1") a,4 | + e' e'-\mordent a, b-\upprall | + c4 e, fis gis-\upprall | + a4 c, d e-\upprall | + f4 e d-\prall c | + g'-\mordent^#'(music "accidentals-1") g, g'-\mordent g, | + g'-\mordent g, g'-\mordent g, | + g' r s s | s s s s \clef "bass" | + < + { \stemUp\tieUp g1 ~ g ~ g ~ g ~ g ~ g ~ g } + \context Voice=ii { \stemDown\tieDown g,1 ~ g ~ g ~ g ~ g ~ g ~ g } + > + + \bar "|." +} + +global = \notes{ + \time 4/4 +} + +\score{ + % Moderato + \context PianoStaff < + \context Staff = upper < + \global + \upper + > + \context Staff = lower < + \global + \clef "bass" + \lower + > + > + \paper { linewidth = 18.0 \cm } + \midi{ \tempo 4 = 80 } + \header { + opus = \opus + piece = \piece + } +} diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly new file mode 100644 index 0000000000..e8f231a3f9 --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly @@ -0,0 +1,101 @@ +#(set! point-and-click line-column-location) + +opus= "BWV 939" +piece = "2" + + +\version "1.3.146" +upper = \context Staff \notes\relative c{ + \context Voice=i + \property Voice.TextScript \set #'font-style = #'italic + r8 c' e g e c bes' g | + a c, f a f c c' a | + b g b d b g f' d | + + r4 + + + r4 + + < { \stemUp [d8 g, 8 b d] } + \context Voice = ii < \stemDown b g > + > + + + + c2 + r4 + < + { \stemUp\tieUp c ~ c8} + % We get a warning: No ties created! + % but they are too! + \context Voice=ii { \stemDown\tieDown ~ } + > + \stemBoth + d, fis a fis d c' a | + b g b d b g f'! d | + e g, c e c g g' e | + fis a, c fis c a a' fis | + + r4 b,4 | + c8 e g c g e bes' g | + a16 g f e d c b ! a + b g a b c d e f | + g4 + + + + \bar "|." +} + +lower = \context Staff \notes\relative c{ + \context Voice=i + < + { \stemUp\tieUp c1 ~ | c ~ | c } + \context Voice=ii { \stemDown\tieDown c,1 ~ | c ~ | c } + > + \stemBoth | + r8 c e g e c c' e, | + fis d fis a fis d d' fis, | + g2 r4 g | + a8 a, c e c a g' e | + fis2 r4 d | + g-\mordent-#'(music "accidentals-1") g, 4 g'-\mordent g, | + % mordents in brackets... + g'-\mordent g, g'-\mordent g, | + g'-\mordent g, g'-\mordent g, | + g'8 g, b d b g f'! d | + e c e g e c c' e, | + + f1 ~ | + f8 d e c g'4 g, | + c,1 + \bar "|." +} + +global = \notes{ + \time 4/4 +} + +\score{ + \context GrandStaff < + \context Staff = upper < + \global + \upper + > + \context Staff = lower < + \global + \clef "bass" + \lower + > + > + \paper{ + linewidth = 18.0 \cm + } + \midi{ \tempo 4 = 100 } + \header { + opus = \opus + piece = \piece + } +} + diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly new file mode 100644 index 0000000000..265518fdd7 --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly @@ -0,0 +1,158 @@ +#(set! point-and-click line-column-location) + +opus= "BWV 999" +piece = "3" + +%{ + +TODO: this file needs additional layouting: the upper voice should +switch staffs to avoid leger lines. + +Not all editions agree on the last note: ed. Lemoine has a quarter +note, some have dotted half notes. + +This file was partly generated using m4. +%} + +\version "1.3.146" + + +upper = \notes \transpose c'' { + r16 [c es g] [es c es c] r c r c | + r16 [c es g] [es c es c] r c r c | + r16 [c f as] [f c f c] r c r c | + r16 [c f as] [f c f c] r c r c | + r16 [b, d f] [d b, d b,] r b, r b, | + r16 [b, d f] [d b, d b,] r b, r b, | + r16 [g, c es] [c g, c g,] r g, r g, | + r16 [g, c es] [c g, c g,] r g, r g, | + r16 [g, c es] [c g, c g,] r g, r g, | + r16 [g, c es] [c g, c g,] r g, r g, | + r16 [a, c es] [c a, c a,] r a, r a, | + r16 [a, c es] [c a, c a,] r a, r a, | + r16 [a, bes, d] [bes, a, bes, a,] r a, r a, | + r16 [g, bes, d] [bes, g, bes, g,] r g, r g, | + r16 [bes, d g] [d bes, d bes,] r bes, r bes, | + r16 [a, es g] [es a, es a,] r a, r a, | + r16 [a, c fis] [c a, c a,] r a, r a, | + r16 [a, c fis] [c a, c a,] r a, r a, | + r16 [bes, d g] [d bes, d bes,] r bes, r bes, | + + r16 [c fis a] [fis c fis c] r c r c | + r16 [d g bes] [g d g d] r d r d | + r16 [d fis c'] [fis d fis d] r d r d | + + r16 [cis g bes] [g cis g cis] r cis r cis | + r16 [c! es a] [es c es c] r c r c | + r16 [bes, e g] [e bes, e bes,] r bes, r bes, | + r16 [a, c g] [c a, c a,] r a, r a, | + + r16 [a, c fis] [c a, c a,] r a, r a, | + r16 [g, bes, e] [bes, g, bes, g,] r g, r g, | + r16 [fis, a, es] [a, fis, a, fis,] r fis, r fis, | + r16 [g, bes, d] [bes, g, bes, g,] r g, r g, | + r16 [g, a, c] [a, g, a, g,] r g, r g, | + r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, | + r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, | + r16 [g, a, c] [b, g, b, g,] r g, r g, + r16 [a, c fis] [c a, c a,] r a, r a, | + r16 [c fis a] [fis c fis c] r c r c | + r16 [b, d g] [d b, d b,] r b, r b, | + r16 [b, d f] [d b, d b,] r b, r b, | + r16 [g, c es] [c g, c g,] r g, r g, | + r16 [fis, c es] [c fis, c fis,] r fis, r fis, | + r16 [fis, c es] [c fis, c fis,] r fis, r fis, | + r16 [g, b, d] [b, g, b, d] [es c a, fis] | + + + + \bar "|." +} + +lower = \notes{ + c4 r [g8 es] | + c4 r [g8 es] | + c4 r [as8 f] | + + c4 r [as8 f] | + c4 r [as8 f] | + c4 r [as8 f] | + + c4 r [es8 c] | + bes,!4 r [es8 c] | + as,!4 r [es8 c] | + + g,4 r [es8 c] | + fis,4 r [es8 c] | + fis,4 r [fis8 d] | + + g,4 r [d8 bes,] | + g,4 r [bes,8 g,] | + es,4 r [g8 es] | + + c4 r [c8 a,] | + d,4 r [d8 a,] | + d,4 r [d8 a,] | + d,4 r [d8 bes,] | + + + d,4 r [es8 c] | + d,4 r [g8 d] | + d,4 r [a8 fis] | + + d,4 r [g8 es] | + d,4 r [fis8 d] | + d,4 r [e8 cis] | + d,4 r [es8 c] | + + d,4 r [d8 a,] | + d,4 r [cis8 bes,] | + d,4 r [c!8 a,] | + + d,4 r [bes,8 g,] | + d,4 r [es8 c] | + d,4 r [d8 a,] | + + g,4 r [es8 c] | + g,4 r [d8 b,] | + g,4 r [es8 c] | + + g,4 r [es8 c] | + g,4 r [g8 d] | + g,4 r [as8 f] | + g,4 r [es8 c] | + + g,4 r [es8 c] | + g,4 r [es8 c] | + g,4 r r | + %% FIXME: \fermata? + g,4_\fermata + \bar "|." +} + +global = \notes{ + \time 3/4 + \key es \major +} + +\score{ + \context PianoStaff < + \context Staff = up < + \global + \upper + > + \context Staff = down < + \global + \clef "bass" + \lower + > + > + \paper{ + \translator {\OrchestralScoreContext } + } + \midi{ \tempo 4 = 100 } + \header{ + opus = \opus + piece = \piece + } +} diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly new file mode 100644 index 0000000000..7b2f458c5c --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly @@ -0,0 +1,229 @@ +#(set! point-and-click line-column-location) + +opus = "BWV 925" +piece = "4" + +\version "1.3.146" + +%{ + +This stretches LilyPond capabilities a little. + +%} + +one = \context Staff \notes\relative c { + \context Voice=i + \property Voice.TextScript \set #'font-style = #'italic +% r16_"legato" + r16 + \property Voice.TextScript \set #'font-style = #'finger + d' fis d a' b cis a + d cis d e d fis e d | + \property Voice.TextScript \set #'font-style = #'finger + \stemUp\tieUp + cis4 fis ~ fis8 fis e4 ~ | + e16 \stemBoth\tieBoth a,16 cis a d e fis d + g fis g a g b a g | + \stemUp + + fis4 e8 a | + %5 + < g!16 d> fis g a + \stemBoth + g b a g | + \property Voice.TextScript \set #'font-style = #'italic + + fis e fis g fis a g fis + \property Voice.TextScript \set #'font-style = #'finger +% e4-"2\\_5" ~ e16 e, fis g | + e4 ~ e16 e, fis g | + \property Voice.TextScript \set #'font-style = #'italic + + a g a b a c b a + g fis g a g b a g | + \stemUp\tieUp + fis4 + \skip 4*7 | + %10 + \property Voice.TextScript \set #'font-style = #'finger +% d'4. cis8-"4\\_5" ~ cis b4 a8-"4\\_5" ~ | + d'4. cis8 ~ cis b4 a8 ~ | + \property Voice.TextScript \set #'font-style = #'italic + + a g4 fis8 ~ fis16 fis e d + \property Voice.TextScript \set #'font-style = #'finger +% e4-"3\\_5" ~ | + e4 ~ | + e16 e d cis d4 ~ d16 d cis b cis4 | + \stemBoth + fis,16 a d c b d g fis + d b' a g fis e d c! | + b d g a fis8-\prall e16 d + d8. e16~ e d8 cis16 | + %15 + \stemUp\tieUp + r16 d fis d g a b g c b c d c e d c | + b4 a ~ a8 g ~ g16 fis8 e16 | + fis8 e~ e d~ d4 cis | + + d2 ~ d16 a b cis d4 | + \bar "|." +} + +two = \context Staff \notes\relative c{ + \context Voice=ii + \stemUp + \property Voice.TextScript \set #'font-style = #'finger + fis4 e8 a4 a4 gis8 | + a8 + \translator Staff=upper \stemDown\tieDown + + a'4 a8 b4. cis8 ~ | + cis8 + \translator Staff=lower \stemUp\tieUp + a,8 ~ a d ~ d d4-> cis8 | + d8 + \translator Staff=upper \stemDown\tieDown + d'4-> cis8 ~ cis b4 b8 | + %5 + r8 a4 a8 + \translator Staff=lower \stemUp\tieUp + g8 fis e4 ~ | + e4 d ~ d16 d cis b cis4 ~ | + cis8 a d4. d4^> cis8 | + \translator Staff=upper \stemDown\tieDown + d4 \stemBoth\tieBoth r16 b d b~ + r16 cis, e cis~ | + r16 d, fis d~ + r16 fis a fis~ | + %10 + \stemDown + fis4 e d cis | + b a b4. b8 | + a4 + \translator Staff=lower \stemUp + r16 b fis a g4 r16 a e g | + \skip 1*1 + s16 + \translator Staff=upper \stemDown\tieDown + d'8. ~ d8 c d4 a8 g | + %15 + fis8 \translator Staff=lower \stemUp c' b4 \stemDown + \stemDown\tieDown + a'8~ | + a g~ g16 e fis8~ fis16 d8.~ d8. cis!16 | +% \translator Staff=lower \stemUp + \context Staff < +% \context Voice=i { \stemUp\tieU d8 a~ a4 } +% \context Voice=ii { \stemDown a8 g fis16 e fis d } + \context Voice=ii { + \translator Staff = upper + \stemDown\tieDown d8 a~ a4 + } + \context Voice=iii { + \translator Staff = lower + \stemUp a8 g fis16 e fis d + } + > + \translator Staff=lower + \stemUp\tieUp + g fis g a g b a g ~ | + g g fis e fis4 ~ fis2 + \bar "|." +} + +three = \notes\relative c{ + \context Voice=iii + \stemDown + d4 cis b e | + a16 a, cis a d e fis d + g fis g a g b a g | + fis4 fis e a | + d16 \stemBoth d, fis d a' b cis a + d cis d e d fis e d | + %5 + cis b cis d c e d c + \stemDown b4 cis8 b | + a fis b a gis e a g | + fis4. d8 e4 a4 | + \stemBoth + r16 d, fis d g8 g, + r16 e' g e a8 a, | + r16 fis' a fis b8 b, r16 g' b g d'8 d, | + %10 + r16 d,16 fis d a' b cis a d b d b + fis' g a fis | + fis16 g, b g d' e fis d g8 g, r16 cis e cis | + fis8 fis, \stemDown r16 b d b e8 e, + r16 a cis a | + \stemBoth + d e fis d g fis e d cis! a b cis + d e fis d | + g8 e \stemDown\tieDown a a, b8. g16 a4 | + %15 + d8 a'~ a g~ g g fis4 | + \stemUp + r16 g b g d'8. c16 b8. bes16 a8 g | + \stemDown + r16 a, cis! a' d, e fis d e8 d e a, | + d a~ a16 a b cis d2 | +} + +four = \context Staff \notes\relative c{ + \skip 1*9 + \context Voice=iv + \stemUp + \property Voice.NoteColumn \override #'horizontal-shift = #1 + %10 + a''2 fis | + d s | + \skip 1*2 | + s4 + \translator Staff=lower \stemUp\tieUp + a4 ~ a16 d, g8 fis e | + %15 + \stemDown\tieDown + d1 ~ | + % we'll get some warnings, but it looks better + \property Voice.NoteColumn \override #'horizontal-shift = #0 + d | + d, ~ | + d2 d2 +} + +global = \notes{ + \time 4/4 + \key d \major +} + +\score{ + % Allegretto + \context PianoStaff < + \context Staff = upper < + \global + \one + \four + > + \context Staff = lower < + \global + \clef "bass" + \two + \three + > + > + \paper{ + linewidth = 18.0 \cm + \translator{ + \VoiceContext + % consider ending beam at every 1 2 note + autoBeamSettings \override #'(end 1 8 * *) = #(make-moment 1 4) + } + } + \midi{ \tempo 4 = 70 } + \header{ + opus = \opus + piece = \piece + } +} diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly new file mode 100644 index 0000000000..d760a91db4 --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly @@ -0,0 +1,208 @@ +#(set! point-and-click line-column-location) + +piece = "5" +opus = "BWV 926" + +\version "1.3.146" + +upper = \context Staff \notes\relative c + \context Voice=i { + \property Voice.TextScript \set #'font-style = #'italic + + + [d'8 a' f d a' f] | + d a' f d a' f | + d bes' g d bes' g | + d bes' g d bes' g | + %5 + cis, g' e cis g' e | + cis bes' g e a g | + f d f a f a | + d a d f d f | + b f e d c b | + %10 + a gis fis e d' b | + < + { + \stemUp + \property Voice.TextScript \set #'font-style = #'roman + c4-\mordent^#'(music "accidentals-1") r r | + c4-\mordent^#'(music "accidentals-1") r r + \property Voice.TextScript \set #'font-style = #'italic + } + \context Voice=ii { \stemDown a4 r r | a4 r r } + > | + \stemBoth + a'8 es d c bes a | + g fis e! d c' a | + %15 + bes8-\mordent d8 bes g g'4 | + r8 d c bes a-\prall g | + a c a f f'4 | + r8 c bes a g-\prall f | + g bes a g f e | + %20 + f d f a d g, | + < + { + \stemUp + % ... textnatural +% cis8-\prall e8-"poco cresc." cis a e' cis + cis8-\prall e8 cis a e' cis + } + \context Voice=ii { \stemDown a4 } + > + \stemBoth + a8 e' cis a bes! a | + g e' cis g e' cis | + g e' cis g a g | + + f d' bes f d' bes | + %25 + f d' bes f d' bes | + + fis c' a fis c' a | + fis c' a fis c' a | + bes g fis g d g | + bes g d bes' g d | + %30 + e g fis g bes g | + es bes' g es bes' g | + cis, bes' g cis, bes' g | + cis, bes' g cis, a' g | + f a f d a' f | + %35 + d a' f d cis d | + e g e bes g' e | + bes g' e cis a g' | + f16 d c bes \stemUp a s16 s8 s4 | +% ugh +% s1 | + s4 s4 s4 | + %40 + s4 s16 [d16 f a] \stemDown [d, f a] \stemUp d | + \stemBoth + f a f d f d b d gis, b a gis | + + % arpeggio + a8 + < f4 d a > ~ + [f8 e] + < { \stemUp + e4.^\prall d8 + } + \context Voice=ii { \stemDown cis2 } + > + \stemBoth + d8 c! a d bes g | + %45 + c a fis bes g e | + + a fis d g e cis | + + % the mordent is on the D ! + +} + + +lower = \context Staff \notes\relative c{ + \context Voice=i + + d4-\mordent r r | + d,4 r r | + d'-\mordent r r | + d,4 r r | + d'-\mordent r r | + + d,4 r r | + d'8 a d f d f | + a f a d a d | + gis,4 r r | + e gis e | + a8 e' c a e' c | + g! es' c g es' c | + fis,4 r r + d fis d | + \property Voice.TextScript \set #'font-style = #'roman + g4-\mordent^#'(music "accidentals-1") r r8 f!8 | + \property Voice.TextScript \set #'font-style = #'italic + e4-\prall r r | + f4-\mordent r r8 e | + d4 r8 f e d | + e d cis e d cis | + d4 c! bes | + a a' a, | + a a' a, | + a a' a, | + a a' a, | + bes r r | + bes bes' bes, | + a r r | + a d d, | + g r r | + g g' g, | + g r r | + g g' g, | + a r r | + a a' a, | + a r r | + a a' a, | + cis, r r | + cis cis' cis, | + d s16 + \stemDown + [g'16 f e] f a d, f | + a, \stemUp [d c bes] + a \stemDown [ g f e] d f a d | + \stemUp + + [f a] + \stemDown + [d, f] a s s8 s4 | + \stemBoth +% ugh whole rest has duration of one bar + R2. | +% r4 r r | + \stemBoth + cis,8 e cis a d16 c bes a | + g8 g' a g a a, | + % ah, both at last + % what's going on here?? + \stemBoth + \stemBoth + \stemBoth + d4 d' d, | + d r r | + d, d' d, | + d2. | +} + +global = \notes{ + \time 3/4 + \key f \major +} + +\score{ + % Moderato + \context PianoStaff < + \context Staff = upper < + \global + { \upper \bar "|." } + > + \context Staff = lower < + \global + \clef "bass" + \lower + > + > + \paper{ + linewidth = 18.0 \cm + + } + \midi{ \tempo 4 = 90 } + \header{ + piece = \piece + opus = \opus + } +} + diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly new file mode 100644 index 0000000000..0dc4d06a64 --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly @@ -0,0 +1,129 @@ +#(set! point-and-click line-column-location) + +opus = "BWV 940" +piece = "6" + +\version "1.3.146" + + + +one = \context Staff \notes\relative c{ + \context Voice=i + \skip 1 | + \stemUp + r4 d''2 cis4 | + \stemBoth + d16 a' g f e f cis d + e8.-\mordent f16 d8.-\prall cis16 | + \stemUp\tieUp + cis4 ~ cis16 a d8 ~ d4 a | + %5 + b2 ~ b4 a ~ | + a16 a \stemUp g! f g4 ~ g f ~ | + f16 a g f e16 g8. ~ g16 g f e d f8. ~ | + f16 f e d b'4 a g | + + fis4 g r8 g16 bes e4 | + %10 + d1 + \bar "|." +} + +two = \context Staff \notes\relative c{ + \context Voice=ii + r16 d'' c bes a bes f g + a8.-\mordent bes16 g8.-\prall f16 | + \stemDown + f2 e2 | + \translator Staff=lower \stemUp + r4 a, bes b | + \translator Staff=upper \stemDown\tieDown + r16 b' a g f8. f16 e2 ~ | + %5 + e2 ~ e4 ~ e16 e f! d | + s4 e32 d e8.~ e4 d4 ~ | + d4. cis16 d cis4 d ~ | + d8 r r16 e f d r16 e f d r d e cis | + r16 e d c! bes! d8. s4 r16 bes' a g | + %10 + fis1 +} + +three = \context Staff \notes\relative c{ + \context Voice=iii + \stemUp + f2 e | + \stemBoth + d16 d' c bes a bes f g + a8.-\mordent bes16 + g8.-\prall f16 | + f2 g4 gis | + a2 ~ a16 a g f e f c d | + %5 + e8.-\mordent f16 d8.-\prall c16 \stemBoth c4. d8 | + \stemDown + e4 ~ e16 f e d cis a b cis d e f d | + \property Voice.TextScript \set #'font-style = #'finger + bes!2 a ~ | + a a | + d, cis' | + %10 + a'1 + \bar "|." +} + +four = \context Staff \notes\relative c{ + \context Voice=iv + \stemDown + d2 cis | + \skip 1*2 | + \skip 4*3 + \translator Staff=upper \stemUp + \property Voice.NoteColumn \override #'horizontal-shift = #1 + c''4 | + %5 + a gis ~ gis16 gis fis e + \skip 4*1 + \translator Staff=lower \stemDown + \property Voice.NoteColumn \override #'horizontal-shift = #0 + \stemUp\tieUp + b2 a | + g a4. gis16 a | + gis2 < g8 cis,> e4 | + d4. fis16 g r16 bes8. ~ bes4 | + %10 + \stemDown + d,1 +} + +global = \notes{ + \time 4/4 + \key f \major +} + +\score{ + % Allegretto + \context PianoStaff < + \context Staff = upper < + \global + \one + \two + > + \context Staff = lower < + \global + \clef "bass" + \three + \four + > + > + \paper{ + linewidth = 18.0 \cm + + } + \midi{ \tempo 4 = 40 } + \header{ + piece = \piece + opus = \opus + } +} + diff --git a/input/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly new file mode 100644 index 0000000000..a7dbde535f --- /dev/null +++ b/input/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly @@ -0,0 +1,13 @@ +\version "1.3.146" +% This is the main score file of the Petites Preludes + +\include "header.ly" + +\paper { linewidth = 18.0\cm } + +\include "preludes-1.ly" +\include "preludes-2.ly" +\include "preludes-3.ly" +\include "preludes-4.ly" +\include "preludes-5.ly" +\include "preludes-6.ly" diff --git a/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly new file mode 100644 index 0000000000..7acd483dfd --- /dev/null +++ b/input/mutopia/J.S.Bach/baerenreiter-sarabande.ly @@ -0,0 +1,173 @@ + +%% #(set! point-and-click line-column-location) + +\header { + title = "Solo Cello Suite II" + piece ="Sarabande" + composer = "J.S.Bach" + editor = "August Wenzinger" + source= "B\\\"arenreiter Urtext" + + texidoc = "The B\\\"arenreiter edition of the Cello Suites is the +most beautifully typeset piece of music in our collection of music (we +both own one. It is also lovely on French Horn). This piece does not +include articulation, but it does follows the same beaming and +linebreaking as the printed edition. This is done in order to +benchmark the quality of the LilyPond output. + +As of lilypond 1.5.42, the spacing and beam quanting is almost +identical. + +There are two tweaks in this file: a line-break was forced before +measure 25, we get back the linebreaking of Baerenreiter. The stem +direction is forced in measure 24. The last beam of that measure is up +in Baerenreiter because of context. We don't detect that yet. + +Note that the Barenreiter edition contains a few engraving +mistakes. The second line begins with measure 6 (but prints 5). The |: +half way in measure 13 has been forgotten. + " +} + + +\version "1.5.49" + + +sarabandeA = \context Voice \notes \relative c { + \property Staff.NoteCollision \set #'merge-differently-dotted = ##t + < { d8. e16 e4.-\trill d16 e } \\ + { d4 a2 } > + f4. [e8 d c] | + [bes g'] [f e16(f] [g a bes)d,] | + cis4.-\trill [b8 a g] | + + %% check spacing without accs: + %% c4.-\trill [bes8 a g] | + + < { d'8. e16 f4.-\trill d16 e | + f4. [d8 e f] } + \\ + { a2 } > | + %%5 + + g8 bes16()a c()bes a()g d'8 f, | + < e4.-\trill + \\ > + [d8 c bes] + %%8 + < { f'8 g16()a a4. g16()f | + g8 a16()bes bes4. c16()d } + \\ + { a,4 r8 bes4 } + > | + + %% 11 + [e,8 f] [c, g'] [f' e] | + f4 f,2 | + < { a'4 a4.-\trill bes8 + c bes16 a } \\ + { [f8 es] es4. r8 d4 } > + + fis8.-\trill es16 d8 c | + [bes g'] + [a, fis'] + [es' d] | + %%16 + < bes4.-\trill d, g, > [a8 g f!] | + e bes a f' g a | + d, as g es' f g | + [cis, bes'] [a g16 f] [e!8 f16 d] | + cis8 e16 a a,8. g'16 f8()e | + %%21 + < { d e16()f f4. e16()d | + e8 f16()g g4. a16()bes | + a8 cis16 d d,8 e16 f32 g f8-\trill e16()d } \\ + { bes4 g2 | + g4 s8 | + r r g, a4 } > + | + \stemUp + d4 d,16 a'( b cis d e f )g | + \stemBoth + \break + %%25 + < { a16(b c)b c4. b16()a | + b cis d cis d4. e16()f | } + \\ + { f,4 fis4. s8 | + gis4. } > + \voiceOne + d16(cis)d f, + [a,8 e'] + \oneVoice + [d' cis] | + d4 d,,2 | +} + + +sarabande = \context Staff \notes< + \apply #voicify-music \sarabandeA + +> + +\version "1.5.49" + +sarabandeCelloGlobal = \notes{ + \time 3/4 + \key f \major + \clef bass + \repeat "volta" 2 { + s2.*12 + } \repeat "volta" 2 { + s2.*16 + } +} + +sarabandeCelloScripts = \notes{ +} + +sarabandeCelloStaff = \context Staff < + \sarabande + \sarabandeCelloGlobal + \sarabandeCelloScripts +> + +% size perversions +smallerPaper = \paper { + \translator { \StaffContext + fontSize = #-1 + StaffSymbol \override #'staff-space = #0.8 + } + \translator { \ScoreContext + SpacingSpanner \override #'spacing-increment = #0.96 + } + + indent = 5.6 \mm + linewidth = 146.8 \mm +} + +baerPaper = \paper { + indent = 7. \mm + linewidth =183.5 \mm + interscoreline=4.0\mm + \translator { + \ScoreContext +% System \override #'molecule-callback = #box-grob-molecule + } +} + + +\score{ + \sarabandeCelloStaff + \paper{ + \baerPaper + } + \midi{ \tempo 4 = 40 } + \header{ + opus= "" + piece ="Sarabande" } +} + +%%% Local variables: +%%% LilyPond-indent-level:2 +%%% End: diff --git a/input/mutopia/J.S.Bach/wtk1-fugue1.ly b/input/mutopia/J.S.Bach/wtk1-fugue1.ly new file mode 100644 index 0000000000..821207bf57 --- /dev/null +++ b/input/mutopia/J.S.Bach/wtk1-fugue1.ly @@ -0,0 +1,198 @@ +\header{ +title = "Fuga a 4" +opus = "BWV 846" +composer = "Johann Sebastian Bach (1685-1750)" +enteredby = "Shay Rojansky" + + + % mutopia headers. + mutopiatitle = "Das Wohltemperierte Clavier I, Fuga 1 (c-major)" + mutopiacomposer = "J.S.Bach" + mutopiaopus = "BWV846" + style = "baroque" + copyright = "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!" + maintainer = "hanwen@cs.uu.nl" + lastupdated = "2001/April/6" + footer = "Mutopia-2001/4/6-4" +} + +%{ +TODO: use autobeaming. +%} +\version "1.3.146" + +% #(set! point-and-click line-column-location) + +tenor = + \context Voice = tenor \notes \relative c' { + \clef "violin" + + \voiceTwo + r8 [c8 d e] [f8. g32 f] [e8 a] | + [d, g] ~ [g16 a g f] [e f e d] [c d c b ] | + [a 8 fis'] g4 ~ [g8 fis16 e] [f8 d] | + [g f! e d] c r r g' ~ | +%% 5 + [g f16 e] f4 ~ [f16 f e8] d4 | + [c8 f] r16 [g f e] [f8 d] g4 ~ | + g4 r4 r2 | + r1 | + r8 [g8 a b] [c8. d 32 c ] [b8 e ] +%% 10 + [a, d ] ~ [d 16 e d c ] b8 r8 r d, | + [e fis] [g8. a32 g] [fis8 b e, a] ~ | + [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] | + [a gis a b] [gis fis gis a] b8 r8 r4 | + r8 [c,8 d e] [f8. g32 f] [e8 a] | +%% 15 + [d, g] ~ [g16 a g f] e8 [e fis g] ~ | + [g8 fis] [gis8 a] ~ [a g! a b] | + [c8. d32 c ] [b8 e ] [a, d ] ~ [d 16 e d c ] | + [b8 g' cis, d ] [e cis d e ] | + a,8 r8 r e [fis g] [a8. b32 a] | +%% 20 + [g8 c fis, b] ~ [b16 c b a] [g fis e d] | + e4 d ~ [d16 a' g f!] [e g f! a] | + g4 ~ [g16 a bes8] c 4 [d 8 g,] | + g4. f8 ~ [f e] d4 | + e8 a4 g8 ~ [g8 f g a] | +%% 25 + [bes8. c32 b] [a8 d ] [g, c ] ~ [c 16 d c bes] | + [a bes a g] [f g f e] d4 ~ [d8. g16] | + a4 r16 [f' 16 d 8] e 2 | + } + + +soprane = + \context Voice = sop \notes \relative c' { + + \voiceOne + r1 | + r2 r8 [g'8 a b] | + [c8. d32 c ] [b8 e ] [a, d ] ~ [d 16 e d c ] | + [b g a b] [c b c d ] [e d e fis ] [g 8 b,] | +%% 5 + [c a] [d 16 c b a] [g8. g16] [f e f g] | + [a g a b] c 2 b4 | + r8 [c8 d e] [f8. g32 f] [e8 a] | + [d, g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] | + f2 [e8. fis16] g4 ~ +%% 10 + g4 fis [g16 f! e d] [c d c b ] | + [a 16 c b a ] g 8 r8 r16 [c16 b a ] [gis 8 e'] | + [d c16 b 16] [a gis a b ] [c fis, a gis ] [b 8 a 16 b ] + [c8 f e d] ~ [d c16 b ] [b 8. a 16] | + a 4 r4 r2 | +%% 15 + r2 r8 [g 8 a b ] | + [c8. d32 c] [b 8 c] [d e] [f!8. g32 f!] | + [e8 a d, g] ~ [g16 a g f] [e8 a] | + [d,8 bes'] [a g16 f] [g f g e] [f g g f32 g] | + [a16 cis, d g] [e8. d16] d8 r8 r4 | +%% 20 + r2 r4 r8 g, | + [a b ] [c8. d32 c] [b 8 e a, d( ] | + [) e16 e d c] [b c d e] [f g a g] [f e d c] | + b 4 [c,8 d] g c4 b 8 | + c4 [b 8 bes 8] a d4 c8 | +%% 25 + [d8 e] f4 ~ [f16 a g f] [e f e d] | + c2 r16 [g32 a b !16 c] [d e f8] ~ | + [f32 c d e f16 g] [a8. b16] | + } + +alt = +\context Voice = alt \notes \relative c { + \clef "bass" + + + \voiceOne + R1*3 | + r8 [g'8 a b] [c8. d32 c ] [b8 e ] | +%% 5 + [a, d ] ~ [d 16 e d c ] [b8 c ~ c bes8] | + [a d g, c ] r16 [a16 b c ] d 4 | + g,4 r8 g8 [a b] [c8. d32 c ] | + [b8 e a, d ] ~ [d 16 e d c !] [b!8 e ] ~ | + e 4 d 4 [c 16 b c a] [e' d c b] | +%% 10 + [c 16 a b c ] [d c b a] g4 r4 | + r1 | + r8 [e8 fis gis] [a8. b32 a] [gis8 c ] | + [fis, b] ~ [b16 c b a] gis8 a4 gis8 | + a4 r8 g8 [a b] c8. [d32 c ] | +%% 15 + [b8 e a, d ] ~ [ d g,] d'4 | + [c 8 a] e' 4 d 8 r8 r4 | + r8 [a8 b cis ] [d8. e32 d ] [c !8 f ] | + [b,8 e ] ~ [e 16 f e d ] cis 8 r8 r4 | + r8 [a8 b cis ] [d8. e32 d ] [c !8 fis ] | +%% 20 + [b, e ] ~ [e 16 fis e d ] c 2 ~ | + [c 16 d c b] [a g a fis] [g8 b c d ] | + [e8. f32 e ] [d 8 g ] [c, f ] ~ [f 16 g f e ] | + d 4 [e 8 d ] ~ [d g,] g4 ~ + [g8 c, d e] [f8. g32 f] [e8 a] | +%% 25 + [d, g] ~ [g16 a g f] [e d e f] [g a bes g] | + [a e f g] [a b c a] b2 | + c 1 | + } + +bass = \context Voice = bassvoice + \notes \relative c { + \clef "bass" + + \voiceTwo + R1*4 | +%% 5 + r2 r8 [c8 d e] | + [f8. g32 f] [e8 a] [d, g] ~ [g16 a g f] | + [e f e d] [c d c b ] [a' 8 d a fis] | + [g16 a bes g] [cis,8 d] a'4 e4 | + [a16 b c d ] [c b a g] c 8 r8 r4 | +%% 10 + r2 r8 [g, 8 a b ] | + [c8. d32 c] [b 8 e] [a, d] ~ [d16 e d c] | + b 8 e4 d8 c f!4 e8 ~ | + e d4 e8 [f! e16 d] e4 | + a, 4 r4 r2 | +%% 15 + r8 [g 8 a b ] [c8. d32 c] [b 8 e] | + [a, 8 d] ~ [d16 e d c] [b 8 bes a g ] | + [a 8 fis' g e] d4 [e8 f!] | + [g8. a32 g] [f8 bes] [e, a] ~ [a16 bes a g] | + [f e f d] [g8 a] d,2 ~ | +%% 20 + [d16 e d c] [b a g fis ] [e' 8 e fis g] ~ | + [g a16 g16] [fis8 d] g2 ~ | + g2 a4 [b8 c ] | + [f,16 a g f] [e d c b ] [c d e f] [g8 g, ] | + c1 ~ | +%% 25 + c1 ~ | + c1 ~ | + c1 | + } + + +\score { + \notes \context PianoStaff < + \context Staff = one { + \time 4/4 + < + \soprane + \tenor + > \bar "|." } + \context Staff = two < + \alt + \bass + > + > + + \paper{ + linewidth = 18.0 \cm + } + + \midi { \tempo 4 = 84 } +} diff --git a/input/mutopia/J.S.Bach/wtk1-fugue2.ly b/input/mutopia/J.S.Bach/wtk1-fugue2.ly new file mode 100644 index 0000000000..c9d437f6c2 --- /dev/null +++ b/input/mutopia/J.S.Bach/wtk1-fugue2.ly @@ -0,0 +1,219 @@ +\header { + title = "Fuga a 3 voci" + opus = "BWV 847-Fuga" + source = "Henle's Urtext" + composer = "Johann Sebastian Bach (1685-1750)" + enteredby = "hwn, wl, jcn" + + % mutopia headers. + mutopiatitle = "Das Wohltemperierte Clavier I, Fuga II (c-minor)" + mutopiacomposer = "J. S. Bach (1685-1750)" + mutopiainstrument = "Piano" + mutopiaopus = "BWV847" + style = "baroque" + copyright = "Public Domain" + maintainer = "hanwen@cs.uu.nl" + mutopiapublicdomain = "\\parbox{\\hsize}{\\thefooter\\quad\\small + \\\\This music is part of the Mutopia project, + \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset + and placed in the public domain by " + \maintainer + + ".\\\\Unrestricted modification and redistribution is permitted + and encouraged---copy this music and share it.}" + tagline = \mutopiapublicdomain + lastupdated = "2002/July/7" + footer = "Mutopia-2002/07/07-6" + +} + + +%{ + We really want this piece on 2 pages. + + tweaks: we use 19 iso. 20 pt staff space, and squeeze up the spacing a bit. + + the few forced linebreaks were an earlier attempt to get the spacing + to match up. + +%} + +\include "paper19.ly" +\version "1.5.65" + + + + +dux = \context Voice=two \notes \relative c''{ + \voiceTwo + \clef violin + + r8 c16 b c8 g as c16 b c8 d | + g, c16 b c8 d f,16 g as4 g16 f | + es c' b a g f! es d c8 es' d c | \break + bes a bes c fis, g a fis | +%%5 + g4 r16 c, d es f g as8~ as16 d, es f | + g a bes8 ~ bes16 es, f g as g f es d8 c'16 b! | \break + % forced accident! + c4 r4 r8 f es d | + r8 as g f g f16 es f8 d | + g4 r8 b c c16 b c8 g | +%%10 + as4 r8 a bes bes16 a bes8 f | + g4 r8 g as as g f | + r8 + \translator Staff = bass \stemUp + as, bes c r8 as16 g as8 f8 | + bes8 c bes as bes g f es | + f des' c bes c as g f | +%%15 + g8 + g'16 fis g8 c, + es \translator Staff = treble + \stemBoth + \stemDown + g16 fis! g8 a | + d, g16 fis g8 a! c,16 d es4 d16 c | % forced accident! + bes8 r8 r16 d e fis g a bes8 ~ bes16 e, f g | + a bes c8 ~ c16 fis,16 g a bes8 es,!16 d es8 g, | + \break + as f'16 es f8 a,8 bes g'16 f g8 b, | +%%20 + c16 f es d + \translator Staff = bass + c bes! as g + f8 \translator Staff = treble + as' g f | + es d es f b, c d b | + c4 r8 e8 f f16 e f8 c | + d4 r8 d8 es8 es16 d es8 bes | + c2 ~ c8 d16 es f es f d | +%%25 + b8 r8 r b c r r es | + d r r f ~ f r r f | + es as g f es d es f | + b, c d b b c r c | + f16 d es c ~ c8 b c4 r8 e | +%%30 + f4 r8 f f es16 d es8 | + r r | +} + + +comes = \context Voice=one \notes \relative c'' { + \voiceOne + \property Voice.MultiMeasureRest \override #'staff-position = #6 + R1 | + R1 | + r8 g'16 fis g8 c, es g16 fis g8 a | + d,8 g16 fis g8 a c,16 d es4 d16 c | +%%5 + bes8 es16 d es8 g,8 as f'16 es f8 a, + bes8 g'16 f g8 b, c8 d16 es f4 ~ | + f8 es16 d c16 bes ! as g f8 as' g f + es d es f b, c d b | + c g'16 fis g8 d es4 r8 e8 | +%%10 + f f16 e f8 c8 d4 r8 d | + es8 es16 d es8 bes c es16 d es8 f | + bes, es16 d es8 f as,16 bes c4 bes16 as | + \stemBoth g16 es f g as bes c d es d c d es f g a | + bes f, g as bes c d e f es d es f g a b | +%%15 + \stemUp c8 b16 a g f! es d c8 es d c | + bes a bes c fis,! g a fis | % forced accident + g8 d'16 c d8 r8 r8 e16 d e8 r8 | + r fis16 e fis8 r r g,16 f g8 r8 | + r8 a16 g a8 r r b16 a b8 r | +%%20 + r8 c16 b c8 g as c16 b c8 d | + g, c16 b c8 d f,16 g as4 g16 f | + es8 c'16 b c8 g as4 r8 a | + bes8 bes16 a bes8 f8 g4 r8 g ~ | + g as16 bes c b c as f2 ~ | +%%25 + f8 d'16 c d8 f, es es'16 d es8 g, | + f f'16 es f8 as, g16 f' es d c b a g | + c8 f es d r as g f | + g f16 es f8 d as' g r a | + b c f,16 es d c c8 c'16 b c8 g | +%%30 + as c16 b c8 g,8 c16 b c8 d | + f,16 g as4 g16 f e2 | +} + +bassdux = \context Voice=three \notes \relative c' { + \clef bass + R1 | + R | + R | + R | +%%5 + R | + R1 | + r8 c16 b c8 g as c16 b c8 d | + g, c16 b c8 d f,16 g as4 g16 f | + es c' b a g f es d c d es d c bes! as! g | + % -> \classic_accidentals +%%10 + f bes' as g f es d c bes c d c bes as g f | + es as' g f es des c bes as8 c' bes as | + g8 f g as d, es f d | + es as g f g es d c | + d bes' as g as f es d! | +%%15 + es8 r8 r4 r8 c bes a | + r es' d c d c16 bes c8 d | + g,8 bes'16 a bes8 d, es c'16 bes c8 e, | + f d'16 c d8 fis, g4 r16 g, a b | + c16 d es8~ es16 a, bes c d es f8~ f16 b, c d | +%%20 +% es8 r r e f f, es! d | % -> \classic_accidentals + es8 r r e \stemBoth \stemDown f f, es! d \stemBoth | + r as' g f g f16 es f8 g | + c16 d es d c bes as g f bes' as g f es d c | + bes c d c bes as g f es as' g f es d c bes | + as bes c bes as g f es d g' f es d c b a | +%%25 + g4 r4 r16 g a b c d es f | + g f as g f es d c b8 c16 b c8 g | + as c16 b c8 d g, c16 b c8 d | + f,16 g as4 g16 f es4 r8 es' | + d c g' g, +%%30 + < { c2 ~ | c1 ~ | c1 } \\ + { c,2 ~ | c1 ~ | c1 } + > +} + +\score { + + \notes \context PianoStaff < + \property Score.TimeSignature \override #'style = #'C + \context Staff = treble < + \key c \minor + \dux + { \comes \bar "|." } + \time 4/4 + > + \context Staff = bass < + \key c \minor + \bassdux + > + > + + \paper { + linewidth = 18.0 \cm + \translator { \ScoreContext + SpacingSpanner \override #'spacing-increment = #1.0 + SpacingSpanner \override #'shortest-duration-space = #1.9 + } + } + \header{ + opus = "BWV 847" + } + + \midi { + \tempo 4 =84 + } +} + diff --git a/input/mutopia/J.S.Bach/wtk1-prelude1.ly b/input/mutopia/J.S.Bach/wtk1-prelude1.ly new file mode 100644 index 0000000000..8f1fd4232f --- /dev/null +++ b/input/mutopia/J.S.Bach/wtk1-prelude1.ly @@ -0,0 +1,176 @@ +\header{ +title = "Preludium" +opus = "BWV 846" +composer = "Johann Sebastian Bach (1685-1750)" +enteredby = "Shay Rojansky" + + + % mutopia headers. + mutopiatitle = "Das Wohltemperierte Clavier I, Prelude 1 (c-major)" + mutopiacomposer = "J.S.Bach" + mutopiaopus = "BWV846" + style = "baroque" + copyright = "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!" + maintainer = "hanwen@cs.uu.nl" + lastupdated = "1999/Oct/14" +} + +\version "1.3.146" + +% should do programmable input. +soprane = + \notes \transpose c'' { + \context Staff < + % Real soprane + \context Voice = uVoice { + \time 4/4 + \clef "violin" + + \stemUp + r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | + r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] | + r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] | + r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | + r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] | + r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] | + r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] | + r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] | + r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] } + % Tenor + \context Voice = dVoice {\stemDown + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 c8. ~ c4 r16 c8. ~ c4 | + r16 c8. ~ c4 r16 c8. ~ c4 |}> +%% 10 + r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] | + r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] | + r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] | + r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] | + r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] | + r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] | + r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] | + r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] | + r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] | + r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] | +%% 20 + r8 [bes,16 c] [e bes, c e] r8 [bes,16 c] [e bes, c e] | + r8 [a,16 c] [e a, c e] r8 [a,16 c] [e a, c e] | + r8 [a,16 c] [ees a, c ees] r8 [a,16 c] [ees a, c ees] | + r8 [b,16 c] [d b, c d] r8 [b,16 c] [d b, c d] | + r8 [g,16 b,] [d g, b, d] r8 [g,16 b,] [d g, b, d] | + r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] | + r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] | + r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] | + r8 [a,16 c] [fis a, c fis] r8 [a,16 c] [fis a, c fis] | + r8 [g,16 c] [g g, c g] r8 [g,16 c] [g g, c g] | +%% 30 + r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] | + r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] | + r8 [g,16 bes,] [e g, bes, e] r8 [g,16 bes,] [e g, bes, e] | + + r8 [f,16 a,] [c f c a,] [c a, f, a,] [f, d, f, d,] | + r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] | + \bar "|." + } + +bass = + \notes { + \clef "bass" + + + \stemDown + c'2 c' | + c' c' | + b b | + c' c' | + c' c' | + c' c' | + b b | + b b | + a a | +%% 10 + \context Staff < + \context Voice = Alt + {\stemUp + r16 a8. ~ a4 r16 a8. ~ a4 | + r16 b8. ~ b4 r16 b8. ~ b4 | + r16 bes8. ~ bes4 r16 bes8. ~ bes4 | + r16 a8. ~ a4 r16 a8. ~ a4 | + r16 aes8. ~ aes4 r16 aes8. ~ aes4 | + r16 g8. ~ g4 r16 g8. ~ g4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 e8. ~ e4 r16 e8. ~ e4 | +%% 20 + r16 g8. ~ g4 r16 g8. ~ g4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 c8. ~ c4 r16 c8. ~ c4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 f8. ~ f4 r16 f8. ~ f4 | + r16 e8. ~ e4 r16 e8. ~ e4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 ees8. ~ ees4 r16 ees8. ~ ees4 | + r16 e!8. ~ e4 r16 e8. ~ e4 | +%% 30 + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 d8. ~ d4 r16 d8. ~ d4 | + r16 c8. ~ c4 r16 c8. ~ c4 | + + r16 c8. ~ c4 ~ c2 | + r16 b,8. ~ b,4 ~ b,2 | + c1 ||} + + \context Voice = Bass + {\stemDown + d2 d | + g g | + g g | + f f | + f f | + e e | + e e | + d d | + g, g, | + c c | +%% 20 + c c | + f, f, | + fis, fis, | + aes, aes, | + g, g, | + g, g, | + g, g, | + g, g, | + g, g, | + g, g, | +%% 30 + g, g, | + g, g, | + c, c, | + + c, c, | + c, c, | + c,1 \bar "|." }> + } + + +\score { + \notes \context PianoStaff < + \soprane + \bass + > + \midi { + \tempo 4 = 80 + } +} + +% EOF + diff --git a/input/mutopia/W.A.Mozart/GNUmakefile b/input/mutopia/W.A.Mozart/GNUmakefile new file mode 100644 index 0000000000..3a3bea4a15 --- /dev/null +++ b/input/mutopia/W.A.Mozart/GNUmakefile @@ -0,0 +1,10 @@ +# + +depth = ../.. + +examples=mozart-hrn-3 +LOCALSTEPMAKE_TEMPLATES=ly mutopia + +include $(depth)/make/stepmake.make + + diff --git a/input/mutopia/W.A.Mozart/mozart-hrn-3.ly b/input/mutopia/W.A.Mozart/mozart-hrn-3.ly new file mode 100644 index 0000000000..ffe03e19ae --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn-3.ly @@ -0,0 +1,40 @@ +\header{ + title = "Konzert Nr. 3 Es dur" + subtitle = "f\\\"ur Horn und Orchester" + composer = "Wolfgang Amadeus Mozart (1756-1792)" + enteredby = "HWN" + opus = "KV 447" + + copyright = "public domain" + instrument = "Horn in F" + editor = "Henri Kling" + mutopiatitle = "Horn Concerto 3" + mutopiacomposer = "W.A.Mozart" + mutopiaopus = "KV447" + style = "classical" + maintainer = "hanwen@cs.uu.nl" + maintainerEmail = "hanwen@cs.uu.nl" + maintainerWeb = "http://www.cs.uu.nl/~hanwen/" + lastupdated = "2002/May/21" + source = "Edition Breitkopf 2563" + footer = "Mutopia-2002/05/21-25" + + tagline = "\\parbox{\hsize}{\\thefooter\\quad\\small This music is part of the Mutopia project, \\texttt{http://sca.uwaterloo.ca/Mutopia/}. It has been typeset and placed in the public domain by " + \maintainer + ". Unrestricted modification and redistribution is permitted and encouraged---copy this music and share it!}" + +} +%{ + +This is the Mozart 3 for horn. It's from an Edition Breitkopf EB +2563, edited by Henri Kling. Henri Kling (1842-1918) was a horn +virtuoso that taught in Geneva. + +%} + +\version "1.5.57" + +\include "mozart-hrn3-defs.ly" +\include "mozart-hrn3-allegro.ly" +\include "mozart-hrn3-romanze.ly" +\include "mozart-hrn3-rondo.ly" + + diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly new file mode 100644 index 0000000000..1bf3435eb1 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.ly @@ -0,0 +1,167 @@ +\version "1.5.49" +\include "mozart-hrn3-defs.ly" + +allegro = + \notes + \relative c' +{ + \time 4/4 + \key c \major + \partial 4 + r4 + | + R1*4 + c'2^"Tutti" g + c, r + R1*1 + r8 [g' g g] [g g e c] + g'4 g, r2 + R1*18 + r2 r4^"Solo" g'4 | + \mark "A" + e'4. () c8 [f (d c )b ] + [b()c] g4 r8 [g c e] + g2. [g16( f e )f] + dis4 () e4 r8 [c8-. c-. c-.] + c4.( [d16 e] f4 ) e + a,( d g,) c + d-. d-. \grace e16( [)d8. c16 d8. e16] + c4 r r2 + R1*3 + c,2 ~ [c8 e g c] + [c b ] b4 r2 + [c,8 () e g c] [e()g e c] + [c()b] b4 r2 + c4.( g8 e'4.) c8 + [g'()d ] d4 r4 d + [d8 () c] c4.( [d16 e] [d8 )c] + [c8(-\trill )b] b4 r2 | + d2( ~ [d8 e16 d] [c8 )b] | + [b()a] a4 r8 [a a a] + a4( cis e )g + \grace { \longgrace g16( \endlonggrace } + [ )fis8( e16 )d] d4-. r2 | + \mark "B" + R1*3 + r2 r4 [d8(_#`(,italic-bf "con espressione") )b ] + [a( )g d'( )b] [a( )g e'( )c ] + [b8( )a] a4 r4 [a8 a] + [a( \< b c \!cis\> ] d4 \! )c + [ais8() b] r8 \cresc b [b()c] r c + [cis ()d] r4 r2 + \endcresc g,1\f ~ g2 ~ [g8 a16 b] [c()d e c] + %% 64 + f4-. d-. b-. g-. + R1 + + c,2\p e4 g c \cresc e g4. e8 | + \endcresc d4.-\f [e16 fis] [g () fis e d] [c() b a g] + + < a1(-\trill + { s2 \grace{ [g16 a] } } > + \mark "C" + )g4 r r2 + R1*15 + \mark "D" + bes2-\mf d4 f + g,2~ [g8 g' es c]| + bes4( )a4. [c8( d )es] + cis4()d r8 [bes (c )d] + es2 () d4 r + es2 () d4 r + [c8( g' es )c] bes4()c + c4.( cis8 )d4 r + R1*2 + es1~es1| + e! + d + c + c, + e' + e, + c'2 [b8( a gis )a] + [gis8 e gis b ] e4 r | + r8 [e, a c] dis4 r + r8 [e, a c] dis4 r + r8 [e, g b] e4 r + r8 [fis, b dis] fis4 r + r8 [gis, b d] f4 r + r8 [g, b d_\ritenuto ] f4 r + \mark "E" + R1*8 + r2 r8 [g, g g] + e'4.() c8 [f( d c )b] + [b()c] g4 r8 [g c e] | + g2. [g16( f e )f] + dis4()e r8 [c-. c-. c-.] + c4.( [d16 e] f4 )e + a, ( d g, )c + d d + \grace { e8( } + [)d8. c16 d8. e16] + c4 r r2 + \mark "F" + R1*3 + c,2~[c8 e g c] + [c8()b] b4 r2 + [c,8 e g c ] [e ()g e c] + [c()b] b4 r2 + c2 (bes )a [a8(b c )cis] + d2( ~ [d8 e16 d] \grace { \longgrace d16( \endlonggrace } [)c8 b16 )c] + \grace { \longgrace c16 \endlonggrace }[ b8( a16 )g] g4 r2 | + R1*3 + r2 r4 [g'8()e] + \mark "G" + [d()c g'()e] [d()c a'()f] + [e()d] d4 r [d8 d] + d4(~ [d16 e d )e] [g8() f e d] | + c4 r r2 + R1 + c1 ~ + c | + [c8-. c-.] r c-. [cis()d] r\cresc d-. | + [dis()e] r e-. [e()f] r f-. | + g4-.-\f\endcresc e-. c-. bes-. | + g-.\ff e-. c-. r | + a'2 ~ [a8_""_#`(,italic-bf "sempre " (dynamic "f")) b16 c] [d( e d )e] + + + f4. () d8 [f8 ()d f d] + [c (e] )g2 \grace { \longgrace f16( \endlonggrace } [)e8( d16 )c] + + < d1-\trill ( + { s2 \grace { [c16 d] } } > + + ) c4 r r2 + R1 | + \mark "H" + \times 2/3 { [ c8 b a ] } \times 2/3 { [ g a b] } + \times 2/3 { [ c d e] } \times 2/3 { [ f e d] } | + \times 2/3 { [ c b a ] } \times 2/3 { [ g a b] } + \times 2/3 { [ c d e] } \times 2/3 { [ f e d] }| + c4 \times 2/3 { r8 [g'()e]} c4 \times 2/3 { r8 [e () c]} | + g4 \times 2/3 { r8 [c8() g] } \times 2/3 { [ e ()g e-. ] } \times 2/3 { [c () e c-.] }| + g4 r8 g'\f [a b c d]| + + < d1(-\trill + { s2 \grace { [c16 d] } } > + )c4 r r2 + R1*3 + + c4.^\fermata_"Cadenza ad lib." () d8 d4.-\trill^\fermata ( [c16 )d] + c4 r r2 + R1*8 + r4 [c8.^"tutti"-\f c16] c4 c + c [c,8. c16] c4 c| + c2 r2 \bar "|." + +} + + +\score +{ + \notes { \transpose bes \allegro } + \paper{ } + \header { piece = "allegro" opus = "" } + \midi{ \tempo 4=90 } +} diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi new file mode 100644 index 0000000000..dc1c0aa073 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-allegro.midi @@ -0,0 +1 @@ +MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM \ No newline at end of file diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly new file mode 100644 index 0000000000..d453e8fad9 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly @@ -0,0 +1,69 @@ + + +% #(set! point-and-click line-column-location) + +longgrace = \property Voice.Stem \override #'flag-style = #'() +endlonggrace = \property Voice.Stem \revert #'flag-style +ritenuto = \textscript #'(italic "rit.") + +\version "1.5.49" + +#(define italic-bf '((font-shape . italic) (font-series . bold))) + +%% burp +%% the very idea of a style sheet, is that it's easy to override +#(define (set-style! sheet name style) + (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style)) + +#(define my-sheet (make-style-sheet 'paper20)) +#(set-style! my-sheet 'mark-letter '((font-family . roman) + (font-series . bold) + (font-shape . upright) + (font-relative-size . 3))) + +cresc = \notes { + \commandspanrequest \start "crescendo" + \property Voice.crescendoText = #`(,italic-bf "cresc.") + \property Voice.crescendoSpanner = #'dashed-line +} + +%% +%% TODO: a better mechanism for tweaking Grace settings. +%% + +startGraceMusic = \sequential { + \startGraceMusic + \property Voice.Beam \override #'space-function + = #(lambda (beam mult) (* 0.8 0.8)) + \property Voice.Beam \override #'thickness = #(* 0.384 (/ 0.6 0.48)) +} + +stopGraceMusic= \sequential { + \property Voice.Beam \revert #'thickness + \property Voice.Beam \revert #'space-function + \stopGraceMusic +} + +\paper{ + \stylesheet #my-sheet + \translator { + \ScoreContext + skipBars = ##t + midiInstrument = #"french horn" + %% try to mimic Breitkopf + RehearsalMark \override #'padding = #1 + MultiMeasureRest \override #'padding = #0.5 + MultiMeasureRest \override #'number-threshold = #1 + + Beam \override #'thickness = #0.6 + Beam \override #'space-function = #(lambda (beam mult) 0.8) + Slur \override #'beautiful = #0.3 + } + \translator { + \StaffContext + MinimumVerticalExtent = #'(-4.5 . 4.5) + } + indent = 10. \mm + linewidth = 189. \mm + +} diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly new file mode 100644 index 0000000000..ca6fb662d7 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-romanze.ly @@ -0,0 +1,93 @@ + +\version "1.5.49" +\include "mozart-hrn3-defs.ly" + +romanze = \notes \relative c' { + \key f \major + \time 2/2 + \property Score.skipBars = ##t + + c'4.( _#'(italic (dynamic "p") " con molto espressione") + )f8 a,4 a + [bes8( c d bes] )g4 r8 g + a r bes r c r [d()bes] + a2( [)g8 a( bes )b] + c4. () f8 a,4 a | + % 6 + [bes8 (c d) bes] g4 r8 c, + [c8( e g )bes] [a( c f ) d] + c r e r f r r4 + \mark "A" + R1*8 + g4.\mf f8 [e d c bes] + % 18 + [bes( a d )c] c4 r + R1*2 + g'4. f8 [e d c bes] + [bes (a d ) c] c4 r + R1 + % 25 + [c16 ( d c )d] [e ( f e )f] [g()e c-. c-.] [f()d b-. b-.] + [c16\p () d c )d] [e ( f e )f] [g()e c-. c-.] [f()d b-. b-.] + [c8 \< c, c c] [c c c \! c ] + \mark "B" + c1\f + R1*9 + f'4.(\p )d8 b4 r8 g + g'4.() e8 c4 r8 cis | + % 39 + d4(~ [d16 e d )e] [f8 () d f() d] + c2()b4 r + R1*4 + e4. ()g8 c,4 ()cis + [d8( e f )d] b4 r8 g + [c ()e g g] [g( f e )d] + c4( + \grace { \longgrace e16 \endlonggrace } + [d8. )c16 \< ] [c8 c-.( c-. \! )c-.] + \mark "C" + + %% this is a trick to get the sfp-s to align. + \property Voice.Hairpin \override #'transparent = ##t + des1\sfp \> \! + g,1\sfp \> \! + c\sfp \> \! + c,\sfp + \property Voice.Hairpin \revert #'transparent + R1*3 + r8 [c-\p c c] c2~ + [c8 c' c c] c2~ + [c8 \< e( g f] [e \! d \> c bes] + \mark "D" + \! )a4 r r2 + R1*3 + c4.-\p () f8 a,4 a | + [bes8 (c d) bes] g4 r8 c, + [c8( e g )bes] [a( c f ) d] + c r e r f4 r4 + R1*3 + r2 r4 r8 c,8 + [c8( e g )bes] [a( c f ) d] + c r e r f4 r4 + g,1 + c,2 c4. c8 + [c8( e g )bes] [a( c f ) d] + c r e r f4 r4 % -. ? + + R1 + c8-. r e-. r f4 r4 + + % Finish with F if played separately + c8-.( r c,-. r ) c4 r4| + \bar "|." +} + + + +\score +{ + \notes { \transpose bes \romanze } + \header { piece = "romanze" opus = "" } + \midi{ \tempo 4 = 70 } + \paper{} +} diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly new file mode 100644 index 0000000000..95e7298451 --- /dev/null +++ b/input/mutopia/W.A.Mozart/mozart-hrn3-rondo.ly @@ -0,0 +1,194 @@ +\version "1.5.49" + +% \include "mozart-hrn3-defs.ly" + +rondotheme = \notes \relative c' { + [c'8 c c] [c c c] + c4( cis8 )d r g, + [d'8 d d] [d d d] + d4( dis8 )e r c | + [c()d e] [f g a] + [g ()e c] c4 d8 + e4()d8 e4()f8 + e4.()d8 r r | +} + +lipbreaker = \notes \relative c' +{ + r8 [g'-. g-.] [c()e g,-.] + [c()e g,-.] [c()e g,-.] + [c c, c] [c c c] + [c c c] [c c c] +} + +rightsixteenth = { \property Voice.stemLeftBeamCount = 1 + \property Voice.stemRightBeamCount = 2 } +leftsixteenth = { \property Voice.stemLeftBeamCount = 2 + \property Voice.stemRightBeamCount = 1 } +bothsixteenth = { \property Voice.stemLeftBeamCount = 2 + \property Voice.stemRightBeamCount = 2 } + +rondo = \notes \relative c' +{ + \partial 8 + \time 6/8 + \key c \major + + g'8-\p | + + \rondotheme + + R2.*13 | + r8 r^\fermata d [d e f] + [g ()e c-.] [d()e d-.] + c4 c8 [d e f] + [g()e c-.] [d()e d-.] + c4 r8 r4 r8 | + R2.*7 + \mark "A" + c4.\p \grace { e16( } [)d8 c d] + c4 r8 r4 r8 + e4. \grace g16( [)f8 e f] + e4 r8 r4 r8 + g4. e4 c8 + g2.~ + [g8 a b] [c d e ] + e4.()d8 r r + R2.*4 + e2.~ | + [e8 d c] [c b a] + d2.~ + [d8 c b] [b a g] + g'4()e8 b4()cis8 + \mark "B" + d4 r8 r4 r8 + R2.*3 | + r8 [d-. d-.] [d()g d-.] + [d()g d-.] [d d d] + [d()g] r r4 r8 + R2.*1 + \lipbreaker + c4 r8 [c' d e] + d4()g8 [c, d e] + d4 r8 r4 r8 + R2. | + r4 r8 [c-. d-. e-.] + d4()g8 [c, d e] + [d()g fis] [e d c] + [b () e d] [c b a] + \mark "C" + g4 r8 r4 r8 + R2. | + % + r8 [g-\f g] [g( )b b-.] + [b()d d-.] [d()g g-.] + g2.~ + [g8 \> a g] [f e d] + < \rondotheme + { \! s8-\p } > + + R2.*12 + r4 r8 r4 c8 + \mark "D" + c4 f8 c4 a8 + a4.~a4 a8 + bes4 c8 d4 bes8 + g4. ~ g8 r r + R2.*3 + r4 r8 r4 c8 + a4. c + f ~ [f8. \rightsixteenth e16( \bothsixteenth d )c] + bes4 g8 e4 g8 + c,4. ~ c8 r r + R2.*3| + r4 r8 r4 c'8 + b4()c8 b4()c8 + bes4. ~ bes4 g8 + a4 () c8 f4 () b,8 + d4. () c8 r r + R2.*3| + r4 r8 r4 c'8 + b4()c8 b4()c8 + bes4. ~ bes4 g8 + a4 c8 [f () d b!] + d4. () c8 r r + \mark "E" + R2.*9 | + \lipbreaker + [c8 c' c] c4.~ + [c8 c d] [e e fis] + g4 r8 r4 r8 + R2. + r8 [g, g] [g g g] | + es'4. ~ [es8 d c] + b4 r8 r4 r8 + R2. | + r8 [g g] [g g g] + es'4. ~ [es8 d c] + \cresc b4. c4. d4. e4. + \mark "F" + \endcresc + + f2.\f ~ | + f4 r8 r4 r8 + r8 [g,\> g] [g g g] + + % Edition breitkopf says a-flat (silly!) + [fis g gis] + [a bes \! b] + + %% EB does the slur in the Rondo differently from the 1st adn 2nd time. + %% why. Should check with MS. + < \rondotheme + { s8-\p } > + R2.*7 + \mark "G" + R2.*4 + c,4.\mf c4 c8 + c4. e4 c8 + g'4. g4 g8 + g4. g,4 g8 + c4 r8 r4 r8 + r4 r8 r4 g'8 + [c ()e g,-.] [c ()e g,-.] + [c ()e g,-.] [c ()e g,-.] + \mark "H" + \cresc g'2. bes,2. + a4. [b16 c d e f g] + a4. f4 d8 + [\endcresc c8\f g' e] [c g e] + [ c e' c] [g e c] + g4 r8 [g''8 e c] + + + < d2.(-\trill + { s2 \grace { [c16 d] } } > + + + )c4 r8 r4 r8 + R2.*5 + r8 r8^\fermata d8\p [d e f] + [g ()e c] [d()e d] + \cresc [c c c] [d e f] + [g()e c] [d()e d] + \endcresc c4\f r8 r4 r8 + R2.*5 + [c8\f c, c] [c c c] + c4 r8 c4 r8 + + %This is technically incorrect, since we started with an 8th + % upstep, but both eulenburg and EB do this as well. + c4 r8 r4 r8 \bar "|." +} + + + + + +\score +{ + \notes { \transpose bes \rondo } + \header { piece = "rondo" opus = "" } + \midi{ \tempo 4 = 100 } + \paper { } +} diff --git a/input/mutopia/claop.py b/input/mutopia/claop.py new file mode 100644 index 0000000000..cae831896d --- /dev/null +++ b/input/mutopia/claop.py @@ -0,0 +1,306 @@ +import sys + + +copyright = """copyright 1992. Peter Wallin. Verbatim redistribution +permitted """ + + + +""" + +This file produces the Score for CLA(O)P II -- a piece by +Peter Wallin (pwallin@post8.tele.dk). + +The score produced by this file is +copyright 1992. Peter +Wallin. Verbatim redistribution permitted + + + + +From: Rune Zedeler +Sender: lilypond-devel-admin@gnu.org +To: LilyPond Devel +Subject: CLA(O)P II +Date: Wed, 12 Jun 2002 02:14:05 +0200 + +The concert went well. +I talked to the composer and he agreed to include the score in lilypond +as long as his name was maintained and as long as he kept the copyrights +- that is people are not allowed to make changes to the score. + +I think including CLA(O)P II is a Good Thing because it stress tests +lilypond very well. This is also why I think that including only an +excerpt from it is stupid. +I am not sure how the inclusion should be. +The raw lilypond file is 750k; gzip'ed 40k. +Alternatively one could include the generating c-file into lilypond. +Or perhaps we should just wait till I manage to redo it in scheme... :-) + +-Rune + +""" + + + +#//set to 1, 385 to typeset the whole score +start_measure =1 +no_measures = 385 +voices = 48 + +durs = ["16","8","8.","4"] +grund = [ + "x x x x xx x", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x ", + + "x x x xx xx ", + "x xx xx x xx xx ", + "x xx x xx xx x xx xx x x", + + "x x xx xx x ", + "xx xx x xx xx x ", + "xx x xx xx x xx xx x xx ", + + "x xx xx x x ", + "x xx x xx xx x x", + "x x xx xx x xx xx x xx x", + + "xx xx x x x ", + "xx x xx xx x xx ", + "x xx xx x xx xx x xx xx ", + + "x xx x x x x", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x ", + + "xx x x x xx ", + "x xx xx x xx xx ", + "x xx x xx xx x xx xx x x", + + + "x x x x xx x", + "xx xx x xx xx x ", + "xx x xx xx x xx xx x xx ", + + "x x x xx xx ", + "x xx x xx xx x x", + "x x xx xx x xx xx x xx x", + + "x x xx xx x ", + "xx x xx xx x xx ", + "x xx xx x xx xx x xx xx ", + + "x xx xx x x ", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x ", + + "xx xx x x x ", + "x xx xx x xx xx ", + "x xx x xx xx x xx xx x x", + + "x xx x x x x", + "xx xx x xx xx x ", + "xx x xx xx x xx xx x xx ", + + "xx x x x xx ", + "x xx x xx xx x x", + "x x xx xx x xx xx x xx x", + + "x x x x xx x", + "xx x xx xx x xx ", + "x xx xx x xx xx x xx xx ", + + "x x x xx xx ", + "x x xx xx x xx x", + "xx xx x xx xx x xx xx x " +] + +accents = '' +accstr = '' + + +def stemme(st) : + adr = [0] * (385*16) + pos = st*48+44 + + for i in range(0,100): + adr[384*16-i*28] = ord ('X') + + for k in range(0,48): + if k: + for j in range(0,8): + adr[pos] = 0 + pos += 1 + + for j in range(0,4): + for c in grund[k]: + if c ==' ' : + adr[pos] = 0 + else: + adr[pos] = 3-j+ord ('a') + pos += 1 + + for i in range(0,385*16): + ac = accents[48*4+i-((48+24-st)%48)*4] + if ac: + adr[i]=ac + + return adr + + +def print1(ch) : + accstr="" + if ch >= ord('A') and ch <=ord('D'): + ch += ord('a')-ord('A') + accstr="->" + + namestr = '' + cr = chr (ch) + + if cr=='a': + namestr="a" + elif cr=='b': + namestr="b" + elif cr=='c': + namestr="d'" + elif cr=='d': + namestr="e'" + elif cr=='X': + namestr="\\property Staff.NoteHead \\override #'style = #'cross c'" + accstr="-^ \\property Staff.NoteHead \\revert #'style" + else: + print 'foo', cr, chr(ch), ch == 'd', "A%sA" % cr + raise 'foo' + + return (namestr,accstr) + + +namestr = '' +accstr = '' + +def print4(ptr): + val = reduce (lambda x,y : x|y, ptr) +# sys.stderr.write ('%d ' % val) + if not val: + sys.stdout.write ("r4 ") + else: + dur=-1 + + global namestr + global accstr + if ptr[0]==0: + sys.stdout.write ("~") + (namestr, accstr) = print1(val) + + for c in ptr: + if c==0: + dur += 1 + else: + if dur>=0: + sys.stdout.write( "%s%s%s " % (namestr,durs[dur],accstr)) + (namestr, accstr) = print1(c) + dur=0 + + sys.stdout.write( "%s%s%s "% (namestr,durs[dur],accstr)) + + + +def print8(ptr) : + val = reduce (lambda x,y : x|y, ptr) + if val: + print4(ptr[0:4]) + print4(ptr[4:8]) + else: + sys.stdout.write ("r2 ") + + +def print16(ptr): + val = reduce (lambda x,y : x|y, ptr) + if val: + print8(ptr[0:8]) + print8(ptr[8:16]) + else: + sys.stdout.write("R1 ") + +accents = [0] *(500*16) +for i in range(0,32): + pos=i*12*16+4*48 + accents[pos]=ord('D') + if(i<31) : + if(i>0): + accents[pos+4*12]=ord('A') + accents[pos+4*23]=ord('C') + accents[pos+4*35]=ord('B' ) + + +sys.stdout.write ('%%{\n %s \n %%}' % copyright) +sys.stdout.write (r""" +\include "paper11.ly" + +\header { + title = "CLA(O)P II" + composer = "Peter Wallin (1992-93)" + copyright = "Copyright (1992-93) Peter Wallin, verbatim redistribution permitted" +} + + +""") + + + + + +for st in range(1,voices+1): + str=stemme(st) + ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A')) + sys.stdout.write( """ + +stemme%s = \\notes {\n\\clef percussion +\\property Staff.instrument = \"%d\"\n +\\property Staff.instr = \"%d\"\n +\\property Score.currentBarNumber = #%d\n""" % (ststr,st,st,start_measure)) + + for i in range(start_measure-1, start_measure-1+no_measures): + print16(str[i*16:i*16+16]) + sys.stdout.write (" |\n") + + sys.stdout.write ("\\bar\"|.\" }\n") + + +sys.stdout.write (r""" +\score { + \notes < + \property Score.BarNumber \override #'padding = #2.5 + \property Score.autoBeamSettings \override + #'(end * * * *) = #(make-moment 1 4) + \property Score.skipBars = ##t + \context StaffGroup < + \property StaffGroup.Stem \override #'direction = #1 +""") + + +for st in range(1,voices+1): + ststr=chr((st-1)/24+ord('A')) + chr ((st-1)%24+ord('A')) + ststr = 'stemme' + ststr + sys.stdout.write (r"""\context Staff="%s" \%s +""" % (ststr,ststr)) + +sys.stdout.write (r"""> + > + \paper { + linewidth = 26.0\cm + indent = 0 + textheight = 38.0\cm + %hsize = 30.0 \cm + %vsize = 42.0 \cm + + \translator { + \StaffContext + StaffSymbol \override #'line-count = #3 + minimumVerticalExtent = #'(-3 . 3) + } + } + +} +""") diff --git a/mutopia/E.Satie/GNUmakefile b/mutopia/E.Satie/GNUmakefile deleted file mode 100644 index f6330d6e9b..0000000000 --- a/mutopia/E.Satie/GNUmakefile +++ /dev/null @@ -1,10 +0,0 @@ -# - -depth = ../.. - -examples=petite-ouverture-a-danser -LOCALSTEPMAKE_TEMPLATES=ly mutopia - -include $(depth)/make/stepmake.make - - diff --git a/mutopia/E.Satie/petite-ouverture-a-danser.ly b/mutopia/E.Satie/petite-ouverture-a-danser.ly deleted file mode 100644 index 5b213c0346..0000000000 --- a/mutopia/E.Satie/petite-ouverture-a-danser.ly +++ /dev/null @@ -1,161 +0,0 @@ -\header { - filename = "petite-ouverture-a-danser.ly" - title = "Petite Ouverture \\`a danser" - subtitle = "4" - source = "" - composer = "Erik Satie (1866-1925)" - enteredby = "jcn" - copyright = "Public Domain" -} - -%{ - Tested Features: -%} - -\version "1.3.146" - -\include "nederlands.ly" - -global = \notes { - \key a \minor - \time 2/4 - s2*10 - \bar "||" - s2*11 - \bar "||" - \time 3/4 - s2. - \bar "||" - \time 2/4 - s2*4 - \bar "||" - \time 3/4 - s2.*2 - \bar "||" - \time 2/4 - s2*18 - \bar "|." -} - -i = \context Staff \notes\relative c''{ - \context Voice=i - \voiceOne - - c8.( es16 bes4 ~ | )bes8 r c8.( bes16 | des4 c8. bes16 | c4 ~ ) c8 r | - c4( f,8. as16 | bes4 ~ )bes8 r | f8.( es16 f4 | es )f | - g8.( es16 f4 ~ | )f f8 r - - % Au mouvement - f4 ( g | a2 ~ | )a | a4-- a-> ~ | a8 r b!8.( a16 | )b4 c-- ~ | - c8 r b8.( d16 | a4 ~ )a8 r | d4( cis | c! b8. d16 | a4 ~ )a8 r - - a8.( g16 a4 ~ ) a8 r | - - a4-> ~ a8 r | g8.( a16 )fis4 | e8.( d16 e4 | fis ~ ) fis8 r - - d4( d-- ~ )d8 r e4( f!2 ~ | - - f4 ~ )f8 r | es4( g | as bes ~ | )bes c( | )b!2 | c4( d | )bes2 | c4~ c8 r | - - % copy from begin: 1-10 - c8.( es16 bes4 ~ | )bes8 r c8.( bes16 | des4 c8. bes16 | c4 ~ ) c8 r | - c4( f,8. as16 | bes4 ~ )bes8 r | f8.( es16 f4 | es )f | -% g8.( es16 f4 ~ | )f f8 r ? - g8.( es16 f4 ~ | )f ~ f8 r - -} - -ii = \context Staff \notes\relative c'{ - \context Voice=ii - \voiceTwo - - r8 r | r r | r r | - r r | r r | r r | - r r | r bes r | r r | - r r - - % Au movement - r r | r r | r r | - r r | r r | r r | r r | - r r | r r | r r | - r r | - - r r r | - - r r | r r | r r | - r r | - - \translator Staff=bass\voiceOne - r r r | r - \translator Staff=treble\voiceTwo - r r | - - r r | r r | r r | - r r | r r | r r | - r r | r r | - - - % copy from begin: 1-10 - r8 r | r r | r r | - r r | r r | r r | - r r | r bes r | r r | - r r - -} - -lower = \context Staff \notes \relative c{ - \context Voice=iii - - | r | | r | - | r | | - | | r | - - % Au movement - | | r | | - r | | r | r | | - | r | - - r | - - r | | | r | - - r | | - - r | | | | - | | r | r - - % copy from begin: 1-10 - | r | | r | - | r | | - | | r | - -} - -\score { - \context GrandStaff < - \context Staff = treble < - \global - \clef violin - \i - \ii - > - \context Staff = bass < - \global - \clef bass - \lower - > - > - - \paper { - \translator{ - \VoiceContext - Slur \override #'attachment = #'(stem . stem) - autoBeamSettings \override #'(end 1 8 * *) = #(make-moment 1 4) - autoBeamSettings \override #'(end 1 16 * *) = #(make-moment 1 4) - } - } - \midi { - \tempo 4 = 60 - } -} - diff --git a/mutopia/F.Schubert/GNUmakefile b/mutopia/F.Schubert/GNUmakefile deleted file mode 100644 index 610767a2ca..0000000000 --- a/mutopia/F.Schubert/GNUmakefile +++ /dev/null @@ -1,11 +0,0 @@ -# - -depth = ../.. - -examples=standchen -mutopia-examples=standchen -LOCALSTEPMAKE_TEMPLATES=ly mutopia - -include $(depth)/make/stepmake.make - - diff --git a/mutopia/F.Schubert/standchen.ly b/mutopia/F.Schubert/standchen.ly deleted file mode 100644 index c5401da0e7..0000000000 --- a/mutopia/F.Schubert/standchen.ly +++ /dev/null @@ -1,469 +0,0 @@ - -% #(set! point-and-click line-column-location) - -instrument = "Piano" - -\header { - title = "Ständchen" - subtitle = "(Serenade)" - subsubtitle = "Leise flehen meine Lieder" - opus = "D. 957 No. 4" - date = "August 1828" - composer = "Franz Schubert (1797-1828)" - poet = "Text by Ludwig Rellstab (1799-1860)" - enteredby = "JCN" - copyright = "public domain" - % instrument = \instrument - - % mutopia headers. - mutopiatitle = "Standchen" - mutopiasubtitle = "Leise flehen meine Lieder" - mutopiacomposer = "Franz Schubert (1797-1828)" - mutopiapoet = "Ludwig Rellstab (1799-1860)" - mutopiaopus = "D957.4" - mutopiainstrument = \instrument - date = "1828/08" - style = "Romantic" - source = "Schubert-Lieder Edition Schott No. 608, (Not dated). - Jubilaeums-Ausgabe zum 100. Todestage (~1928)." - - copyright = "Public Domain" - maintainer = "Jan Nieuwenhuizen" - maintainerEmail = "janneke@gnu.org" - lastupdated = "2001/Apr/27" - mutopiapublicdomain = "\\parbox[b]{\\hsize}{\\thefooter\\quad\\small - \\\\This music is part of the Mutopia project, - \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset - and placed in the public domain by " + \maintainer + - ".\\\\Unrestricted modification and redistribution is permitted - and encouraged---copy this music and share it.}" - tagline = \mutopiapublicdomain - footer = "Mutopia-2001/04/27-xx" -} - -\version "1.5.49" - -dynamicUp = \property Voice.DynamicLineSpanner \override #'direction = #1 -dynamicRevert = \property Voice.DynamicLineSpanner \revert #'direction - -\include "paper16.ly" - -vocalVerse = \notes\relative c''{ - \dynamicUp - \times 2/3 { [ g8( )as] g } c4. g8 | - \times 2/3 { [ f8( )g] f } c'4 f,8 r | - g4.-> f8 \times 2/3 { [ f( )es] d } | - es2 r4 | - R2. | - R2. | - \times 2/3 { [ g8( )as] g } es'4. g,8 | - \times 2/3 { [ f8( )g] f } d'4. c8 | - bes4. as8 \times 2/3 { [ as( )g] f } | - g2 r4 | - R2. | - R2. | - g8. b16 es4. d8 | - c8. g16 es4. c8 | - \grace { [ as'32( bes ] } \times 2/3 { [ )as8( )g] as } c4. as8 | - g2. | - \grace { [ f32( g ] } \times 2/3 { [ )f8( )e] f } as4. f8 | - - es!2. | - g8. b16 es4. d8 | - c8. g16 e4. c8 | - \grace { [ a'32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | - g!2. | - \times 2/3 { [ d'8\f( )cis] d } f4. b,8 | - c!2. | -} - -vocalThrough = \notes\relative c{ - \dynamicUp - g''8. g16 b8. b16 d8. d16 | - c4 b r | - g4. b8 d8. c16 | - b2 r4 | - e4. d8 \times 2/3 { [ d( )c] b } | - a8. b16 c4-> a8 r | - R2. | - R2. | - \grace { [ a32( b ] } \times 2/3 { [ )a!8( ) gis] a } c4. a8 | - g!2. | - \times 2/3 { [ d'8\f( )cis] d } f4. b,8 | - c!2. ~ | - % bug: slur on other staff fools lily into extending melisma - c4 r c | - as2. | - g | - e2 r4 | -} - -lyricVerseOne = \lyrics{ - Lei -- se fle -- hen mei -- ne Lie -- der - durch die Nacht zu dir; - in den stil -- len Hain her nie -- der, - Lieb -- chen, komm zu mir! - - Fl\"us -- ternd schlan -- ke Wip -- fel rau -- schen - in des Mon -- des Licht, - in des Mon -- des Licht; - - des Ver -- r\"a -- ters feind -- lich Lau -- schen - f\"urch -- te, Hol -- de, nicht, - f\"urch -- te, Hol -- de, nicht. -} - -lyricVerseTwo = \lyrics{ - H\"orst die Nach -- ti -- gal -- len schla -- gen? - ach! sie fle -- hen dich, - mit der T\"o -- ne s\"u -- "\ss en" Kla -- gen - fle -- hen sie f\"ur mich. - - Sie -- ver -- "steh'n" des Bu -- sens Seh -- nen, - ken -- nen Lieb -- es -- schmerz, - ken -- nen Lieb -- es -- schmerz, - - r\"uh -- ren mit den Sil -- ber -- t\"o -- nen - jed -- es wei -- che Herz, - jed -- es wei -- che Herz. -} - -lyricThrough = \lyrics{ - La\ss auch dir die Brust be -- we -- gen - Lieb -- chen, h\"o -- re mich! - be -- bend harr' ich dir ent -- ge -- gen! - - komm, be -- gl\"uk -- ke mich! - komm, be -- gl\"uk -- ke mich, __ - be -- gl\"uk -- ke mich! -} - -trebleIntro = \notes\relative c{ - r8^"\bf M\\\"a\\ss ig"\pp | - r8 | - r8 | - r8 | -} - -trebleVerseOne = \notes\relative c{ - %5 - r8 | - r8 | - r8 | - r8 | - <)f8 d> - % manual beam override bug - %\times 2/3 { < [f( d> <)d b] > } | - \times 2/3 < { [ f( es )d ] } { d c b } > | - %10 - | - r8 | - r8 | - r8 | - % manual beam override bug - % r8 < [ es g bes> - r8 < { [ es g es g ] } { g bes g bes } { bes es bes es } > - <{ es'( ) d4.() f8}{ c' | bes4. as8 } > - % manual beam override bug - % \times 2/3 { < [f( as> <)d f] > } | - \times 2/3 < { [ f( es )d ] } { as g f } > | - %16 - | - r8 | - r8 | - r8\pp | - %20 - r8 | - \property Voice.Slur \override #'attachment = #'(stem . stem) - \grace { [ as'32( bes ] } \times 2/3 { [ )as8( g as] } c4.-> ) as8 | - \property Voice.Slur \revert #'attachment - g2. | - r8 | - r8 | - r8 | - r8 | - \times 2/3 < { [ f'8\f( e f] } { f' e f } > - < {a4.- > )f8} { a'4. f8 } > | -} - -trebleEentje = \notes \relative c'{ - \stemBoth - r4 | - ( c> | - % urg: slurs with staccati are ugly - | - | - | - | - | - | - %60 - r4 | -} - -trebleThrough = \notes \relative c'{ - \stemBoth - | - %61 - R2. | - [ <\! b16\> b'16> ] | - < { c4( )b } { c'4( )b } > \!r | - - [ d,-> > c16] | - %65 - < { d,2.(\f )a'2} { e2. ~ e2 } { b'2.( )c,2 }> r4 | - \context Staff < - \context Voice=one { - \voiceOne - %urg - %a8. b16 c4-> () a8 r | - a8. b16 c4^> () a8 r | - %a8. b16 c4-> () a8 r | - a8. b16 c4^> () a8 r | - } - \context Voice=two { - \voiceTwo - | - | - } - > - - % 4 bars copied from end verse1 - r8 | - %70 - r8 | - \times 2/3 < { [ f'8\f( e f] } { f' e f } > - < { a4.-> )f8 } { a'4. f8 } > | - | - | - \property Voice . TextScript \override #'font-shape = #'italic - | - \property Voice . TextScript \revert #'font-shape - - %75 - | - | - - % four copied from begin eentje - c> | - | - | - %80 - - \property Voice . TextScript \override #'font-shape = #'italic - | - \property Voice . TextScript \revert #'font-shape - - | - | -} - -bassIntro = \notes\relative c{ - \dynamicUp -%1 - r4 | - r4 | - r4 | - r4 | -} - -bassVerseOne = \notes\relative c{ -% \clef bass - \dynamicUp -%5 - r4 | - r4 | - r4 | - r4 | - [ ] | -%10 - [ ] | - r4 | - r4 | - r4 | - r4 | -%15 - bes'8 [ ] | - es,8 [ ] | - r4 | - r4 | - r4 | - r4 | - [ ] | - [ ] | - r4 | - r4 | - r4 | - r4 | - [ ] | - c,8 [ ] | -} - -bassEentje = \notes\relative c{ - \dynamicUp - [ ] | - c,8 [ ] | - [ ] | - c,8 [ ] | - [ ] | - c,8 [ ] | - [ ] | - c,8 [ ] | -} - -bassThrough = \notes\relative c{ - \dynamicUp - %61 - [ b-> d->> ] | - [ b-> d->> ] | - % copied - [ b-> d->> ] | - [ b-> d->> ] | - %65 - [ e> ] | - [ ] | - [ ] | - [ ] | - % 4 bars copied from end verse1 - r4 | - %70 - r4 | - [ ] | - c,8\> [ < \! e g c> ] | - - [ ] | - [ ] | - %75 - [ ] | - c,8 [ ] | - c,8 [ ] | - c,8 [ ] | - g,8 [ ] | - %80 - c,8 [ ] | - c,8 [ ] | - | -} - -global = \notes{ - \time 3/4 - \key es \major - \skip 1 * 3/4 * 4 - \break - \skip 1 * 3/4 * 25 - \break - \skip 1 * 3/4 * 6 - \break - \skip 1 * 3/4 * 41 - \break - \skip 1 * 3/4 * 6 - \bar "|." -} - -allLyrics = \lyrics { - % maybe should be bigger by default, in grob-description.scm ? - \property Lyrics . LyricText \override #'font-relative-size = #1 - \property Lyrics . LyricHyphen \override #'maximum-length = #1.5 - \lyricVerseOne - \lyricVerseTwo - \lyricThrough -} - -lyricStaff = \context Lyrics { - \allLyrics -} - -vocals = \context Voice \notes { - \clef treble - % certainly no auto-beaming for vocals - \property Voice.autoBeaming = ##f - \property Staff.automaticMelismata= ##t - - \dynamicUp - % duh 1 != 3/4 - R1 * 3/4 * 4 - \vocalVerse - R1 * 3/4 * 8 - \vocalVerse - \vocalThrough - R1 * 3/4 * 6 -} - -vocalStaff = \context Staff = vocal< - \property Staff.midiInstrument = "synth voice" - \global - \vocals -> - -treble = { - \clef treble - \property Voice.autoBeamSettings \override #'(begin * * * *) = #(make-moment 0 1) - \trebleIntro - \trebleVerseOne - \trebleEentje - \trebleVerseOne - \trebleThrough -} - -trebleStaff = \context Staff = treble< - \property Staff.midiInstrument = "acoustic grand" - \global - \treble -> -bass = { - \clef bass - \bassIntro - \bassVerseOne - \bassEentje - \bassVerseOne - \bassThrough -} - -bassStaff = \context Staff = bass< - \property Staff.midiInstrument = "acoustic grand" - \global - \bass -> - -grandStaff = \context PianoStaff < - - \trebleStaff - \bassStaff -> - - -\score{ - < - -%{ - Transpose as you like for your voice - Range untransposed is c' to f'' (for tenors and sopranos) - \transpose a gives a' to d'' (for basses, who sing an octave down) - - \addlyrics - \notes \transpose a \vocalStaff - \lyricStaff - \notes \transpose a \grandStaff -%} - - \addlyrics - \vocalStaff - \lyricStaff - \grandStaff - > - \paper { - % Use - % textheight = 280.\mm - % linewidth = 190.\mm - % to get this on 3 pages of a4. - - % Mandatory Mutopia settings yield 4 pages :-( - textheight = 270.0\mm - linewidth = 180.0\mm - - \translator { \HaraKiriStaffContext } - } - \midi{ - \tempo 4 = 54 - } -} diff --git a/mutopia/J.S.Bach/GNUmakefile b/mutopia/J.S.Bach/GNUmakefile deleted file mode 100644 index abe32c9c53..0000000000 --- a/mutopia/J.S.Bach/GNUmakefile +++ /dev/null @@ -1,13 +0,0 @@ -# mutopia/J.S.Bach/GNUmakefile - -depth = ../.. - -SUBDIRS = Petites-Preludes -EXTRA_DIST_FILES= - - -LOCALSTEPMAKE_TEMPLATES=ly mutopia -examples=wtk1-fugue2 - -include $(depth)/make/stepmake.make - diff --git a/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile b/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile deleted file mode 100644 index 48b1a47b36..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/GNUmakefile +++ /dev/null @@ -1,15 +0,0 @@ -# mutopia/J.S.Bach/Petites-Preludes/Makefile - -depth = ../../.. - -EXTRA_DIST_FILES= - -LILYINCLUDE:=$(LILYINCLUDE):out -export LILYINCLUDE - -examples=preludes-2 -LOCALSTEPMAKE_TEMPLATES=ly mutopia - -mutopia-examples=preludes-score - -include $(depth)/make/stepmake.make diff --git a/mutopia/J.S.Bach/Petites-Preludes/header.ly b/mutopia/J.S.Bach/Petites-Preludes/header.ly deleted file mode 100644 index e700af66ac..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/header.ly +++ /dev/null @@ -1,41 +0,0 @@ -\version "1.3.146" -%{ - Header for Petites Preludes. - - Six Petits Preludes, - Collection Johann Peter Kellner - ca 1703 - 1707 - - Kellner was a student of Bach's that copied some 90 works of his master. -%} - -instrument = "Piano" - -\header{ - title = "Petites Pr\'eludes" - subtitle = "Clavierbuechlein" - composer = "Johann Sebastian Bach (1685-1750)" - enteredby = "JCN,HWN" - instrument = \instrument - - % mutopia headers. - mutopiatitle = "Petites Préluedes" - mutopiacomposer = "J.S.Bach (1685-1750)" - mutopiaopus = "BWV924,939,999,925,926,940" - mutopiainstrument = \intrument - date = "1700s" - source = "Ed. Henry Lemoine Urtext" - style = "Baroque" - copyright = "Public Domain" - maintainer = "Jan Nieuwenhuizen" - maintainer_email = "janneke@gnu.org" - lastupdated = "2001/Feb/25" - mutopiapublicdomain = "\\parbox{\hsize}{\\thefooter\\quad\\small - \\\\This music is part of the Mutopia project, - \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset - and placed in the public domain by " + \maintainer + - ".\\\\Unrestricted modification and redistribution is permitted - and encouraged---copy this music and share it.}" - tagline = \mutopiapublicdomain - footer = "pre-Mutopia-200y/mm/dd-nr" -} diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly deleted file mode 100644 index db728f19d5..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-1.ly +++ /dev/null @@ -1,138 +0,0 @@ -#(set! point-and-click line-column-location) - -opus = "BWV 924" -piece = "1" - - -%{ - -TODO: this file needs additional layouting: the trills look -differently in Lemoine, and the sharps should be below the trill. - -Additionally, the performance of trills should be explained. - -FIXME (Bach sure didn't)? -Lemoine puts fermatas on ending bar lines everywhere. - -%} - - - -\version "1.3.146" - - -lowstaff = \translator "Staff" = "lower" -upstaff = \translator "Staff" = "upper" - -% upper = \context Staff \notes\relative c { -upper = \context Staff=upper \notes\relative c { - \context Voice=i - \property Voice.TextScript \set #'font-style = #'italic - - r16 g'' c e r g, c e - r g, c d r b d g | - r16 a, d g r a, d f - r a, d e r c e a | - r16 b, e a r b, e g - r c, e f r g, d' f | - - r g, d' e r g, c e - r a, c d r e, b' d | - r e, b' c r e, a c - r f, a bes r c, g' bes | - r c, g' a r c, f a - r d, f b r e, g c | - r d, g c r d, g b - r c, g' b r c, fis a | - r b, d a' r b, d g - r a, c g' r a, c f! | - - % ugh arpeggio FIXME: is that so? - - r4 - - \stemBoth - \lowstaff - \stemUp - r16 g,, b d - [ f \upstaff \stemDown g16 b d ] | - \stemUp b - \lowstaff \stemDown - [ g b d ] f - \upstaff - [ g16 b d ] b - [ g b d ] - \stemUp - - % urg, below translator change affects previous beam too!? - % howto separate translator command from previous beam end? - \upstaff f g b f | - \stemBoth - e c' g f e c' g e - d c' f, e d b' f d | - c b' e, d c a' e c - b a' d, c b g' d b | - a g' c, b a fis' c a - b f' d c b f' d b | - g e' c b a e' c a - fis d' b a g d' b g | - e c' a g fis c' a fis - d c' b a b g d' f, | - g e f d' c b a g - f' d es c fis, es' d c | - b d b g as f g d - es fis a c - < - { \stemUp r c8 b16 } - \context Voice=ii { \stemDown d,8 f } - > - \stemBoth | - - \bar "|." -} - -% lower = \context Staff \notes\relative c{ -lower = \context Staff=lower \notes\relative c{ - \context Voice=i - \property Voice.TextScript \set #'font-style = #'roman - c4 e g^#'(music "accidentals-1") -\mordent g,4 | - d'4-\mordent f a-\mordent^#'(music "accidentals-1") a,4 | - e' e'-\mordent a, b-\upprall | - c4 e, fis gis-\upprall | - a4 c, d e-\upprall | - f4 e d-\prall c | - g'-\mordent^#'(music "accidentals-1") g, g'-\mordent g, | - g'-\mordent g, g'-\mordent g, | - g' r s s | s s s s \clef "bass" | - < - { \stemUp\tieUp g1 ~ g ~ g ~ g ~ g ~ g ~ g } - \context Voice=ii { \stemDown\tieDown g,1 ~ g ~ g ~ g ~ g ~ g ~ g } - > - - \bar "|." -} - -global = \notes{ - \time 4/4 -} - -\score{ - % Moderato - \context PianoStaff < - \context Staff = upper < - \global - \upper - > - \context Staff = lower < - \global - \clef "bass" - \lower - > - > - \paper { linewidth = 18.0 \cm } - \midi{ \tempo 4 = 80 } - \header { - opus = \opus - piece = \piece - } -} diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly deleted file mode 100644 index e8f231a3f9..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-2.ly +++ /dev/null @@ -1,101 +0,0 @@ -#(set! point-and-click line-column-location) - -opus= "BWV 939" -piece = "2" - - -\version "1.3.146" -upper = \context Staff \notes\relative c{ - \context Voice=i - \property Voice.TextScript \set #'font-style = #'italic - r8 c' e g e c bes' g | - a c, f a f c c' a | - b g b d b g f' d | - - r4 - - - r4 - - < { \stemUp [d8 g, 8 b d] } - \context Voice = ii < \stemDown b g > - > - - - - c2 - r4 - < - { \stemUp\tieUp c ~ c8} - % We get a warning: No ties created! - % but they are too! - \context Voice=ii { \stemDown\tieDown ~ } - > - \stemBoth - d, fis a fis d c' a | - b g b d b g f'! d | - e g, c e c g g' e | - fis a, c fis c a a' fis | - - r4 b,4 | - c8 e g c g e bes' g | - a16 g f e d c b ! a - b g a b c d e f | - g4 - - - - \bar "|." -} - -lower = \context Staff \notes\relative c{ - \context Voice=i - < - { \stemUp\tieUp c1 ~ | c ~ | c } - \context Voice=ii { \stemDown\tieDown c,1 ~ | c ~ | c } - > - \stemBoth | - r8 c e g e c c' e, | - fis d fis a fis d d' fis, | - g2 r4 g | - a8 a, c e c a g' e | - fis2 r4 d | - g-\mordent-#'(music "accidentals-1") g, 4 g'-\mordent g, | - % mordents in brackets... - g'-\mordent g, g'-\mordent g, | - g'-\mordent g, g'-\mordent g, | - g'8 g, b d b g f'! d | - e c e g e c c' e, | - - f1 ~ | - f8 d e c g'4 g, | - c,1 - \bar "|." -} - -global = \notes{ - \time 4/4 -} - -\score{ - \context GrandStaff < - \context Staff = upper < - \global - \upper - > - \context Staff = lower < - \global - \clef "bass" - \lower - > - > - \paper{ - linewidth = 18.0 \cm - } - \midi{ \tempo 4 = 100 } - \header { - opus = \opus - piece = \piece - } -} - diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly deleted file mode 100644 index 265518fdd7..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-3.ly +++ /dev/null @@ -1,158 +0,0 @@ -#(set! point-and-click line-column-location) - -opus= "BWV 999" -piece = "3" - -%{ - -TODO: this file needs additional layouting: the upper voice should -switch staffs to avoid leger lines. - -Not all editions agree on the last note: ed. Lemoine has a quarter -note, some have dotted half notes. - -This file was partly generated using m4. -%} - -\version "1.3.146" - - -upper = \notes \transpose c'' { - r16 [c es g] [es c es c] r c r c | - r16 [c es g] [es c es c] r c r c | - r16 [c f as] [f c f c] r c r c | - r16 [c f as] [f c f c] r c r c | - r16 [b, d f] [d b, d b,] r b, r b, | - r16 [b, d f] [d b, d b,] r b, r b, | - r16 [g, c es] [c g, c g,] r g, r g, | - r16 [g, c es] [c g, c g,] r g, r g, | - r16 [g, c es] [c g, c g,] r g, r g, | - r16 [g, c es] [c g, c g,] r g, r g, | - r16 [a, c es] [c a, c a,] r a, r a, | - r16 [a, c es] [c a, c a,] r a, r a, | - r16 [a, bes, d] [bes, a, bes, a,] r a, r a, | - r16 [g, bes, d] [bes, g, bes, g,] r g, r g, | - r16 [bes, d g] [d bes, d bes,] r bes, r bes, | - r16 [a, es g] [es a, es a,] r a, r a, | - r16 [a, c fis] [c a, c a,] r a, r a, | - r16 [a, c fis] [c a, c a,] r a, r a, | - r16 [bes, d g] [d bes, d bes,] r bes, r bes, | - - r16 [c fis a] [fis c fis c] r c r c | - r16 [d g bes] [g d g d] r d r d | - r16 [d fis c'] [fis d fis d] r d r d | - - r16 [cis g bes] [g cis g cis] r cis r cis | - r16 [c! es a] [es c es c] r c r c | - r16 [bes, e g] [e bes, e bes,] r bes, r bes, | - r16 [a, c g] [c a, c a,] r a, r a, | - - r16 [a, c fis] [c a, c a,] r a, r a, | - r16 [g, bes, e] [bes, g, bes, g,] r g, r g, | - r16 [fis, a, es] [a, fis, a, fis,] r fis, r fis, | - r16 [g, bes, d] [bes, g, bes, g,] r g, r g, | - r16 [g, a, c] [a, g, a, g,] r g, r g, | - r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, | - r16 [fis, a, c] [a, fis, a, fis,] r fis, r fis, | - r16 [g, a, c] [b, g, b, g,] r g, r g, - r16 [a, c fis] [c a, c a,] r a, r a, | - r16 [c fis a] [fis c fis c] r c r c | - r16 [b, d g] [d b, d b,] r b, r b, | - r16 [b, d f] [d b, d b,] r b, r b, | - r16 [g, c es] [c g, c g,] r g, r g, | - r16 [fis, c es] [c fis, c fis,] r fis, r fis, | - r16 [fis, c es] [c fis, c fis,] r fis, r fis, | - r16 [g, b, d] [b, g, b, d] [es c a, fis] | - - - - \bar "|." -} - -lower = \notes{ - c4 r [g8 es] | - c4 r [g8 es] | - c4 r [as8 f] | - - c4 r [as8 f] | - c4 r [as8 f] | - c4 r [as8 f] | - - c4 r [es8 c] | - bes,!4 r [es8 c] | - as,!4 r [es8 c] | - - g,4 r [es8 c] | - fis,4 r [es8 c] | - fis,4 r [fis8 d] | - - g,4 r [d8 bes,] | - g,4 r [bes,8 g,] | - es,4 r [g8 es] | - - c4 r [c8 a,] | - d,4 r [d8 a,] | - d,4 r [d8 a,] | - d,4 r [d8 bes,] | - - - d,4 r [es8 c] | - d,4 r [g8 d] | - d,4 r [a8 fis] | - - d,4 r [g8 es] | - d,4 r [fis8 d] | - d,4 r [e8 cis] | - d,4 r [es8 c] | - - d,4 r [d8 a,] | - d,4 r [cis8 bes,] | - d,4 r [c!8 a,] | - - d,4 r [bes,8 g,] | - d,4 r [es8 c] | - d,4 r [d8 a,] | - - g,4 r [es8 c] | - g,4 r [d8 b,] | - g,4 r [es8 c] | - - g,4 r [es8 c] | - g,4 r [g8 d] | - g,4 r [as8 f] | - g,4 r [es8 c] | - - g,4 r [es8 c] | - g,4 r [es8 c] | - g,4 r r | - %% FIXME: \fermata? - g,4_\fermata - \bar "|." -} - -global = \notes{ - \time 3/4 - \key es \major -} - -\score{ - \context PianoStaff < - \context Staff = up < - \global - \upper - > - \context Staff = down < - \global - \clef "bass" - \lower - > - > - \paper{ - \translator {\OrchestralScoreContext } - } - \midi{ \tempo 4 = 100 } - \header{ - opus = \opus - piece = \piece - } -} diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly deleted file mode 100644 index 7b2f458c5c..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-4.ly +++ /dev/null @@ -1,229 +0,0 @@ -#(set! point-and-click line-column-location) - -opus = "BWV 925" -piece = "4" - -\version "1.3.146" - -%{ - -This stretches LilyPond capabilities a little. - -%} - -one = \context Staff \notes\relative c { - \context Voice=i - \property Voice.TextScript \set #'font-style = #'italic -% r16_"legato" - r16 - \property Voice.TextScript \set #'font-style = #'finger - d' fis d a' b cis a - d cis d e d fis e d | - \property Voice.TextScript \set #'font-style = #'finger - \stemUp\tieUp - cis4 fis ~ fis8 fis e4 ~ | - e16 \stemBoth\tieBoth a,16 cis a d e fis d - g fis g a g b a g | - \stemUp - - fis4 e8 a | - %5 - < g!16 d> fis g a - \stemBoth - g b a g | - \property Voice.TextScript \set #'font-style = #'italic - - fis e fis g fis a g fis - \property Voice.TextScript \set #'font-style = #'finger -% e4-"2\\_5" ~ e16 e, fis g | - e4 ~ e16 e, fis g | - \property Voice.TextScript \set #'font-style = #'italic - - a g a b a c b a - g fis g a g b a g | - \stemUp\tieUp - fis4 - \skip 4*7 | - %10 - \property Voice.TextScript \set #'font-style = #'finger -% d'4. cis8-"4\\_5" ~ cis b4 a8-"4\\_5" ~ | - d'4. cis8 ~ cis b4 a8 ~ | - \property Voice.TextScript \set #'font-style = #'italic - - a g4 fis8 ~ fis16 fis e d - \property Voice.TextScript \set #'font-style = #'finger -% e4-"3\\_5" ~ | - e4 ~ | - e16 e d cis d4 ~ d16 d cis b cis4 | - \stemBoth - fis,16 a d c b d g fis - d b' a g fis e d c! | - b d g a fis8-\prall e16 d - d8. e16~ e d8 cis16 | - %15 - \stemUp\tieUp - r16 d fis d g a b g c b c d c e d c | - b4 a ~ a8 g ~ g16 fis8 e16 | - fis8 e~ e d~ d4 cis | - - d2 ~ d16 a b cis d4 | - \bar "|." -} - -two = \context Staff \notes\relative c{ - \context Voice=ii - \stemUp - \property Voice.TextScript \set #'font-style = #'finger - fis4 e8 a4 a4 gis8 | - a8 - \translator Staff=upper \stemDown\tieDown - - a'4 a8 b4. cis8 ~ | - cis8 - \translator Staff=lower \stemUp\tieUp - a,8 ~ a d ~ d d4-> cis8 | - d8 - \translator Staff=upper \stemDown\tieDown - d'4-> cis8 ~ cis b4 b8 | - %5 - r8 a4 a8 - \translator Staff=lower \stemUp\tieUp - g8 fis e4 ~ | - e4 d ~ d16 d cis b cis4 ~ | - cis8 a d4. d4^> cis8 | - \translator Staff=upper \stemDown\tieDown - d4 \stemBoth\tieBoth r16 b d b~ - r16 cis, e cis~ | - r16 d, fis d~ - r16 fis a fis~ | - %10 - \stemDown - fis4 e d cis | - b a b4. b8 | - a4 - \translator Staff=lower \stemUp - r16 b fis a g4 r16 a e g | - \skip 1*1 - s16 - \translator Staff=upper \stemDown\tieDown - d'8. ~ d8 c d4 a8 g | - %15 - fis8 \translator Staff=lower \stemUp c' b4 \stemDown - \stemDown\tieDown - a'8~ | - a g~ g16 e fis8~ fis16 d8.~ d8. cis!16 | -% \translator Staff=lower \stemUp - \context Staff < -% \context Voice=i { \stemUp\tieU d8 a~ a4 } -% \context Voice=ii { \stemDown a8 g fis16 e fis d } - \context Voice=ii { - \translator Staff = upper - \stemDown\tieDown d8 a~ a4 - } - \context Voice=iii { - \translator Staff = lower - \stemUp a8 g fis16 e fis d - } - > - \translator Staff=lower - \stemUp\tieUp - g fis g a g b a g ~ | - g g fis e fis4 ~ fis2 - \bar "|." -} - -three = \notes\relative c{ - \context Voice=iii - \stemDown - d4 cis b e | - a16 a, cis a d e fis d - g fis g a g b a g | - fis4 fis e a | - d16 \stemBoth d, fis d a' b cis a - d cis d e d fis e d | - %5 - cis b cis d c e d c - \stemDown b4 cis8 b | - a fis b a gis e a g | - fis4. d8 e4 a4 | - \stemBoth - r16 d, fis d g8 g, - r16 e' g e a8 a, | - r16 fis' a fis b8 b, r16 g' b g d'8 d, | - %10 - r16 d,16 fis d a' b cis a d b d b - fis' g a fis | - fis16 g, b g d' e fis d g8 g, r16 cis e cis | - fis8 fis, \stemDown r16 b d b e8 e, - r16 a cis a | - \stemBoth - d e fis d g fis e d cis! a b cis - d e fis d | - g8 e \stemDown\tieDown a a, b8. g16 a4 | - %15 - d8 a'~ a g~ g g fis4 | - \stemUp - r16 g b g d'8. c16 b8. bes16 a8 g | - \stemDown - r16 a, cis! a' d, e fis d e8 d e a, | - d a~ a16 a b cis d2 | -} - -four = \context Staff \notes\relative c{ - \skip 1*9 - \context Voice=iv - \stemUp - \property Voice.NoteColumn \override #'horizontal-shift = #1 - %10 - a''2 fis | - d s | - \skip 1*2 | - s4 - \translator Staff=lower \stemUp\tieUp - a4 ~ a16 d, g8 fis e | - %15 - \stemDown\tieDown - d1 ~ | - % we'll get some warnings, but it looks better - \property Voice.NoteColumn \override #'horizontal-shift = #0 - d | - d, ~ | - d2 d2 -} - -global = \notes{ - \time 4/4 - \key d \major -} - -\score{ - % Allegretto - \context PianoStaff < - \context Staff = upper < - \global - \one - \four - > - \context Staff = lower < - \global - \clef "bass" - \two - \three - > - > - \paper{ - linewidth = 18.0 \cm - \translator{ - \VoiceContext - % consider ending beam at every 1 2 note - autoBeamSettings \override #'(end 1 8 * *) = #(make-moment 1 4) - } - } - \midi{ \tempo 4 = 70 } - \header{ - opus = \opus - piece = \piece - } -} diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly deleted file mode 100644 index d760a91db4..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-5.ly +++ /dev/null @@ -1,208 +0,0 @@ -#(set! point-and-click line-column-location) - -piece = "5" -opus = "BWV 926" - -\version "1.3.146" - -upper = \context Staff \notes\relative c - \context Voice=i { - \property Voice.TextScript \set #'font-style = #'italic - - - [d'8 a' f d a' f] | - d a' f d a' f | - d bes' g d bes' g | - d bes' g d bes' g | - %5 - cis, g' e cis g' e | - cis bes' g e a g | - f d f a f a | - d a d f d f | - b f e d c b | - %10 - a gis fis e d' b | - < - { - \stemUp - \property Voice.TextScript \set #'font-style = #'roman - c4-\mordent^#'(music "accidentals-1") r r | - c4-\mordent^#'(music "accidentals-1") r r - \property Voice.TextScript \set #'font-style = #'italic - } - \context Voice=ii { \stemDown a4 r r | a4 r r } - > | - \stemBoth - a'8 es d c bes a | - g fis e! d c' a | - %15 - bes8-\mordent d8 bes g g'4 | - r8 d c bes a-\prall g | - a c a f f'4 | - r8 c bes a g-\prall f | - g bes a g f e | - %20 - f d f a d g, | - < - { - \stemUp - % ... textnatural -% cis8-\prall e8-"poco cresc." cis a e' cis - cis8-\prall e8 cis a e' cis - } - \context Voice=ii { \stemDown a4 } - > - \stemBoth - a8 e' cis a bes! a | - g e' cis g e' cis | - g e' cis g a g | - - f d' bes f d' bes | - %25 - f d' bes f d' bes | - - fis c' a fis c' a | - fis c' a fis c' a | - bes g fis g d g | - bes g d bes' g d | - %30 - e g fis g bes g | - es bes' g es bes' g | - cis, bes' g cis, bes' g | - cis, bes' g cis, a' g | - f a f d a' f | - %35 - d a' f d cis d | - e g e bes g' e | - bes g' e cis a g' | - f16 d c bes \stemUp a s16 s8 s4 | -% ugh -% s1 | - s4 s4 s4 | - %40 - s4 s16 [d16 f a] \stemDown [d, f a] \stemUp d | - \stemBoth - f a f d f d b d gis, b a gis | - - % arpeggio - a8 - < f4 d a > ~ - [f8 e] - < { \stemUp - e4.^\prall d8 - } - \context Voice=ii { \stemDown cis2 } - > - \stemBoth - d8 c! a d bes g | - %45 - c a fis bes g e | - - a fis d g e cis | - - % the mordent is on the D ! - -} - - -lower = \context Staff \notes\relative c{ - \context Voice=i - - d4-\mordent r r | - d,4 r r | - d'-\mordent r r | - d,4 r r | - d'-\mordent r r | - - d,4 r r | - d'8 a d f d f | - a f a d a d | - gis,4 r r | - e gis e | - a8 e' c a e' c | - g! es' c g es' c | - fis,4 r r - d fis d | - \property Voice.TextScript \set #'font-style = #'roman - g4-\mordent^#'(music "accidentals-1") r r8 f!8 | - \property Voice.TextScript \set #'font-style = #'italic - e4-\prall r r | - f4-\mordent r r8 e | - d4 r8 f e d | - e d cis e d cis | - d4 c! bes | - a a' a, | - a a' a, | - a a' a, | - a a' a, | - bes r r | - bes bes' bes, | - a r r | - a d d, | - g r r | - g g' g, | - g r r | - g g' g, | - a r r | - a a' a, | - a r r | - a a' a, | - cis, r r | - cis cis' cis, | - d s16 - \stemDown - [g'16 f e] f a d, f | - a, \stemUp [d c bes] - a \stemDown [ g f e] d f a d | - \stemUp - - [f a] - \stemDown - [d, f] a s s8 s4 | - \stemBoth -% ugh whole rest has duration of one bar - R2. | -% r4 r r | - \stemBoth - cis,8 e cis a d16 c bes a | - g8 g' a g a a, | - % ah, both at last - % what's going on here?? - \stemBoth - \stemBoth - \stemBoth - d4 d' d, | - d r r | - d, d' d, | - d2. | -} - -global = \notes{ - \time 3/4 - \key f \major -} - -\score{ - % Moderato - \context PianoStaff < - \context Staff = upper < - \global - { \upper \bar "|." } - > - \context Staff = lower < - \global - \clef "bass" - \lower - > - > - \paper{ - linewidth = 18.0 \cm - - } - \midi{ \tempo 4 = 90 } - \header{ - piece = \piece - opus = \opus - } -} - diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly deleted file mode 100644 index 0dc4d06a64..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-6.ly +++ /dev/null @@ -1,129 +0,0 @@ -#(set! point-and-click line-column-location) - -opus = "BWV 940" -piece = "6" - -\version "1.3.146" - - - -one = \context Staff \notes\relative c{ - \context Voice=i - \skip 1 | - \stemUp - r4 d''2 cis4 | - \stemBoth - d16 a' g f e f cis d - e8.-\mordent f16 d8.-\prall cis16 | - \stemUp\tieUp - cis4 ~ cis16 a d8 ~ d4 a | - %5 - b2 ~ b4 a ~ | - a16 a \stemUp g! f g4 ~ g f ~ | - f16 a g f e16 g8. ~ g16 g f e d f8. ~ | - f16 f e d b'4 a g | - - fis4 g r8 g16 bes e4 | - %10 - d1 - \bar "|." -} - -two = \context Staff \notes\relative c{ - \context Voice=ii - r16 d'' c bes a bes f g - a8.-\mordent bes16 g8.-\prall f16 | - \stemDown - f2 e2 | - \translator Staff=lower \stemUp - r4 a, bes b | - \translator Staff=upper \stemDown\tieDown - r16 b' a g f8. f16 e2 ~ | - %5 - e2 ~ e4 ~ e16 e f! d | - s4 e32 d e8.~ e4 d4 ~ | - d4. cis16 d cis4 d ~ | - d8 r r16 e f d r16 e f d r d e cis | - r16 e d c! bes! d8. s4 r16 bes' a g | - %10 - fis1 -} - -three = \context Staff \notes\relative c{ - \context Voice=iii - \stemUp - f2 e | - \stemBoth - d16 d' c bes a bes f g - a8.-\mordent bes16 - g8.-\prall f16 | - f2 g4 gis | - a2 ~ a16 a g f e f c d | - %5 - e8.-\mordent f16 d8.-\prall c16 \stemBoth c4. d8 | - \stemDown - e4 ~ e16 f e d cis a b cis d e f d | - \property Voice.TextScript \set #'font-style = #'finger - bes!2 a ~ | - a a | - d, cis' | - %10 - a'1 - \bar "|." -} - -four = \context Staff \notes\relative c{ - \context Voice=iv - \stemDown - d2 cis | - \skip 1*2 | - \skip 4*3 - \translator Staff=upper \stemUp - \property Voice.NoteColumn \override #'horizontal-shift = #1 - c''4 | - %5 - a gis ~ gis16 gis fis e - \skip 4*1 - \translator Staff=lower \stemDown - \property Voice.NoteColumn \override #'horizontal-shift = #0 - \stemUp\tieUp - b2 a | - g a4. gis16 a | - gis2 < g8 cis,> e4 | - d4. fis16 g r16 bes8. ~ bes4 | - %10 - \stemDown - d,1 -} - -global = \notes{ - \time 4/4 - \key f \major -} - -\score{ - % Allegretto - \context PianoStaff < - \context Staff = upper < - \global - \one - \two - > - \context Staff = lower < - \global - \clef "bass" - \three - \four - > - > - \paper{ - linewidth = 18.0 \cm - - } - \midi{ \tempo 4 = 40 } - \header{ - piece = \piece - opus = \opus - } -} - diff --git a/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly b/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly deleted file mode 100644 index a7dbde535f..0000000000 --- a/mutopia/J.S.Bach/Petites-Preludes/preludes-score.ly +++ /dev/null @@ -1,13 +0,0 @@ -\version "1.3.146" -% This is the main score file of the Petites Preludes - -\include "header.ly" - -\paper { linewidth = 18.0\cm } - -\include "preludes-1.ly" -\include "preludes-2.ly" -\include "preludes-3.ly" -\include "preludes-4.ly" -\include "preludes-5.ly" -\include "preludes-6.ly" diff --git a/mutopia/J.S.Bach/wtk1-fugue1.ly b/mutopia/J.S.Bach/wtk1-fugue1.ly deleted file mode 100644 index 821207bf57..0000000000 --- a/mutopia/J.S.Bach/wtk1-fugue1.ly +++ /dev/null @@ -1,198 +0,0 @@ -\header{ -title = "Fuga a 4" -opus = "BWV 846" -composer = "Johann Sebastian Bach (1685-1750)" -enteredby = "Shay Rojansky" - - - % mutopia headers. - mutopiatitle = "Das Wohltemperierte Clavier I, Fuga 1 (c-major)" - mutopiacomposer = "J.S.Bach" - mutopiaopus = "BWV846" - style = "baroque" - copyright = "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!" - maintainer = "hanwen@cs.uu.nl" - lastupdated = "2001/April/6" - footer = "Mutopia-2001/4/6-4" -} - -%{ -TODO: use autobeaming. -%} -\version "1.3.146" - -% #(set! point-and-click line-column-location) - -tenor = - \context Voice = tenor \notes \relative c' { - \clef "violin" - - \voiceTwo - r8 [c8 d e] [f8. g32 f] [e8 a] | - [d, g] ~ [g16 a g f] [e f e d] [c d c b ] | - [a 8 fis'] g4 ~ [g8 fis16 e] [f8 d] | - [g f! e d] c r r g' ~ | -%% 5 - [g f16 e] f4 ~ [f16 f e8] d4 | - [c8 f] r16 [g f e] [f8 d] g4 ~ | - g4 r4 r2 | - r1 | - r8 [g8 a b] [c8. d 32 c ] [b8 e ] -%% 10 - [a, d ] ~ [d 16 e d c ] b8 r8 r d, | - [e fis] [g8. a32 g] [fis8 b e, a] ~ | - [a16 b a gis] [fis8 f!] [e d] ~ [d16 e fis gis] | - [a gis a b] [gis fis gis a] b8 r8 r4 | - r8 [c,8 d e] [f8. g32 f] [e8 a] | -%% 15 - [d, g] ~ [g16 a g f] e8 [e fis g] ~ | - [g8 fis] [gis8 a] ~ [a g! a b] | - [c8. d32 c ] [b8 e ] [a, d ] ~ [d 16 e d c ] | - [b8 g' cis, d ] [e cis d e ] | - a,8 r8 r e [fis g] [a8. b32 a] | -%% 20 - [g8 c fis, b] ~ [b16 c b a] [g fis e d] | - e4 d ~ [d16 a' g f!] [e g f! a] | - g4 ~ [g16 a bes8] c 4 [d 8 g,] | - g4. f8 ~ [f e] d4 | - e8 a4 g8 ~ [g8 f g a] | -%% 25 - [bes8. c32 b] [a8 d ] [g, c ] ~ [c 16 d c bes] | - [a bes a g] [f g f e] d4 ~ [d8. g16] | - a4 r16 [f' 16 d 8] e 2 | - } - - -soprane = - \context Voice = sop \notes \relative c' { - - \voiceOne - r1 | - r2 r8 [g'8 a b] | - [c8. d32 c ] [b8 e ] [a, d ] ~ [d 16 e d c ] | - [b g a b] [c b c d ] [e d e fis ] [g 8 b,] | -%% 5 - [c a] [d 16 c b a] [g8. g16] [f e f g] | - [a g a b] c 2 b4 | - r8 [c8 d e] [f8. g32 f] [e8 a] | - [d, g] ~ [g16 a g f] [e8 a] ~ [a16 b a g] | - f2 [e8. fis16] g4 ~ -%% 10 - g4 fis [g16 f! e d] [c d c b ] | - [a 16 c b a ] g 8 r8 r16 [c16 b a ] [gis 8 e'] | - [d c16 b 16] [a gis a b ] [c fis, a gis ] [b 8 a 16 b ] - [c8 f e d] ~ [d c16 b ] [b 8. a 16] | - a 4 r4 r2 | -%% 15 - r2 r8 [g 8 a b ] | - [c8. d32 c] [b 8 c] [d e] [f!8. g32 f!] | - [e8 a d, g] ~ [g16 a g f] [e8 a] | - [d,8 bes'] [a g16 f] [g f g e] [f g g f32 g] | - [a16 cis, d g] [e8. d16] d8 r8 r4 | -%% 20 - r2 r4 r8 g, | - [a b ] [c8. d32 c] [b 8 e a, d( ] | - [) e16 e d c] [b c d e] [f g a g] [f e d c] | - b 4 [c,8 d] g c4 b 8 | - c4 [b 8 bes 8] a d4 c8 | -%% 25 - [d8 e] f4 ~ [f16 a g f] [e f e d] | - c2 r16 [g32 a b !16 c] [d e f8] ~ | - [f32 c d e f16 g] [a8. b16] | - } - -alt = -\context Voice = alt \notes \relative c { - \clef "bass" - - - \voiceOne - R1*3 | - r8 [g'8 a b] [c8. d32 c ] [b8 e ] | -%% 5 - [a, d ] ~ [d 16 e d c ] [b8 c ~ c bes8] | - [a d g, c ] r16 [a16 b c ] d 4 | - g,4 r8 g8 [a b] [c8. d32 c ] | - [b8 e a, d ] ~ [d 16 e d c !] [b!8 e ] ~ | - e 4 d 4 [c 16 b c a] [e' d c b] | -%% 10 - [c 16 a b c ] [d c b a] g4 r4 | - r1 | - r8 [e8 fis gis] [a8. b32 a] [gis8 c ] | - [fis, b] ~ [b16 c b a] gis8 a4 gis8 | - a4 r8 g8 [a b] c8. [d32 c ] | -%% 15 - [b8 e a, d ] ~ [ d g,] d'4 | - [c 8 a] e' 4 d 8 r8 r4 | - r8 [a8 b cis ] [d8. e32 d ] [c !8 f ] | - [b,8 e ] ~ [e 16 f e d ] cis 8 r8 r4 | - r8 [a8 b cis ] [d8. e32 d ] [c !8 fis ] | -%% 20 - [b, e ] ~ [e 16 fis e d ] c 2 ~ | - [c 16 d c b] [a g a fis] [g8 b c d ] | - [e8. f32 e ] [d 8 g ] [c, f ] ~ [f 16 g f e ] | - d 4 [e 8 d ] ~ [d g,] g4 ~ - [g8 c, d e] [f8. g32 f] [e8 a] | -%% 25 - [d, g] ~ [g16 a g f] [e d e f] [g a bes g] | - [a e f g] [a b c a] b2 | - c 1 | - } - -bass = \context Voice = bassvoice - \notes \relative c { - \clef "bass" - - \voiceTwo - R1*4 | -%% 5 - r2 r8 [c8 d e] | - [f8. g32 f] [e8 a] [d, g] ~ [g16 a g f] | - [e f e d] [c d c b ] [a' 8 d a fis] | - [g16 a bes g] [cis,8 d] a'4 e4 | - [a16 b c d ] [c b a g] c 8 r8 r4 | -%% 10 - r2 r8 [g, 8 a b ] | - [c8. d32 c] [b 8 e] [a, d] ~ [d16 e d c] | - b 8 e4 d8 c f!4 e8 ~ | - e d4 e8 [f! e16 d] e4 | - a, 4 r4 r2 | -%% 15 - r8 [g 8 a b ] [c8. d32 c] [b 8 e] | - [a, 8 d] ~ [d16 e d c] [b 8 bes a g ] | - [a 8 fis' g e] d4 [e8 f!] | - [g8. a32 g] [f8 bes] [e, a] ~ [a16 bes a g] | - [f e f d] [g8 a] d,2 ~ | -%% 20 - [d16 e d c] [b a g fis ] [e' 8 e fis g] ~ | - [g a16 g16] [fis8 d] g2 ~ | - g2 a4 [b8 c ] | - [f,16 a g f] [e d c b ] [c d e f] [g8 g, ] | - c1 ~ | -%% 25 - c1 ~ | - c1 ~ | - c1 | - } - - -\score { - \notes \context PianoStaff < - \context Staff = one { - \time 4/4 - < - \soprane - \tenor - > \bar "|." } - \context Staff = two < - \alt - \bass - > - > - - \paper{ - linewidth = 18.0 \cm - } - - \midi { \tempo 4 = 84 } -} diff --git a/mutopia/J.S.Bach/wtk1-fugue2.ly b/mutopia/J.S.Bach/wtk1-fugue2.ly deleted file mode 100644 index c9d437f6c2..0000000000 --- a/mutopia/J.S.Bach/wtk1-fugue2.ly +++ /dev/null @@ -1,219 +0,0 @@ -\header { - title = "Fuga a 3 voci" - opus = "BWV 847-Fuga" - source = "Henle's Urtext" - composer = "Johann Sebastian Bach (1685-1750)" - enteredby = "hwn, wl, jcn" - - % mutopia headers. - mutopiatitle = "Das Wohltemperierte Clavier I, Fuga II (c-minor)" - mutopiacomposer = "J. S. Bach (1685-1750)" - mutopiainstrument = "Piano" - mutopiaopus = "BWV847" - style = "baroque" - copyright = "Public Domain" - maintainer = "hanwen@cs.uu.nl" - mutopiapublicdomain = "\\parbox{\\hsize}{\\thefooter\\quad\\small - \\\\This music is part of the Mutopia project, - \\texttt{http://www.mutopiaproject.org/}\\\\It has been typeset - and placed in the public domain by " + \maintainer + - ".\\\\Unrestricted modification and redistribution is permitted - and encouraged---copy this music and share it.}" - tagline = \mutopiapublicdomain - lastupdated = "2002/July/7" - footer = "Mutopia-2002/07/07-6" - -} - - -%{ - We really want this piece on 2 pages. - - tweaks: we use 19 iso. 20 pt staff space, and squeeze up the spacing a bit. - - the few forced linebreaks were an earlier attempt to get the spacing - to match up. - -%} - -\include "paper19.ly" -\version "1.5.65" - - - - -dux = \context Voice=two \notes \relative c''{ - \voiceTwo - \clef violin - - r8 c16 b c8 g as c16 b c8 d | - g, c16 b c8 d f,16 g as4 g16 f | - es c' b a g f! es d c8 es' d c | \break - bes a bes c fis, g a fis | -%%5 - g4 r16 c, d es f g as8~ as16 d, es f | - g a bes8 ~ bes16 es, f g as g f es d8 c'16 b! | \break - % forced accident! - c4 r4 r8 f es d | - r8 as g f g f16 es f8 d | - g4 r8 b c c16 b c8 g | -%%10 - as4 r8 a bes bes16 a bes8 f | - g4 r8 g as as g f | - r8 - \translator Staff = bass \stemUp - as, bes c r8 as16 g as8 f8 | - bes8 c bes as bes g f es | - f des' c bes c as g f | -%%15 - g8 - g'16 fis g8 c, - es \translator Staff = treble - \stemBoth - \stemDown - g16 fis! g8 a | - d, g16 fis g8 a! c,16 d es4 d16 c | % forced accident! - bes8 r8 r16 d e fis g a bes8 ~ bes16 e, f g | - a bes c8 ~ c16 fis,16 g a bes8 es,!16 d es8 g, | - \break - as f'16 es f8 a,8 bes g'16 f g8 b, | -%%20 - c16 f es d - \translator Staff = bass - c bes! as g - f8 \translator Staff = treble - as' g f | - es d es f b, c d b | - c4 r8 e8 f f16 e f8 c | - d4 r8 d8 es8 es16 d es8 bes | - c2 ~ c8 d16 es f es f d | -%%25 - b8 r8 r b c r r es | - d r r f ~ f r r f | - es as g f es d es f | - b, c d b b c r c | - f16 d es c ~ c8 b c4 r8 e | -%%30 - f4 r8 f f es16 d es8 | - r r | -} - - -comes = \context Voice=one \notes \relative c'' { - \voiceOne - \property Voice.MultiMeasureRest \override #'staff-position = #6 - R1 | - R1 | - r8 g'16 fis g8 c, es g16 fis g8 a | - d,8 g16 fis g8 a c,16 d es4 d16 c | -%%5 - bes8 es16 d es8 g,8 as f'16 es f8 a, - bes8 g'16 f g8 b, c8 d16 es f4 ~ | - f8 es16 d c16 bes ! as g f8 as' g f - es d es f b, c d b | - c g'16 fis g8 d es4 r8 e8 | -%%10 - f f16 e f8 c8 d4 r8 d | - es8 es16 d es8 bes c es16 d es8 f | - bes, es16 d es8 f as,16 bes c4 bes16 as | - \stemBoth g16 es f g as bes c d es d c d es f g a | - bes f, g as bes c d e f es d es f g a b | -%%15 - \stemUp c8 b16 a g f! es d c8 es d c | - bes a bes c fis,! g a fis | % forced accident - g8 d'16 c d8 r8 r8 e16 d e8 r8 | - r fis16 e fis8 r r g,16 f g8 r8 | - r8 a16 g a8 r r b16 a b8 r | -%%20 - r8 c16 b c8 g as c16 b c8 d | - g, c16 b c8 d f,16 g as4 g16 f | - es8 c'16 b c8 g as4 r8 a | - bes8 bes16 a bes8 f8 g4 r8 g ~ | - g as16 bes c b c as f2 ~ | -%%25 - f8 d'16 c d8 f, es es'16 d es8 g, | - f f'16 es f8 as, g16 f' es d c b a g | - c8 f es d r as g f | - g f16 es f8 d as' g r a | - b c f,16 es d c c8 c'16 b c8 g | -%%30 - as c16 b c8 g,8 c16 b c8 d | - f,16 g as4 g16 f e2 | -} - -bassdux = \context Voice=three \notes \relative c' { - \clef bass - R1 | - R | - R | - R | -%%5 - R | - R1 | - r8 c16 b c8 g as c16 b c8 d | - g, c16 b c8 d f,16 g as4 g16 f | - es c' b a g f es d c d es d c bes! as! g | - % -> \classic_accidentals -%%10 - f bes' as g f es d c bes c d c bes as g f | - es as' g f es des c bes as8 c' bes as | - g8 f g as d, es f d | - es as g f g es d c | - d bes' as g as f es d! | -%%15 - es8 r8 r4 r8 c bes a | - r es' d c d c16 bes c8 d | - g,8 bes'16 a bes8 d, es c'16 bes c8 e, | - f d'16 c d8 fis, g4 r16 g, a b | - c16 d es8~ es16 a, bes c d es f8~ f16 b, c d | -%%20 -% es8 r r e f f, es! d | % -> \classic_accidentals - es8 r r e \stemBoth \stemDown f f, es! d \stemBoth | - r as' g f g f16 es f8 g | - c16 d es d c bes as g f bes' as g f es d c | - bes c d c bes as g f es as' g f es d c bes | - as bes c bes as g f es d g' f es d c b a | -%%25 - g4 r4 r16 g a b c d es f | - g f as g f es d c b8 c16 b c8 g | - as c16 b c8 d g, c16 b c8 d | - f,16 g as4 g16 f es4 r8 es' | - d c g' g, -%%30 - < { c2 ~ | c1 ~ | c1 } \\ - { c,2 ~ | c1 ~ | c1 } - > -} - -\score { - - \notes \context PianoStaff < - \property Score.TimeSignature \override #'style = #'C - \context Staff = treble < - \key c \minor - \dux - { \comes \bar "|." } - \time 4/4 - > - \context Staff = bass < - \key c \minor - \bassdux - > - > - - \paper { - linewidth = 18.0 \cm - \translator { \ScoreContext - SpacingSpanner \override #'spacing-increment = #1.0 - SpacingSpanner \override #'shortest-duration-space = #1.9 - } - } - \header{ - opus = "BWV 847" - } - - \midi { - \tempo 4 =84 - } -} - diff --git a/mutopia/J.S.Bach/wtk1-prelude1.ly b/mutopia/J.S.Bach/wtk1-prelude1.ly deleted file mode 100644 index 8f1fd4232f..0000000000 --- a/mutopia/J.S.Bach/wtk1-prelude1.ly +++ /dev/null @@ -1,176 +0,0 @@ -\header{ -title = "Preludium" -opus = "BWV 846" -composer = "Johann Sebastian Bach (1685-1750)" -enteredby = "Shay Rojansky" - - - % mutopia headers. - mutopiatitle = "Das Wohltemperierte Clavier I, Prelude 1 (c-major)" - mutopiacomposer = "J.S.Bach" - mutopiaopus = "BWV846" - style = "baroque" - copyright = "\\\\This music is part of the Mutopia project, http://sca.uwaterloo.ca/Mutopia/\\\\It has been typeset and placed in the public domain by Han-Wen Nienhuys.\\\\Unrestricted modification and redistribution is permitted and encouraged - copy this music and share it!" - maintainer = "hanwen@cs.uu.nl" - lastupdated = "1999/Oct/14" -} - -\version "1.3.146" - -% should do programmable input. -soprane = - \notes \transpose c'' { - \context Staff < - % Real soprane - \context Voice = uVoice { - \time 4/4 - \clef "violin" - - \stemUp - r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | - r8 [a16 d'] [f' a d' f'] r8 [a16 d'] [f' a d' f'] | - r8 [g16 d'] [f' g d' f'] r8 [g16 d'] [f' g d' f'] | - r8 [g16 c'] [e' g c' e'] r8 [g16 c'] [e' g c' e'] | - r8 [a16 e'] [a' a e' a'] r8 [a16 e'] [a' a e' a'] | - r8 [fis16 a] [d' fis a d'] r8 [fis16 a] [d' fis a d'] | - r8 [g16 d'] [g' g d' g'] r8 [g16 d'] [g' g d' g'] | - r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] | - r8 [e16 g] [c' e g c'] r8 [e16 g] [c' e g c'] } - % Tenor - \context Voice = dVoice {\stemDown - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - r16 c8. ~ c4 r16 c8. ~ c4 |}> -%% 10 - r8 [d16 fis] [c' d fis c'] r8 [d16 fis] [c' d fis c'] | - r8 [d16 g] [b d g b] r8 [d16 g] [b d g b] | - r8 [e16 g] [cis' e g cis'] r8 [e16 g] [cis' e g cis'] | - r8 [d16 a] [d' d a d'] r8 [d16 a] [d' d a d'] | - r8 [d16 f] [b d f b] r8 [d16 f] [b d f b] | - r8 [c16 g] [c' c g c'] r8 [c16 g] [c' c g c'] | - r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] | - r8 [a,16 c] [f a, c f] r8 [a,16 c] [f a, c f] | - r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] | - r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] | -%% 20 - r8 [bes,16 c] [e bes, c e] r8 [bes,16 c] [e bes, c e] | - r8 [a,16 c] [e a, c e] r8 [a,16 c] [e a, c e] | - r8 [a,16 c] [ees a, c ees] r8 [a,16 c] [ees a, c ees] | - r8 [b,16 c] [d b, c d] r8 [b,16 c] [d b, c d] | - r8 [g,16 b,] [d g, b, d] r8 [g,16 b,] [d g, b, d] | - r8 [g,16 c] [e g, c e] r8 [g,16 c] [e g, c e] | - r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] | - r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] | - r8 [a,16 c] [fis a, c fis] r8 [a,16 c] [fis a, c fis] | - r8 [g,16 c] [g g, c g] r8 [g,16 c] [g g, c g] | -%% 30 - r8 [g,16 c] [f g, c f] r8 [g,16 c] [f g, c f] | - r8 [g,16 b,] [f g, b, f] r8 [g,16 b,] [f g, b, f] | - r8 [g,16 bes,] [e g, bes, e] r8 [g,16 bes,] [e g, bes, e] | - - r8 [f,16 a,] [c f c a,] [c a, f, a,] [f, d, f, d,] | - r8 [g16 b] [d' f' d' b] [d' b g b] [d f e d] | - \bar "|." - } - -bass = - \notes { - \clef "bass" - - - \stemDown - c'2 c' | - c' c' | - b b | - c' c' | - c' c' | - c' c' | - b b | - b b | - a a | -%% 10 - \context Staff < - \context Voice = Alt - {\stemUp - r16 a8. ~ a4 r16 a8. ~ a4 | - r16 b8. ~ b4 r16 b8. ~ b4 | - r16 bes8. ~ bes4 r16 bes8. ~ bes4 | - r16 a8. ~ a4 r16 a8. ~ a4 | - r16 aes8. ~ aes4 r16 aes8. ~ aes4 | - r16 g8. ~ g4 r16 g8. ~ g4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 e8. ~ e4 r16 e8. ~ e4 | -%% 20 - r16 g8. ~ g4 r16 g8. ~ g4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 f8. ~ f4 r16 f8. ~ f4 | - r16 e8. ~ e4 r16 e8. ~ e4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 ees8. ~ ees4 r16 ees8. ~ ees4 | - r16 e!8. ~ e4 r16 e8. ~ e4 | -%% 30 - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 d8. ~ d4 r16 d8. ~ d4 | - r16 c8. ~ c4 r16 c8. ~ c4 | - - r16 c8. ~ c4 ~ c2 | - r16 b,8. ~ b,4 ~ b,2 | - c1 ||} - - \context Voice = Bass - {\stemDown - d2 d | - g g | - g g | - f f | - f f | - e e | - e e | - d d | - g, g, | - c c | -%% 20 - c c | - f, f, | - fis, fis, | - aes, aes, | - g, g, | - g, g, | - g, g, | - g, g, | - g, g, | - g, g, | -%% 30 - g, g, | - g, g, | - c, c, | - - c, c, | - c, c, | - c,1 \bar "|." }> - } - - -\score { - \notes \context PianoStaff < - \soprane - \bass - > - \midi { - \tempo 4 = 80 - } -} - -% EOF -