1 % Do not edit this file; it is automatically
2 % generated from Documentation/snippets/new
3 % This file is in the public domain.
4 %% Note: this file works from version 2.13.36
8 %% Translation of GIT committish: fa19277d20f8ab0397c560eb0e7b814bd804ecec
11 Las cabezas de nota de notación fácil utilizan la propiedad
12 @code{note-names} del objeto @code{NoteHead} para determinar lo que
13 aparece dentro de la cabeza. Mediante la sobreescritura de esta
14 propiedad, es posible imprimir números que representen el grado de la
17 Se puede crear un grabador simple que haga esto para la cabeza de cada
22 doctitlees = "Números como notas de notación fácil"
26 Easy notation note heads use the @code{note-names} property
27 of the @code{NoteHead} object to determine what appears inside
28 the note head. By overriding this property, it is possible
29 to print numbers representing the scale-degree.
31 A simple engraver can be created to do this for every note head
34 doctitle = "Numbers as easy note heads"
38 #(define Ez_numbers_engraver
42 (cons 'note-head-interface
43 (lambda (engraver grob source-engraver)
44 (let* ((context (ly:translator-context engraver))
45 (tonic-pitch (ly:context-property context 'tonic))
46 (tonic-name (ly:pitch-notename tonic-pitch))
48 (ly:event-property (event-cause grob) 'pitch))
49 (grob-name (ly:pitch-notename grob-pitch))
50 (delta (modulo (- grob-name tonic-name) 7))
52 (make-vector 7 (number->string (1+ delta)))))
53 (ly:grob-set-property! grob 'note-names note-names))))))))
55 #(set-global-staff-size 26)
61 \consists \Ez_numbers_engraver