]> git.donarmstrong.com Git - lilypond.git/blobdiff - Documentation/snippets/numbers-as-easy-note-heads.ly
use trap to remove tmp directory on failure to avoid hiding mpost
[lilypond.git] / Documentation / snippets / numbers-as-easy-note-heads.ly
index bfeaa9d433c20f20cf21a3a3522d1a629cfaffe8..34b7828ea7f6e0e1b04baaf2e3b7d58ffa19aa40 100644 (file)
@@ -1,15 +1,18 @@
-% Do not edit this file; it is automatically
+% DO NOT EDIT this file manually; it is automatically
 % generated from Documentation/snippets/new
 % generated from Documentation/snippets/new
+% Make any changes in Documentation/snippets/new/
+% and then run scripts/auxiliar/makelsr.py
+%
 % This file is in the public domain.
 % This file is in the public domain.
-%% Note: this file works from version 2.13.11
-\version "2.13.29"
+%% Note: this file works from version 2.15.31
+\version "2.15.31"
 
 \header {
 
 \header {
-%% Translation of GIT committish: 0b55335aeca1de539bf1125b717e0c21bb6fa31b
+%% Translation of GIT committish: b482c3e5b56c3841a88d957e0ca12964bd3e64fa
   texidoces = "
 
 Las cabezas de nota de notación fácil utilizan la propiedad
   texidoces = "
 
 Las cabezas de nota de notación fácil utilizan la propiedad
-@code{note-names} del objeto @code{NoteHead} para determinad lo que
+@code{note-names} del objeto @code{NoteHead} para determinar lo que
 aparece dentro de la cabeza.  Mediante la sobreescritura de esta
 propiedad, es posible imprimir números que representen el grado de la
 escala.
 aparece dentro de la cabeza.  Mediante la sobreescritura de esta
 propiedad, es posible imprimir números que representen el grado de la
 escala.
@@ -21,6 +24,29 @@ nota que ve.
 
   doctitlees = "Números como notas de notación fácil"
 
 
   doctitlees = "Números como notas de notación fácil"
 
+%% Translation of GIT committish: bbf8fd2b5a3ebf20a1fdc91613dc49045a53a270
+  texidocit = "
+Le teste di nota con nome della nota usano la proprietà @code{note-names}
+dell'oggetto @code{NoteHead} per determinare cosa appaia
+all'interno della testa.  È possibile sovrascrivere questa proprietà
+e mostrare numeri che corrispondano ai gradi della scala.
+
+Si può creare un semplice incisore che faccia questo per oggni
+oggetto testa di nota che incontra.
+"
+  doctitleit = "Numeri dentro le teste di nota"
+
+%% Translation of GIT committish: 3b125956b08d27ef39cd48bfa3a2f1e1bb2ae8b4
+  texidocfr = "
+En mode @qq{easy play}, les têtes de note utilisent la propriété
+@code{note-names} attachée à l'objet @code{NoteHead} pour déterminer ce
+qui apparaîtra dans la tête.  Intervenir sur cette propriété permet
+d'imprimer un chiffre correspondant au degré dans la gamme.
+
+La création d'un graveur dédié permet de traiter toutes les notes.
+"
+  doctitlefr = "Easy play -- chiffre en lieu et place des lettres"
+
   lsrtags = "pitches"
   texidoc = "
 Easy notation note heads use the @code{note-names} property
   lsrtags = "pitches"
   texidoc = "
 Easy notation note heads use the @code{note-names} property
@@ -36,21 +62,19 @@ object it sees.
 
 
 #(define Ez_numbers_engraver
 
 
 #(define Ez_numbers_engraver
-   (list
-    (cons 'acknowledgers
-          (list
-           (cons 'note-head-interface
-                 (lambda (engraver grob source-engraver)
-                   (let* ((context (ly:translator-context engraver))
-                          (tonic-pitch (ly:context-property context 'tonic))
-                          (tonic-name (ly:pitch-notename tonic-pitch))
-                          (grob-pitch
-                           (ly:event-property (event-cause grob) 'pitch))
-                          (grob-name (ly:pitch-notename grob-pitch))
-                          (delta (modulo (- grob-name tonic-name) 7))
-                          (note-names
-                           (make-vector 7 (number->string (1+ delta)))))
-                     (ly:grob-set-property! grob 'note-names note-names))))))))
+   (make-engraver
+    (acknowledgers
+     ((note-head-interface engraver grob source-engraver)
+      (let* ((context (ly:translator-context engraver))
+            (tonic-pitch (ly:context-property context 'tonic))
+            (tonic-name (ly:pitch-notename tonic-pitch))
+            (grob-pitch
+             (ly:event-property (event-cause grob) 'pitch))
+            (grob-name (ly:pitch-notename grob-pitch))
+            (delta (modulo (- grob-name tonic-name) 7))
+            (note-names
+             (make-vector 7 (number->string (1+ delta)))))
+       (ly:grob-set-property! grob 'note-names note-names))))))
 
 #(set-global-staff-size 26)
 
 
 #(set-global-staff-size 26)