input/test/gregorian-scripts.ly

   1 \version "1.8.0"
   2 \header {
   3     title       = "Gregorian Scripts"
   4     texidoc     = "@cindex Gregorian Scripts
   5
   6 Gregorian Scripts:
   7
   8 ictus, circulus, semicirculus, accentus, episem.
   9
  10 TODO: augmentum.  Syntax: either as bracket (\augmentumInitium,
  11 \augmentumFinis), or as head prefix with subsequently collecting all
  12 dots and putting them behind the ligature in a vertical row.
  13 Counterexample to the second approach: Graduale Triplex, tempus per
  14 annum, hebdomada septima, alleluia (page 280).
  15
  16 FIXME: horizontal spacing (ragged right mode).
  17
  18 FIXME: padding/minimum-distance is fragile.
  19
  20 "}
  21
  22 \include "gregorian-init.ly"
  23
  24 \score {
  25   \context VaticanaVoice {
  26     \property VaticanaVoice.Script \set #'padding = #-0.5
  27     \notes {
  28       a-\ictus
  29       a-\circulus
  30       a-\semicirculus
  31       a-\accentus
  32
  33       %{ %% TODO: augmentum:
  34         a-\augmentum
  35         \[ \augmentumInitium b \flexa a \augmentumFinis \]
  36       %}
  37
  38       \[ a \episemInitium \pes b \flexa a \episemFinis \]
  39     }
  40   }
  41   \paper {
  42     linewidth = 70.0
  43     stafflinethickness = \staffspace / 5.0
  44     width = 60.0
  45     indent = 0.0
  46     raggedright = ##t
  47   }
  48 }