input/puer-fragment.ly

   1 \version "2.2.0"
   2 \header {
   3     title       = "Puer natus est nobis (excerptum)"
   4     subtitle    = "Antiphona ad introitum VII"
   5     texidoc = "
   6
   7 Demonstrate gregorian chant notation
   8
   9 This file pretty nicely demonstrates what still does
  10 not work among ligatures: (i) horizontal spacing between ligatures and
  11 lyrics aligment is broken; (ii) lily crashes when removing
  12 Stem_engraver, but still using Slur_engraver (this is useful needed
  13 for the \addlyrics feature when no slurs are to be typeset); (iii)
  14 episem causes a parse error (this used to work a while ago); (iv)
  15 support for augmentum dots is missing; (v) accidentals must be placed
  16 before the ligature (not demonstrated in this example)."
  17
  18 }
  19
  20 #(set-global-staff-size 26)
  21 \include "gregorian-init.ly"
  22
  23 %%% N.B.: Yes, I know, the formatting of the following looks awful,
  24 %%% but this is intentional for editorial purposes (simplifies some
  25 %%% global search/replace operations in emacs).
  26
  27 cantus = \context VaticanaVoice = "cantus" \notes {
  28   \[ g4\melisma %%% Pu-
  29     \pes
  30     d'\melismaEnd
  31   \]
  32   d'            %%% er
  33   \[ d'\melisma %%% na-
  34     \pes e' \flexa
  35     d'\melismaEnd
  36   \]
  37   c'            %%% tus
  38   \[ c'\melisma %%% est
  39     c'
  40     c'\melismaEnd
  41   \]
  42   \[ d'\melisma %%% no-
  43     \flexa c' e' \flexa
  44     d'\melismaEnd
  45   \]
  46   d'            %%% bis,
  47   \divisioMaior
  48   \[ g\melisma %%% et
  49     \pes \deminutum
  50     d'\melismaEnd
  51   \]
  52   \[ d'\melisma %%% fi-
  53     \pes e' \flexa
  54     d'\melismaEnd
  55   \]
  56   \[ c'\melisma %%% li-
  57     \flexa
  58     b\melismaEnd
  59   \]
  60   a             %%% us
  61   \[ c'\melisma %%% da-
  62     c' \pes
  63     d'\melismaEnd
  64   \]
  65   c'            %%% tus-
  66   c'            %%% est
  67   \[ c'\melisma %%% no-
  68     \pes d' \flexa c'
  69     c'\melismaEnd
  70   \]
  71   \[ g\melisma %%% bis:
  72     \pes a \flexa
  73     g\melismaEnd
  74   \]
  75   \divisioMaxima
  76 }
  77
  78 verba = \context Lyrics = "verba" \lyrics {
  79   Pu- er na- tus est no- bis,
  80   et fi- li- us da- tus est no- bis:
  81 }
  82
  83 \score {
  84   <<
  85     \cantus
  86     \lyricsto "cantus" \verba
  87   >>
  88   \paper {
  89     linethickness = \staffspace / 7.0
  90     linewidth = 137.0\mm
  91     width = 137.0\mm
  92     indent = 0.0
  93     raggedright = ##t
  94     packed = ##t
  95     \context {
  96       \ScoreContext
  97       \remove Bar_number_engraver
  98 %     \override SpacingSpanner #'spacing-increment = #0.5
  99       timing = ##f
 100
 101       % Maybe don't do this except for transcription -- it may produce
 102       % additional space
 103       barAlways = ##t
 104 %     skipBars = ##t
 105     }
 106   }
 107 }