input/regression/flags-straight.ly

   1 \version "2.14.0"
   2
   3 \header {
   4   texidoc = "Straight flag styles."
   5 }
   6
   7
   8 % test notes, which will be shown in different styles:
   9 testnotes = { \autoBeamOff c'8 d'16 c'32 d'64 \acciaccatura {c'8} d'64
  10    c''8 d''16 c''32 d''64 \acciaccatura {\stemDown c''8 \stemNeutral} d''64  }
  11
  12 {
  13   \override Score.RehearsalMark #'self-alignment-X = #LEFT
  14   \time 2/4
  15   \mark "modern straight"
  16   \override Stem #'flag = #modern-straight-flag
  17   \testnotes
  18
  19   \mark "old straight (large angles)"
  20   \override Stem #'flag = #old-straight-flag
  21   \testnotes
  22 %
  23 %   \mark "custom slant"
  24 % %   Custom straight flag. The parameters are:
  25 % %                flag thickness and spacing
  26 % %                up-flag angle and length
  27 % %               down-flag angle and length
  28 %   \override Stem #'flag = #(straight-flag 0.35 0.8 -5 0.5 60 2.0)
  29 %   \testnotes
  30 }