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

   1 %% Do not edit this file; it is automatically
   2 %% generated from LSR http://lsr.dsi.unimi.it
   3 %% This file is in the public domain.
   4 \version "2.13.16"
   5
   6 \header {
   7   lsrtags = "expressive-marks, unfretted-strings"
   8
   9 %% Translation of GIT committish: 2b0dc29608d6c3f5a03ead4877ae514c647adb74
  10   texidoces = "
  11 Para hacer más pequeño el círculo de @code{\\flageolet} (armónico)
  12 utilice la siguiente función de Scheme.
  13
  14 "
  15   doctitlees = "Cambiar el tamaño de la marca de \\flageolet"
  16
  17 %% Translation of GIT committish: 0a868be38a775ecb1ef935b079000cebbc64de40
  18   texidocde = "
  19 Um den @code{\\flageolet}-Kreis kleiner zu machen, kann diese
  20 Scheme-Funktion eingesetzt werden.
  21
  22 "
  23   doctitlede = "\\flageolet-Zeichen verkleinern"
  24 %% Translation of GIT committish: 5b980ee07bba23d3633de1d371fb2926f164e295
  25
  26   texidocfr = "
  27 Il est possible de rapetisser le cercle d'un @code{\\flageolet} grâce
  28 à une fonction Scheme.
  29
  30 "
  31   doctitlefr = "Modifier la taille d'un \\flageolet"
  32
  33
  34   texidoc = "
  35 To make the @code{\\flageolet} circle smaller use the following Scheme
  36 function.
  37
  38 "
  39   doctitle = "Changing \\flageolet mark size"
  40 } % begin verbatim
  41
  42 smallFlageolet =
  43 #(let ((m (make-articulation "flageolet")))
  44    (set! (ly:music-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