Documentation/snippets/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.13.1"
   4
   5 \header {
   6   lsrtags = "expressive-marks, unfretted-strings"
   7
   8 %% Translation of GIT committish: b2d4318d6c53df8469dfa4da09b27c15a374d0ca
   9   texidoces = "
  10 Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
  11 utilice la siguiente función de Scheme.
  12
  13 "
  14   doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
  15
  16 %% Translation of GIT committish: 0099693675b95c7ec6664d7277f22411a14e9c1b
  17
  18   texidocfr = "
  19 Il est possible de rapetisser le cercle d'un @code{\\flageolet} grâce
  20 à une fonction Scheme.
  21
  22 "
  23   doctitlefr = "Modifier la taille d'un \\flageolet"
  24
  25 %% Translation of GIT committish: d96023d8792c8af202c7cb8508010c0d3648899d
  26   texidocde = "
  27 Um den @code{\\flageolet}-Kreis kleiner zu machen, kann diese
  28 Scheme-Funktion eingesetzt werden.
  29
  30 "
  31   doctitlede = "\\flageolet-Zeichen verkleinern"
  32
  33   texidoc = "
  34 To make the @code{\\flageolet} circle smaller use the following Scheme
  35 function.
  36
  37 "
  38   doctitle = "Changing \\flageolet mark size"
  39 } % begin verbatim
  40
  41 smallFlageolet =
  42 #(let ((m (make-music 'ArticulationEvent
  43                       'articulation-type "flageolet")))
  44    (ly:music-set-property! m 'tweaks
  45      (acons 'font-size -3
  46        (ly:music-property m 'tweaks)))
  47   m)
  48
  49 \layout { ragged-right = ##f }
  50
  51 \relative c'' {
  52   d4^\flageolet_\markup { default size } d_\flageolet
  53   c4^\smallFlageolet_\markup { smaller } c_\smallFlageolet
  54 }
  55