another bogus README

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

diff --git a/input/test/gregorian-scripts.ly b/input/test/gregorian-scripts.ly
index 0584fd8cbbbafd67b8ad99b9e67337079e7cfc3f..a14e14372efd3e0eb3f0d9530f79213511659a9d 100644 (file)
--- a/input/test/gregorian-scripts.ly
+++ b/input/test/gregorian-scripts.ly
@@ -1,104 +1,44 @@
-\version "1.7.19"
+\version "2.10.0"
 \header {
-    title      = "Gregorian Scripts"
-    date       = "2003"
-    texidoc     = "
+    texidoc  = "@cindex Gregorian Scripts
 
-Gregorian Scripts:
+Here is demonstrated a preliminary support of Gregorian Scripts:
 
 ictus, circulus, semicirculus, accentus, episem.
 
-TODO: augmentum.
-
-FIXME: when applying an episem within a ligature, the TextSpanner's width
-collapses to 0.0.
+"}
 
-FIXME: clef does not show on each line
+%{
 
-FIXME: horizontal spacing (ragged right mode)
+FIXME: horizontal spacing (ragged right mode).
 
 FIXME: padding/minimum-distance is fragile.
 
-"}
-
-\include "paper26.ly"
-\include "gregorian-init.ly"
+FIXME: episem stops one notehead too early.
 
-cantus = \notes \relative c' {
-  \clef "vaticana_do2"
+%}
 
-  a-\ictus
-  a-\circulus
-  a-\semicirculus
-  a-\accentus
-
-  %{ %% TODO: augmentum:
-     a-\augmentum
-     \[ \augmentumInitium b \flexa a \augmentumFinis \]
-  %}
-
-  a \episemInitium b \flexa a \episemFinis
+\include "gregorian-init.ly"
 
-  \[ a \episemInitium b \flexa a \episemFinis \]
+\paper {
+    line-thickness = \staff-space / 5.0
 }
 
 \score {
-  \context VaticanaStaff <
-    \context VaticanaVoice <
-      \cantus
-    >
-  >
-  \paper {
-    stafflinethickness = \staffspace / 5.0
-    linewidth = 70.0
+  \context VaticanaVoice {
+    \override Script #'padding = #-0.5
+     {
+      a\ictus
+      a\circulus
+      a\semicirculus
+      a\accentus
+      \[ a \episemInitium \pes b \flexa a \episemFinis \]
+    }
+  }
+  \layout {
+    line-width = 70.0
     width = 60.0
     indent = 0.0
-    raggedright = ##t
-
-%   width = 15.0 \cm %%% no effect?
-%   gourlay_maxmeasures = 1. %%% no effect?
-
-    \translator {
-      \VoiceContext
-      \name VaticanaVoice
-      \alias Voice
-      \remove "Stem_engraver"
-      \remove Ligature_bracket_engraver
-      \consists Vaticana_ligature_engraver
-      NoteHead \set #'style = #'vaticana_punctum
-      Script \set #'padding = #0.0
-
-      % prepare TextSpanner for \episem{Initium|Finis} use
-      TextSpanner \set #'type = #'line
-      TextSpanner \set #'edge-height = #'(0 . 0)
-      TextSpanner \set #'padding = #0.5
-      TextSpanner \set #'edge-text = #'("" . "")
-    }
-    \translator {
-      \StaffContext
-      \name VaticanaStaff
-      \alias Staff
-      \accepts VaticanaVoice
-      \remove Bar_engraver
-      \consists Custos_engraver
-      StaffSymbol \set #'line-count = #4
-%      StaffSymbol \set #'width = #60.0 % FIXME: should be \linewidth
-      TimeSignature \set #'transparent = ##t
-      KeySignature \set #'style = #'vaticana
-      Accidental \set #'style = #'vaticana
-      Custos \set #'style = #'vaticana
-      Custos \set #'neutral-position = #3
-      Custos \set #'neutral-direction = #-1
-      Custos \set #'adjust-if-on-staffline = ##t
-    }
-    \translator {
-      \RemoveEmptyStaffContext
-      \accepts VaticanaVoice
-    }
-    \translator {
-      \ScoreContext
-      \accepts VaticanaStaff
-      \remove Bar_number_engraver
-    }
+    ragged-right = ##t
   }
 }