Documentation/snippets/changing--flageolet-mark-size.ly

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.di.unimi.it
   3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
   4 %% and then run scripts/auxiliar/makelsr.py
   5 %%
   6 %% This file is in the public domain.
   7 \version "2.18.0"
   8
   9 \header {
  10   lsrtags = "expressive-marks, scheme-language, specific-notation, symbols-and-glyphs, unfretted-strings"
  11
  12   texidoc = "
  13 To make the @code{\\flageolet} circle smaller use the following Scheme
  14 function.
  15
  16 "
  17   doctitle = "Changing \\flageolet mark size"
  18 } % begin verbatim
  19
  20 smallFlageolet =
  21 #(let ((m (make-articulation "flageolet")))
  22    (set! (ly:music-property m 'tweaks)
  23          (acons 'font-size -3
  24                 (ly:music-property m 'tweaks)))
  25    m)
  26
  27 \layout { ragged-right = ##f }
  28
  29 \relative c'' {
  30   d4^\flageolet_\markup { default size } d_\flageolet
  31   c4^\smallFlageolet_\markup { smaller } c_\smallFlageolet
  32 }