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 %% Tags: expressive-marks
   4 \version "2.11.35"
   5
   6 \header { texidoc = "
   7 To make the \\flageolet circle smaller you can use the following scheme
   8 code (found in the Lilypond-user-archive)
   9 " }
  10 % begin verbatim
  11 F = #(let ((m (make-music 'ArticulationEvent
  12                           'articulation-type "flageolet")))
  13        (set! (ly:music-property m 'tweaks)
  14              (acons 'font-size -3
  15                     (ly:music-property m 'tweaks)))
  16        m)
  17
  18 \relative c'' { d4^\flageolet_\markup {"orginal \flageolet "} d4_\flageolet
  19   c4^\F_\markup {smaller } c4_\F
  20 }