X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fsnippets%2Fincipit.ly;h=522bf1d730908d279191aed8d640c2cb49d63eae;hb=4b994f8a49892039def08d141daf12c128a12cd4;hp=a7d6c4051653d1f1ab1a7334efe128b8508c9ab1;hpb=3ef893f1fe182e9f6cf5841cbff0706789bd3361;p=lilypond.git diff --git a/Documentation/snippets/incipit.ly b/Documentation/snippets/incipit.ly index a7d6c40516..522bf1d730 100644 --- a/Documentation/snippets/incipit.ly +++ b/Documentation/snippets/incipit.ly @@ -4,71 +4,27 @@ % and then run scripts/auxiliar/makelsr.py % % This file is in the public domain. -%% Note: this file works from version 2.14.0 -\version "2.14.0" +%% Note: this file works from version 2.19.16 +\version "2.19.16" \header { -%% Translation of GIT committish: 2d548a99cb9dba80f2ff035582009477cd37eceb - texidoces = " -Los «incipit» se pueden escribir utilizando el grob del nombre del -instruemento, pero manteniendo independientes las definiciones del -nombre del instrumento y del incipit." + lsrtags = "ancient-notation, staff-notation" - doctitlees = "Incipit" - - lsrtags = "staff-notation, ancient-notation" texidoc = " -Incipits can be added using the instrument name grob, but keeping -separate the instrument name definition and the incipit definition. +When transcribing mensural music, an incipit at the beginning of the piece is +useful to indicate the original key and tempo. Musicians today are used +to bar lines, but these were not known during the period of mensural music. As +a compromise, bar lines are often printed between the staves, a layout style +called mensurstriche layout. " + doctitle = "Incipit" } % begin verbatim -incipit = -#(define-music-function (parser location incipit-music) (ly:music?) - #{ - \once \override Staff.InstrumentName #'self-alignment-X = #RIGHT - \once \override Staff.InstrumentName #'self-alignment-Y = #UP - \once \override Staff.InstrumentName #'Y-offset = - #(lambda (grob) - (+ 4 (system-start-text::calc-y-offset grob))) - \once \override Staff.InstrumentName #'padding = #0.3 - \once \override Staff.InstrumentName #'stencil = - #(lambda (grob) - (let* ((instrument-name (ly:grob-property grob 'long-text)) - (layout (ly:output-def-clone (ly:grob-layout grob))) - (music (make-sequential-music - (list (context-spec-music - (make-sequential-music - (list (make-property-set - 'instrumentName instrument-name) - (make-grob-property-set - 'VerticalAxisGroup - 'Y-extent '(-4 . 4)))) - 'MensuralStaff) - $incipit-music))) - (score (ly:make-score music)) - (mm (ly:output-def-lookup layout 'mm)) - (indent (ly:output-def-lookup layout 'indent)) - (width (ly:output-def-lookup layout 'incipit-width)) - (incipit-width (if (number? width) - (* width mm) - (* indent 0.5)))) - - (ly:output-def-set-variable! layout 'indent (- indent - incipit-width)) - (ly:output-def-set-variable! layout 'line-width indent) - (ly:output-def-set-variable! layout 'ragged-right #f) - (ly:output-def-set-variable! layout 'ragged-last #f) - (ly:output-def-set-variable! layout 'system-count 1) - (ly:score-add-output-def! score layout) - (ly:grob-set-property! grob 'long-text - (markup #:score score)) - (system-start-text::print grob))) - #}) - -%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% A short excerpt from the Jubilate Deo by Orlande de Lassus +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% global = { \set Score.skipBars = ##t @@ -79,24 +35,18 @@ global = { \skip 1*8 % let finis bar go through all staves - \override Staff.BarLine #'transparent = ##f + \override Staff.BarLine.transparent = ##f % finis bar \bar "|." } -discantusIncipit = << - \new MensuralVoice = "discantusIncipit" << - \repeat unfold 9 { s1 \noBreak } - { - \clef "neomensural-c1" - \key f \major - \time 2/2 - c''1. - } - >> - \new Lyrics \lyricsto discantusIncipit { IV- } ->> +discantusIncipit = { + \clef "neomensural-c1" + \key f \major + \time 2/2 + c''1. +} discantusNotes = { \transpose c' c'' { @@ -106,72 +56,54 @@ discantusNotes = { c'4 e'4.( d'8 c' b | a4) b a2 | b4.( c'8 d'4) c'4 | - \once \override NoteHead #'transparent = ##t + \once \hide NoteHead c'1 | b\breve | } } discantusLyrics = \lyricmode { - Ju -- bi -- | - la -- te De -- | - o, om -- - nis ter -- | - ra, __ om- | - "..." | - -us. | + Ju -- bi -- la -- te De -- o, + om -- nis ter -- ra, __ om- + "..." + -us. } -altusIncipit = << - \new MensuralVoice = "altusIncipit" << - \repeat unfold 9 { s1 \noBreak } - { - \clef "neomensural-c3" - \key f \major - \time 2/2 - r1 f'1. - } - >> - \new Lyrics \lyricsto altusIncipit { IV- } ->> +altusIncipit = { + \clef "neomensural-c3" + \key f \major + \time 2/2 + r1 f'1. +} altusNotes = { \transpose c' c'' { \clef "treble" - % two measures r2 g2. e4 fis g | a2 g4 e | fis g4.( fis16 e fis4) | g1 | - \once \override NoteHead #'transparent = ##t + \once \hide NoteHead g1 | g\breve | } } altusLyrics = \lyricmode { - % two measures - Ju -- bi -- la -- te | - De -- o, om -- | - nis ter -- ra, | - "..." | - -us. | + Ju -- bi -- la -- te + De -- o, om -- nis ter -- ra, + "..." + -us. } -tenorIncipit = << - \new MensuralVoice = "tenorIncipit" << - \repeat unfold 9 { s1 \noBreak } - { - \clef "neomensural-c4" - \key f \major - \time 2/2 - r\longa - r\breve - r1 c'1. - } - >> - \new Lyrics \lyricsto tenorIncipit { IV- } ->> +tenorIncipit = { + \clef "neomensural-c4" + \key f \major + \time 2/2 + r\longa + r\breve + r1 c'1. +} tenorNotes = { \transpose c' c' { @@ -181,33 +113,25 @@ tenorNotes = { R1 | % two measures r2 d'2. d'4 b e' | - \once \override NoteHead #'transparent = ##t + \once \hide NoteHead e'1 | d'\breve | } } tenorLyrics = \lyricmode { - % two measures - Ju -- bi -- la -- te | - "..." | + Ju -- bi -- la -- te + "..." -us. } -bassusIncipit = << - \new MensuralVoice = "bassusIncipit" << - \repeat unfold 9 { s1 \noBreak } - { - \clef "bass" - \key f \major - \time 2/2 - %% incipit - r\maxima - f1. - } - >> - \new Lyrics \lyricsto bassusIncipit { IV- } ->> +bassusIncipit = { + \clef "mensural-f" + \key f \major + \time 2/2 + r\maxima + f1. +} bassusNotes = { \transpose c' c' { @@ -217,15 +141,15 @@ bassusNotes = { R1 | R1 | g2. e4 | - \once \override NoteHead #'transparent = ##t + \once \hide NoteHead e1 | g\breve | } } bassusLyrics = \lyricmode { - Ju -- bi- | - "..." | + Ju -- bi- + "..." -us. } @@ -233,40 +157,40 @@ bassusLyrics = \lyricmode { << \new StaffGroup = choirStaff << \new Voice = "discantusNotes" << - \global \set Staff.instrumentName = #"Discantus" \incipit \discantusIncipit + \global \discantusNotes >> - \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics } + \new Lyrics \lyricsto discantusNotes { \discantusLyrics } \new Voice = "altusNotes" << - \global \set Staff.instrumentName = #"Altus" + \global \incipit \altusIncipit \altusNotes >> - \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics } + \new Lyrics \lyricsto altusNotes { \altusLyrics } \new Voice = "tenorNotes" << - \global \set Staff.instrumentName = #"Tenor" + \global \incipit \tenorIncipit \tenorNotes >> - \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics } + \new Lyrics \lyricsto tenorNotes { \tenorLyrics } \new Voice = "bassusNotes" << - \global \set Staff.instrumentName = #"Bassus" + \global \incipit \bassusIncipit \bassusNotes >> - \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics } + \new Lyrics \lyricsto bassusNotes { \bassusLyrics } >> >> \layout { \context { \Score %% no bar lines in staves or lyrics - \override BarLine #'transparent = ##t + \hide BarLine } %% the next two instructions keep the lyrics between the bar lines \context { @@ -277,7 +201,7 @@ bassusLyrics = \lyricmode { \context { \Voice %% no slurs - \override Slur #'transparent = ##t + \hide Slur %% Comment in the below "\remove" command to allow line %% breaking also at those bar lines where a note overlaps %% into the next measure. The command is commented out in this