2 \include "example-header.ily"
5 % line-width=158\mm % produces 624 pixels
6 line-width = 143\mm % reserve 15mm for incipit
9 % Aucun ont trouvé, from Montpellier Codex
11 % Put brackets in where the original has ligatures, using
12 % "Analysis Brackets," and adjust the "bracket-flare" property
13 % to make the ends vertical instead of slanted.
15 #(set-global-staff-size 15)
17 %%%%%%%%%%% INCIPIT DEFS %%%%%%%%%%
20 \override NoteHead.style = #'mensural
21 \override Accidental.style = #'mensural
22 \override KeySignature.style = #'mensural
23 \override Rest.style = #'mensural
24 % \override Staff.TimeSignature.style = #'mensural
26 \override Score.Clef.extra-offset = #'(-0.0 . 0.5)
27 \override Score.Clef.font-size = #3
31 incipitTriplum = \markup{
34 \set Staff.instrumentName="Triplum "
41 \remove "Ligature_bracket_engraver"
42 \consists "Mensural_ligature_engraver"
45 \remove "Time_signature_engraver"
52 incipitMotetus = \markup{
55 \set Staff.instrumentName="Motetus"
62 \remove "Ligature_bracket_engraver"
63 \consists "Mensural_ligature_engraver"
66 \remove "Time_signature_engraver"
73 incipitTenor = \markup{
76 \set Staff.instrumentName = "Tenor "
83 \remove "Ligature_bracket_engraver"
84 \consists "Mensural_ligature_engraver"
87 \remove "Time_signature_engraver"
94 incipitBassus = \markup{
96 \set Staff.instrumentName = "Bassus "
97 \override NoteHead.style = #'neomensural
98 \override Accidental.style = #'neomensural
99 \override Rest.style = #'neomensural
100 \override Staff.TimeSignature.style = #'neomensural
111 \remove "Ligature_bracket_engraver"
112 \consists "Mensural_ligature_engraver"
119 %%%%%%%%%%% END INCIPIT DEFS %%%%%%%%%%%
121 #(ly:set-option 'point-and-click #f)
124 \override Staff.TimeSignature.stencil = #(lambda (grob)
125 (bracketify-stencil (ly:time-signature::print grob) Y 0.1 0.2 0.1))
128 \override HorizontalBracket.direction = #UP
129 \override HorizontalBracket.bracket-flare = #'(0 . 0)
132 %%%%%%%%% MACRO FOR MAKING SLASHES THROUGH STEMS %%%%%%%%%%
133 MakeSlash = #(define-music-function (angle len-left len-right
134 thick y-factor offset)
135 (number? number? number? number? number?
138 \once \override Voice.Stem.text = \markup {
139 \postscript #(let ((x-off (car offset))
140 (y-off (cdr offset)))
142 (ly:number->string (car offset)) " " (ly:number->string (cdr offset)) "
144 (ly:number->string angle) " rotate "
145 (ly:number->string (- x-off)) " "
146 (ly:number->string (- y-off)) " translate 0 setlinewidth "
147 (ly:number->string (- x-off len-left)) " " (ly:number->string (+ y-off
149 (ly:number->string (- x-off len-left)) " " (ly:number->string y-off)
150 " " (ly:number->string thick) "
152 (ly:number->string (+ x-off len-right)) " " (ly:number->string y-off)
153 " " (ly:number->string thick) "
155 " gsave fill grestore stroke")) }
157 \once \override Voice.Stem.stencil = #(lambda (grob)
158 (let* ((sten1 (ly:stem::print grob))
159 (sten2 (ly:text-interface::print grob))
160 (extent1 (ly:stencil-extent sten1 Y))
161 (extent2 (ly:stencil-extent sten2 Y)))
164 (ly:stencil-translate sten2
165 (cons 0 (+ (* y-factor (cdr extent1))
166 (* (- 1 y-factor) (car extent1))))))))
170 slash = { \MakeSlash #20 #1.0 #1.1 #0.05 #0.75 #'(0 . -.5) }
172 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
174 triplumWords = \lyricmode {
175 Au -- cun ont trou -- ve chant par u -- sa -- ge,
176 mes a moi en doune o -- choi -- son __
177 a -- mours, qui res -- bou -- dist mon cou -- ra -- ge
178 si que m'ès -- tuet fai -- re _ chan -- _ _ çon
181 triplumNotes = \relative {
183 %\set Staff.midiInstrument = "flute"
185 \override StemTremolo.beam-thickness = #.125
186 \override StemTremolo.slope = #1.0
187 f'8 f4 e8 d c f f f | % 1
188 % the \scaleDurations command below makes 5 notes last the
189 % duration of a dotted quarter
190 e8 c4 \scaleDurations 3/2 { \tuplet 5/4{e16[ d e d e]} } e8 f4 | % 2
192 f8 d4 f4. \scaleDurations 3/2 { \tuplet 6/4{ g16[ f e f e f]}} % 4
194 fis8 d4 e8\startGroup g4\stopGroup f8[ e d] | % 6
198 motetusWords = \lyricmode {
199 lonc tans _ _ me fiu -- te -- nu de chan -- _ _ ter __
203 motetusNotes = \relative {
205 c'2. c8\startGroup b8 \slash c\stopGroup | % 1
206 a2. c4. | d2. e4. | % 2-3
208 c2. ~ 4. | r2. r4. | % 5-6
213 tenorNotes = \relative {
215 f2. | a2. | g2. | r2. | % 1-4
216 c2. | b2. | c2. | % 5-7
221 \new Staff = "triplum" <<
222 %\set Staff.instrumentName = "Triplum"
223 \set Staff.instrumentName = \incipitTriplum
224 \set Staff.shortInstrumentName = "Tr."
225 \set Staff.timeSignatureFraction = 9/8
227 \context Voice = "triplum" { \global \triplumNotes }
228 % \scaleDurations 2/3
229 % \context Voice = "slashes" { \triplumSkips }
230 \new Lyrics { \lyricsto "triplum" { \triplumWords }}
232 \new Staff = "motetus" <<
233 %\set Staff.instrumentName = "Motetus"
234 \set Staff.instrumentName = \incipitMotetus
235 \set Staff.shortInstrumentName = "M."
236 \set Staff.timeSignatureFraction = 9/8
238 \context Voice = "motetus" { \global \motetusNotes }
239 \new Lyrics { \lyricsto "motetus" { \motetusWords }}
241 \new Staff = "tenor" {
242 %\set Staff.instrumentName = "Tenor"
243 \set Staff.instrumentName = \incipitTenor
244 \set Staff.shortInstrumentName = "T."
251 % \Staff \consists "Horizontal_bracket_engraver"
254 \Voice \consists "Horizontal_bracket_engraver"