+++ /dev/null
-\version "2.14.0"
-\include "example-header.ily"
-
-\paper {
-% line-width=158\mm % produces 624 pixels
- line-width = 143\mm % reserve 15mm for incipit
-}
-
-% Aucun ont trouvé, from Montpellier Codex
-%
-% Put brackets in where the original has ligatures, using
-% "Analysis Brackets," and adjust the "bracket-flare" property
-% to make the ends vertical instead of slanted.
-
-#(set-global-staff-size 15)
-
-%%%%%%%%%%% INCIPIT DEFS %%%%%%%%%%
-
-incipitGlobal = {
- \override NoteHead #'style = #'mensural
- \override Accidental #'style = #'mensural
- \override KeySignature #'style = #'mensural
- \override Rest #'style = #'mensural
-% \override Staff.TimeSignature #'style = #'mensural
- \cadenzaOn
- \override Score.Clef #'extra-offset = #'(-0.0 . 0.5)
- \override Score.Clef #'font-size = #3
- \clef "vaticana-do1"
-}
-
-incipitTriplum = \markup{
- \score{
- {
- \set Staff.instrumentName="Triplum "
- \incipitGlobal
- s1.
- }
- \layout {
- %indent = 1\cm
- \context {\Voice
- \remove Ligature_bracket_engraver
- \consists Mensural_ligature_engraver
- }
- \context {\Staff
- \remove "Time_signature_engraver"
- }
- line-width=5\mm
- }
- }
-}
-
-incipitMotetus = \markup{
- \score{
- {
- \set Staff.instrumentName="Motetus"
- \incipitGlobal
- s1.
- }
- \layout {
- % indent = 1\cm
- \context {\Voice
- \remove Ligature_bracket_engraver
- \consists Mensural_ligature_engraver
- }
- \context {\Staff
- \remove "Time_signature_engraver"
- }
- line-width=5\mm
- }
- }
-}
-
-incipitTenor = \markup{
- \score{
- {
- \set Staff.instrumentName = "Tenor "
- \incipitGlobal
- s1.*2
- }
- \layout {
- %indent = 1\cm
- \context {\Voice
- \remove Ligature_bracket_engraver
- \consists Mensural_ligature_engraver
- }
- \context {\Staff
- \remove "Time_signature_engraver"
- }
- line-width=5\mm
-}
-}
-}
-
-incipitBassus = \markup{
- \score{ {
- \set Staff.instrumentName = "Bassus "
- \override NoteHead #'style = #'neomensural
- \override Accidental #'style = #'neomensural
- \override Rest #'style = #'neomensural
- \override Staff.TimeSignature #'style = #'neomensural
- \cadenzaOn
- \clef "petrucci-f3"
- \key f \major
- \time 3/2
- \relative c' {
- s1. % R1.*2
- }
- }
- \layout {
- \context { \Voice
- \remove Ligature_bracket_engraver
- \consists Mensural_ligature_engraver
- }
- line-width=5\mm
- }
- }
-}
-
-%%%%%%%%%%% END INCIPIT DEFS %%%%%%%%%%%
-
-#(ly:set-option 'point-and-click #f)
-
-global = {
- \override Staff.TimeSignature #'stencil = #(lambda (grob)
- (bracketify-stencil (ly:time-signature::print grob) Y 0.1 0.2 0.1))
- \time 3/4
- \override Staff.BarLine #'transparent = ##t
- \override HorizontalBracket #'direction = #UP
- \override HorizontalBracket #'bracket-flare = #'(0 . 0)
-}
-
-%%%%%%%%% MACRO FOR MAKING SLASHES THROUGH STEMS %%%%%%%%%%
-MakeSlash = #(define-music-function (parser location angle len-left len-right
-thick y-factor offset)
- (number? number? number? number? number?
-pair?)
-#{
-\once \override Voice.Stem #'text = \markup {
- \postscript #(let ((x-off (car $offset))
- (y-off (cdr $offset)))
- (string-append
- (ly:number->string (car $offset)) " " (ly:number->string (cdr $offset)) "
-translate "
- (ly:number->string $angle) " rotate "
- (ly:number->string (- x-off)) " "
- (ly:number->string (- y-off)) " translate 0 setlinewidth "
- (ly:number->string (- x-off $len-left)) " " (ly:number->string (+ y-off
-$thick)) " moveto "
- (ly:number->string (- x-off $len-left)) " " (ly:number->string y-off)
- " " (ly:number->string $thick) "
-90 270 arc "
- (ly:number->string (+ x-off $len-right)) " " (ly:number->string y-off)
- " " (ly:number->string $thick) "
-270 90 arc "
- " gsave fill grestore stroke")) }
-
-\once \override Voice.Stem #'stencil = #(lambda (grob)
- (let* ((sten1 (ly:stem::print grob))
- (sten2 (ly:text-interface::print grob))
- (extent1 (ly:stencil-extent sten1 Y))
- (extent2 (ly:stencil-extent sten2 Y)))
- (ly:stencil-add
- sten1
- (ly:stencil-translate sten2
- (cons 0 (+ (* $y-factor (cdr extent1))
- (* (- 1 $y-factor) (car extent1))))))))
-#})
-
-
-slash = { \MakeSlash #20 #1.0 #1.1 #0.05 #0.75 #'(0 . -.5) }
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-triplumWords = \lyricmode {
- Au -- cun ont trou -- ve chant par u -- sa -- ge,
- mes a moi en doune o -- choi -- son __
- a -- mours, qui res -- bou -- dist mon cou -- ra -- ge
- si que m'ès -- tuet fai -- re _ chan -- _ _ çon
-}
-
-triplumNotes = \relative c' {
- \clef "treble_8"
- %\set Staff.midiInstrument = "flute"
-% \global
- \override StemTremolo #'beam-thickness = #.125
- \override StemTremolo #'slope = #1.0
- f8 f4 e8 d c f f f | % 1
- % the \scaleDurations command below makes 5 notes last the
- % duration of a dotted quarter
- e8 c4 \scaleDurations #'(3 . 2) { \times 4/5{e16[ d e d e]} } e8 f4 | % 2
- g2. ~ g4. | % 3
- f8 d4 f4. \scaleDurations #'(3 . 2) { \times 4/6{ g16[ f e f e f]}} % 4
- g8 g4 g4. e4. | % 5
- fis8 d4 e8\startGroup g4\stopGroup f8[ e d] | % 6
- c2. r4. | % 7
-}
-
-motetusWords = \lyricmode {
- lonc tans _ _ me fiu -- te -- nu de chan -- _ _ ter __
- mes or ai _ _
-}
-
-motetusNotes = \relative c' {
- \clef "treble_8"
- c2. c8\startGroup b8 \slash c\stopGroup | % 1
- a2. c4. | d2. e4. | % 2-3
- f2. f8 e d | % 4
- c2. ~ c4. | r2. r4. | % 5-6
- g'4. g g8 f e | % 7
-}
-
-
-tenorNotes = \relative c {
- \clef "treble_8"
- f2. | a2. | g2. | r2. | % 1-4
- c2. | b2. | c2. | % 5-7
-}
-
-\score {
- \new StaffGroup <<
- \new Staff = "triplum" <<
- %\set Staff.instrumentName = "Triplum"
- \set Staff.instrumentName = \incipitTriplum
- \set Staff.shortInstrumentName = "Tr."
- \set Staff.timeSignatureFraction = #'(9 . 8)
- \scaleDurations #'(2 . 3)
- \context Voice = "triplum" { \global \triplumNotes }
-% \scaleDurations #'(2 . 3)
-% \context Voice = "slashes" { \triplumSkips }
- \new Lyrics { \lyricsto "triplum" { \triplumWords }}
- >>
- \new Staff = "motetus" <<
- %\set Staff.instrumentName = "Motetus"
- \set Staff.instrumentName = \incipitMotetus
- \set Staff.shortInstrumentName = "M."
- \set Staff.timeSignatureFraction = #'(9 . 8)
- \scaleDurations #'(2 . 3)
- \context Voice = "motetus" { \global \motetusNotes }
- \new Lyrics { \lyricsto "motetus" { \motetusWords }}
- >>
- \new Staff = "tenor" {
- %\set Staff.instrumentName = "Tenor"
- \set Staff.instrumentName = \incipitTenor
- \set Staff.shortInstrumentName = "T."
- \global \tenorNotes
- }
- >>
- %\midi {}
- \layout {
- %\context {
- % \Staff \consists "Horizontal_bracket_engraver"
- %}
- \context {
- \Voice \consists "Horizontal_bracket_engraver"
- }
- }
-}
projects / lilypond.git / blobdiff