]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/ottava.ly
release: 1.3.146
[lilypond.git] / input / test / ottava.ly
index b4b0cfa9a01bfbd896f1f3c427ff444485d1bfac..f9f14670b8eef511eb91f4e0f4292b0b4e6aa1a9 100644 (file)
@@ -1,22 +1,18 @@
+\version "1.3.146"
 
-\version "1.3.117";
 
-\score{
-    \notes\relative c'''{
-        \property Voice.TextSpanner \revert #'type
-        \property Voice.TextSpanner \override #'type = #'dotted-line
-        \property Voice.TextSpanner \override #'edge-height = #'(0 . 1.5)
-        \property Voice.TextSpanner \override #'edge-text = #'("8va " . "")
-        \property Staff.centralCPosition = #-13
-
-        a\spanrequest \start "text" b c a \spanrequest \stop "text"
+fragment = \notes {
+  a'''' b c a
+  \property Voice.TextSpanner \set #'type = #'dotted-line
+  \property Voice.TextSpanner \set #'edge-height = #'(0 . 1.5)
+  \property Voice.TextSpanner \set #'edge-text = #'("8va " . "")
+  \property Staff.centralCPosition = #-13
+  a\spanrequest \start "text" b c a \spanrequest \stop "text"
+}
 
-        \property Staff.centralCPosition = #-6
-       a b c a
+\paper { linewidth = -1. } 
 
-        \property Staff.centralCPosition = #1
-        \property Voice.TextSpanner \override #'edge-text = #'("8bass " . "")
-        \property Voice.TextSpanner \override #'direction = #-1
-        a\spanrequest \start "text" b c a \spanrequest \stop "text"
-    }
+\score {
+  \notes\relative c \fragment
+  \paper { }  
 }