%% 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/flags-straight-staff-size.ly"
\sourcefileline 0
\version "2.23.14"

\header {
  texidoc = "Straight flags scale properly at different staff sizes for
@code{TextScript} and music.

The test uses extreme staff size values, scaled to approximately the same
size for better comparison."
}

staffSize = #(define-music-function (new-size) (number?)
  #{
    \set fontSize = #new-size
    \override StaffSymbol.staff-space = #(magstep new-size)
    \override StaffSymbol.thickness = #(magstep new-size)
  #})

notes = {
  \stemDown a'16^\markup \note-by-number #4 #0 #-1
  \stemUp c''16_\markup \note-by-number #4 #0 #1
}

mus = {
  \omit Staff.Clef
  \omit Staff.TimeSignature
  \autoBeamOff

  \override TextScript.flag-style = #'modern-straight-flag
  \override Flag.stencil = #modern-straight-flag
  \notes
  \override TextScript.flag-style = #'old-straight-flag
  \override Flag.stencil = #old-straight-flag
  \notes
  \override TextScript.flag-style = #'flat-flag
  \override Flag.stencil = #flat-flag
  \notes
}

\markup \scale #'(10 . 10)
  \score { \new Staff \with { \staffSize #-16 } \mus }
\markup \scale #'(1.5 . 1.5)
  \score { \new Staff \with { \staffSize #0 } \mus }
\markup \scale #'(0.235 . 0.235)
  \score { \new Staff \with { \staffSize #16 } \mus }

\paper {
  indent = 0
}



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