]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/script-horizontal.ly
release: 1.3.137
[lilypond.git] / input / test / script-horizontal.ly
index 56309bd2680b0ac9495b67a8277492de1885dca6..551d139a7a4aa5a69b9a52e24a36b6bf7e5fb89e 100644 (file)
@@ -1,44 +1,16 @@
-
-
-
 %{
 
 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 = ##t
-                       \property Thread.textExtraOffset = #'(-0.5 . -0.5)
-                       \property Thread.scriptExtraOffset = #'(2.25 . -0.5)
+                       \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 }
        >
@@ -47,11 +19,9 @@ I think extra-offset will stay - but perhaps I'll change the name
                \VoiceContext
                \remove Script_engraver;
                \remove Text_engraver;
-               
                }
                \translator {
                \ThreadContext
-               Generic_property_list = #generic-thread-properties
                \consists Script_engraver;
                \consists Text_engraver;                
                }