OLD | NEW |
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--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 2000--2015 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 4727 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
4738 row is filled up with @code{point-stencil}s. | 4738 row is filled up with @code{point-stencil}s. |
4739 Overriding @code{padding} may be used to increase columns horizontal distance. | 4739 Overriding @code{padding} may be used to increase columns horizontal distance. |
4740 Overriding @code{baseline-skip} to increase rows vertical distance. | 4740 Overriding @code{baseline-skip} to increase rows vertical distance. |
4741 @lilypond[verbatim,quote] | 4741 @lilypond[verbatim,quote] |
4742 \\markuplist { | 4742 \\markuplist { |
4743 \\override #'(padding . 2) | 4743 \\override #'(padding . 2) |
4744 \\table | 4744 \\table |
4745 #'(0 1 0 -1) | 4745 #'(0 1 0 -1) |
4746 { | 4746 { |
4747 \\underline { center-aligned right-aligned center-aligned left-aligned } | 4747 \\underline { center-aligned right-aligned center-aligned left-aligned } |
4748 one \number 1 thousandth \number 0.001 | 4748 one \\number 1 thousandth \\number 0.001 |
4749 eleven \number 11 hundredth \number 0.01 | 4749 eleven \\number 11 hundredth \\number 0.01 |
4750 twenty \number 20 tenth \number 0.1 | 4750 twenty \\number 20 tenth \\number 0.1 |
4751 thousand \number 1000 one \number 1.0 | 4751 thousand \\number 1000 one \\number 1.0 |
4752 } | 4752 } |
4753 } | 4753 } |
4754 @end lilypond | 4754 @end lilypond |
4755 " | 4755 " |
4756 | 4756 |
4757 (define (split-lst initial-lst lngth result-lst) | 4757 (define (split-lst initial-lst lngth result-lst) |
4758 ;; split a list into a list of sublists of length lngth | 4758 ;; split a list into a list of sublists of length lngth |
4759 ;; eg. (split-lst '(1 2 3 4 5 6) 2 '()) | 4759 ;; eg. (split-lst '(1 2 3 4 5 6) 2 '()) |
4760 ;; -> ((1 2) (3 4) (5 6)) | 4760 ;; -> ((1 2) (3 4) (5 6)) |
4761 (cond ((not (integer? (/ (length initial-lst) lngth))) | 4761 (cond ((not (integer? (/ (length initial-lst) lngth))) |
(...skipping 136 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
4898 (throw key | 4898 (throw key |
4899 (interpret-markup-list | 4899 (interpret-markup-list |
4900 layout props args))) | 4900 layout props args))) |
4901 (make-null-markup)))))) | 4901 (make-null-markup)))))) |
4902 (lambda (key stencils) | 4902 (lambda (key stencils) |
4903 (map | 4903 (map |
4904 (lambda (sten) | 4904 (lambda (sten) |
4905 (interpret-markup layout props | 4905 (interpret-markup layout props |
4906 (compose (make-stencil-markup sten)))) | 4906 (compose (make-stencil-markup sten)))) |
4907 stencils))))) | 4907 stencils))))) |
OLD | NEW |