Documentation/snippets/incipit.ly

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