From 31b7fb2ba45c493661fc0e0ce9fec525fedd116f Mon Sep 17 00:00:00 2001 From: Valentin Villenave Date: Sun, 20 Nov 2011 23:50:22 +0100 Subject: [PATCH] A few nits. There's probably a lot more hiccups here and there, but I'm tagging this as -rc1 anyway. Gotta move on. --- scores/etoilesanscouleur/flute.ly | 2 +- scores/etoilesanscouleur/guitare.ly | 4 +-- scores/etoilesanscouleur/marimba.ly | 4 +-- scores/etoilesanscouleur/mesures.ly | 25 ++++++-------- scores/etoilesanscouleur/piano.ly | 11 ++++--- scores/etoilesanscouleur/recitant.ly | 2 +- scores/etoilesanscouleur/texte.ly | 64 +++++++++++++++++++++++++++++++----- 7 files changed, 78 insertions(+), 34 deletions(-) diff --git a/scores/etoilesanscouleur/flute.ly b/scores/etoilesanscouleur/flute.ly index 8c9ba6f..430f0c6 100644 --- a/scores/etoilesanscouleur/flute.ly +++ b/scores/etoilesanscouleur/flute.ly @@ -37,7 +37,7 @@ Flute = \relative do' { R2.*10 r4 si2\pp~ si2 r4 | \grace si4( mi2.)~^"(non vib.)" mi8 redsd( mi2) | - re!4(\glissando -"gliss." mi2)~ | mi\> r4 | + re!4(\glissando -"gliss." mi2)~ | mi\> r4\! | si(--\pp \t {re16^"détimbré"\> mi re} \tt {mi32 re mi re mi} \pitchedTrill re8)\!\startTrillSpan mibsb r8\stopTrillSpan | \tt {sol16(\< re) mi sol( fad)} \acciaccatura sol diff --git a/scores/etoilesanscouleur/guitare.ly b/scores/etoilesanscouleur/guitare.ly index a1eb4fe..53b8d47 100644 --- a/scores/etoilesanscouleur/guitare.ly +++ b/scores/etoilesanscouleur/guitare.ly @@ -308,8 +308,8 @@ Guitare = \relative do' { r4 2\arpeggio | r4 2\pp_"(non arp.)" | r4 2\p\arpeggio | - r4 2 | - r4 2~ | + r4 2\arpeggio\> | + r4 2\arpeggio \! ~ | %%% 9 %%% 4 r2 | diff --git a/scores/etoilesanscouleur/marimba.ly b/scores/etoilesanscouleur/marimba.ly index c945716..6ae6d74 100644 --- a/scores/etoilesanscouleur/marimba.ly +++ b/scores/etoilesanscouleur/marimba.ly @@ -289,8 +289,8 @@ MarimbaMg = \relative do { \md \t { \mg la, mi'} \md \t { \mg la mi'} | \md \t { \mg \md } \mg \t { \md \mg } - \md 16\> \mg \md \mg - \md 4\! \mg r2 \tupletNeutral | + \stemUp \md 16\> \mg \md \mg + \md 4\! \mg r2 \tupletNeutral \stemNeutral | %%% 6 %%% R1. diff --git a/scores/etoilesanscouleur/mesures.ly b/scores/etoilesanscouleur/mesures.ly index 237ed19..5db1f72 100644 --- a/scores/etoilesanscouleur/mesures.ly +++ b/scores/etoilesanscouleur/mesures.ly @@ -40,24 +40,19 @@ Mesures = { %%% Default LilyPond beaming is pretty dumb and ugly. %%% (Or perhaps I may have a peculiar taste.) +%%% OTOH, I'm not sure I'll want these settings for +%%% other scores yet to come. Thus, I'm just overwriting +%%% the modern-time-signature-settings locally here, +%%% without merging these changes into the master branch. -#(define my-time-signature-settings - (append modern-time-signature-settings +#(define-public modern-time-signature-settings + (append '( ((3 . 2) . - ((baseMoment . (1 . 4)) - (beamExceptions . ((end . (((1 . 16) . (4 4 4 4 4 4)))))))) + ((beamExceptions . ((end . (((1 . 12) . (3 3 3 3 3 3)))))))) ((3 . 4) . - ((baseMoment . (1 . 8)) - (beamExceptions . ((end . (((1 . 8) . (2 4 6)))))))) - ))) - -\layout { - \context { - \Score - timeSignatureSettings = #my-time-signature-settings - subdivideBeams = ##t - } -} + ((beamExceptions . ((end . (((1 . 8) . (2 2 2)))))))) + ) + modern-time-signature-settings)) %------------------------------------------------------------------% diff --git a/scores/etoilesanscouleur/piano.ly b/scores/etoilesanscouleur/piano.ly index 8152fde..bd9f79e 100644 --- a/scores/etoilesanscouleur/piano.ly +++ b/scores/etoilesanscouleur/piano.ly @@ -261,7 +261,7 @@ PianoMd = \relative do' { r4 \quasiHarp red2_"cordes pincées" | R2. r4 \quasiHarp {dod,2 sib'2.\laissezVibrer } R2.*2 r4 \pl {s2 2.} - {\oneVoice \tieUp 2~ \voiceOne + {\oneVoice \tieUp 2\pp ~ \voiceOne \tieNeutral \oneVoice si'4} | %%% 9 %%% @@ -365,7 +365,7 @@ PianoMg = \relative do { mi8 fa4-- mi \md \stemUp 32(-> sol \mg fa) | \stemNeutral mi8 fa4.-- fa4~-- fa8 fa-.-- r2 | - fa8-.-- r r4 r8 \md \stemUp + fa8-.-- r r4 r8 \md \stemDown \ttt {sol''32 reb sib lab \mg reb, sib} | \stemNeutral %%% 4 %%% @@ -522,7 +522,7 @@ PianoMg = \relative do { mi8 do' \stemDown \md \t {si' sol sold} red'4 | \stemNeutral \mg red,,8 dod' \stemDown \md \t {sol'4 si, la'} fa'2. | \stemNeutral \mg 2.*1/3-\dyn "pp_al fine"\laissezVibrer \clef treble - la''''16 mi dod sold' la mi dod sold' | + la''''16( mi dod sold') la( mi dod sold') | la( mi dod sold') la( mi dod sold') la( mi dod sold') | \lettersOn \letter "y" la( \letter "e" mi,\laissezVibrer @@ -554,7 +554,10 @@ PianoMg = \relative do { \lettersOff fa( do sol' mi,) \t {red'8( \stemUp la, \stemDown dod')} | - r4 r8 \ottava #-1 la,,4._\ppp\laissezVibrer \ottava #0 s2.*3 + \stemNeutral + r4 r8 \ottava #-1 + la,,4._\ppp\laissezVibrer + \ottava #0 s2.*3 R2.*2-\fermataMarkup } diff --git a/scores/etoilesanscouleur/recitant.ly b/scores/etoilesanscouleur/recitant.ly index 1cbb180..d95f686 100644 --- a/scores/etoilesanscouleur/recitant.ly +++ b/scores/etoilesanscouleur/recitant.ly @@ -137,7 +137,7 @@ Recitant = \relative do' { r2 do8(\mf do4. r8 do do do | do2) r1 | \t {r4 do( do} \t {do do do} do2) | - %% If left untampered with, this verse wouldn't + %% If left untampered with, this verse %% wouldn't fit in the overall syllable scheme. %% Can't say I get why. r4 do-. r8 do4-- \parenthesize do8 do do do4 | diff --git a/scores/etoilesanscouleur/texte.ly b/scores/etoilesanscouleur/texte.ly index debac4e..15a3f85 100644 --- a/scores/etoilesanscouleur/texte.ly +++ b/scores/etoilesanscouleur/texte.ly @@ -31,9 +31,14 @@ \header { title = "Étoile sans couleur" - subtitle = "pour récitant et quatre instruments, sur un texte de Jacques Roubaud" + subtitle = \markup \center-column { + "pour récitant et quatre instruments," + "sur un texte de Jacques Roubaud" + \vspace #2 + } composer = "Valentin Villenave" date = "automne 2011" + piece = "Étoile sans couleur" } \paper { @@ -41,19 +46,49 @@ % min-systems-per-page = #4 } +taintedText = +\markup \justify { + Avant de reproduire cette partition, vous êtes toutefois invité à + vous assurer de ne pas contrevenir au droit moral de l’auteur du + texte qu’elle contient. Si ce point vous semble incertain, il vous + est possible de recompiler la partition avec l’option + \concat { \typewriter untainted , } ce qui aura pour effet de remplacer + toutes les syllabes du texte d’origine par d’autres syllabes aléatoires + (par défaut \concat { «  \bold pa  » ,} \concat { «  \bold ta  » } + et \concat { «  \bold touille  »). } La partition ainsi produite pourra + être diffusée librement, sans autres restrictions que celles indiquées + par sa licence. +} + +untaintedText = +\markup \justify { + Cet exemplaire a été compilé avec l’option \concat { \typewriter untainted  : } + toutes les syllabes du texte d’origine ont été remplacées par des + syllabes aléatoires. De ce fait, la présente partition peut être diffusée + librement, sans autres restrictions que celles indiquées par sa licence. +} + +#(define-markup-command (choose-text layout props) () + (let ((text (if (ly:get-option 'untainted) + untaintedText + taintedText))) + (interpret-markup layout props text))) + \pageBreak \markup \fill-page { - "" + " " \fill-line { "" - \line \italic { + \italic \line { Pièce rédigée pour le concours Pierre-Jean Jouve, « Printemps des poètes » 2011. } } + " " + " " \fill-line { \override #'(line-width . 100) \left-column { - \fill-line {\epsfile #X #30 #"scores/etoilesanscouleur/oumupo.eps"} + \fill-line {\epsfile #X #30 #"scores/etoilesanscouleur/oumupo.eps" } \wordwrap { \hspace #4 Cette pièce s’inscrit dans le cadre d’un projet de refondation de l’Ouvroir de Musique Potentielle @@ -76,8 +111,10 @@ } \vspace #.5 \wordwrap { - \hspace #4 Cette pièce contient également une courte citation extraite de la première version du - \italic \line {Berliner Requiem} de Kurt Weill et Bertolt Brecht (commande de Radio Frankfurt, 1929). + \hspace #4 Cette pièce contient également une courte + citation extraite de la première version du + \italic \line {Berliner Requiem} de Kurt Weill + et Bertolt Brecht (commande de Radio Frankfurt, 1929). } } } @@ -102,11 +139,14 @@ \bold { Art Libre } \concat { ( \with-url #"http://artlibre.org" \typewriter http://artlibre.org ).} Vous pouvez la copier, la modifier et la jouer \italic librement - sans contrevenir au droit d'auteur, à condition de respecter les + sans contrevenir au droit d’auteur, à condition de respecter les termes de la licence (notamment en veillant à mentionner le nom - de l'auteur et l'adresse web d'origine). + de l’auteur et l’adresse web d’origine). } \vspace #.5 + \override #'(line-width . 100) + \choose-text + \vspace #.5 \line { Gravure réalisée au moyen du logiciel libre \with-url #"http://www.LilyPond.org" @@ -115,6 +155,7 @@ } } } + " " } \pageBreak @@ -261,6 +302,11 @@ oeil = } } +%%% Of course, if we're running in 'untainted mode, +%%% then this whole thingamajig becomes moot. +#(if (ly:get-option 'untainted) + (ly:set-option 'show-letters #f)) + %%% Just for consistency (and fun!), let's hide %%% the \easyHeads command behind a suitably-named wrapper... lettersOn = @@ -272,7 +318,7 @@ lettersOn = \override NoteHead #'font-family = #'sans \override NoteHead #'font-series = #'bold %% ugly. But safer. #} -(void-music)) +(make-music 'Music 'void #t)) lettersOff = { \easyHeadsOff } -- 2.11.4.GIT