Merge branch 'jneeman' of git+ssh://jneem@git.sv.gnu.org/srv/git/lilypond into jneeman

[lilypond.git] / input / test / ancient-accidentals.ly

diff --git a/input/test/ancient-accidentals.ly b/input/test/ancient-accidentals.ly
index 474d1530609a391377ae97452edf48a022e516c6..10c5ab79befa89c4f6059522649486de45740943 100644 (file)
--- a/input/test/ancient-accidentals.ly
+++ b/input/test/ancient-accidentals.ly
@@ -1,54 +1,23 @@
+
 \header {
 texidoc = "@cindex Ancient Accidentals
-Accidentals are available in different ancient styles. This
-file lists all of them.
+Accidentals are available in different ancient styles, which all
+are collected here.
 "
 }
 
-\version "1.7.18"
+\version "2.10.0"
 
-\score { 
-  \context Voice \notes\relative c {
-    \time 3/4
-       \property Staff.Accidental \set #'style = #'default
-       cisis''^"Accidental style = \#'default" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'hufnagel
-       cisis^"Accidental style = \#'hufnagel" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'medicaea
-       cisis^"Accidental style = \#'medicaea" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'vaticana
-       cisis^"Accidental style = \#'vaticana" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \property Staff.Accidental \set #'style = #'mensural
-       cisis^"Accidental style = \#'mensural" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       
-  }
+\relative c'' {
+      \time 5/4
+      \override Staff.Accidental  #'style = #'default
+      cisis^\markup { \typewriter default } cis c ces ceses 
+      \override Staff.Accidental  #'style = #'hufnagel
+      cisis^\markup { \typewriter hufnagel } cis c ces ceses 
+      \override Staff.Accidental  #'style = #'medicaea
+      cisis^\markup { \typewriter medicaea } cis c ces ceses 
+      \override Staff.Accidental  #'style = #'vaticana
+      cisis^\markup { \typewriter vaticana } cis c ces ceses 
+      \override Staff.Accidental  #'style = #'mensural
+      cisis^\markup { \typewriter mensural } cis c ces ceses 
 }
-%% new-chords-done %%