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
6 %% This file is in the public domain.
10 lsrtags = "tweaks-and-overrides, scheme-language, really-cool"
12 %% Translation of GIT committish: 1cda7b7b8219cb97399b8e7b56c1115aaf82c002
14 La commande @code{\\applyOutput} permet de personnaliser n'importe quel
15 objet de rendu. Elle requiert une fonction Scheme à trois arguments.
18 doctitlefr = "Modification des propriétés d'objets particuliers"
21 The @code{\\applyOutput} command allows the tuning of any layout
22 object, in any context. It requires a Scheme function with three
26 doctitle = "Changing properties for individual grobs"
30 #(define (mc-squared grob grob-origin context)
31 (let ((sp (ly:grob-property grob 'staff-position)))
32 (if (grob::has-interface grob 'note-head-interface)
34 (ly:grob-set-property! grob 'stencil
35 (grob-interpret-markup grob
36 (make-lower-markup 0.5
40 ((-2) (make-smaller-markup (make-bold-markup "2")))
45 \applyOutput #'Voice #mc-squared