release: 1.3.2

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

diff --git a/input/test/script-horizontal.ly b/input/test/script-horizontal.ly
index d541d25640987c4d832678b0180774be1a508550..a0090ba8e84f9d78ba151cf4db27839478ad6b68 100644 (file)
--- a/input/test/script-horizontal.ly
+++ b/input/test/script-horizontal.ly
@@ -1,10 +1,44 @@
 
+
+%{
+
+Please don't use this Scheme hacking unless you have a good reason.
+Support for the \property textExtraOffset will not go into LilyPond in
+this form.
+
+I think extra-offset will stay - but perhaps I'll change the name
+
+%}
+
+
+#(set! generic-thread-properties
+       (append!
+        generic-thread-properties
+        (list
+         (cons "Text_item"
+          (list
+           (list 'textExtraOffset pair? 'extra-offset)
+          )
+         )
+         (cons "Script"
+          (list
+           (list 'scriptExtraOffset pair? 'extra-offset)
+          )
+         )
+        )
+))
+       
+
+       
 \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.textExtraOffset = #'(-0.5 . -0.5)
+                       \property Thread.scriptExtraOffset = #'(2.25 . -0.5)
+               e'4-2^\prall }
                \context Thread = TC { g'4^4 }
        >
        
@@ -16,6 +50,7 @@
                }
                \translator {
                \ThreadContext
+               Generic_property_list = #generic-thread-properties
                \consists Script_engraver;
                \consists Text_engraver;                
                }