*** empty log message ***

[lilypond.git] / input / test / script-horizontal.ly

diff --git a/input/test/script-horizontal.ly b/input/test/script-horizontal.ly
index d541d25640987c4d832678b0180774be1a508550..dc84b300fa84f5ae9d09b9e8550af39d5b51b30b 100644 (file)
--- a/input/test/script-horizontal.ly
+++ b/input/test/script-horizontal.ly
@@ -1,23 +1,32 @@
+\version "1.7.18"
 
-\score {
+\header{ texidoc = "@cindex Script Horizontal
+Please don't use this Scheme hacking unless you have a good reason. "
+}
 
+% delete me, input/regression/finger-horizontal is a better example. -hwn
+\score {
        \notes \context Voice <
                \context Thread = TA { c'4_1 }
-               \context Thread = TB { \property Thread.scriptHorizontal = "1"
-               e'4-2-\trill }
+               \context Thread = TB {
+                       \property Thread.scriptHorizontal = ##t
+                       \property Thread.TextScript \set #'extra-offset = #'(-0.5 . -0.5)
+                       \property Thread.Script \set #'extra-offset = #'(2.25 . -0.5)
+               e'4-2^\prall }
                \context Thread = TC { g'4^4 }
        >
        
        \paper { \translator {
                \VoiceContext
-               \remove Script_engraver;
-               \remove Text_engraver;
-               
+               \remove Script_engraver
+               \remove Text_engraver
                }
                \translator {
                \ThreadContext
-               \consists Script_engraver;
-               \consists Text_engraver;                
+               \consists Script_engraver
+               \consists Text_engraver         
                }
+       raggedright=##t
        }
 }
+%% new-chords-done %%