input/test/script-horizontal.ly

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