]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/ancient-accidentals.ly
* scm/framework-ps.scm (dump-stencil-as-EPS): fix thinkos.
[lilypond.git] / input / test / ancient-accidentals.ly
index 7351d0e5639fb704007715461c620f1ab097f99b..7687c0de007fc6048bda3429520635052567c08d 100644 (file)
@@ -6,50 +6,18 @@ are collected here.
 "
 }
 
-\version "2.2.0"
+\version "2.7.39"
 
-\score { 
-  \context Voice \notes\relative c {
-    \time 3/4
-       \override Staff.Accidental  #'style = #'default
-       cisis''^"Accidental style = \#'default" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \override Staff.Accidental  #'style = #'hufnagel
-       cisis^"Accidental style = \#'hufnagel" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \override Staff.Accidental  #'style = #'medicaea
-       cisis^"Accidental style = \#'medicaea" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \override Staff.Accidental  #'style = #'vaticana
-       cisis^"Accidental style = \#'vaticana" cisis! cisis? |
-       cis cis! cis? | 
-       c c! c? |
-       ces ces! ces? |
-       ceses ceses! ceses? |
-       \break
-       
-       \override Staff.Accidental  #'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 
 }
-