* lilypond.words, ly/engraver-init.ly, ly/params-init.ly: added

[lilypond.git] / input / test / vaticana.ly

diff --git a/input/test/vaticana.ly b/input/test/vaticana.ly
index 73c066d6d39a839e51aacace50e41352a705301e..5878392129c773c87f09cff434b546a4f710dd9a 100644 (file)
--- a/input/test/vaticana.ly
+++ b/input/test/vaticana.ly
@@ -1,22 +1,13 @@
-\version "1.7.18"
-\header {
-    title      = "vaticana ligature test"
-    date       = "2003"
+\version "1.8.0"
+% possible rename to ancient-something.
+
+\header { texidoc      = "Ancient Vaticana
+Vaticana ligature test. "
 }
 
-\include "paper26.ly"
 \include "gregorian-init.ly"
 
-%
-% FIXME: custodes and clefs do not show on all staves
-%
-
-%
-% FIXME: move VaticnaStaff/VaticanaVoice definition to engraver-init.ly?
-% Or rather to gregorian-init.ly?
-%
-
-cantus = \notes \relative c {
+cantus = \notes {
   \clef "vaticana_fa2"
   \[ f \quilisma g \auctum \descendens a \]
   \[ \virga a g \pes a \inclinatum f \inclinatum d
@@ -31,59 +22,23 @@ verba = \context Lyrics = verba \lyrics {
 }
 
 \score {
-  \context VaticanaStaff <
-    \context VaticanaVoice <
-      \cantus
-      \verba
-    >
+  \context VaticanaVoice <
+    \cantus
+    \verba
   >
   \paper {
-    stafflinethickness = \staffspace / 5.0
-    linewidth = 15.0 \cm
+    stafflinethickness = \staffspace / 7.0
+    linewidth = 137.0 \mm
+    width = 137.0 \mm
     indent = 0.0
-%
-% FIXME: ragged-right alignment is currently broken
-%   width = 12.0 \cm
-%   raggedright = ##t
-%   gourlay_maxmeasures = 30.
-%   arithmetic_basicspace = 3.8
-%   arithmetic_multiplier = 8.\pt
-%
-    \translator {
-      \VoiceContext
-      \name VaticanaVoice
-      \alias Voice
-      \remove "Stem_engraver"
-      \remove Ligature_bracket_engraver
-      \consists Vaticana_ligature_engraver
-      NoteHead \set #'style = #'vaticana_punctum
-%     TextScript \set #'padding = #0.0
-    }
-    \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: how to get same as \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 {
-      \HaraKiriStaffContext
-      \accepts VaticanaVoice
-    }
+    raggedright = ##t
+    packed = ##t
+    % packed = ##t %%%% FIXME
     \translator {
       \ScoreContext
-      \accepts VaticanaStaff
       \remove Bar_number_engraver
+      timing = ##f
+      barAlways = ##t
     }
   }
 }