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) 2006--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> |
4 ;;;; | 4 ;;;; |
5 ;;;; LilyPond is free software: you can redistribute it and/or modify | 5 ;;;; LilyPond is free software: you can redistribute it and/or modify |
6 ;;;; it under the terms of the GNU General Public License as published by | 6 ;;;; it under the terms of the GNU General Public License as published by |
7 ;;;; the Free Software Foundation, either version 3 of the License, or | 7 ;;;; the Free Software Foundation, either version 3 of the License, or |
8 ;;;; (at your option) any later version. | 8 ;;;; (at your option) any later version. |
9 ;;;; | 9 ;;;; |
10 ;;;; LilyPond is distributed in the hope that it will be useful, | 10 ;;;; LilyPond is distributed in the hope that it will be useful, |
(...skipping 17 matching lines...) Expand all Loading... |
28 (define (system-stencil system-grob main-stencil) | 28 (define (system-stencil system-grob main-stencil) |
29 (let* ((padding (ly:grob-property system-grob 'in-note-padding #f)) | 29 (let* ((padding (ly:grob-property system-grob 'in-note-padding #f)) |
30 (in-notes (if padding (ly:grob-property system-grob 'in-note-stencil) e
mpty-stencil)) | 30 (in-notes (if padding (ly:grob-property system-grob 'in-note-stencil) e
mpty-stencil)) |
31 (in-notes (if in-notes in-notes empty-stencil)) | 31 (in-notes (if in-notes in-notes empty-stencil)) |
32 (direction (if padding (ly:grob-property system-grob 'in-note-direction
) UP))) | 32 (direction (if padding (ly:grob-property system-grob 'in-note-direction
) UP))) |
33 (if padding | 33 (if padding |
34 (ly:stencil-combine-at-edge main-stencil Y direction in-notes padding) | 34 (ly:stencil-combine-at-edge main-stencil Y direction in-notes padding) |
35 main-stencil))) | 35 main-stencil))) |
36 | 36 |
37 (define-public (paper-system-stencil system) | 37 (define-public (paper-system-stencil system) |
38 (let* ((main-stencil (ly:prob-property system 'stencil)) | 38 (let ((main-stencil (ly:prob-property system 'stencil)) |
39 (system-grob (ly:prob-property system 'system-grob))) | 39 (system-grob (ly:prob-property system 'system-grob))) |
40 (if (ly:grob? system-grob) | 40 (if (ly:grob? system-grob) |
41 (system-stencil system-grob main-stencil) | 41 (system-stencil system-grob main-stencil) |
42 main-stencil))) | 42 main-stencil))) |
43 | 43 |
44 (define-public (paper-system-layout system) | 44 (define-public (paper-system-layout system) |
45 (let* | 45 (let* |
46 ((g (paper-system-system-grob system))) | 46 ((g (paper-system-system-grob system))) |
47 | 47 |
48 (if (ly:grob? g) | 48 (if (ly:grob? g) |
49 (ly:grob-layout g) | 49 (ly:grob-layout g) |
(...skipping 203 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
253 | 253 |
254 (if (not (null? annotations)) | 254 (if (not (null? annotations)) |
255 (set! (ly:prob-property system 'stencil) | 255 (set! (ly:prob-property system 'stencil) |
256 (ly:stencil-add | 256 (ly:stencil-add |
257 (ly:prob-property system 'stencil) | 257 (ly:prob-property system 'stencil) |
258 (ly:make-stencil | 258 (ly:make-stencil |
259 (ly:stencil-expr annotations) | 259 (ly:stencil-expr annotations) |
260 (ly:stencil-extent empty-stencil X) | 260 (ly:stencil-extent empty-stencil X) |
261 (ly:stencil-extent empty-stencil Y))))) | 261 (ly:stencil-extent empty-stencil Y))))) |
262 (ly:prob-property system 'stencil))) | 262 (ly:prob-property system 'stencil))) |
LEFT | RIGHT |