input/regression/magnifyStaff-bar-lines.ly

   1 \version "2.19.22"
   2
   3 \header {
   4   texidoc = "Bar line thickness and spacing should be scaled along
   5 with notation size when using the @code{\magnifyStaff} command."
   6 }
   7
   8 \paper {
   9   score-system-spacing = #'((padding . 4))
  10 }
  11
  12 example =
  13 #(define-music-function (mag) (positive?)
  14    #{
  15      \new Staff \with {
  16        \magnifyStaff #mag
  17        instrumentName = \markup {
  18          \fontsize #(+ 3 (- (magnification->font-size mag)))
  19          #(format #f "~,2f" mag)
  20        }
  21      } {
  22        \omit Staff.Clef
  23        \omit Staff.TimeSignature
  24        s4 \bar "|"
  25        s4 \bar ":|.|:"
  26        s4 \bar ":|.S.|:"
  27        s4 \bar "|."
  28      }
  29    #})
  30
  31 \example 0.50
  32 \example 1.00
  33 \example 2.00