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 = "devel, tweaks-and-overrides, scheme-language"
12 %% Translation of GIT committish: 6977ddc9a3b63ea810eaecb864269c7d847ccf98
16 Se puede acceder @qq{lateralmente} a algunos grobs desde dentro de la
17 función de callback de otro grob. Éstos se encuentran relacionados
18 normalmente como @qq{layout objects} (objetos de presentación) en la
19 sección @qq{Internal properties} (propiedades internas) de un
20 interface de grob. Se usa la función @code{ly:grob-object} para
21 acceder a estos grobs.
24 Se presentan más abajo como ejemplo algunas formas de addecer a grobs
25 desde dentro de una función de callback de NoteHead, pero la técnica
26 no se limita a las cabezas de nota. Sin embargo, la función de
27 callback de NoteHead es especialmente importante, porque es la función
28 de callback implícita que utiliza la instrucción @code{\\tweak}.
31 La función de ejemplo que se define abajo (\"display-grobs\") no es
32 probablemente tan útil, pero muestra que se está accediendo
33 efectivamente a los grobs.
36 Salida de ejemplo de la consola:
49 doctitlees = "Utilizar ly:grob-object para acceder a los grobs con \\tweak"
53 Some grobs can be accessed @qq{laterally} from within another grob's
54 callback. These are usually listed as @qq{layout objects} in the
55 @qq{Internal properties} section of a grob-interface. The function
56 @code{ly:grob-object} is used to access these grobs.
59 Demonstrated below are some ways of accessing grobs from within a
60 NoteHead callback, but the technique is not limited to NoteHeads.
61 However, the NoteHead callback is particularly important, since it is
62 the implicit callback used by the @code{\\tweak} command.
65 The example function defined below (\"display-grobs\") is probably not
66 that useful, but it demonstrates that the grobs are indeed being
70 Example console output:
73 -------------------- #-Grob Accidental - #-Grob Arpeggio - #-Grob Stem -
78 doctitle = "Using ly:grob-object to access grobs with \\tweak"
81 #(define (notehead-get-accidental notehead)
83 (ly:grob-object notehead 'accidental-grob))
85 #(define (notehead-get-arpeggio notehead)
87 (let ((notecolumn (notehead-get-notecolumn notehead)))
88 (ly:grob-object notecolumn 'arpeggio)))
90 #(define (notehead-get-notecolumn notehead)
92 (ly:grob-parent notehead X))
94 #(define (notehead-get-stem notehead)
96 (let ((notecolumn (notehead-get-notecolumn notehead)))
97 (ly:grob-object notecolumn 'stem)))
99 #(define (display-grobs notehead)
101 (let ((accidental (notehead-get-accidental notehead))
102 (arpeggio (notehead-get-arpeggio notehead))
103 (stem (notehead-get-stem notehead)))
104 (format (current-error-port) "~2&~a\n" (make-string 20 #\-))
106 (lambda (x) (format (current-error-port) "~a\n" x))
107 (list accidental arpeggio stem))))
110 %% display grobs for each note head:
111 %\override NoteHead #'before-line-breaking = #display-grobs
114 \tweak #'before-line-breaking #display-grobs