%% Generated by lilypond-book.py
%% Options: [quote,alt=[image of music],ragged-right,indent=0\mm]
\include "lilypond-book-preamble.ly"







% ****************************************************************
% Start cut-&-pastable-section 
% ****************************************************************

\paper {
  #(define dump-extents #t)
  
  line-width = 160\mm - 2.0 * 0.4\in
  ragged-right = ##t
  indent = 0\mm
}

\layout {
  
}



% ****************************************************************
% ly snippet:
% ****************************************************************
#(define (mc-squared grob orig current)
  (let ((interfaces (ly:grob-property grob 'interfaces))
        (pos (ly:grob-property grob 'staff-position)))
    (if (and (memq 'note-head-interface interfaces)
             (memq pos '(-2 -3 -5)))
        (begin
          (ly:grob-set-property! grob 'stencil ly:text-interface::print)
          (ly:grob-set-property! grob 'font-family 'roman)
          (ly:grob-set-property!
           grob 'text
           (make-raise-markup
            -0.5
            (case pos
              ((-5) (make-simple-markup "m"))
              ((-3) (make-simple-markup "c "))
              ((-2) (make-smaller-markup (make-bold-markup "2")))
              (else (make-simple-markup "bla")))))))))

\new Voice \relative c' {
   \stemUp
   \set autoBeaming = ##f
   \time 2/4
   <d f g>4
   \once \override NoteHead #'stencil = #ly:note-head::brew-ez-stencil
   <d f g>
   \once \override NoteHead #'style = #'cross
   <d f g>
   \applyOutput #mc-squared
   <d f g>
   <<
      { d8[ es-( fis^^ g] fis2-) }
      \repeat unfold 5 { \applyOutput #mc-squared s8 }
   >>
}



% ****************************************************************
% end ly snippet
% ****************************************************************
