Il 14.05.2014 14:43 Knute Snortum ha scritto:
This is how I propose to have the movements and the suite:
https://drive.google.com/folderview?id=0B_aEseOV9KTXamtCeUhXenF2eWc&usp=sharing
[21]
A couple of comments:
- your xxxx-all.ly file, which includes all the movements, doesn't print
the titles of each movement.
You may use print-all-headers, but I think that it's better using
\bookpart
- personally I don't like splitting each piece in two files (one for the
music definitions and one for the \score block), unless it's really
necessary
I've changed the suite file and the first two pieces.
This is how I would do it, but of course others may have different
opinions.\version "2.18.2"
\language "english"
\header {
title = "French Suite no. 6 in E major"
composer = "J. S. Bach (1685-1750)"
opus = "BWV 817"
style = "Baroque"
license = "Creative Commons Attribution-ShareAlike 4.0"
enteredby = "Knute Snortum"
lastupdated = "2014/Apr/28"
date = "1722"
source = "Bach-Gesellschaft, 1863"
mutopiatitle = "French Suite no. 6 in E major"
mutopiacomposer = "BachJS"
mutopiaopus = "BWV 817"
mutopiainstrument = "Harpsichord, Piano"
maintainer = "Knute Snortum"
maintainerEmail = "knute (at) snortum (dot) net"
maintainerWeb = "http://www.musicwithknute.com/";
footer = "Mutopia-2014/04/27-1935"
copyright = \markup { \override #'(baseline-skip . 0 ) \right-column { \sans
\bold \with-url #"http://www.MutopiaProject.org"; { \abs-fontsize #9 "Mutopia "
\concat { \abs-fontsize #12 \with-color #white \char ##x01C0 \abs-fontsize #9
"Project " } } } \override #'(baseline-skip . 0 ) \center-column {
\abs-fontsize #12 \with-color #grey \bold { \char ##x01C0 \char ##x01C0 } }
\override #'(baseline-skip . 0 ) \column { \abs-fontsize #8 \sans \concat { "
Typeset using " \with-url #"http://www.lilypond.org"; "LilyPond " \char ##x00A9
" " 2014 " by " \maintainer " " \char ##x2014 " " \footer } \concat { \concat {
\abs-fontsize #8 \sans{ " " \with-url
#"http://creativecommons.org/licenses/by-sa/4.0/"; "Creative Commons Attribution
ShareAlike 4.0 International License " \char ##x2014 " free to distribute,
modify, and perform" } } \abs-fontsize #13 \with-color #white \char ##x01C0 } }
}
tagline = ##f
}
\include "bach-french-suite-6-allemande.ly"
\include "bach-french-suite-6-courante.ly"
%\include "bach-french-suite-6-sarabande.ily"
%\include "bach-french-suite-6-gavotte.ily"
%\include "bach-french-suite-6-polonaise.ily"
%\include "bach-french-suite-6-bourree.ily"
%\include "bach-french-suite-6-menuet.ily"
%\include "bach-french-suite-6-gigue.ily"
%%% Include file for allemande.ly and all.ly
\version "2.18.2"
% Repeat 1
alleHighVoiceOne = \relative c'' {
\partial 16 b16
| gs16 ( a b e ) e, e' fs, e' gs, ( a b e ) e, e' fs, e'
| gs,16 ( e' fs gs ) a, ( gs' fs e ) ds ( e fs b ) b, b' d, b'
| cs,16 ds e a a, a' cs, a' b, a' e gs a, b cs fs
| gs,16 e' b e fs, gs a ds e4 ~ e16 gs ds fs
| e16 ds cs e gs cs, e b as gs fs as cs fs, e' fs,
| ds'16 cs b ds fs b, ds a gs fs e fs b e, ds' e,
| cs'16 ds e gs fs e ds cs b' as gs fs e ds e cs
\barNumberCheck #8
| ds8. \prall e16 cs8. \mordent b16 b8 fs' ds fs16 as,
| b8 ds16 gs, a8 b16 fs gs8 e'4 cs8
| as8 fs'4 ds8 b gs' ~ gs16 as b gs
| e16 ds e8 ~ e16 gs fs e ds cs b gs' b,8 as16. b32
| b16 cs ds fs b fs ds fs b,4. r16 \break % partial, -1/16
}
alleLowVoiceOne = \relative c {
\partial 16 r16
| r8 e gs b e e, gs b
| e ds cs a b a gs e
| a8 gs fs e ds e cs a
| b8 gs a b r16 e, gs b e8 bs
| cs8 gs' e cs fs fs, as cs
| b8 fs' ds b e e, gs b
| e8 cs ds e fs gs as fs
\barNumberCheck #8
| b8 e, fs fs, b16 cs ds fs b fs b e,
| ds16 e fs b b, b' ds, b' e, fs gs cs cs, cs' e, cs'
| fs,16 gs as ds ds, ds' fs, ds' gs, as b e e, e' gs, e'
| as,16 b cs fs fs, fs' as, fs' b,8 gs e fs
| b2 ~ b16 fs ds fs b,8. \break % partial, -1/16
}
% Repeat two
alleHighVoiceTwo = \relative c'' {
fs16 % partial bar
| ds16 e fs b b, b'cs, b' ds, e fs b b, b' cs, b'
| ds,16 fs gs a b, a' gs fs gs fs e gs b, gs' gs, gs'
| as,16 bs cs fs ds fs bs, fs' e ds cs e gs, e' e, e'
\barNumberCheck #16
| fs,16 gs a d b d gs, d' cs a b cs fs cs a' cs,
| d16 e fs a d, fs a, d fs, e d fs a fs d' a
| ds16 e fs a ds, fs bs, ds fs, e ds fs bs fs ds' bs
| gs'16 fs e gs cs, gs' a, gs' fs e ds fs bs, fs' gs, fs'
| e16 ds cs e gs, cs ds bs cs8 gs'16 e cs8 e16 gs,
| a8 cs16 a fs8 a16 cs, ds8 fs'16 ds b8 ds16 fs,
| gs8 b16 gs e8 gs16 b, cs8 a'4 fs8
| ds8 b'4 gs8 e cs' ~ cs16 ds e cs
\barNumberCheck #24
| a gs a8 ~ a16 cs b a gs fs e cs' fs,8. \trill e16
| e16 ( fs gs a ) b e, d' e, cs' b a cs e a, cs gs
| fs16 ( gs as b ) cs fs, e' fs, ds' cs b ds fs ds a' fs
| ds16 e fs a gs fs e ds b' a gs fs e ds cs b
| e16 b cs a gs e' fs, ds' e4. r16 % partial, -1/16
}
alleLowVoiceTwo = \relative c {
r16 % partial bar
| r8 b ds fs b b, ds fs
| b8 fs ds b e e, r e'' ~
| e8 ds16 cs bs8 gs cs cs, r cs' ~
\barNumberCheck #16
| cs8 b16 a gs8 e a a, r a'16 g
| fs8 a16 g fs8 fs, r a'16 g fs8 a16 g
| fs8 fs, r fs'16 gs a8 fs ds gs16 fs
| e8 gs16 fs e8 fs16 e ds8 fs16 e ds8 e16 ds
| cs8 fs gs gs, cs16 ( ds e gs ) cs gs cs e,
| fs16 ( gs a cs ) a cs fs, a b, ( cs ds fs ) b fs b ds,
| e16 ( fs gs b ) gs b e, gs a, ( b cs fs ) fs, fs' a, fs'
| b,16 ( cs ds gs ) gs, gs' b, gs' cs, ( ds e a ) a, a' cs, a'
\barNumberCheck #24
| ds,16 ( e fs b ) b, b' ds, b' e,8 cs a b
| e,8 b'' gs e a a, cs e
| as,8 cs' as fs b b, ds fs
| b,8 fs' ds b a a' r fs
| gs8 a b b, e16 e, gs b e8. % partial, -1/16
}
alleBothStaves = {
\key e \major
\time 4/4
\accidentalStyle Score.piano-cautionary
}
alleUpper = {
\clef treble
\alleBothStaves
\new Voice { \repeat volta 2 \alleHighVoiceOne }
\new Voice { \repeat volta 2 \alleHighVoiceTwo }
}
alleLower = {
\clef bass
\alleBothStaves
\new Voice { \repeat volta 2 \alleLowVoiceOne }
\new Voice { \repeat volta 2 \alleLowVoiceTwo }
}
\score {
\new PianoStaff \with { instrumentName = #"Allemande" } <<
\new Staff = "alleUpper" \alleUpper
\new Staff = "alleLower" \alleLower
>>
\layout {
}
\midi {
\tempo 4 = 80
}
}
\version "2.18.2"
\language "english"
courStaffUp = \change Staff = "courUpper"
courStaffDown = \change Staff = "courLower"
% Repeat one
courHighVoiceOne = \relative c'' {
\partial 16 e16
| e8 r r16 b cs ds e fs gs e
| b'8 a16 gs fs e ds cs b r r8
| r16 b' gs e cs a' fs ds b a' gs fs
| gs16 e ds cs b a gs fs e r r8
| \stemNeutral r16 gs' e cs as e' cs as fs e' ds cs
| ds16 fs ds b a cs a fs ds cs' b a
| gs8 r r16 \stemUp fs gs a b cs ds b
\barNumberCheck #8
| e16 r r8 r16 ds e fs gs as b gs
| as16 fs cs r r cs as fs s4
| s8 << { s8 fs'8 } \\ \\ { b,16 \tieDown ds ~ ds8 } >> s8 s4
| s8 << { s8 e8 } \\ \\ { b16 ds ~ ds8 } >> s8 s4
| \stemNeutral r16 fs,=' cs' e ds cs b ds gs, cs as e
| ds16 b' fs ds b fs' gs as b fs b e,
| ds16 b' fs ds b fs' gs as b fs b e,
| ds gs b ds e, ds' cs b e, cs' b as
\barNumberCheck #16
| \stemUp b8 r r16
<<
{ s8. b8. }
\\ \\
{ \tieDown cs,16 ds fs ~ fs8. }
>> % partial bar, -1/16
}
courMiddleVoiceOne = \relative c' {
\partial 16 r16
| r16 e fs gs a r r8 r4
| ds,8 r r4 r16 a' gs fs
| gs8 e a a, ds b
| e8 r r4 s
| s2. * 2
| s2 r8 ds='
\barNumberCheck #8
| cs16 gs' a b cs r r8 r cs,
| fs8 r16 as fs8 r e16 gs fs e
| ds16 fs b8 ~ b r r4
| \courStaffDown \stemUp gs,16 \courStaffUp \stemDown e' b'8 ~ b r r4
| s2. * 4
\barNumberCheck #16
| s4 s8 ds,=' ~ ds8. % partial bar, -1/16
}
courLowVoiceOne = \relative c' {
\partial 16 s16
| s2. * 3
| s2 r16 ds cs b
| cs8 ds cs b as fs
| b8 b, cs fs b, ds
| e16 b'cs ds e r r8 s4
\barNumberCheck #8
| s2. * 2
| s4 r16 e=' ds cs b a gs a
| gs8 s r16 a gs fs e ds cs ds
| as8 fs b ds e fs
| b,8 cs ds e ds cs
| b8 cs ds e ds cs
| b8 ds gs e fs fs,
\barNumberCheck #16
| r16 b ds fs b4 ~ b8. % partial bar, -1/16
}
% Repeat two
courHighVoiceTwo = \relative c'' {
fs16 % partial bar
| << { fs4 ~ fs8 } \\ \\ { s4 ds8 } >> r8 r4
| s4 r16 bs ds fs e ds cs ds
| e16 gs, a e' ds a gs ds' cs gs fs cs'
| bs4 ~ bs8 r r4
| \stemNeutral r16 d b gs es b' gs es cs b' a gs
| a16 fs es fs bs fs cs' fs, ds' fs, gs ds
| e16 cs' a fs ds a' fs ds bs a' gs fs
\barNumberCheck #24
| e16 ds cs bs cs ds e fs gs a b a
| b8 r r16 fs gs a b cs d b
| cs4 r8 a cs e
| a2. ~ \trill
| a16 b, fs' a gs fs e gs cs, fs ds a
| gs16 e' b gs e b' cs ds e b e a,
| gs16 e' b gs e b' cs ds e b e a,
| gs b e gs a, gs' fs e a, fs' e ds
\barNumberCheck #32
| e8 r r16 \stemUp
<< { s8. e } \\ \\ { \tieDown fs,16 gs b ~ b8. } >>
}
courMiddleVoiceTwo = \relative c'' {
r16 % partial bar
| r16 e ds cs r b a gs fs e ds fs
| \stemUp bs,16 ds fs a gs8 r r4
| s2.
| \stemDown r16 gs=' fs e ds8 s s4
| s2. * 3
\barNumberCheck #24
| s2. * 8
\barNumberCheck #32
| s4 r8 gs=' ~ gs8.
}
courLowVoiceTwo = \relative c' {
s16 % partial bar
| s2.
| \courStaffUp \stemDown \tieDown bs4 ~ bs8 s s4
| \courStaffDown \stemNeutral cs8 cs, b b' a a,
| gs8 r r16 cs' bs as gs fs es fs
| es4 cs'8 b cs cs,
| fs8 a ds, fs bs, bs'
| cs8 fs, a ds, gs gs,
\barNumberCheck #24
| cs8 cs, r4 r
| gs''=16 b cs ds e r r8 r4
| r16 a=' e cs a e' cs a gs b a gs
| fs16 fs' cs a gs cs a fs e gs fs e
| ds8 b e gs a b
| cs8 ds16 e gs,8 a gs fs
| e8 fs gs a gs fs
| e8 gs cs a b b,
\barNumberCheck #32
| r16 e gs b e4 ~ e8.
}
courAllStaves = {
\key e \major
\time 3/4
\accidentalStyle Score.piano-cautionary
}
courUpper = {
\clef treble
\courAllStaves
<<
\new Voice { \repeat volta 2 { \voiceOne \courHighVoiceOne } }
\new Voice { \repeat volta 2 { \voiceTwo \courMiddleVoiceOne } }
>> <<
\new Voice { \repeat volta 2 { \voiceOne \courHighVoiceTwo } }
\new Voice { \repeat volta 2 { \voiceTwo \courMiddleVoiceTwo } }
>>
}
courLower = {
\clef bass
\courAllStaves
\new Voice { \repeat volta 2 \courLowVoiceOne }
\new Voice { \repeat volta 2 \courLowVoiceTwo }
}
\bookpart {
\header {
title = "French Suite VI: Courante"
composer = "J. S. Bach (1685-1750)"
opus = "BWV 814"
style = "Baroque"
license = "Creative Commons Attribution-ShareAlike 4.0"
enteredby = "Knute Snortum"
lastupdated = "2014/Apr/05"
date = "1722"
source = "Bach-Gesellschaft, 1863"
mutopiatitle = "French Suite no. 6 in E major"
mutopiacomposer = "BachJS"
mutopiaopus = "BWV 817"
mutopiainstrument = "Harpsichord, Piano"
maintainer = "Knute Snortum"
maintainerEmail = "knute (at) snortum (dot) net"
maintainerWeb = "http://www.musicwithknute.com/";
footer = "Mutopia-2014/04/27-1935"
copyright = \markup { \override #'(baseline-skip . 0 ) \right-column {
\sans \bold \with-url #"http://www.MutopiaProject.org"; { \abs-fontsize #9
"Mutopia " \concat { \abs-fontsize #12 \with-color #white \char ##x01C0
\abs-fontsize #9 "Project " } } } \override #'(baseline-skip . 0 )
\center-column { \abs-fontsize #12 \with-color #grey \bold { \char ##x01C0
\char ##x01C0 } } \override #'(baseline-skip . 0 ) \column { \abs-fontsize #8
\sans \concat { " Typeset using " \with-url #"http://www.lilypond.org";
"LilyPond " \char ##x00A9 " " 2014 " by " \maintainer " " \char ##x2014 " "
\footer } \concat { \concat { \abs-fontsize #8 \sans{ " " \with-url
#"http://creativecommons.org/licenses/by-sa/4.0/"; "Creative Commons Attribution
ShareAlike 4.0 International License " \char ##x2014 " free to distribute,
modify, and perform" } } \abs-fontsize #13 \with-color #white \char ##x01C0 } }
}
tagline = ##f
}
\score {
\new PianoStaff \with { instrumentName = #"Courante" } <<
\new Staff = "courUpper" \courUpper
\new Staff = "courLower" \courLower
>>
\layout {
}
\midi {
\tempo 4 = 100
}
}
}
_______________________________________________
Mutopia-discuss mailing list
Mutopia-discuss@mutopiaproject.org
http://lists.bcn.mythic-beasts.com/mailman/listinfo/mutopia-discuss
