input/test/gregorian-scripts.ly

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