input/test/gregorian-scripts.ly

   1 \version "2.10.0"
   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 FIXME: horizontal spacing (ragged right mode).
  14
  15 FIXME: padding/minimum-distance is fragile.
  16
  17 FIXME: episem stops one notehead too early.
  18
  19 %}
  20
  21 \include "gregorian-init.ly"
  22
  23 \paper {
  24     line-thickness = \staff-space / 5.0
  25 }
  26
  27 \score {
  28   \context VaticanaVoice {
  29     \override Script #'padding = #-0.5
  30      {
  31       a\ictus
  32       a\circulus
  33       a\semicirculus
  34       a\accentus
  35       \[ a \episemInitium \pes b \flexa a \episemFinis \]
  36     }
  37   }
  38   \layout {
  39     line-width = 70.0
  40     width = 60.0
  41     indent = 0.0
  42     ragged-right = ##t
  43   }
  44 }