%% 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 "/main/src/gub/target/linux-x86/src/lilypond-git.sv.gnu.org--lilypond.git-stable-2.12/input/regression/flags-default.ly"
\sourcefileline 0
\version "2.12.0"
#(set-global-staff-size 17)

\header {
  texidoc = "Default flag styles: '(), 'mensural and 'no-flag.
  Compare all three methods to print them: (1) C++ default implementation, 
  (2) Scheme implementation using the 'flag-style grob property and 
  (3) setting the 'flag property explicitly to the desired Scheme function.
  All three systems should be absolutely identical."
}

\paper {
  line-width = 18\cm
}

% test notes, which will be shown in different style:
testnotes = { \autoBeamOff
  c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64
  c''8 d''16 c''32 d''64 \acciaccatura {c''8} d''64
}

% Old settings: flag-style set to default, 'mensural, 'no-flag; using the
% default C++ function ly:stem::calc-stem
{
  \override Score.RehearsalMark #'self-alignment-X = #LEFT
  \time 2/4

  \mark "Default flags (C++)"
  \testnotes

  \mark "Symbol: 'mensural (C++)"
  \override Stem #'flag-style = #'mensural
  \testnotes

  \mark "Symbol: 'no-flag (C++)"
  \override Stem #'flag-style = #'no-flag
  \testnotes
}

% The same, but using the Scheme implementation of default-flag
{
  \override Score.RehearsalMark #'self-alignment-X = #LEFT
  \time 2/4

  \override Stem #'flag = #default-flag
  \revert Stem #'flag-style
  \mark "Default flags (Scheme)"
  \testnotes

  \mark "Symbol: 'mensural (Scheme)"
  \override Stem #'flag-style = #'mensural
  \testnotes

  \mark "Symbol: 'no-flag (Scheme)"
  \override Stem #'flag-style = #'no-flag
  \testnotes
}

% New scheme functions: normal-flag, mensural-flag, no-flag
{
  \override Score.RehearsalMark #'self-alignment-X = #LEFT
  \time 2/4

  \mark "Function: normal-flag"
  \override Stem #'flag = #normal-flag
  \testnotes

  \mark "Function: mensural-flag"
  \override Stem #'flag = #mensural-flag
  \testnotes

  \mark "Function: no-flag"
  \override Stem #'flag = #no-flag
  \testnotes
}



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