%% 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.26.0/input/regression/note-head-style.ly"
\sourcefileline 0
\version "2.25.33"

\header{
  texidoc="
Note head shapes may be set from several choices.
The stem endings should be adjusted according to the note head.
If you want different note head styles on one stem,
you must create a special context.

Harmonic notes have a different shape and different
dimensions, as have arrow note heads.
"
}

#(ly:set-option 'warning-as-error #t)

\layout {
  indent = 0.0
  ragged-right = ##t
}

pattern =
#(define-music-function (name style) (markup? ly:context-mod?)
#{ <<
  \override Staff.TimeSignature.note-head-style = #(string->symbol name)
  \time 2/2
  s1^#name
  \new Voice \with #style {
    \override Stem.direction = #UP
    e'4 d'2. e'1 e'\breve*1/2 e'\longa*1/4
  }
  \new Voice \with #style {
    \override Stem.direction = #DOWN
    g4 a2. g1 g\breve*1/2 g\longa*1/4
  }
>> #})

patternStyle =
#(define-music-function (style) (symbol?)
  #{
     \pattern #(symbol->string style) \with {
       \override NoteHead.style = #style
     }
  #})

\transpose c c {
  \clef C
  \override Staff.TimeSignature.style = #'numbered
  \override Staff.TimeSignature.denominator-style = #'note
  \override Staff.TimeSignature.break-visibility = #end-of-line-invisible

  \patternStyle default
  \patternStyle altdefault

  \break

  \patternStyle baroque
  \patternStyle neomensural

  \break

  \patternStyle mensural
  \patternStyle petrucci

  \break

  \patternStyle harmonic
  \patternStyle harmonic-black

  \break

  \patternStyle harmonic-mixed
  \patternStyle diamond

  \break

  \patternStyle cross
  \patternStyle xcircle

  \break

  \patternStyle triangle
  \patternStyle slash

  \break

  \patternStyle arrow
  \pattern "kievan" \with { \kievanOn }

}



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