input/test/move-specific-text.ly

   1 #(ly:set-option 'old-relative)
   2 \version "1.9.1"
   3 % possible rename to scheme- or something like that.  -gp
   4 \header { texidoc = "@cindex Scheme Move Text
   5 You can move objects around with scheme.  This example shows how to
   6 move text around. " }
   7
   8 #(define (make-text-checker text)
   9    (lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
  10
  11 \score {
  12   \notes\relative c''' {
  13     \property Voice.Stem \set #'direction = #1
  14     \outputproperty #(make-text-checker (make-simple-markup "m.d."))
  15       #'extra-offset = #'(-3.5 . -4.5)
  16     a^2^"m.d."
  17   }
  18   \paper { raggedright = ##t}
  19 }
  20