LEFT | RIGHT |
1 ;;;; This file is part of LilyPond, the GNU music typesetter. | 1 ;;;; This file is part of LilyPond, the GNU music typesetter. |
2 ;;;; | 2 ;;;; |
3 ;;;; Copyright (C) 2000--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 2000--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> | 4 ;;;; Jan Nieuwenhuizen <janneke@gnu.org> |
5 ;;;; | 5 ;;;; |
6 ;;;; LilyPond is free software: you can redistribute it and/or modify | 6 ;;;; LilyPond is free software: you can redistribute it and/or modify |
7 ;;;; it under the terms of the GNU General Public License as published by | 7 ;;;; it under the terms of the GNU General Public License as published by |
8 ;;;; the Free Software Foundation, either version 3 of the License, or | 8 ;;;; the Free Software Foundation, either version 3 of the License, or |
9 ;;;; (at your option) any later version. | 9 ;;;; (at your option) any later version. |
10 ;;;; | 10 ;;;; |
(...skipping 921 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
932 | 932 |
933 Like simple-markup, but use tie characters for @q{~} tilde symbols. | 933 Like simple-markup, but use tie characters for @q{~} tilde symbols. |
934 | 934 |
935 @lilypond[verbatim,quote] | 935 @lilypond[verbatim,quote] |
936 \\markup { | 936 \\markup { |
937 \\tied-lyric #\"Lasciate~i monti\" | 937 \\tied-lyric #\"Lasciate~i monti\" |
938 } | 938 } |
939 @end lilypond" | 939 @end lilypond" |
940 (if (string-contains str "~") | 940 (if (string-contains str "~") |
941 (let* | 941 (let* |
942 » ((parts (string-split str #\~)) | 942 » ((half-space (/ word-space 2)) |
943 » (tie-str (markup #:hspace (/ word-space 2) | 943 » (parts (string-split str #\~)) |
| 944 » (tie-str (markup #:hspace half-space |
944 #:musicglyph "ties.lyric" | 945 #:musicglyph "ties.lyric" |
945 » #:hspace (/ word-space 2))) | 946 » #:hspace half-space)) |
946 (joined (list-join parts tie-str)) | 947 (joined (list-join parts tie-str)) |
947 (join-stencil (interpret-markup layout props tie-str)) | 948 (join-stencil (interpret-markup layout props tie-str)) |
948 ) | 949 ) |
949 | 950 |
950 (interpret-markup layout | 951 (interpret-markup layout |
951 props | 952 props |
952 (make-concat-markup joined))) | 953 (make-concat-markup joined))) |
953 (interpret-markup layout props str))) | 954 (interpret-markup layout props str))) |
954 | 955 |
955 (define-public empty-markup | 956 (define-public empty-markup |
(...skipping 2755 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
3711 #:properties ((baseline-skip)) | 3712 #:properties ((baseline-skip)) |
3712 "Like @code{\\column}, but return a list of lines instead of a single markup. | 3713 "Like @code{\\column}, but return a list of lines instead of a single markup. |
3713 @code{baseline-skip} determines the space between each markup in @var{args}." | 3714 @code{baseline-skip} determines the space between each markup in @var{args}." |
3714 (space-lines baseline-skip | 3715 (space-lines baseline-skip |
3715 (interpret-markup-list layout props args))) | 3716 (interpret-markup-list layout props args))) |
3716 | 3717 |
3717 (define-markup-list-command (override-lines layout props new-prop args) | 3718 (define-markup-list-command (override-lines layout props new-prop args) |
3718 (pair? markup-list?) | 3719 (pair? markup-list?) |
3719 "Like @code{\\override}, for markup lists." | 3720 "Like @code{\\override}, for markup lists." |
3720 (interpret-markup-list layout (cons (list new-prop) props) args)) | 3721 (interpret-markup-list layout (cons (list new-prop) props) args)) |
LEFT | RIGHT |