input/test/script-horizontal.ly

   1
   2
   3
   4 %{
   5
   6 Please don't use this Scheme hacking unless you have a good reason.
   7 Support for the \property textExtraOffset will not go into LilyPond in
   8 this form.
   9
  10 I think extra-offset will stay - but perhaps I'll change the name
  11
  12 %}
  13
  14
  15 #(set! generic-thread-properties
  16         (append!
  17          generic-thread-properties
  18          (list
  19           (cons "Text_item"
  20            (list
  21             (list 'textExtraOffset pair? 'extra-offset)
  22            )
  23           )
  24           (cons "Script"
  25            (list
  26             (list 'scriptExtraOffset pair? 'extra-offset)
  27            )
  28           )
  29          )
  30 ))
  31
  32
  33
  34 \score {
  35
  36         \notes \context Voice <
  37                 \context Thread = TA { c'4_1 }
  38                 \context Thread = TB {
  39                         \property Thread.scriptHorizontal = ##t
  40                         \property Thread.textExtraOffset = #'(-0.5 . -0.5)
  41                         \property Thread.scriptExtraOffset = #'(2.25 . -0.5)
  42                 e'4-2^\prall }
  43                 \context Thread = TC { g'4^4 }
  44         >
  45
  46         \paper { \translator {
  47                 \VoiceContext
  48                 \remove Script_engraver;
  49                 \remove Text_engraver;
  50
  51                 }
  52                 \translator {
  53                 \ThreadContext
  54                 Generic_property_list = #generic-thread-properties
  55                 \consists Script_engraver;
  56                 \consists Text_engraver;
  57                 }
  58         }
  59 }