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