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

   1 %% DO NOT EDIT this file manually; it is automatically
   2 %% generated from LSR http://lsr.dsi.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.14.2"
   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
  21 smallFlageolet =
  22 #(let ((m (make-articulation "flageolet")))
  23    (set! (ly:music-property m 'tweaks)
  24          (acons 'font-size -3
  25                 (ly:music-property m 'tweaks)))
  26    m)
  27
  28 \layout { ragged-right = ##f }
  29
  30 \relative c'' {
  31   d4^\flageolet_\markup { default size } d_\flageolet
  32   c4^\smallFlageolet_\markup { smaller } c_\smallFlageolet
  33 }