]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/accidental-ancient.ly
Fix #129, #228, #7
[lilypond.git] / input / regression / accidental-ancient.ly
1
2 \header {
3 texidoc = "@cindex Ancient Accidentals
4 Accidentals are available in different ancient styles, which all
5 are collected here.
6 "
7 }
8
9 \version "2.11.6"
10
11 \relative c'' {
12       \time 3/4
13       cis^\markup { \typewriter default } c ces  
14
15       \override Staff.Accidental #'glyph-name-alist = #alteration-hufnagel-glyph-name-alist
16       cis^\markup { \typewriter hufnagel } c ces  
17
18       \override Staff.Accidental #'glyph-name-alist = #alteration-medicaea-glyph-name-alist
19       cis^\markup { \typewriter medicaea } c ces  
20
21       \override Staff.Accidental #'glyph-name-alist = #alteration-vaticana-glyph-name-alist
22       cis^\markup { \typewriter vaticana } c ces  
23
24       \override Staff.Accidental #'glyph-name-alist = #alteration-mensural-glyph-name-alist
25       cis^\markup { \typewriter mensural } c ces  
26 }