%% Generated by lilypond-book.py
%% Options: [alt=[image of music],printfilename,indent=0\mm,texidoc,line-width=160\mm]
\include "lilypond-book-preamble.ly"


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



\paper {
  #(define dump-extents #t)
  
  indent = 0\mm
  line-width = 160\mm
  force-assignment = #""
  line-width = #(- line-width (* mm  3.000000))
}

\layout {
  
}



% ****************************************************************
% ly snippet:
% ****************************************************************
\sourcefilename "/home/lilydev/vc/gub/target/linux-x86/src/lilypond-localhost--home-lilydev-vc-lilypond-master/input/regression/incipit.ly"
\sourcefileline 0
\header {

  texidoc = "Incipit can be printed using an InstrumentName grob."

}

\version "2.12.0"

%% to avoid warnings:
#(set-object-property! 'music 'backend-type? ly:music?)
#(set-object-property! 'music 'backend-doc "Incipit music")

\score {
  \new Staff {
    %% All this would be shortcuted by an appropriate music function:
    \override Staff.InstrumentName #'music = ##{ \clef "petrucci-c1" c'4 d' e' f' #}
    \override Staff.InstrumentName #'self-alignment-X = #RIGHT
    \override Staff.InstrumentName #'self-alignment-Y = #UP
    \override Staff.InstrumentName #'Y-offset = #4
    \override Staff.InstrumentName #'padding = #0
    \override Staff.InstrumentName #'stencil = 
    #(lambda (grob)
       (let* ((instrument-name (ly:grob-property grob 'long-text))
              (layout (ly:output-def-clone (ly:grob-layout grob)))
              (music (make-music 'SequentialMusic
                      'elements (list (make-music 'ContextSpeccedMusic
                                        'context-type 'MensuralStaff
                                        'element (make-music 'PropertySet
                                                   'symbol 'instrumentName
                                                   'value instrument-name))
                                      (ly:grob-property grob 'music))))
              (score (ly:make-score music))
              (mm (ly:output-def-lookup layout 'mm))
              (indent (ly:output-def-lookup layout 'indent))
              (incipit-width (ly:output-def-lookup layout 'incipit-width))
              (scaled-incipit-width (if (number? incipit-width)
                                        (* incipit-width mm)
                                        (* indent 0.5))))
         (ly:output-def-set-variable! layout 'indent (- indent scaled-incipit-width))
         (ly:output-def-set-variable! layout 'line-width indent)
         (ly:output-def-set-variable! layout 'ragged-right #f)
         (ly:score-add-output-def! score layout)
         (set! (ly:grob-property grob 'long-text)
               (markup #:score score))
         (ly:system-start-text::print grob)))

    %% the instrument name definition is separated:
    \set Staff.instrumentName = \markup Instrument
    c'4 d' e' f' g'1
  }
  \layout {
    ragged-right = ##t
    indent = 5\cm
    incipit-width = 3 \cm
  }
}


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