1 % DO NOT EDIT this file manually; it is automatically
2 % generated from Documentation/snippets/new
3 % Make any changes in Documentation/snippets/new/
4 % and then run scripts/auxiliar/makelsr.py
6 % This file is in the public domain.
7 %% Note: this file works from version 2.14.0
11 %% Translation of GIT committish: 2d548a99cb9dba80f2ff035582009477cd37eceb
14 Las cabezas de nota de notación fácil utilizan la propiedad
15 @code{note-names} del objeto @code{NoteHead} para determinar lo que
16 aparece dentro de la cabeza. Mediante la sobreescritura de esta
17 propiedad, es posible imprimir números que representen el grado de la
20 Se puede crear un grabador simple que haga esto para la cabeza de cada
25 doctitlees = "Números como notas de notación fácil"
29 Easy notation note heads use the @code{note-names} property
30 of the @code{NoteHead} object to determine what appears inside
31 the note head. By overriding this property, it is possible
32 to print numbers representing the scale-degree.
34 A simple engraver can be created to do this for every note head
37 doctitle = "Numbers as easy note heads"
41 #(define Ez_numbers_engraver
45 (cons 'note-head-interface
46 (lambda (engraver grob source-engraver)
47 (let* ((context (ly:translator-context engraver))
48 (tonic-pitch (ly:context-property context 'tonic))
49 (tonic-name (ly:pitch-notename tonic-pitch))
51 (ly:event-property (event-cause grob) 'pitch))
52 (grob-name (ly:pitch-notename grob-pitch))
53 (delta (modulo (- grob-name tonic-name) 7))
55 (make-vector 7 (number->string (1+ delta)))))
56 (ly:grob-set-property! grob 'note-names note-names))))))))
58 #(set-global-staff-size 26)
64 \consists \Ez_numbers_engraver