mf ly tex ps scm \
python po make intl \
debian $(builddir)/stepmake \
- Documentation input \
- mutopia
+ Documentation input
#
SCRIPTS = configure aclocal.m4 autogen.sh
--- /dev/null
+
+depth = ../../..
+
+examples=petite-ouverture-a-danser
+LOCALSTEPMAKE_TEMPLATES=ly mutopia
+
+include $(depth)/make/stepmake.make
+
+
--- /dev/null
+\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 <es as> r <des f> | r <es g> r <es as> | r <f as> r <f as> |
+ r <es g> r <es g> | r <es as> r <as, des> | r <des f> r <des f> |
+ r <as des> r <bes des> | r bes r <as c> | r <g des'> r <bes d> |
+ r <a! c> r <a c>
+
+ % Au movement
+ r <as des> r <c e> | r <c f> r <d! f> | r <cis e> r <cis e> |
+ r <c! f> r <d f> | r <d f> r <d g> | r <e g> r <e g> | r <e g> r <d g> |
+ r <d fis> r <d fis> | r <fis b> r <fis a> | r <e a> r <d g> |
+ r <d fis> r <d fis> |
+
+ r <cis e> r <cis fis> r <cis f> |
+
+ r <cis e> r <cis e> | r <b d> r <a d> | r <g b> r <a cis> |
+ r <a cis> r <a cis> |
+
+ \translator Staff=bass\voiceOne
+ r <g b> r <fis a> r <fis a> | r <g bes>
+ \translator Staff=treble\voiceTwo
+ r <a c> r <a d> |
+
+ r <bes d> r <bes d> | r <g c> r <bes d> | r <c es> r <d g> |
+ r <d f> r <es g> | r <e! g> r <d fis> | r <e a> r <fis a> |
+ r <es g> r <es g> | r <es g> r <es g> |
+
+
+ % copy from begin: 1-10
+ r8 <es as> r <des f> | r <es g> r <es as> | r <f as> r <f as> |
+ r <es g> r <es g> | r <es as> r <as, des> | r <des f> r <des f> |
+ r <as des> r <bes des> | r bes r <as c> | r <g des'> r <bes d> |
+ r <a! c> r <a c>
+
+}
+
+lower = \context Staff \notes \relative c{
+ \context Voice=iii
+
+ <as4 as'> <es es'> | r <as as'> | <des, des'> <f f'> | <c c'> r |
+ <as as'> <des des'> | <bes bes'> r | <des des'> <bes bes'> |
+ <g g'> <f f'> | <c' c'> <bes bes'> | <f f'> r |
+
+ % Au movement
+ <des' des'> <c c'> | <f f'> <d! d'!> | <a a'> r | <f' f'> <d d'> |
+ r <f f'> | <e e'> <c c'> | r <g g'> | <d' d'> r | <b b'> <fis fis'> |
+ <a a'> <b b'> | <d d'> r |
+
+ <a a'> <fis fis'> r |
+
+ <a a'> r | <b b'> <d d'> | <e e'> <a, a'> | <fis fis'> r |
+
+ <g g'> <d d'> r | <g g'> <f! f'!> <d' d'> |
+
+ <bes bes'> r | <c c'> <bes bes'> | <as as'> <g g'> | <d' d'> <c c'> |
+ <e! e'!> <b! b'!> | <a a'> <d d'> | <es es> r | <c c'> r
+
+ % copy from begin: 1-10
+ <as'4 as'> <es es'> | r <as as'> | <des, des'> <f f'> | <c c'> r |
+ <as as'> <des des'> | <bes bes'> r | <des des'> <bes bes'> |
+ <g g'> <f f'> | <c' c'> <bes bes'> | <f f'> 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
+ }
+}
+
--- /dev/null
+depth = ../../..
+
+examples=standchen
+mutopia-examples=standchen
+LOCALSTEPMAKE_TEMPLATES=ly mutopia
+
+include $(depth)/make/stepmake.make
+
+
--- /dev/null
+
+% #(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 <g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.> |
+ r8 <as-. c-.> <c-. es-.> <as-. c-.> <c-. es-.> <as-. c-.> |
+ r8 <as-. c-.> <c-. d-.> <as-. c-.> <c-. d-.> <as-. c-.> |
+ r8 <g-. b-.> <b-. d-.> <g-. b-.> <b-. d-.> <g-. b-.> |
+}
+
+trebleVerseOne = \notes\relative c{
+ %5
+ r8 <g' c> <c es> <g c> <c es> <g c> |
+ r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
+ r8 <f g b> <g b d> <f g b> <g b d> <f g b> |
+ r8 <es g c> <g c es> <es g c> <g c es> <es g c> |
+ <g''4.( b,> <)f8 d>
+ % manual beam override bug
+ %\times 2/3 { < [f( d> <es c> <)d b] > } |
+ \times 2/3 < { [ f( es )d ] } { d c b } > |
+ %10
+ <c2. es> |
+ r8 <g, c> <c es> <g c> <c es> <g c> |
+ r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
+ r8 <f as bes> <as bes d> <f as bes> <as bes d> <f as bes> |
+ % manual beam override bug
+ % r8 < [ es g bes> <g bes es> <es g bes> <g bes es ] >
+ 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> <es g> <)d f] > } |
+ \times 2/3 < { [ f( es )d ] } { as g f } > |
+ %16
+ <es2. g> |
+ r8 <f, g> <g b> <f g> <g b> <f g> |
+ r8 <es g> <g c> <es g> <g c> <es g> |
+ r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
+ %20
+ r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
+ \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 <f, g> <g b> <f g> <g b> <f g> |
+ r8 <e g> <g c> <e g> <g c> <e g> |
+ r8 <f a c> <a c f> <f a c> <a c f> <f a c> |
+ r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
+ \times 2/3 < { [ f'8\f( e f] } { f' e f } >
+ < {a4.- > )f8} { a'4. f8 } > |
+}
+
+trebleEentje = \notes \relative c'{
+ \stemBoth
+ <e2 e'> r4 |
+ <f2\mf as!\(> <as8.->( c> <f16 \))as> |
+ % urg: slurs with staccati are ugly
+ <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+ <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
+ <e2 g> <e4\pp g> |
+ <f2 a\(> <a8.( c> <f16 \))a> |
+ <e4.\( g> <e8-.( g-.> <e-. g-.> <e-. \))g-.> |
+ <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
+ %60
+ <e2 g> r4 |
+}
+
+trebleThrough = \notes \relative c'{
+ \stemBoth
+ <e2. e'> |
+ %61
+ R2. |
+ [<g,8.\< g'> <g16 g'> <b8. b'> <\! b16\> b'16> <d8. d'> <d16 d'>] |
+ < { c4( )b } { c'4( )b } > \!r |
+
+ <g4. g'> <b8 b'> [<d'8.-> 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
+ <d,4 f> <d2 f> |
+ <c!4 es> <c2 es> |
+ }
+ >
+
+ % 4 bars copied from end verse1
+ r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
+ %70
+ r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
+ \times 2/3 < { [ f'8\f( e f] } { f' e f } >
+ < { a4.-> )f8 } { a'4. f8 } > |
+ <e2. e'> |
+ <es!2. es'! > |
+ \property Voice . TextScript \override #'font-shape = #'italic
+ <d2._"decresc." d'> |
+ \property Voice . TextScript \revert #'font-shape
+
+ %75
+ <b2. b'> |
+ <c2 c'> <e4\pp g> |
+
+ % four copied from begin eentje
+ <f2 as!(> <as8.-> c> <f16 )as> |
+ <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
+ <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
+ %80
+
+ \property Voice . TextScript \override #'font-shape = #'italic
+ <e2._"dim." g> |
+ \property Voice . TextScript \revert #'font-shape
+
+ <g,2. e' g> |
+ <g2.-\fermata e' g> |
+}
+
+bassIntro = \notes\relative c{
+ \dynamicUp
+%1
+ <c,2 c'> r4 |
+ <as2 as'> r4 |
+ <f2 f'> r4 |
+ <g2 g'> r4 |
+}
+
+bassVerseOne = \notes\relative c{
+% \clef bass
+ \dynamicUp
+%5
+ <c,2 c'> r4 |
+ <as2 as'> r4 |
+ <g2 g'> r4 |
+ <c2 c'> r4 |
+ <g8 g'> [<g'' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+%10
+ <c,,8 c'> [<g'' c> <c es> <g c> <c es> <g c>] |
+ <c,,2 c'> r4 |
+ <as2 as'> r4 |
+ <bes2 bes'> r4 |
+ <es,2 es'> r4 |
+%15
+ bes'8 [<bes' f'> <f' as> <bes, f'> <f' as> <bes, f'>] |
+ es,8 [<bes' es> <es g> <bes es> <es g> <bes es>] |
+ <g,2 g'> r4 |
+ <c2 c'> r4 |
+ <as2 as'> r4 |
+ <es2 es'> r4 |
+ <bes'8 bes'> [<f'' bes> <bes d> <f bes> <bes d> <f bes>] |
+ <es,,8 es'> [<es'' g bes> <g bes es> <es g bes> <g bes es> <es g bes>] |
+ <g,,2 g'> r4 |
+ <c2 c'> r4 |
+ <f,2 f'> r4 |
+ <c'2 c'> r4 |
+ <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
+ c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
+}
+
+bassEentje = \notes\relative c{
+ \dynamicUp
+ <c,8 c'> [<c' f as!> <f as c> <c f as> <f as c> <c f as>] |
+ c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
+ <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
+ c,8 [<e' g> <g c> <e g> <g c> <e g>] |
+ <c,8 c'> [<c' f a> <f a c> <c f a> <f a c> <c f a>] |
+ c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
+ <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
+ c,8 [<e' g> <g c> <e g> <g c> <e g>] |
+}
+
+bassThrough = \notes\relative c{
+ \dynamicUp
+ %61
+ <g,8^"cresc." g'> [<g' b d> <b d f> <g b d> <as!-> b-> d->> <b d f>] |
+ <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
+ % copied
+ <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
+ <g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
+ %65
+ <gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
+ <a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
+ <a,8 a'> [<a' d f> <d f a> <a d f> <d f a> <a d f>] |
+ <a,8 a'> [<a' c e> <c e a> <a c e> <c e a> <a c e>] |
+ % 4 bars copied from end verse1
+ <f,2\p f'> r4 |
+ %70
+ <c'2 c'> r4 |
+ <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
+ c,8\> [<c' e g> < \! e g c> <c e g> <e g c> <c e g>] |
+
+ <c,8 c'> [<c' es! g> <es g c> <c es g> <es g c> <c es g>] |
+ <f,,8 f'> [<d'' f> <f as!> <d f> <f as> <d f>] |
+ %75
+ <g,,8 g'> [<d'' f> <f g> <d f> <f g> <d f>] |
+ c,8 [<c' e> <e g> <c e> <e g> <c e>] |
+ c,8 [<c' f> <f as> <c f> <f as> <c f>] |
+ c,8 [<c' e> <e g> <c e> <e g> <c e>] |
+ g,8 [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
+ %80
+ c,8 [<c' e> <e g> <c e> <e g> <c e>] |
+ c,8 [<c' g> <e c> <c g> <e c> <c g>] |
+ <c,2._\fermata g' c> |
+}
+
+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
+ }
+}
--- /dev/null
+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
+
+
--- /dev/null
+# 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
+
--- /dev/null
+# 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
--- /dev/null
+\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"
+}
--- /dev/null
+#(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?
+ <f4 d b4>
+ 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 |
+ <c1 g e>
+ \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 }
+ >
+ <c,1 c,>
+ \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
+ }
+}
--- /dev/null
+#(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 |
+ <e2 c g>
+ r4
+ <e c g >
+ <d2 c a>
+ r4
+ <d c a>
+ < { \stemUp [d8 g, 8 b d] }
+ \context Voice = ii < \stemDown b g >
+ >
+
+ <b4 g>
+ <e b>
+ c2
+ r4
+ <
+ { \stemUp\tieUp c ~ c8}
+ % We get a warning: No ties created!
+ % but they are too!
+ \context Voice=ii { \stemDown\tieDown <e,4 a> ~ <e8 a> }
+ >
+ \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 |
+ <g2 d b>
+ 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
+ <g,2 c>
+ <d4 b'>
+ <e1 c'>
+ \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
+ }
+}
+
--- /dev/null
+#(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] |
+
+
+ <g4 d b>
+ \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
+ }
+}
--- /dev/null
+#(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 <fis4 d> <gis e> |
+ %5
+ <a4 e> <fis d> < 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~ <g'4 e b>
+ r16 cis, e cis~ |
+ <a'4 fis cis> r16 d, fis d~ <b'4 g 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 <a
+ \translator Staff=upper \stemDown
+ a'4.>
+ \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
+ }
+}
--- /dev/null
+#(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
+ <g'!4. e a,> 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 !
+ <fis2. d-\mordent a>
+}
+
+
+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
+ }
+}
+
--- /dev/null
+#(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,> <f d> 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
+ }
+}
+
--- /dev/null
+\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"
--- /dev/null
+
+%% #(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] }
+ \\
+ { <a,4 f> a2 <a4. d,4.> } > |
+ %%5
+
+ g8 bes16()a c()bes a()g d'8 f, |
+ < e4.-\trill
+ \\ <c,4 g'> >
+ [d8 c bes]
+ %%8
+ < { f'8 g16()a a4. g16()f |
+ g8 a16()bes bes4. c16()d }
+ \\
+ { a,4 <bes4. d4. > r8 bes4 <g2 f'2> }
+ > |
+
+ %% 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 <bes4. cis,> s8 |
+ <d8 a f> 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 |
+ <d4 g,> 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:
--- /dev/null
+\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] <g2 c 2> |
+ }
+
+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 }
+}
--- /dev/null
+\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 <f as> |
+ <b, d> r <b d> r <g2 c> |
+}
+
+
+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 <d b ! as !> 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
+ }
+}
+
--- /dev/null
+\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] |
+ <e1 g c'> \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
+
--- /dev/null
+#
+
+depth = ../..
+
+examples=mozart-hrn-3
+LOCALSTEPMAKE_TEMPLATES=ly mutopia
+
+include $(depth)/make/stepmake.make
+
+
--- /dev/null
+\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"
+
+
--- /dev/null
+\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 }
+}
--- /dev/null
+MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM
\ No newline at end of file
--- /dev/null
+
+
+% #(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
+
+}
--- /dev/null
+
+\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{}
+}
--- /dev/null
+\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 { }
+}
--- /dev/null
+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 <rune@zedeler.dk>
+Sender: lilypond-devel-admin@gnu.org
+To: LilyPond Devel <lilypond-devel@gnu.org>
+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)
+ }
+ }
+
+}
+""")
+++ /dev/null
-#
-
-depth = ../..
-
-examples=petite-ouverture-a-danser
-LOCALSTEPMAKE_TEMPLATES=ly mutopia
-
-include $(depth)/make/stepmake.make
-
-
+++ /dev/null
-\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 <es as> r <des f> | r <es g> r <es as> | r <f as> r <f as> |
- r <es g> r <es g> | r <es as> r <as, des> | r <des f> r <des f> |
- r <as des> r <bes des> | r bes r <as c> | r <g des'> r <bes d> |
- r <a! c> r <a c>
-
- % Au movement
- r <as des> r <c e> | r <c f> r <d! f> | r <cis e> r <cis e> |
- r <c! f> r <d f> | r <d f> r <d g> | r <e g> r <e g> | r <e g> r <d g> |
- r <d fis> r <d fis> | r <fis b> r <fis a> | r <e a> r <d g> |
- r <d fis> r <d fis> |
-
- r <cis e> r <cis fis> r <cis f> |
-
- r <cis e> r <cis e> | r <b d> r <a d> | r <g b> r <a cis> |
- r <a cis> r <a cis> |
-
- \translator Staff=bass\voiceOne
- r <g b> r <fis a> r <fis a> | r <g bes>
- \translator Staff=treble\voiceTwo
- r <a c> r <a d> |
-
- r <bes d> r <bes d> | r <g c> r <bes d> | r <c es> r <d g> |
- r <d f> r <es g> | r <e! g> r <d fis> | r <e a> r <fis a> |
- r <es g> r <es g> | r <es g> r <es g> |
-
-
- % copy from begin: 1-10
- r8 <es as> r <des f> | r <es g> r <es as> | r <f as> r <f as> |
- r <es g> r <es g> | r <es as> r <as, des> | r <des f> r <des f> |
- r <as des> r <bes des> | r bes r <as c> | r <g des'> r <bes d> |
- r <a! c> r <a c>
-
-}
-
-lower = \context Staff \notes \relative c{
- \context Voice=iii
-
- <as4 as'> <es es'> | r <as as'> | <des, des'> <f f'> | <c c'> r |
- <as as'> <des des'> | <bes bes'> r | <des des'> <bes bes'> |
- <g g'> <f f'> | <c' c'> <bes bes'> | <f f'> r |
-
- % Au movement
- <des' des'> <c c'> | <f f'> <d! d'!> | <a a'> r | <f' f'> <d d'> |
- r <f f'> | <e e'> <c c'> | r <g g'> | <d' d'> r | <b b'> <fis fis'> |
- <a a'> <b b'> | <d d'> r |
-
- <a a'> <fis fis'> r |
-
- <a a'> r | <b b'> <d d'> | <e e'> <a, a'> | <fis fis'> r |
-
- <g g'> <d d'> r | <g g'> <f! f'!> <d' d'> |
-
- <bes bes'> r | <c c'> <bes bes'> | <as as'> <g g'> | <d' d'> <c c'> |
- <e! e'!> <b! b'!> | <a a'> <d d'> | <es es> r | <c c'> r
-
- % copy from begin: 1-10
- <as'4 as'> <es es'> | r <as as'> | <des, des'> <f f'> | <c c'> r |
- <as as'> <des des'> | <bes bes'> r | <des des'> <bes bes'> |
- <g g'> <f f'> | <c' c'> <bes bes'> | <f f'> 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
- }
-}
-
+++ /dev/null
-#
-
-depth = ../..
-
-examples=standchen
-mutopia-examples=standchen
-LOCALSTEPMAKE_TEMPLATES=ly mutopia
-
-include $(depth)/make/stepmake.make
-
-
+++ /dev/null
-
-% #(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 <g'-. c-.> <c-. es-.> <g-. c-.> <c-. es-.> <g-. c-.> |
- r8 <as-. c-.> <c-. es-.> <as-. c-.> <c-. es-.> <as-. c-.> |
- r8 <as-. c-.> <c-. d-.> <as-. c-.> <c-. d-.> <as-. c-.> |
- r8 <g-. b-.> <b-. d-.> <g-. b-.> <b-. d-.> <g-. b-.> |
-}
-
-trebleVerseOne = \notes\relative c{
- %5
- r8 <g' c> <c es> <g c> <c es> <g c> |
- r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
- r8 <f g b> <g b d> <f g b> <g b d> <f g b> |
- r8 <es g c> <g c es> <es g c> <g c es> <es g c> |
- <g''4.( b,> <)f8 d>
- % manual beam override bug
- %\times 2/3 { < [f( d> <es c> <)d b] > } |
- \times 2/3 < { [ f( es )d ] } { d c b } > |
- %10
- <c2. es> |
- r8 <g, c> <c es> <g c> <c es> <g c> |
- r8 <f c'> <c' d> <f, c'> <c' d> <f, c'> |
- r8 <f as bes> <as bes d> <f as bes> <as bes d> <f as bes> |
- % manual beam override bug
- % r8 < [ es g bes> <g bes es> <es g bes> <g bes es ] >
- 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> <es g> <)d f] > } |
- \times 2/3 < { [ f( es )d ] } { as g f } > |
- %16
- <es2. g> |
- r8 <f, g> <g b> <f g> <g b> <f g> |
- r8 <es g> <g c> <es g> <g c> <es g> |
- r8\pp <es as c> <as c es> <es as c> <as c es> <es as c> |
- %20
- r8 <es g bes> <g bes es> <es g bes> <g bes es> <es g bes> |
- \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 <f, g> <g b> <f g> <g b> <f g> |
- r8 <e g> <g c> <e g> <g c> <e g> |
- r8 <f a c> <a c f> <f a c> <a c f> <f a c> |
- r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
- \times 2/3 < { [ f'8\f( e f] } { f' e f } >
- < {a4.- > )f8} { a'4. f8 } > |
-}
-
-trebleEentje = \notes \relative c'{
- \stemBoth
- <e2 e'> r4 |
- <f2\mf as!\(> <as8.->( c> <f16 \))as> |
- % urg: slurs with staccati are ugly
- <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
- <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
- <e2 g> <e4\pp g> |
- <f2 a\(> <a8.( c> <f16 \))a> |
- <e4.\( g> <e8-.( g-.> <e-. g-.> <e-. \))g-.> |
- <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
- %60
- <e2 g> r4 |
-}
-
-trebleThrough = \notes \relative c'{
- \stemBoth
- <e2. e'> |
- %61
- R2. |
- [<g,8.\< g'> <g16 g'> <b8. b'> <\! b16\> b'16> <d8. d'> <d16 d'>] |
- < { c4( )b } { c'4( )b } > \!r |
-
- <g4. g'> <b8 b'> [<d'8.-> 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
- <d,4 f> <d2 f> |
- <c!4 es> <c2 es> |
- }
- >
-
- % 4 bars copied from end verse1
- r8 <f, a c> <a c f> <f a c> <a c f> <f a c> |
- %70
- r8 <e g c> <g c e> <e g c> <g c e> <e g c> |
- \times 2/3 < { [ f'8\f( e f] } { f' e f } >
- < { a4.-> )f8 } { a'4. f8 } > |
- <e2. e'> |
- <es!2. es'! > |
- \property Voice . TextScript \override #'font-shape = #'italic
- <d2._"decresc." d'> |
- \property Voice . TextScript \revert #'font-shape
-
- %75
- <b2. b'> |
- <c2 c'> <e4\pp g> |
-
- % four copied from begin eentje
- <f2 as!(> <as8.-> c> <f16 )as> |
- <e4. g> <e8-. g-.(> <e-. g-.> <e-. )g-.> |
- <f4. g> <b,8-. g'-.(> <d-. g-.> <f-. )g-.> |
- %80
-
- \property Voice . TextScript \override #'font-shape = #'italic
- <e2._"dim." g> |
- \property Voice . TextScript \revert #'font-shape
-
- <g,2. e' g> |
- <g2.-\fermata e' g> |
-}
-
-bassIntro = \notes\relative c{
- \dynamicUp
-%1
- <c,2 c'> r4 |
- <as2 as'> r4 |
- <f2 f'> r4 |
- <g2 g'> r4 |
-}
-
-bassVerseOne = \notes\relative c{
-% \clef bass
- \dynamicUp
-%5
- <c,2 c'> r4 |
- <as2 as'> r4 |
- <g2 g'> r4 |
- <c2 c'> r4 |
- <g8 g'> [<g'' d'> <d' f> <g, d'> <d' f> <g, d'>] |
-%10
- <c,,8 c'> [<g'' c> <c es> <g c> <c es> <g c>] |
- <c,,2 c'> r4 |
- <as2 as'> r4 |
- <bes2 bes'> r4 |
- <es,2 es'> r4 |
-%15
- bes'8 [<bes' f'> <f' as> <bes, f'> <f' as> <bes, f'>] |
- es,8 [<bes' es> <es g> <bes es> <es g> <bes es>] |
- <g,2 g'> r4 |
- <c2 c'> r4 |
- <as2 as'> r4 |
- <es2 es'> r4 |
- <bes'8 bes'> [<f'' bes> <bes d> <f bes> <bes d> <f bes>] |
- <es,,8 es'> [<es'' g bes> <g bes es> <es g bes> <g bes es> <es g bes>] |
- <g,,2 g'> r4 |
- <c2 c'> r4 |
- <f,2 f'> r4 |
- <c'2 c'> r4 |
- <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
- c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
-}
-
-bassEentje = \notes\relative c{
- \dynamicUp
- <c,8 c'> [<c' f as!> <f as c> <c f as> <f as c> <c f as>] |
- c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
- <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
- c,8 [<e' g> <g c> <e g> <g c> <e g>] |
- <c,8 c'> [<c' f a> <f a c> <c f a> <f a c> <c f a>] |
- c,8 [<c' e g> <e g c> <c e g> <e g c> <c e g>] |
- <g,8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
- c,8 [<e' g> <g c> <e g> <g c> <e g>] |
-}
-
-bassThrough = \notes\relative c{
- \dynamicUp
- %61
- <g,8^"cresc." g'> [<g' b d> <b d f> <g b d> <as!-> b-> d->> <b d f>] |
- <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
- % copied
- <g,8 g'> [<g' d'> <d' f> <g, d'> <as-> b-> d->> <b d f>] |
- <g,8 g'> [<g' d'> <d' f> <g, d'> <gis-> b-> d->> <b d f>] |
- %65
- <gis,8 gis'> [<d''\> e> <e b'> <d e> <e b'> <d\! e>] |
- <a,8 a'> [<c' e> <e a> <c e> <e a> <c e>] |
- <a,8 a'> [<a' d f> <d f a> <a d f> <d f a> <a d f>] |
- <a,8 a'> [<a' c e> <c e a> <a c e> <c e a> <a c e>] |
- % 4 bars copied from end verse1
- <f,2\p f'> r4 |
- %70
- <c'2 c'> r4 |
- <g8 g'> [<d'' g> <g b> <d g> <g b> <d g>] |
- c,8\> [<c' e g> < \! e g c> <c e g> <e g c> <c e g>] |
-
- <c,8 c'> [<c' es! g> <es g c> <c es g> <es g c> <c es g>] |
- <f,,8 f'> [<d'' f> <f as!> <d f> <f as> <d f>] |
- %75
- <g,,8 g'> [<d'' f> <f g> <d f> <f g> <d f>] |
- c,8 [<c' e> <e g> <c e> <e g> <c e>] |
- c,8 [<c' f> <f as> <c f> <f as> <c f>] |
- c,8 [<c' e> <e g> <c e> <e g> <c e>] |
- g,8 [<g' d'> <d' f> <g, d'> <d' f> <g, d'>] |
- %80
- c,8 [<c' e> <e g> <c e> <e g> <c e>] |
- c,8 [<c' g> <e c> <c g> <e c> <c g>] |
- <c,2._\fermata g' c> |
-}
-
-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
- }
-}
+++ /dev/null
-# mutopia/J.S.Bach/GNUmakefile
-
-depth = ../..
-
-SUBDIRS = Petites-Preludes
-EXTRA_DIST_FILES=
-
-
-LOCALSTEPMAKE_TEMPLATES=ly mutopia
-examples=wtk1-fugue2
-
-include $(depth)/make/stepmake.make
-
+++ /dev/null
-# 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
+++ /dev/null
-\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"
-}
+++ /dev/null
-#(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?
- <f4 d b4>
- 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 |
- <c1 g e>
- \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 }
- >
- <c,1 c,>
- \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
- }
-}
+++ /dev/null
-#(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 |
- <e2 c g>
- r4
- <e c g >
- <d2 c a>
- r4
- <d c a>
- < { \stemUp [d8 g, 8 b d] }
- \context Voice = ii < \stemDown b g >
- >
-
- <b4 g>
- <e b>
- c2
- r4
- <
- { \stemUp\tieUp c ~ c8}
- % We get a warning: No ties created!
- % but they are too!
- \context Voice=ii { \stemDown\tieDown <e,4 a> ~ <e8 a> }
- >
- \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 |
- <g2 d b>
- 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
- <g,2 c>
- <d4 b'>
- <e1 c'>
- \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
- }
-}
-
+++ /dev/null
-#(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] |
-
-
- <g4 d b>
- \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
- }
-}
+++ /dev/null
-#(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 <fis4 d> <gis e> |
- %5
- <a4 e> <fis d> < 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~ <g'4 e b>
- r16 cis, e cis~ |
- <a'4 fis cis> r16 d, fis d~ <b'4 g 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 <a
- \translator Staff=upper \stemDown
- a'4.>
- \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
- }
-}
+++ /dev/null
-#(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
- <g'!4. e a,> 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 !
- <fis2. d-\mordent a>
-}
-
-
-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
- }
-}
-
+++ /dev/null
-#(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,> <f d> 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
- }
-}
-
+++ /dev/null
-\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"
+++ /dev/null
-\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] <g2 c 2> |
- }
-
-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 }
-}
+++ /dev/null
-\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 <f as> |
- <b, d> r <b d> r <g2 c> |
-}
-
-
-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 <d b ! as !> 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
- }
-}
-
+++ /dev/null
-\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] |
- <e1 g c'> \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
-
projects / lilypond.git / commitdiff