OLD | NEW |
1 @c -*- coding: utf-8; mode: texinfo; documentlanguage: es -*- | 1 @c -*- coding: utf-8; mode: texinfo; documentlanguage: es -*- |
2 @c This file is part of extending.tely | 2 @c This file is part of extending.tely |
3 @ignore | 3 @ignore |
4 Translation of GIT committish: abf44faa7aff3481efcd8b241c352c6d5080ccd5 | 4 Translation of GIT committish: abf44faa7aff3481efcd8b241c352c6d5080ccd5 |
5 | 5 |
6 When revising a translation, copy the HEAD committish of the | 6 When revising a translation, copy the HEAD committish of the |
7 version that you are working on. See TRANSLATION for details. | 7 version that you are working on. See TRANSLATION for details. |
8 @end ignore | 8 @end ignore |
9 | 9 |
10 @c \version "2.15.17" | 10 @c \version "2.15.18" |
11 | 11 |
12 @node Interfaces para programadores | 12 @node Interfaces para programadores |
13 @chapter Interfaces para programadores | 13 @chapter Interfaces para programadores |
14 @translationof Interfaces for programmers | 14 @translationof Interfaces for programmers |
15 | 15 |
16 Se pueden realizar trucos avanzados mediante el uso de Scheme. Si no | 16 Se pueden realizar trucos avanzados mediante el uso de Scheme. Si no |
17 está familiarizado con Scheme, le conviene leer nuestro tutorial de | 17 está familiarizado con Scheme, le conviene leer nuestro tutorial de |
18 Scheme, @ref{Tutorial de Scheme}. | 18 Scheme, @ref{Tutorial de Scheme}. |
19 | 19 |
20 | 20 |
(...skipping 818 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
839 nueva propiedad, @code{inter-box-padding}, para el relleno entre los | 839 nueva propiedad, @code{inter-box-padding}, para el relleno entre los |
840 rectángulos. El @code{box-padding} se usará para el relleno interno. | 840 rectángulos. El @code{box-padding} se usará para el relleno interno. |
841 Ahora el código nuevo es como se ve a continuación: | 841 Ahora el código nuevo es como se ve a continuación: |
842 | 842 |
843 @lisp | 843 @lisp |
844 #(define-markup-command (double-box layout props text) (markup?) | 844 #(define-markup-command (double-box layout props text) (markup?) |
845 #:properties ((inter-box-padding 0.4) | 845 #:properties ((inter-box-padding 0.4) |
846 (box-padding 0.6)) | 846 (box-padding 0.6)) |
847 "Trazar un rectángulo doble rodeando el texto." | 847 "Trazar un rectángulo doble rodeando el texto." |
848 (interpret-markup layout props | 848 (interpret-markup layout props |
849 #@{\markup \override #`(box-padding . ,$inter-box-padding) \box | 849 #@{\markup \override #`(box-padding . ,inter-box-padding) \box |
850 \override #`(box-padding . ,$box-padding) \box | 850 \override #`(box-padding . ,box-padding) \box |
851 @{ $text @} #@})) | 851 @{ $text @} #@})) |
852 @end lisp | 852 @end lisp |
853 | 853 |
854 De nuevo, la versión equivalente que utiliza la macro de marcado sería: | 854 De nuevo, la versión equivalente que utiliza la macro de marcado sería: |
855 | 855 |
856 @lisp | 856 @lisp |
857 #(define-markup-command (double-box layout props text) (markup?) | 857 #(define-markup-command (double-box layout props text) (markup?) |
858 #:properties ((inter-box-padding 0.4) | 858 #:properties ((inter-box-padding 0.4) |
859 (box-padding 0.6)) | 859 (box-padding 0.6)) |
860 "Trazar un rectángulo doble rodeando el texto." | 860 "Trazar un rectángulo doble rodeando el texto." |
(...skipping 15 matching lines...) Expand all Loading... |
876 | 876 |
877 Ahora, la instrucción se puede usar dentro de un elemento de marcado, | 877 Ahora, la instrucción se puede usar dentro de un elemento de marcado, |
878 y el relleno de los rectángulos se puede personalizar: | 878 y el relleno de los rectángulos se puede personalizar: |
879 | 879 |
880 @lilypond[quote,verbatim,ragged-right] | 880 @lilypond[quote,verbatim,ragged-right] |
881 #(define-markup-command (double-box layout props text) (markup?) | 881 #(define-markup-command (double-box layout props text) (markup?) |
882 #:properties ((inter-box-padding 0.4) | 882 #:properties ((inter-box-padding 0.4) |
883 (box-padding 0.6)) | 883 (box-padding 0.6)) |
884 "Draw a double box around text." | 884 "Draw a double box around text." |
885 (interpret-markup layout props | 885 (interpret-markup layout props |
886 #{\markup \override #`(box-padding . ,$inter-box-padding) \box | 886 #{\markup \override #`(box-padding . ,inter-box-padding) \box |
887 \override #`(box-padding . ,$box-padding) \box | 887 \override #`(box-padding . ,box-padding) \box |
888 { $text } #})) | 888 { $text } #})) |
889 | 889 |
890 \markup \double-box A | 890 \markup \double-box A |
891 \markup \override #'(inter-box-padding . 0.8) \double-box A | 891 \markup \override #'(inter-box-padding . 0.8) \double-box A |
892 \markup \override #'(box-padding . 1.0) \double-box A | 892 \markup \override #'(box-padding . 1.0) \double-box A |
893 @end lilypond | 893 @end lilypond |
894 | 894 |
895 | 895 |
896 @node Adaptación de instrucciones incorporadas | 896 @node Adaptación de instrucciones incorporadas |
897 @unnumberedsubsubsec Adaptación de instrucciones incorporadas | 897 @unnumberedsubsubsec Adaptación de instrucciones incorporadas |
(...skipping 96 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
994 | 994 |
995 En el siguiente ejemplo se define una instrucción de lista de marcado | 995 En el siguiente ejemplo se define una instrucción de lista de marcado |
996 @code{\paragraph}, que devuelve una lista de líneas justificadas, | 996 @code{\paragraph}, que devuelve una lista de líneas justificadas, |
997 estando la primera de ellas sangrada. La anchura del sangrado se toma | 997 estando la primera de ellas sangrada. La anchura del sangrado se toma |
998 del argumento @code{props}. | 998 del argumento @code{props}. |
999 | 999 |
1000 @example | 1000 @example |
1001 #(define-markup-list-command (paragraph layout props args) (markup-list?) | 1001 #(define-markup-list-command (paragraph layout props args) (markup-list?) |
1002 #:properties ((par-indent 2)) | 1002 #:properties ((par-indent 2)) |
1003 (interpret-markup-list layout props | 1003 (interpret-markup-list layout props |
1004 #@{\markuplist \justified-lines @{ \hspace #$par-indent $args @} #@})) | 1004 #@{\markuplist \justified-lines @{ \hspace #par-indent $args @} #@})) |
1005 @end example | 1005 @end example |
1006 | 1006 |
1007 | 1007 |
1008 La versión que usa solamente Scheme es más compleja: | 1008 La versión que usa solamente Scheme es más compleja: |
1009 @example | 1009 @example |
1010 #(define-markup-list-command (paragraph layout props args) (markup-list?) | 1010 #(define-markup-list-command (paragraph layout props args) (markup-list?) |
1011 #:properties ((par-indent 2)) | 1011 #:properties ((par-indent 2)) |
1012 (interpret-markup-list layout props | 1012 (interpret-markup-list layout props |
1013 (make-justified-lines-markup-list (cons (make-hspace-markup par-indent) | 1013 (make-justified-lines-markup-list (cons (make-hspace-markup par-indent) |
1014 args)))) | 1014 args)))) |
(...skipping 356 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1371 | 1371 |
1372 @node Interfaces de Scheme de LilyPond | 1372 @node Interfaces de Scheme de LilyPond |
1373 @chapter Interfaces de Scheme de LilyPond | 1373 @chapter Interfaces de Scheme de LilyPond |
1374 @translationof LilyPond Scheme interfaces | 1374 @translationof LilyPond Scheme interfaces |
1375 | 1375 |
1376 Este capítulo cubre las diversas herramientas proporcionadas por | 1376 Este capítulo cubre las diversas herramientas proporcionadas por |
1377 LilyPond como ayuda a los programadores de Scheme a extraer e | 1377 LilyPond como ayuda a los programadores de Scheme a extraer e |
1378 introducir información de los flujos musicales. | 1378 introducir información de los flujos musicales. |
1379 | 1379 |
1380 HACER @c TODO -- figure out what goes in here and how to organize it | 1380 HACER @c TODO -- figure out what goes in here and how to organize it |
OLD | NEW |