+\version "2.10.0"
-\version "2.7.13"
\header {
-
texidoc = "The @code{\applyOutput} expression is the most flexible way to
tune properties for individual grobs.
Here, the layout of a note head is changed depending on its vertical
position.
"
+}
+\layout {
+ ragged-right = ##t
}
-\layout { raggedright = ##t }
-#(define (mc-squared gr org cur)
+#(define (mc-squared gr org cur)
(let*
(
(ifs (ly:grob-interfaces gr))
(sp (ly:grob-property gr 'staff-position))
)
- (if (and (memq 'note-head-interface ifs)
- (memq sp '(-2 -3 -5)))
+ (if (memq 'note-head-interface ifs)
(begin
- (ly:grob-set-property! gr 'stencil Text_interface::print)
+ (ly:grob-set-property! gr 'stencil ly:text-interface::print)
(ly:grob-set-property! gr 'font-family 'roman)
- (ly:grob-set-property!
- gr 'text
+ (ly:grob-set-property! gr 'text
(make-raise-markup -0.5
(case sp
((-5) (make-simple-markup "m"))
))))
)))
-\context Voice \relative c' {
+\context Voice \relative c' {
\stemUp
- \set autoBeaming = ##f
+ \set autoBeaming = ##f
+
{ <d f g b>8
- \context Voice \applyOutput #mc-squared
+ \applyOutput #'Voice #mc-squared
<d f g b>
}
-
}
+% EOF