input/test/gregorian-scripts.ly

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