-#(ly:set-option 'old-relative)
-\version "1.9.1"
+
+\version "2.10.0"
% possible rename to scheme- or something like that. -gp
\header { texidoc = "@cindex Scheme Move Text
-You can move objects around with scheme. This example shows how to
-move text around. " }
+Objects, like text, can be moved around by using some Scheme code.
+" }
#(define (make-text-checker text)
- (lambda (grob) (equal? text (ly:get-grob-property grob 'text))))
+ (lambda (grob) (equal? text (ly:grob-property grob 'text))))
\score {
- \notes\relative c''' {
- \property Voice.Stem \set #'direction = #1
- \outputproperty #(make-text-checker (make-simple-markup "m.d."))
- #'extra-offset = #'(-3.5 . -4.5)
+ \relative c''' {
+ \stemUp
+ \applyOutput #'Voice #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d."))
+ 'extra-offset '(-3.5 . -4.5))
a^2^"m.d."
}
- \paper { raggedright = ##t}
+ \layout { ragged-right = ##t}
}