%% Generated by lilypond-book
%% Options: [exampleindent=10.16\mm,indent=0\mm,line-width=160\mm,paper-height=845.047\pt,paper-width=597.508\pt,papersize='(cons (* 597.508 pt) (* 845.047 pt))]
\include "lilypond-book-preamble.ly"


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

#(ly:set-option 'eps-box-padding 3.000000)



\paper {
  #(set-paper-size '(cons (* 597.508 pt) (* 845.047 pt)))
  indent = 0\mm
  line-width = 160\mm
  % offset the left padding, also add 1mm as lilypond creates cropped
  % images with a little space on the right
  line-width = #(- line-width (* mm  3.000000) (* mm 1))
}

\layout {
  
}




% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "/lilypond-2.27.1/input/regression/note-head-glyph.ly"
\sourcefileline 0
\version "2.27.1"

\header {
  texidoc = "The @code{glyph-name} property of noteheads contains an actual
glyph name in the font, which can also be overridden."
}

\layout {
  indent = 0
}

#(define (Text_script_to_notehead_engraver context)
   (make-engraver
    (acknowledgers
     ((note-head-interface engraver notehead source-engraver)
      (let
       ((script (ly:engraver-make-item engraver 'TextScript '())))
       (ly:grob-set-parent! script X notehead))))))

\layout {
  \context {
    \TabStaff
    \consists #Text_script_to_notehead_engraver
    \revert TextScript.stencil
  }
  \context {
    \Staff
    \consists #Text_script_to_notehead_engraver
    \consists Ambitus_engraver
  }
  \context {
    \MensuralStaff
    \consists #Text_script_to_notehead_engraver
  }
  \context {
    \Score
    \textLengthOn
    \override TextScript.font-size = -4
    \override TextScript.before-line-breaking =
    #(lambda (script)
       (define (format-string str)
         (if (equal? str "")
             "[empty]"
             str))
       (let ((notehead (ly:grob-parent script X)))
         (when (grob::has-interface notehead 'note-head-interface)
           (ly:grob-set-property!
            script
            'text
            (format-string (ly:grob-property notehead 'glyph-name))))))
  }
}

<<
  \new Staff \relative {
    c'1*1/4
    d2*1/2
    e4
    f4\harmonic
    |
    \approximatePitch a'4
    \approximatePitch a,,4
    \once \aikenHeads
    \pitchedTrill d'4\startTrillSpan cis
    a2*1/2 \stopTrillSpan
    |
    e2
    \tweak glyph-name "noteheads.u2arrow" e
  }
  \new TabStaff {
    c'4
    d
    \deadNote e
    \improvisationOn g
    |
  }
  \new MensuralStaff \relative {
    d'\longa*1/16
    e
    f\breve*1/8
    g
    |
  }
>>



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