input/lsr/incipit.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.12.3"
   4
   5 \header {
   6   lsrtags = "staff-notation, ancient-notation"
   7
   8   texidoces = "
   9 Los «incipit» se pueden escribir utilizando el grob del nombre del
  10 instruemento, pero manteniendo independientes las definiciones del
  11 nombre del instrumento y del incipit."
  12
  13  doctitlees = "Incipit"
  14
  15   texidoc = "
  16 Incipits can be added using the instrument name grob, but keeping
  17 separate the instrument name definition and the incipit definition.
  18
  19 "
  20   doctitle = "Incipit"
  21 } % begin verbatim
  22
  23 incipit =
  24 #(define-music-function (parser location incipit-music) (ly:music?)
  25   #{
  26     \once \override Staff.InstrumentName #'self-alignment-X = #RIGHT
  27     \once \override Staff.InstrumentName #'self-alignment-Y = #UP
  28     \once \override Staff.InstrumentName #'Y-offset = #4
  29     \once \override Staff.InstrumentName #'padding = #0.3
  30     \once \override Staff.InstrumentName #'stencil =
  31     #(lambda (grob)
  32        (let* ((instrument-name (ly:grob-property grob 'long-text))
  33               (layout (ly:output-def-clone (ly:grob-layout grob)))
  34               (music (make-music 'SequentialMusic
  35                       'elements (list (make-music 'ContextSpeccedMusic
  36                                         'context-type 'MensuralStaff
  37                                         'element (make-music 'PropertySet
  38                                                    'symbol 'instrumentName
  39                                                    'value instrument-name))
  40                                       $incipit-music)))
  41               (score (ly:make-score music))
  42               (mm (ly:output-def-lookup layout 'mm))
  43               (indent (ly:output-def-lookup layout 'indent))
  44               (width (ly:output-def-lookup layout 'incipit-width))
  45               (incipit-width (if (number? width)
  46                                  (* width mm)
  47                                  (* indent 0.5))))
  48          (ly:output-def-set-variable! layout 'indent (- indent incipit-width))
  49          (ly:output-def-set-variable! layout 'line-width indent)
  50          (ly:output-def-set-variable! layout 'ragged-right #f)
  51          (ly:output-def-set-variable! layout 'ragged-last #f)
  52          (ly:output-def-set-variable! layout 'system-count 1)
  53          (ly:score-add-output-def! score layout)
  54          (ly:grob-set-property! grob 'long-text
  55                (markup #:score score))
  56          (ly:system-start-text::print grob)))
  57   #})
  58
  59 %%%%%%%%%%%%%%%%%%%%%%%%%
  60
  61 global = {
  62   \set Score.skipBars = ##t
  63   \key g \major
  64   \time 4/4
  65
  66   % the actual music
  67   \skip 1*8
  68
  69   % let finis bar go through all staves
  70   \override Staff.BarLine #'transparent = ##f
  71
  72   % finis bar
  73   \bar "|."
  74 }
  75
  76 discantusIncipit = <<
  77   \new MensuralVoice = "discantusIncipit" <<
  78     \repeat unfold 9 { s1 \noBreak }
  79     {
  80       \clef "neomensural-c1"
  81       \key f \major
  82       \time 2/2
  83       c''1.
  84     }
  85   >>
  86   \new Lyrics \lyricsto discantusIncipit { IV- }
  87 >>
  88
  89 discantusNotes = {
  90   \transpose c' c'' {
  91     \clef "treble"
  92     d'2. d'4 |
  93     b e' d'2 |
  94     c'4 e'4.( d'8 c' b |
  95     a4) b a2 |
  96     b4.( c'8 d'4) c'4 |
  97     \once \override NoteHead #'transparent = ##t
  98     c'1 |
  99     b\breve |
 100   }
 101 }
 102
 103 discantusLyrics = \lyricmode {
 104   Ju -- bi -- |
 105   la -- te De -- |
 106   o, om --
 107   nis ter -- |
 108   ra, __ om- |
 109   "..." |
 110   -us. |
 111 }
 112
 113 altusIncipit = <<
 114   \new MensuralVoice = "altusIncipit" <<
 115     \repeat unfold 9 { s1 \noBreak }
 116     {
 117       \clef "neomensural-c3"
 118       \key f \major
 119       \time 2/2
 120       r1 f'1.
 121     }
 122   >>
 123   \new Lyrics \lyricsto altusIncipit { IV- }
 124 >>
 125
 126 altusNotes = {
 127   \transpose c' c'' {
 128     \clef "treble"
 129     % two measures
 130     r2 g2. e4 fis g |
 131     a2 g4 e |
 132     fis g4.( fis16 e fis4) |
 133     g1 |
 134     \once \override NoteHead #'transparent = ##t
 135     g1 |
 136     g\breve |
 137   }
 138 }
 139
 140 altusLyrics = \lyricmode {
 141   % two measures
 142   Ju -- bi -- la -- te |
 143   De -- o, om -- |
 144   nis ter -- ra, |
 145   "..." |
 146   -us. |
 147 }
 148
 149 tenorIncipit = <<
 150   \new MensuralVoice = "tenorIncipit" <<
 151     \repeat unfold 9 { s1 \noBreak }
 152     {
 153       \clef "neomensural-c4"
 154       \key f \major
 155       \time 2/2
 156       r\longa
 157       r\breve
 158       r1 c'1.
 159     }
 160   >>
 161   \new Lyrics \lyricsto tenorIncipit { IV- }
 162 >>
 163
 164 tenorNotes = {
 165   \transpose c' c' {
 166     \once \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'(-6 . 3)
 167     \clef "treble_8"
 168     R1 |
 169     R1 |
 170     R1 |
 171     % two measures
 172     r2 d'2. d'4 b e' |
 173     \once \override NoteHead #'transparent = ##t
 174     e'1 |
 175     d'\breve |
 176   }
 177 }
 178
 179 tenorLyrics = \lyricmode {
 180   % two measures
 181   Ju -- bi -- la -- te |
 182   "..." |
 183   -us.
 184 }
 185
 186 bassusIncipit = <<
 187   \new MensuralVoice = "bassusIncipit" <<
 188     \repeat unfold 9 { s1 \noBreak }
 189     {
 190       \clef "bass"
 191       \key f \major
 192       \time 2/2
 193       %% incipit
 194       r\maxima
 195       f1.
 196     }
 197   >>
 198   \new Lyrics \lyricsto bassusIncipit { IV- }
 199 >>
 200
 201 bassusNotes = {
 202   \transpose c' c' {
 203     \clef "bass"
 204     R1 |
 205     R1 |
 206     R1 |
 207     R1 |
 208     g2. e4 |
 209     \once \override NoteHead #'transparent = ##t
 210     e1 |
 211     g\breve |
 212   }
 213 }
 214
 215 bassusLyrics = \lyricmode {
 216   Ju -- bi- |
 217   "..." |
 218   -us.
 219 }
 220
 221 \score {
 222   <<
 223     \new StaffGroup = choirStaff <<
 224       \new Voice = "discantusNotes" <<
 225         \global
 226         \set Staff.instrumentName = #"Discantus"
 227         \incipit \discantusIncipit
 228         \discantusNotes
 229       >>
 230       \new Lyrics = "discantusLyrics" \lyricsto discantusNotes { \discantusLyrics }
 231       \new Voice = "altusNotes" <<
 232         \global
 233         \set Staff.instrumentName = #"Altus"
 234         \incipit \altusIncipit
 235         \altusNotes
 236       >>
 237       \new Lyrics = "altusLyrics" \lyricsto altusNotes { \altusLyrics }
 238       \new Voice = "tenorNotes" <<
 239         \global
 240         \set Staff.instrumentName = #"Tenor"
 241         \incipit \tenorIncipit
 242         \tenorNotes
 243       >>
 244       \new Lyrics = "tenorLyrics" \lyricsto tenorNotes { \tenorLyrics }
 245       \new Voice = "bassusNotes" <<
 246         \global
 247         \set Staff.instrumentName = #"Bassus"
 248         \incipit \bassusIncipit
 249         \bassusNotes
 250       >>
 251       \new Lyrics = "bassusLyrics" \lyricsto bassusNotes { \bassusLyrics }
 252     >>
 253   >>
 254   \layout {
 255     \context {
 256       \Score
 257       %% no bar lines in staves or lyrics
 258       \override BarLine #'transparent = ##t
 259     }
 260     %% the next two instructions keep the lyrics between the bar lines
 261     \context {
 262       \Lyrics
 263       \consists "Bar_engraver"
 264       \consists "Separating_line_group_engraver"
 265     }
 266     \context {
 267       \Voice
 268       %% no slurs
 269       \override Slur #'transparent = ##t
 270       %% Comment in the below "\remove" command to allow line
 271       %% breaking also at those bar lines where a note overlaps
 272       %% into the next measure.  The command is commented out in this
 273       %% short example score, but especially for large scores, you
 274       %% will typically yield better line breaking and thus improve
 275       %% overall spacing if you comment in the following command.
 276       %%\remove "Forbid_line_break_engraver"
 277     }
 278     indent = 6\cm
 279     incipit-width = 4\cm
 280   }
 281 }