#(define (mc-squared grob grob-origin context)
(let ((sp (ly:grob-property grob 'staff-position)))
(if (grob::has-interface grob 'note-head-interface)
#(define (mc-squared grob grob-origin context)
(let ((sp (ly:grob-property grob 'staff-position)))
(if (grob::has-interface grob 'note-head-interface)