- gr 'text
- (make-raise-markup -0.5
- (case sp
- ((-5) (make-simple-markup "m"))
- ((-3) (make-simple-markup "c "))
- ((-2) (make-smaller-markup (make-bold-markup "2")))
- (else (make-simple-markup "bla"))
- ))))
- )))
-
-\context Voice \relative c' {
- \stemUp
- \set autoBeaming = ##f
- { <d f g b>8
- \context Voice \applyOutput #mc-squared
-
- <d f g b>
- }
-
+ gr 'stencil
+ (grob-interpret-markup gr
+ #{ \markup \raise #-0.5
+ #(case sp
+ ((-5) "m")
+ ((-3) "c ")
+ ((-2) #{ \markup \teeny \bold 2 #})
+ (else "bla")) #}))))
+
+\new Voice \relative {
+ \set autoBeaming = ##f
+
+ <d' f g b>8
+
+ \applyOutput Voice.NoteHead #mc-squared
+ <d f g b>8