rename ancient-accidentals

[lilypond.git] / input / regression / accidental-ancient.ly

diff --git a/input/regression/accidental-ancient.ly b/input/regression/accidental-ancient.ly
new file mode 100644 (file)
index 0000000..879f81c
--- /dev/null
+++ b/input/regression/accidental-ancient.ly
@@ -0,0 +1,26 @@
+
+\header {
+texidoc = "@cindex Ancient Accidentals
+Accidentals are available in different ancient styles, which all
+are collected here.
+"
+}
+
+\version "2.11.6"
+
+\relative c'' {
+      \time 3/4
+      cis^\markup { \typewriter default } c ces  
+
+      \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
+      cis^\markup { \typewriter hufnagel } c ces  
+
+      \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
+      cis^\markup { \typewriter medicaea } c ces  
+
+      \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
+      cis^\markup { \typewriter vaticana } c ces  
+
+      \override Staff.Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
+      cis^\markup { \typewriter mensural } c ces  
+}