From: Valentin Villenave Date: Fri, 9 Jan 2009 14:55:44 +0000 (+0100) Subject: Separate parts, rc1 X-Git-Url: https://repo.or.cz/w/opera_libre.git/commitdiff_plain/6efb44bb7979a89a5689413b27dc667f76b8721c Separate parts, rc1 Quite a mess, still -- but I don't have time to be fancy right now. --- diff --git a/definitions/functions.ly b/definitions/functions.ly index 20251ee..53f4caf 100755 --- a/definitions/functions.ly +++ b/definitions/functions.ly @@ -433,3 +433,48 @@ makePianoPart = #{<< $part-one \new GhostVoice $ref >> #}) %%-----------------------------------------------------------------% + + +#(define (naturalize-pitch p) + (let* ((o (ly:pitch-octave p)) + (a (* 4 (ly:pitch-alteration p))) + ; alteration, a, in quarter tone steps, for historical reasons + (n (ly:pitch-notename p))) + (cond + ((and (> a 1) (or (eq? n 6) (eq? n 2))) + (set! a (- a 2)) + (set! n (+ n 1))) + ((and (< a -1) (or (eq? n 0) (eq? n 3))) + (set! a (+ a 2)) + (set! n (- n 1)))) + (cond + ((> a 2) (set! a (- a 4)) (set! n (+ n 1))) + ((< a -2) (set! a (+ a 4)) (set! n (- n 1)))) + (if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7)))) + (if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7)))) + (ly:make-pitch o n (/ a 4)))) + +#(define (naturalize music) + (let* ((es (ly:music-property music 'elements)) + (e (ly:music-property music 'element)) + (p (ly:music-property music 'pitch))) + (if (pair? es) + (ly:music-set-property! + music 'elements + (map (lambda (x) (naturalize x)) es))) + (if (ly:music? e) + (ly:music-set-property! + music 'element + (naturalize e))) + (if (ly:pitch? p) + (begin + (set! p (naturalize-pitch p)) + (ly:music-set-property! music 'pitch p))) + music)) + + +smart = +#(define-music-function (parser location m) + (ly:music?) + (naturalize m)) + diff --git a/instruments/clarinetteB.ly b/instruments/clarinetteB.ly index f20aa69..76d7d57 100755 --- a/instruments/clarinetteB.ly +++ b/instruments/clarinetteB.ly @@ -9,7 +9,7 @@ ClarinetteBasse = { #(make-instrument-name 'clarinet-bass "clarinet" 25) - \clef bass + \clef "G_8" \revert Staff.InstrumentName #'stencil } @@ -490,7 +490,7 @@ ActeUnSceneTroisTerClarinetteDeux = { \ClarinetteDeux r8 si\<( sib sol fad mib\> re'2\!) r4 | r8 si\p\<( sib sol fad mib\> re'2\!) r4 | } - re,4-- r2 \clef bass + re,4-- r2 \clef "G_8" r4 \t {r8 mi\p( dod} \t {sold) fa( do)} | r8 sold\mp( la do dod mi) | \ten fa,2.~-- fa4 r2 | r8 sold( la do dod mi) | fa,2.~-- fa4 r2 | @@ -507,7 +507,7 @@ ActeUnSceneTroisTerClarinetteDeux = { \ClarinetteDeux dod,2.~--\! dod4 r2 | \clef treble mib''4\<( sib' si\!) | r8 sib\f( si fad sol re mib) sib'( si fad sol re | - mib) sib'\>( si4\!) \clef bass r8 sib,( si4\mp) sib,-- r | + mib) sib'\>( si4\!) \clef "G_8" r8 sib,( si4\mp) sib,-- r | R2.*15 } } @@ -668,7 +668,7 @@ EntracteClarinetteDeux = { \ClarinetteDeux la'4\mp( sol8 r fa4 mi8 r fa\< mi fa sol) | la4\!\(( sol8) r fa4( mi8) r fa\<( mi) fa sol\) | la4\! sol8 r fa4 mi8 r fa mi fa sol | - la2( mi) r \clef bass | + la2( mi) r \clef "G_8" | la,,\mf( la') la,-- si( si') r | do,( do') do,-- re( re') r | la'-- la,,-- la''-- sol-- si,,-- r | @@ -683,9 +683,9 @@ EntracteClarinetteDeux = { \ClarinetteDeux ActeDeuxSceneUnClarinetteDeux = { \ClarinetteBasse \relative { R2.*4 R2 R2.*2 R2 | \ten mi2.~ | mi2.~ | mi2.~ | mi4 r \clef treble - mib'4\mp( sib2~) | sib4 r | do8( sol~) sol2~| sol2.~ | sol4 r \clef bass | + mib'4\mp( sib2~) | sib4 r | do8( sol~) sol2~| sol2.~ | sol4 r \clef "G_8" | mi,2.~-- | mi2.~ | mi2.~ | mi4 r | - R2. R2 R2.*2 R2 | R2. \clef treble | re''2.~\p\<| re2.~\mf\>| re4\! r \clef bass | + R2. R2 R2.*2 R2 | R2. \clef treble | re''2.~\p\<| re2.~\mf\>| re4\! r \clef "G_8" | %%% Entrée de la Soprano Deux %%% R2.*2 R1 R2. do,,1\mp fa,2.~-- fa4 r | mi2.~\p mi2 r | @@ -699,7 +699,7 @@ ActeDeuxSceneUnClarinetteDeux = { \ClarinetteBasse r4 \clef treble fad''8\mf( sold si sold fad re) dod\>( re fad sold si fad | %%% Entrée de la Contralto %%% - sold2.~\p) sold2. r4 \clef bass | R2. R1 R2. R1 R2. R1 + sold2.~\p) sold2. r4 \clef "G_8" | R2. R1 R2. R1 R2. R1 \ten do,,2.~\p do2. r4 | R2. r4 do2-- r4 reb2.~-- reb2. r4 | r4 do-- r R1 | fad,8-.\mp r r2 | R1 R2. R1 R2. \ten sol2.~--\mp sol2 r4 | R2.*4 r4 mi'2--\mf \ten mib2.~-- mib~ mib4 r r2 | R2. @@ -803,14 +803,14 @@ ActeDeuxSceneUnBisClarinetteDeux = { \ClarinetteBasse ActeDeuxSceneDeuxClarinetteDeux = { \ClarinetteBasse \relative { \clef treble lab'2\mp( fa4) r r2 | lab2( fa4) r r2 R1. | lab4-- r fa-- r r2 | - R1.*2 fa4\p( reb) r2 R1 R2. \clef bass + R1.*2 fa4\p( reb) r2 R1 R2. \clef "G_8" sol,4--\mf \stdet {sol8 sol r4 | mib'8 mib r4 r8 mib} | r16 \st {la, la la r8 mib'--} r4 | r r16 \clef treble fa8--( lab16) mi4-- | re1-- r2 | R1. - fa4( reb) r1 \clef bass | reb4( fa,) r2 | R1 R2. + fa4( reb) r1 \clef "G_8" | reb4( fa,) r2 | R1 R2. sol4--\mf \stdet {sol8 sol} r red'( mi4) | do-- r8 | si,2--\p r4 \clef treble \ind #"en dehors" sold''8--\mf \det {sold la4 r r sold8 sold | - la4 r r si8 si mib4} r r2 \clef bass | \ten solb,,1~\mp solb2. r4 | + la4 r r si8 si mib4} r r2 \clef "G_8" | \ten solb,,1~\mp solb2. r4 | R2. R1. la2.--\p r4 | do,2.-- r4 | fa,2.~\pp fa~ fa2 r4 | R2 @@ -830,15 +830,15 @@ ActeDeuxSceneDeuxClarinetteDeux = { \ClarinetteBasse r2 r8 \t {sol16( fa mi} | la8-.) r r4 r2 | R1*2 \st {la8 la sold} r4 | sold4-- r8 \st {la la} | - sold4-- \clef bass \st {la,,8 la sold | + sold4-- \clef "G_8" \st {la,,8 la sold | sold'' la,,-> la sold r | mib mib re} r4 | mib'4---> r r8 | R2*5/4 \clef treble - \st {la'8 la sold} r4 | r \clef bass la,,8 la sold | + \st {la'8 la sold} r4 | r \clef "G_8" la,,8 la sold | mib'4 r r8 | R2*5/4*4 R1*2 si4->\sffz r r2 | R1*6 re4-.->\sfz r2 | re,4---.\p r | r2 r4 \clef treble solb''16\mp( mi8) solb16( | - fa1) R2.*2 \clef bass \ten la,2.~\p la2 r4 | R2.*3 + fa1) R2.*2 \clef "G_8" \ten la,2.~\p la2 r4 | R2.*3 \stdet {la,8\p r mib r lab r re, r | reb r sol r do r | fa, r si r mi, r | diff --git a/instruments/saxophone2.ly b/instruments/saxophone2.ly index 3d0f0e1..1df6c66 100755 --- a/instruments/saxophone2.ly +++ b/instruments/saxophone2.ly @@ -15,7 +15,7 @@ SaxAltoDeux = { SaxophoneBaryton = { #(make-instrument-name 'saxophone-baritone "baritone sax" 25) - \clef bass + \clef "G_8" \revert Staff.InstrumentName #'stencil } diff --git a/master/instruments.ly b/master/instruments.ly index 5a25082..b56d087 100644 --- a/master/instruments.ly +++ b/master/instruments.ly @@ -26,7 +26,7 @@ \include "./instruments/violoncelle2.ly" \include "./instruments/contrebasse.ly" \include "./instruments/piano.ly" -% +%{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%% Flutes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -50,56 +50,60 @@ ActeDeuxSceneTrois = \makeSection \ActeDeuxSceneTroisFluteUn \ActeDeuxSceneTrois \bookpart { \include "./master/master.ly" -} %{ +} + +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%% Clarinettes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -Prologue = \makeSection \PrologueClarinetteUn \PrologueClarinetteDeux \PrologueMesures +Prologue = \makeSection { \smart \transpose la do' \PrologueClarinetteUn } { \smart \transpose sib do' \PrologueClarinetteDeux } \PrologueMesures %Ouverture = \makeSection \%OuvertureClarinetteUn \%OuvertureClarinetteDeux \%OuvertureMesures -ActeUnSceneUn = \makeSection \ActeUnSceneUnClarinetteUn \ActeUnSceneUnClarinetteDeux \ActeUnSceneUnMesures -ActeUnSceneUnBis = \makeSection \ActeUnSceneUnBisClarinetteUn \ActeUnSceneUnBisClarinetteDeux \ActeUnSceneUnBisMesures -InterludeUn = \makeSection \InterludeUnClarinetteUn \InterludeUnClarinetteDeux \InterludeUnMesures -ActeUnSceneDeux = \makeSection \ActeUnSceneDeuxClarinetteUn \ActeUnSceneDeuxClarinetteDeux \ActeUnSceneDeuxMesures -InterludeDeux = \makeSection \InterludeDeuxClarinetteUn \InterludeDeuxClarinetteDeux \InterludeDeuxMesures -ActeUnSceneTrois = \makeSection \ActeUnSceneTroisClarinetteUn \ActeUnSceneTroisClarinetteDeux \ActeUnSceneTroisMesures -ActeUnSceneTroisBis = \makeSection \ActeUnSceneTroisBisClarinetteUn \ActeUnSceneTroisBisClarinetteDeux \ActeUnSceneTroisBisMesures -ActeUnSceneTroisTer = \makeSection \ActeUnSceneTroisTerClarinetteUn \ActeUnSceneTroisTerClarinetteDeux \ActeUnSceneTroisTerMesures -InterludeTrois = \makeSection \InterludeTroisClarinetteUn \InterludeTroisClarinetteDeux \InterludeTroisMesures -ActeUnSceneQuatre = \makeSection \ActeUnSceneQuatreClarinetteUn \ActeUnSceneQuatreClarinetteDeux \ActeUnSceneQuatreMesures -Entracte = \makeSection \EntracteClarinetteUn \EntracteClarinetteDeux \EntracteMesures -ActeDeuxSceneUn = \makeSection \ActeDeuxSceneUnClarinetteUn \ActeDeuxSceneUnClarinetteDeux \ActeDeuxSceneUnMesures -ActeDeuxSceneUnBis = \makeSection \ActeDeuxSceneUnBisClarinetteUn \ActeDeuxSceneUnBisClarinetteDeux \ActeDeuxSceneUnBisMesures -ActeDeuxSceneDeux = \makeSection \ActeDeuxSceneDeuxClarinetteUn \ActeDeuxSceneDeuxClarinetteDeux \ActeDeuxSceneDeuxMesures -ActeDeuxSceneTrois = \makeSection \ActeDeuxSceneTroisClarinetteUn \ActeDeuxSceneTroisClarinetteDeux \ActeDeuxSceneTroisMesures +ActeUnSceneUn = \makeSection { \smart \transpose la do' \ActeUnSceneUnClarinetteUn } { \smart \transpose sib do' \ActeUnSceneUnClarinetteDeux } \ActeUnSceneUnMesures +ActeUnSceneUnBis = \makeSection { \smart \transpose la do' \ActeUnSceneUnBisClarinetteUn } { \smart \transpose sib do' \ActeUnSceneUnBisClarinetteDeux } \ActeUnSceneUnBisMesures +InterludeUn = \makeSection { \smart \transpose la do' \InterludeUnClarinetteUn } { \smart \transpose sib do' \InterludeUnClarinetteDeux } \InterludeUnMesures +ActeUnSceneDeux = \makeSection { \smart \transpose la do' \ActeUnSceneDeuxClarinetteUn } { \smart \transpose sib do' \ActeUnSceneDeuxClarinetteDeux } \ActeUnSceneDeuxMesures +InterludeDeux = \makeSection { \smart \transpose la do' \InterludeDeuxClarinetteUn } { \smart \transpose sib do' \InterludeDeuxClarinetteDeux } \InterludeDeuxMesures +ActeUnSceneTrois = \makeSection { \smart \transpose la do' \ActeUnSceneTroisClarinetteUn } { \smart \transpose sib do' \ActeUnSceneTroisClarinetteDeux } \ActeUnSceneTroisMesures +ActeUnSceneTroisBis = \makeSection { \smart \transpose la do' \ActeUnSceneTroisBisClarinetteUn } { \smart \transpose sib do' \ActeUnSceneTroisBisClarinetteDeux } \ActeUnSceneTroisBisMesures +ActeUnSceneTroisTer = \makeSection { \smart \transpose la do' \ActeUnSceneTroisTerClarinetteUn } { \smart \transpose sib do' \ActeUnSceneTroisTerClarinetteDeux } \ActeUnSceneTroisTerMesures +InterludeTrois = \makeSection { \smart \transpose la do' \InterludeTroisClarinetteUn } { \smart \transpose sib do' \InterludeTroisClarinetteDeux } \InterludeTroisMesures +ActeUnSceneQuatre = \makeSection { \smart \transpose la do' \ActeUnSceneQuatreClarinetteUn } { \smart \transpose sib do' \ActeUnSceneQuatreClarinetteDeux } \ActeUnSceneQuatreMesures +Entracte = \makeSection { \smart \transpose la do' \EntracteClarinetteUn } { \smart \transpose sib do' \EntracteClarinetteDeux } \EntracteMesures +ActeDeuxSceneUn = \makeSection { \smart \transpose la do' \ActeDeuxSceneUnClarinetteUn } { \smart \transpose sib do' \ActeDeuxSceneUnClarinetteDeux } \ActeDeuxSceneUnMesures +ActeDeuxSceneUnBis = \makeSection { \smart \transpose la do' \ActeDeuxSceneUnBisClarinetteUn } { \smart \transpose sib do' \ActeDeuxSceneUnBisClarinetteDeux } \ActeDeuxSceneUnBisMesures +ActeDeuxSceneDeux = \makeSection { \smart \transpose la do' \ActeDeuxSceneDeuxClarinetteUn } { \smart \transpose sib do' \ActeDeuxSceneDeuxClarinetteDeux } \ActeDeuxSceneDeuxMesures +ActeDeuxSceneTrois = \makeSection { \smart \transpose la do' \ActeDeuxSceneTroisClarinetteUn } { \smart \transpose sib do' \ActeDeuxSceneTroisClarinetteDeux } \ActeDeuxSceneTroisMesures \bookpart { \include "./master/master.ly" } % -%{ +%} %%%%%%%%%%%%%%%%%%%%%%%%%%%%% Saxophones %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -Prologue = \makeSection \PrologueSaxophoneUn \PrologueSaxophoneDeux \PrologueMesures +Prologue = \makeSection { \smart \transpose mib do' \PrologueSaxophoneUn } { \smart \transpose mib do' \PrologueSaxophoneDeux } \PrologueMesures %Ouverture = \makeSection \%OuvertureSaxophoneUn \%OuvertureSaxophoneDeux \%OuvertureMesures -ActeUnSceneUn = \makeSection \ActeUnSceneUnSaxophoneUn \ActeUnSceneUnSaxophoneDeux \ActeUnSceneUnMesures -ActeUnSceneUnBis = \makeSection \ActeUnSceneUnBisSaxophoneUn \ActeUnSceneUnBisSaxophoneDeux \ActeUnSceneUnBisMesures -InterludeUn = \makeSection \InterludeUnSaxophoneUn \InterludeUnSaxophoneDeux \InterludeUnMesures -ActeUnSceneDeux = \makeSection \ActeUnSceneDeuxSaxophoneUn \ActeUnSceneDeuxSaxophoneDeux \ActeUnSceneDeuxMesures -InterludeDeux = \makeSection \InterludeDeuxSaxophoneUn \InterludeDeuxSaxophoneDeux \InterludeDeuxMesures -ActeUnSceneTrois = \makeSection \ActeUnSceneTroisSaxophoneUn \ActeUnSceneTroisSaxophoneDeux \ActeUnSceneTroisMesures -ActeUnSceneTroisBis = \makeSection \ActeUnSceneTroisBisSaxophoneUn \ActeUnSceneTroisBisSaxophoneDeux \ActeUnSceneTroisBisMesures -ActeUnSceneTroisTer = \makeSection \ActeUnSceneTroisTerSaxophoneUn \ActeUnSceneTroisTerSaxophoneDeux \ActeUnSceneTroisTerMesures -InterludeTrois = \makeSection \InterludeTroisSaxophoneUn \InterludeTroisSaxophoneDeux \InterludeTroisMesures -ActeUnSceneQuatre = \makeSection \ActeUnSceneQuatreSaxophoneUn \ActeUnSceneQuatreSaxophoneDeux \ActeUnSceneQuatreMesures -Entracte = \makeSection \EntracteSaxophoneUn \EntracteSaxophoneDeux \EntracteMesures -ActeDeuxSceneUn = \makeSection \ActeDeuxSceneUnSaxophoneUn \ActeDeuxSceneUnSaxophoneDeux \ActeDeuxSceneUnMesures -ActeDeuxSceneUnBis = \makeSection \ActeDeuxSceneUnBisSaxophoneUn \ActeDeuxSceneUnBisSaxophoneDeux \ActeDeuxSceneUnBisMesures -ActeDeuxSceneDeux = \makeSection \ActeDeuxSceneDeuxSaxophoneUn \ActeDeuxSceneDeuxSaxophoneDeux \ActeDeuxSceneDeuxMesures -ActeDeuxSceneTrois = \makeSection \ActeDeuxSceneTroisSaxophoneUn \ActeDeuxSceneTroisSaxophoneDeux \ActeDeuxSceneTroisMesures +ActeUnSceneUn = \makeSection { \smart \transpose mib do' \ActeUnSceneUnSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneUnSaxophoneDeux } \ActeUnSceneUnMesures +ActeUnSceneUnBis = \makeSection { \smart \transpose mib do' \ActeUnSceneUnBisSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneUnBisSaxophoneDeux } \ActeUnSceneUnBisMesures +InterludeUn = \makeSection { \smart \transpose mib do' \InterludeUnSaxophoneUn } { \smart \transpose mib do' \InterludeUnSaxophoneDeux } \InterludeUnMesures +ActeUnSceneDeux = \makeSection { \smart \transpose mib do' \ActeUnSceneDeuxSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneDeuxSaxophoneDeux } \ActeUnSceneDeuxMesures +InterludeDeux = \makeSection { \smart \transpose mib do' \InterludeDeuxSaxophoneUn } { \smart \transpose mib do' \InterludeDeuxSaxophoneDeux } \InterludeDeuxMesures +ActeUnSceneTrois = \makeSection { \smart \transpose mib do' \ActeUnSceneTroisSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneTroisSaxophoneDeux } \ActeUnSceneTroisMesures +ActeUnSceneTroisBis = \makeSection { \smart \transpose mib do' \ActeUnSceneTroisBisSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneTroisBisSaxophoneDeux } \ActeUnSceneTroisBisMesures +ActeUnSceneTroisTer = \makeSection { \smart \transpose mib do' \ActeUnSceneTroisTerSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneTroisTerSaxophoneDeux } \ActeUnSceneTroisTerMesures +InterludeTrois = \makeSection { \smart \transpose mib do' \InterludeTroisSaxophoneUn } { \smart \transpose mib do' \InterludeTroisSaxophoneDeux } \InterludeTroisMesures +ActeUnSceneQuatre = \makeSection { \smart \transpose mib do' \ActeUnSceneQuatreSaxophoneUn } { \smart \transpose mib do' \ActeUnSceneQuatreSaxophoneDeux } \ActeUnSceneQuatreMesures +Entracte = \makeSection { \smart \transpose mib do' \EntracteSaxophoneUn } { \smart \transpose mib do' \EntracteSaxophoneDeux } \EntracteMesures +ActeDeuxSceneUn = \makeSection { \smart \transpose mib do' \ActeDeuxSceneUnSaxophoneUn } { \smart \transpose mib do' \ActeDeuxSceneUnSaxophoneDeux } \ActeDeuxSceneUnMesures +ActeDeuxSceneUnBis = \makeSection { \smart \transpose mib do' \ActeDeuxSceneUnBisSaxophoneUn } { \smart \transpose mib do' \ActeDeuxSceneUnBisSaxophoneDeux } \ActeDeuxSceneUnBisMesures +ActeDeuxSceneDeux = \makeSection { \smart \transpose mib do' \ActeDeuxSceneDeuxSaxophoneUn } { \smart \transpose mib do' \ActeDeuxSceneDeuxSaxophoneDeux } \ActeDeuxSceneDeuxMesures +ActeDeuxSceneTrois = \makeSection { \smart \transpose mib do' \ActeDeuxSceneTroisSaxophoneUn } { \smart \transpose mib do' \ActeDeuxSceneTroisSaxophoneDeux } \ActeDeuxSceneTroisMesures \bookpart { \include "./master/master.ly" -} % +} + +%{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%% Violons %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% diff --git a/master/master.ly b/master/master.ly index 3191c15..91ef8bf 100644 --- a/master/master.ly +++ b/master/master.ly @@ -10,7 +10,7 @@ %%% Depends on: either vocal_score.ly or full_score.ly, %%% plus everything else. -%{ +% \score { \Prologue \header { @@ -22,7 +22,7 @@ \header { piece = \OuvertureTitre } -} % +} %} \score { \ActeUnSceneUn \header { @@ -35,14 +35,14 @@ \header { piece = \Separateur } -} %} +} % \score { \InterludeUn \header { piece = \InterludeTitre dessin = \Arrosoir } -} %{ +} % \score { \ActeUnSceneDeux \header { diff --git a/parts.ly b/parts.ly index 4ec0cfe..865142a 100644 --- a/parts.ly +++ b/parts.ly @@ -52,7 +52,7 @@ PercuDeuxMains= \include "./master/common.ly" \header { - scoretype = "Flûtes" + scoretype = "Saxophones" } \paper { #(define page-breaking ly:page-turn-breaking) }