Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

H.531 : premier noël "O createur"

  • Loading branch information...
commit 322eb7556c865b2dee5ea77542ab269094bca586 1 parent 5fea0b5
Nicolas Sceaux authored
73 Charpentier/MusiqueSacree/H531_Noels/Ocreateur/basse.ily
View
@@ -0,0 +1,73 @@
+<<
+ \setMusic #'A {
+ \clef "basse" \whiteNoteHeadsOn do'2 la sol |
+ do'1 si2 |
+ do' la2. si8*2 |
+ do'2 do sol |
+ mi fa2. re8*2 |
+ mi2 re8*2 do si,2 |
+ do do2. do8*2 |
+ sol1. |
+ }
+ \setMusic #'B {
+ sol2 sol2. sol8*2 |
+ do'2. sib8*2 la sol |
+ fa2 do1 |
+ fa1. |
+ fa2 sol2. sol8*2 |
+ la1 la2 |
+ sib la1 |
+ sol2. sol8*2 la2 |
+ fa sol sol, |
+ do1. |
+ }
+ \setMusic #'C {
+ sol2_\markup "acc seul" sol2. sol8*2 |
+ do'2. sib8*2 la sol |
+ fa2 do1 |
+ fa1. |
+ fa2 sol2. sol8*2 |
+ la1 la2 |
+ sib la1 |
+ sol2. sol8*2 la2 |
+ fa sol sol, |
+ << do1.
+ \origVersion { s1 s4. \custosNote sol8_\markup\halign #0.6 \huge "reprise du chœur"
+ _\markup\halign #0.6 \huge\column {
+ \vspace #0.5
+ "passez apres la reprise"
+ "du chœur au 3e couplet"
+ }
+ }
+ >> |
+ }
+ \setMusic #'D {
+ do'2_\markup\orig-version\huge\column {
+ \vspace #2
+ "suivez icy a la reprise"
+ "du trio et finissez par la reprise du chœur"
+ } la sol |
+ do'1 si2 |
+ do' la2. si8*2 |
+ do'2 do sol |
+ mi fa2. re8*2 |
+ mi2 re8*2 do si,2 |
+ do do2. do8*2 |
+ << sol1.
+ \origVersion { s1 s4.
+ s8_\markup\huge\right-column {
+ "recommencez icy," "le Pr couplet du chœur"
+ }
+ }
+ >> |
+ }
+ \origVersion { \A \B \C \D }
+ \modVersion {
+ \A
+ \B
+ \A
+ \C \B
+ \D \A
+ \C \B
+ }
+>>
19 Charpentier/MusiqueSacree/H531_Noels/Ocreateur/chiffres.ily
View
@@ -0,0 +1,19 @@
+\simultaneous {
+ \setMusic #'A <_>1.*8
+ \setMusic #'B {
+ <_>1.*3 <_>1. <_>2 <6>1 <_>1 <5>4 <6+> <6>2 <7> <6> <_!>1. <6 5>2 <3>1 <_>1.
+ }
+ \setMusic #'C {
+ <_>1.*3 <_>1. <_>2 <6 _->1 <_> <5>4 <6+> <6>2 <7> <6> <_!>1. <6 5>2 <3>1 <_>1.
+ }
+ \setMusic #'D <_>1.*8
+ \origVersion { \A \B \C \D }
+ \modVersion {
+ \A
+ \B
+ \A
+ \C \B
+ \D \A
+ \C \B
+ }
+}
151 Charpentier/MusiqueSacree/H531_Noels/Ocreateur/dessus-haute-contre.ily
View
@@ -0,0 +1,151 @@
+<<
+ %% chœur (tous)
+ \setMusic #'Adessus {
+ \clef "dessus" \whiteNoteHeadsOn do''2^\markup\orig-version "tous" do'' sol'' |
+ sol''2. la''8*2 sol''2 |
+ mi''2 fa''2. sol''8*2 |
+ mi''1\prall re''2 |
+ mi'' do''2. re''8*2 |
+ si'2.\prall do''8*2 re''2 |
+ mi''2 mi''2.\prall re''8*2 |
+ re''1.
+ }
+ \setMusic #'Ahc {
+ \clef "haute-contre" \whiteNoteHeadsOn sol'2 la' si' |
+ do''1 re''2 |
+ do'' do''2. re''8*2 |
+ do''1 si'2 |
+ do'' la'2. si'8*2 |
+ sol'2. la'8*2 si'2 |
+ sol' do''2. re''8*2 |
+ si'1.
+ }
+ %% 1er couplet (tous)
+ \setMusic #'Bdessus {
+ re''2_\markup\orig-version "reprise" re''2. re''8*2 |
+ mi''2. re''8*2 do''2 |
+ fa''2 fa''2.\prall mi''8*2 |
+ fa''1. |
+ la''2 sol''2.\prall fa''8*2 |
+ mi''2.\prall re''8*2 mi'' fad'' |
+ sol''2 sol''2.\prall fad''8*2 |
+ sol''2. fa''8*2 mi''2 |
+ re''2 re''2.\prall do''8*2 |
+ do''1.
+ }
+ \setMusic #'Bhc {
+ si'2_\markup\orig-version "reprise" si'2. si'8*2 |
+ do''2. sol'8*2 la' sib' |
+ la'2 sol'2. la'8*2 |
+ la'2. do''8*2 re'' mi'' |
+ fa''2 mi''2.\prall re''8*2 |
+ do''1 do''2 |
+ re''2 do''2. re''8*2 |
+ si'2. si'8*2 do''2 |
+ la' sol'2. sol'8*2 |
+ sol'1. |
+ }
+ %% 2ème couplet (trio)
+ \setMusic #'CdessusI {
+ re''2^\markup\orig-version\whiteout "violon et flûte"
+ ^\markup\mod-version\whiteout "Violon et flûte"
+ _\markup\orig-version "reprise"
+ ^\markup\orig-version\huge { Pour la seconde fois apres le chœur }
+ re''2. re''8*2 |
+ mi''2. re''8*2 do''2 |
+ fa''2 fa''2.\prall mi''8*2 |
+ fa''1. |
+ la''2 sol''8*2 la'' fa'' sol'' |
+ mi''2. re''8*2 mi'' fad'' |
+ sol''2 sol''2.\prall fad''8*2 |
+ sol''2. fa''8*2 mi''2 |
+ re''2 re''2.\prall do''8*2 |
+ << do''1.
+ \origVersion { s1 s4. \custosNote re''8 }
+ >> |
+ }
+ \setMusic #'CdessusII {
+ si'2_\markup\orig-version\whiteout "violon et flûte"
+ ^\markup\mod-version\whiteout "Violon et flûte"
+ si'2. si'8*2 |
+ do''2. sol'8*2 la' sib' |
+ la'2 sol'2. la'8*2 |
+ la'1. |
+ fa''2 mi''8*2 fa'' re'' mi'' |
+ do''2. si'8*2 do'' la' |
+ re''2 do''2. re''8*2 |
+ si'2. si'8*2 do''2 |
+ re'' si'2. do''8*2 |
+ << do''1.
+ \origVersion { s1 s4. \custosNote re''8 }
+ >> |
+ }
+ \setMusic #'Chc { R1.*10 }
+ %% 3ème couplet
+ \setMusic #'DdessusI {
+ do''2_\markup\orig-version\whiteout "violon et flûte"
+ ^\markup\mod-version\whiteout "Violon et flûte"
+ ^\markup\orig-version\huge { \concat { 3 \super e } fois } do'' sol'' |
+ sol''2. la''8*2 sol''2 |
+ mi'' fa''2. sol''8*2 |
+ mi''1\prall re''2 |
+ mi'' do''2. re''8*2 |
+ si'2. do''8*2 re''2 |
+ mi''2 mi''2.\prall re''8*2 |
+ re''1. |
+ }
+ \setMusic #'DdessusII {
+ mi''2_\markup\orig-version\whiteout "violon et flûte"
+ ^\markup\mod-version\whiteout "Violon et flûte" do'' si' |
+ mi''2. mi''8*2 re''2 |
+ sol' do''2. re''8*2 |
+ do''1 si'2 |
+ do'' la'2. si'8*2 |
+ sol'1 sol'2 |
+ sol' do''2. re''8*2 |
+ si'1. |
+ }
+ \setMusic #'Dhc { R1.*8 }
+
+ %%
+ \origVersion <<
+ \tag #'dessus1 { \Adessus \Bdessus \CdessusI \DdessusI }
+ \tag #'dessus2 { \Adessus \Bdessus \CdessusII \DdessusII }
+ \tag #'haute-contre { \Ahc \Bhc \Chc \Dhc }
+ \tag #'haute-contre-dessus2 { \Ahc \Bhc \fullClef\clef "dessus" \CdessusII \DdessusII }
+ >>
+ \modVersion <<
+ \tag #'dessus1 {
+ \Adessus
+ \Bdessus
+ \Adessus
+ \CdessusI \Bdessus
+ \DdessusI \Adessus
+ \CdessusI \Bdessus
+ }
+ \tag #'dessus2 {
+ \Adessus
+ \Bdessus
+ \Adessus
+ \CdessusII \Bdessus
+ \DdessusII \Adessus
+ \CdessusII \Bdessus
+ }
+ \tag #'haute-contre {
+ \Ahc
+ \Bhc
+ \Ahc
+ \Chc \Bhc
+ \Dhc \Ahc
+ \Chc \Bhc
+ }
+ \tag #'haute-contre-dessus2 {
+ \Ahc
+ \Bhc
+ \Ahc
+ \CdessusII \Bhc
+ \DdessusII \Ahc
+ \CdessusII \Bhc
+ }
+ >>
+>>
34 Charpentier/MusiqueSacree/H531_Noels/Ocreateur/global.ily
View
@@ -0,0 +1,34 @@
+\keys do \major
+\time 3/2 \midiTempo #200
+<<
+ \modVersion {
+ s1.*8 \bar ":|"
+ s1.*10 \bar ":|"
+ s1.*8 \bar ":|"
+ s1.*10 s1.*10 \bar "||"
+ s1.*8 s1.*8 \bar "||"
+ s1.*10 s1.*10 \bar "|."
+ }
+ \origVersion {
+ \override Staff.TimeSignature #'stencil =
+ #(lambda (grob)
+ (grob-interpret-markup grob
+ (markup #:override '(baseline-skip . 0)
+ (#:line (#:musicglyph "timesig.C22"
+ #:number (#:column ("3" "2")))))))
+ \override Score.NonMusicalPaperColumn #'line-break-permission = ##f
+ \override Score.NonMusicalPaperColumn #'page-break-permission = ##f
+ s1.*8 \bar ":|:" s1.*3\break
+ s1.*7 \bar "|."
+ \once \override Score.BreakAlignment #'break-align-orders =
+ #(make-vector 3 '(span-bar
+ staff-bar
+ breathing-sign
+ clef
+ key
+ time-signature))
+ \time 3/2 s1.*3 \break
+ s1.*7\pageBreak
+ s1.*8 \bar ":|"
+ }
+>>
65 Charpentier/MusiqueSacree/H531_Noels/Ocreateur/score.ily
View
@@ -0,0 +1,65 @@
+\score {
+ <<
+ \origVersion \new StaffGroup <<
+ \new Staff = "A" \with { \haraKiri } <<
+ { \instrumentName \markup \center-column \fontsize #2 { "Noël" "O createur" }
+ s1.*18 \stopStaff
+ \override Staff.TimeSignature #'break-visibility = ##(#f #f #f)
+ }
+ \new Voice << { s1.*18 \change Staff = "B" } \global >>
+ \new Voice <<
+ { s1.*18 \change Staff = "B" \fullClef\clef "dessus" }
+ \keepWithTag #'dessus1 \includeNotes "dessus-haute-contre"
+ >>
+ >>
+ \new Staff = "null" \with { \haraKiriFirst } { \global }
+ \new Staff = "B" <<
+ \global
+ \new Voice <<
+ { s1.*18 \change Staff = "C" }
+ \keepWithTag #'haute-contre-dessus2 \includeNotes "dessus-haute-contre"
+ >>
+ >>
+ \new Staff = "C" <<
+ \global
+ \new Voice <<
+ { s1.*18 \change Staff = "null" }
+ \includeNotes "taille"
+ >>
+ >>
+ \new Staff = "D" <<
+ { s1.*18 \forceFullClef\clef "basse" }
+ \global \includeNotes "basse"
+ \includeFigures "chiffres"
+ >>
+ >>
+ \modVersion \new StaffGroup <<
+ \new Staff <<
+ { s1.*8\break
+ s1.*10\break
+ s1.*8\break
+ s1.*20\break
+ s1.*16\break
+ }
+ \global \keepWithTag #'dessus1 \includeNotes "dessus-haute-contre"
+ >>
+ \new Staff <<
+ \global \keepWithTag #'haute-contre-dessus2 \includeNotes "dessus-haute-contre"
+ >>
+ \new Staff <<
+ \global \includeNotes "taille"
+ >>
+ \new Staff <<
+ \global \includeNotes "basse"
+ \new FiguredBass \includeFigures "chiffres"
+ >>
+ >>
+ >>
+ \layout {
+ ragged-last = #(eqv? (ly:get-option 'ancient-style) #t)
+ indent = #(if (eqv? (ly:get-option 'ancient-style) #t)
+ (* 2 cm)
+ smallindent)
+ }
+ \midi { }
+}
35 Charpentier/MusiqueSacree/H531_Noels/Ocreateur/taille.ily
View
@@ -0,0 +1,35 @@
+<<
+ \setMusic #'A {
+ \clef "taille" \whiteNoteHeadsOn mi'2 fad' sol' |
+ mi'2. fa'8*2 sol'2 |
+ sol' la'2. sol'8*2 |
+ sol'1 sol'2 |
+ sol' fa'2. fa'8*2 |
+ sol'1 sol'2 |
+ sol'2 sol'2. sol'8*2 |
+ sol'1.
+ }
+ \setMusic #'B {
+ sol'2_\markup\orig-version "reprise" sol'2. sol'8*2 |
+ sol'2. sol'8*2 fa' mi' |
+ fa' do' do'2. do'8*2 |
+ do'1. |
+ do''2 sib'2. sib'8*2 |
+ la'1 la'2 |
+ sol' la'1 |
+ re'2 mi'8*2 re' do'2 |
+ re' si do'8*2 re' |
+ mi'1. |
+ }
+ \setMusic #'C { R1.*10 }
+ \setMusic #'D { R1.*8 }
+ \origVersion { \A \B \C \D }
+ \modVersion {
+ \A
+ \B
+ \A
+ \C \B
+ \D \A
+ \C \B
+ }
+>>
81 Charpentier/MusiqueSacree/H531_Noels/common.ily
View
@@ -0,0 +1,81 @@
+#(ly:set-option 'use-rehearsal-numbers #f)
+\header {
+ %title = "Noëls sur les instruments"
+ opus = "H.531"
+ composer = "Marc-Antoine Charpentier"
+ copyrightYear = "2011"
+}
+
+\include "Charpentier/MusiqueSacree/common.ily"
+\setOpus "Charpentier/MusiqueSacree/H531_Noels"
+
+\layout {
+ \context {
+ \Staff
+ \name Staff
+ %% Figured bass
+ ignoreFiguredBassRest = ##f
+ figuredBassAlterationDirection = #LEFT
+ \override BassFigureAlignment #'stacking-dir = #DOWN
+ \override BassFigureAlignmentPositioning #'direction = #UP
+ }
+}
+
+\header {
+ maintainer = \markup { Nicolas Sceaux, Sébastien Amadieu,
+ \with-url #"http://www.precipitations.com" \smallCaps Précipitations }
+ tagline = \markup {
+ \vspace #2
+ \column {
+ \override #'(box-padding . 1.0) \override #'(baseline-skip . 2.7)
+ \box \column {
+ \small \fill-line {
+ \line {
+ \copyright
+ }
+ }
+ \small \fill-line {
+ \line {
+ Sheet music from \with-url #"http://nicolas.sceaux.free.fr"
+ \typewriter \tiny http://nicolas.sceaux.free.fr
+ typeset using \with-url #"http://www.LilyPond.org"
+ \line { \teeny www. \hspace #-1.0 LilyPond \hspace #-1.0 \teeny .org }
+ #(ly:export (string-append "version " (lilypond-version)))
+ on \concat { \today . }
+ }
+ }
+ \small \fill-line {
+ \line {
+ \italic Free to download, with the \italic freedom
+ to distribute, modify and perform.
+ }
+ }
+ \teeny \fill-line {
+ \line {
+ Licensed under the Creative Commons Attributio 3.0 License,
+ for details see: \hspace #-0.5
+ \with-url #"http://creativecommons.org/licenses/by/3.0"
+ http://creativecommons.org/licenses/by/3.0
+ }
+ }
+ }
+ }
+ }
+}
+
+\opusPartSpecs
+#`((dessus1 ,(markup #:concat ("1" #:super "er") "dessus") ()
+ (#:notes "dessus" #:tag-notes dessus1 #:clef "treble"))
+ ;(dessus2 ,(markup #:concat ("2" #:super "e") "dessus") ()
+ ; (#:notes "dessus" #:tag-notes dessus2 #:clef "treble"))
+ ;(haute-contre "Haute-contre" ()
+ ; (#:notes "haute-contre" #:tag-notes haute-contre
+ ; #:clef "treble"))
+ (dessus2 ,(markup #:concat ("2" #:super "e") "dessus") ()
+ (#:notes "dessus"
+ #:tag-notes haute-contre-dessus2
+ #:clef "treble"))
+ (taille "Taille" ()
+ (#:notes "taille" #:clef "alto"))
+ (basse "Basses" ()
+ (#:notes "basse" #:clef "basse" #:score-template "score-basse-continue2")))
7 Charpentier/MusiqueSacree/H531_Noels/main.ly
View
@@ -0,0 +1,7 @@
+\include "Charpentier/MusiqueSacree/H531_Noels/common.ily"
+
+\bookpart {
+ \header { title = "Noëls pour les instruments" }
+ \pieceTocTitle "O Createur"
+ \includeScore "Ocreateur"
+}
21 Charpentier/MusiqueSacree/H531_Noels/urtext.ly
View
@@ -0,0 +1,21 @@
+#(ly:set-option 'ancient-style #t)
+\include "Charpentier/MusiqueSacree/H531_Noels/common.ily"
+\paper {
+ #(define original-page-number-table '((1 . "Vol. 5 p. 61-r")
+ (2 . "Vol. 5 p. 61-v")
+ (3 . "Vol. 5 p. 62-r")
+ (4 . "Vol. 5 p. 62-v")))
+}
+
+\bookpart {
+ \header {
+ title = "Noëls pour les instruments"
+ instrument = \markup \fontsize #-3 \center-column {
+ \fontsize #3 \italic Urtext
+ \line { Mélanges autographes, volume 9, }
+ \line { feuillets 61 à 62. }
+ }
+ }
+ \markup \vspace #25
+ \includeScore "Ocreateur"
+}
15 Charpentier/MusiqueSacree/common.ily
View
@@ -78,21 +78,6 @@ pieceTocTitle =
%%%
trill = #(make-articulation "stopped")
-%% For quarter note with eighth note flag and half note note head (in e.g. 3/2)
-#(define-public (calc-white-note-head-glyph grob)
- (let ((style (ly:grob-property grob 'style))
- (duration-log (min 1 (ly:grob-property grob 'duration-log))))
- (select-head-glyph style duration-log)))
-
-whiteNoteHeadsOn = {
- \override Staff.NoteHead #'style = #'baroque
- \override Staff.NoteHead #'glyph-name = #calc-white-note-head-glyph
-}
-whiteNoteHeadsOff = {
- \revert Staff.NoteHead #'style
- \revert Staff.NoteHead #'glyph-name
-}
-
%% In urtext version, add original manuscript page numbers in page header
#(define-markup-command (page-header layout props text) (markup?)
(define (ancestor layout)
3  Makefile
View
@@ -185,6 +185,9 @@ $(eval $(call MAKE_SCORE_RULE,Charpentier/MusiqueSacree/H13_Victimae,-orig,-danc
$(eval $(call MAKE_ALL_SCORE_RULES,Charpentier/MusiqueSacree/H534_Noels,\
dessus1 dessus2 taille basse,,))
$(eval $(call MAKE_SCORE_RULE,Charpentier/MusiqueSacree/H534_Noels,-urtext,-dancient-style,urtext))
+$(eval $(call MAKE_ALL_SCORE_RULES,Charpentier/MusiqueSacree/H531_Noels,\
+dessus1 dessus2 taille basse,,))
+$(eval $(call MAKE_SCORE_RULE,Charpentier/MusiqueSacree/H531_Noels,-urtext,-dancient-style,urtext))
### Haendel
$(eval $(call MAKE_ALL_SCORE_RULES,Haendel/Opera/GiulioCesare,reduction,,))
1  README
View
@@ -16,6 +16,7 @@ M.A. Charpentier
* David et Jonathas (tragédie en musique)
* Prose pour le jour de Pâques - Victimæ paschali laudes (H.13)
* Antiennes O de l'avent (H.36-43)
+* Noël pour les instruments (H.531)
* Noël sur les instruments (H.534)
* Prélude sur une basse obligée pour Magnificat à trois voix (H.73)
16 common/staff.ily
View
@@ -12,6 +12,22 @@
(char->integer #\0)))))
(string->list (number->string var-idx)))))))))
+haraKiri = \with {
+ \override VerticalAxisGroup #'remove-empty = ##t
+ \override VerticalAxisGroup #'remove-first = ##f
+ \override Beam #'auto-knee-gap = #'()
+ \consists "Hara_kiri_engraver"
+ \remove "Axis_group_engraver"
+}
+
+haraKiriFirst = \with {
+ \override VerticalAxisGroup #'remove-empty = ##t
+ \override VerticalAxisGroup #'remove-first = ##t
+ \override Beam #'auto-knee-gap = #'()
+ \consists "Hara_kiri_engraver"
+ \remove "Axis_group_engraver"
+}
+
withLyrics =
#(define-music-function (parser location music lyrics) (ly:music? ly:music?)
(let ((name (symbol->string (gen-unique-context))))
Please sign in to comment.
Something went wrong with that request. Please try again.