Assorted minor mostly one-line clarifications.

[lilypond.git] / input / test / gregorian-scripts.ly

diff --git a/input/test/gregorian-scripts.ly b/input/test/gregorian-scripts.ly
index 20e1648e59752c259681535dc037933f98d825f0..feeb4d5009c10bd80593967d5e62292b59133ba5 100644 (file)
--- a/input/test/gregorian-scripts.ly
+++ b/input/test/gregorian-scripts.ly
@@ -1,12 +1,15 @@
-\version "1.9.0"
+\version "2.7.39"
 \header {
-    title      = "Gregorian Scripts"
-    texidoc     = "@cindex Gregorian Scripts
+    texidoc  = "@cindex Gregorian Scripts
 
-Gregorian Scripts:
+Here is demonstrated a preliminary support of Gregorian Scripts:
 
 ictus, circulus, semicirculus, accentus, episem.
 
+"}
+
+%{
+
 TODO: augmentum.  Syntax: either as bracket (\augmentumInitium,
 \augmentumFinis), or as head prefix with subsequently collecting all
 dots and putting them behind the ligature in a vertical row.
@@ -17,32 +20,37 @@ FIXME: horizontal spacing (ragged right mode).
 
 FIXME: padding/minimum-distance is fragile.
 
-"}
+FIXME: episem stops one notehead too early.
+
+%}
 
 \include "gregorian-init.ly"
 
+\paper {
+    line-thickness = \staff-space / 5.0
+}
+
 \score {
   \context VaticanaVoice {
-    \property VaticanaVoice.Script \set #'padding = #-0.5
-    \notes {
-      a-\ictus
-      a-\circulus
-      a-\semicirculus
-      a-\accentus
+    \override Script #'padding = #-0.5
+     {
+      a\ictus
+      a\circulus
+      a\semicirculus
+      a\accentus
 
       %{ %% TODO: augmentum:
-       a-\augmentum
+       a\augmentum
        \[ \augmentumInitium b \flexa a \augmentumFinis \]
       %}
 
       \[ a \episemInitium \pes b \flexa a \episemFinis \]
     }
   }
-  \paper {
-    linewidth = 70.0
-    stafflinethickness = \staffspace / 5.0
+  \layout {
+    line-width = 70.0
     width = 60.0
     indent = 0.0
-    raggedright = ##t
+    ragged-right = ##t
   }
 }