%% Generated by lilypond-book.py %% Options: [linewidth=160\mm,alt=[image of music],printfilename,indent=0\mm,texidoc] #(set! toplevel-score-handler ly:parser-print-score) #(set! toplevel-music-handler (lambda (p m) (ly:parser-print-score p (ly:music-scorify m p)))) #(ly:set-option (quote no-point-and-click)) #(define version-seen? #t) % **************************************************************** % Start cut-&-pastable-section % **************************************************************** \paper { #(define dump-extents #t) linewidth = 160\mm indent = 0\mm } \layout { } % **************************************************************** % ly snippet: % **************************************************************** \renameinput "move-specific-text.ly" \version "2.6.0" % possible rename to scheme- or something like that. -gp \header { texidoc = "@cindex Scheme Move Text Objects, like text, can be moved around by using some Scheme code. " } #(define (make-text-checker text) (lambda (grob) (equal? text (ly:grob-property grob 'text)))) \score { \relative c''' { \override Stem #'direction = #1 \applyoutput #(outputproperty-compatibility (make-text-checker (make-simple-markup "m.d.")) 'extra-offset '(-3.5 . -4.5)) a^2^"m.d." } \layout { raggedright = ##t} } % **************************************************************** % end ly snippet % ****************************************************************