Doc-de: update macros.itely and nitpicks

[lilypond.git] / Documentation / es / user / programming-interface.itely

diff --git a/Documentation/es/user/programming-interface.itely b/Documentation/es/user/programming-interface.itely
index 5b9b95be72172f0463ee92359083e4758c30fc80..77a379abb18d98c3e84d57a7cb7e5eb513b435d6 100644 (file)
--- a/Documentation/es/user/programming-interface.itely
+++ b/Documentation/es/user/programming-interface.itely
@@ -1,7 +1,7 @@
 @c -*- coding: utf-8; mode: texinfo; documentlanguage: es -*-
 @c This file is part of lilypond.tely
 @ignore
-    Translation of GIT committish: 41ef91786a08102d9b9a839f6a2f40cec263d723
+    Translation of GIT committish: d4f58bb3ad4e7fe1967a6b48f25e3addffc8aa14
 
     When revising a translation, copy the HEAD committish of the
     version that you are working on.  See TRANSLATION for details.
@@ -129,21 +129,21 @@ custosNote = #(define-music-function (parser location note)
 { c' d' e' f' \custosNote g' }
 @end lilypond
 
-Se pueden usar más de una variable:
+Se puede usar más de una variable:
 
 @lilypond[quote,verbatim,ragged-right]
-tempoMark = #(define-music-function (parser location padding marktext)
-                                    (number? string?)
+tempoPadded = #(define-music-function (parser location padding tempotext)
+  (number? string?)
 #{
-  \once \override Score . RehearsalMark #'padding = $padding
-  \once \override Score . RehearsalMark #'extra-spacing-width = #'(+inf.0 . -inf.0)
-  \mark \markup { \bold $marktext }
+  \once \override Score.MetronomeMark #'padding = $padding
+  \tempo \markup { \bold $tempotext }
 #})
 
 \relative c'' {
-c2 e
-\tempoMark #3.0 #"Allegro"
-g c
+  \tempo \markup { "Low tempo" }
+  c4 d e f g1
+  \tempoPadded #4.0 #"High tempo"
+  g4 f e d c1
 }
 @end lilypond
 
@@ -467,6 +467,9 @@ funciones musicales complejas.
 @subsection Displaying music expressions
 
 @cindex interno, almacenamiento
+@cindex mostrar expresiones musicales
+@cindex interna, representación, mostrar
+
 @funindex \displayMusic
 
 Si se está escribiendo una función musical puede ser muy instructivo
@@ -1307,13 +1310,16 @@ nota, éste es un evento @rinternals{NoteHead}, y para un objeto
 He aquí una función que usar para @code{\applyOutput}; borra las
 cabezas de las notas que están sobre la línea central:
 
-@example
-(define (blanker grob grob-origin context)
- (if (and (memq (ly:grob-property grob 'interfaces)
-                note-head-interface)
-          (eq? (ly:grob-property grob 'staff-position) 0))
-     (set! (ly:grob-property grob 'transparent) #t)))
-@end example
+@lilypond[quote,verbatim,ragged-right]
+#(define (blanker grob grob-origin context)
+   (if (and (memq 'note-head-interface (ly:grob-interfaces grob))
+            (eq? (ly:grob-property grob 'staff-position) 0))
+       (set! (ly:grob-property grob 'transparent) #t)))
+
+\relative {
+  e4 g8 \applyOutput #'Voice #blanker b d2
+}
+@end lilypond
 
 
 @node Scheme procedures as properties
@@ -1524,7 +1530,7 @@ razones técnicas.  Son ejemplos @code{NonMusicalPaperColumn} y
 @end example
 
 Observe, sin embargo, que @code{\override}, aplicado a
-@code{NoteMusicalPaperColumn} y a @code{PaperColumn}, aún funciona
+@code{NonMusicalPaperColumn} y a @code{PaperColumn}, aún funciona
 como se espera dentro de los bloques @code{\context}.
 
 @end itemize