%% 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/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 % ****************************************************************