input/regression/flags-default.ly

   1 \version "2.11.57"
   2 #(set-global-staff-size 17)
   3
   4 \header {
   5   texidoc = "Default flag styles: '(), 'mensural and 'no-flag.
   6   Compare all three methods to print them (C++ default implementation,
   7   Scheme implementation using the 'flag-style grob property and
   8   setting the 'flag property explicitly to the desired Scheme function.
   9   All three lines should be absolutely identical."
  10 }
  11
  12 \paper {
  13   line-width = 18\cm
  14 }
  15
  16 % test notes, which will be shown in different style:
  17 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  }
  18
  19 {
  20   \override Score.RehearsalMark #'self-alignment-X = #LEFT
  21   \time 2/4
  22   s2 \break
  23
  24   % Old settings: default, 'mensural, 'no-flag
  25   \mark "Default flags (C++)"
  26   \testnotes
  27
  28   \mark "Symbol: 'mensural (C++)"
  29   \override Stem #'flag-style = #'mensural
  30   \testnotes
  31
  32   \mark "Symbol: 'no-flag (C++)"
  33   \override Stem #'flag-style = #'no-flag
  34   \testnotes
  35
  36   \break
  37
  38   % The same, but with the Scheme implementation of default-flag
  39   \override Stem #'flag = #default-flag
  40   \revert Stem #'flag-style
  41   \mark "Default flags (Scheme)"
  42   \testnotes
  43
  44   \mark "Symbol: 'mensural (Scheme)"
  45   \override Stem #'flag-style = #'mensural
  46   \testnotes
  47
  48   \mark "Symbol: 'no-flag (Scheme)"
  49   \override Stem #'flag-style = #'no-flag
  50   \testnotes
  51
  52   \break
  53
  54   % New settings: no settings, normal-flag, mensural-flag, no-flag
  55   \mark "Function: normal-flag"
  56   \override Stem #'flag = #normal-flag
  57   \testnotes
  58
  59   \mark "Function: mensural-flag"
  60   \override Stem #'flag = #mensural-flag
  61   \testnotes
  62
  63   \mark "Function: no-flag"
  64   \override Stem #'flag = #no-flag
  65   \testnotes
  66 }