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.62"
   4
   5 \header {
   6   lsrtags = "expressive-marks, unfretted-strings"
   7
   8   texidoces = "
   9 Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
  10 utilice la siguiente función de Scheme.
  11
  12 "
  13   doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
  14
  15   texidoc = "
  16 To make the @code{\\flageolet} circle smaller use the following Scheme
  17 function.
  18
  19 "
  20   doctitle = "Changing \\flageolet mark size"
  21 } % begin verbatim
  22
  23 smallFlageolet = #(let ((m (make-music 'ArticulationEvent
  24                           'articulation-type "flageolet")))
  25        (set! (ly:music-property m 'tweaks)
  26              (acons 'font-size -3
  27                     (ly:music-property m 'tweaks)))
  28        m)
  29
  30 \layout { ragged-right = ##f }
  31
  32 \relative c'' {
  33   d4^\flageolet_\markup { default size } d_\flageolet
  34   c4^\smallFlageolet_\markup { smaller } c_\smallFlageolet
  35 }