input/lsr/changing--flageolet-mark-size.ly

   1 %% Do not edit this file; it is auto-generated from LSR http://lsr.dsi.unimi.it
   2 %% This file is in the public domain.
   3 \version "2.11.38"
   4
   5 \header {
   6   lsrtags = "expressive-marks"
   7  texidoc = "
   8 To make the @code{\\flageolet} circle smaller you can use the following
   9 Scheme code.
  10 " }
  11 % begin verbatim
  12 smallFlageolet = #(let ((m (make-music 'ArticulationEvent
  13                           'articulation-type "flageolet")))
  14        (set! (ly:music-property m 'tweaks)
  15              (acons 'font-size -3
  16                     (ly:music-property m 'tweaks)))
  17        m)
  18
  19 \relative c'' {
  20   d4^\flageolet_\markup { default size } d4_\flageolet
  21   c4^\smallFlageolet_\markup { smaller } c4_\smallFlageolet
  22 }