input/puer-fragment.ly

   1 \version "1.9.4"
   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 \include "paper26.ly"
  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 = \notes {
  28   \[ g4
  29     (           %%% Pu-
  30     \pes
  31     d')
  32   \]
  33   d'            %%% er
  34   \[ d'
  35     (           %%% na-
  36     \pes e' \flexa
  37     d')
  38   \]
  39   c'            %%% tus
  40   \[ c'
  41     (           %%% est
  42     c'
  43     c')
  44   \]
  45   \[ d'
  46     (           %%% no-
  47     \flexa c' e' \flexa
  48     d')
  49   \]
  50   d'            %%% bis,
  51   \divisioMaior
  52   \[ g
  53     (           %%% et
  54     \pes \deminutum
  55     d')
  56   \]
  57   \[ d'
  58     (           %%% fi-
  59     \pes e' \flexa
  60     d')
  61   \]
  62   \[ c'
  63     (           %%% li-
  64     \flexa
  65     b)
  66   \]
  67   a             %%% us
  68   \[ c'
  69     (           %%% da-
  70     c' \pes
  71     d')
  72   \]
  73   c'            %%% tus-
  74   c'            %%% est
  75   \[ c'
  76     (           %%% no-
  77     \pes d' \flexa c'
  78     c')
  79   \]
  80   \[ g
  81     (           %%% bis:
  82     \pes a \flexa
  83     g)
  84   \]
  85   \divisioMaxima
  86 }
  87
  88 verba = \context Lyrics = verba \lyrics {
  89   Pu- er na- tus est no- bis,
  90   et fi- li- us da- tus est no- bis:
  91 }
  92
  93 \score {
  94   \context VaticanaVoice <<
  95     \addlyrics
  96     \cantus
  97     \verba
  98   >>
  99   \paper {
 100     stafflinethickness = \staffspace / 7.0
 101     linewidth = 137.0\mm
 102     width = 137.0\mm
 103     indent = 0.0
 104     raggedright = ##t
 105     packed = ##t
 106 %   width = 15.0 \cm %%% no effect?
 107
 108     \translator {
 109       \ScoreContext
 110       \remove Bar_number_engraver
 111 %     SpacingSpanner \set #'spacing-increment = #0.5
 112       timing = ##f
 113
 114       % Maybe don't do this except for transcription -- it may produce
 115       % additional space
 116       barAlways = ##t
 117 %     skipBars = ##t
 118     }
 119   }
 120 }