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 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 2000--2011 Jan Nieuwenhuizen <janneke@gnu.org> |
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 45 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
56 (set! (ly:grob-property beam 'annotation) | 56 (set! (ly:grob-property beam 'annotation) |
57 (format #f "~S 0" (procedure-name comparison)))) | 57 (format #f "~S 0" (procedure-name comparison)))) |
58 (set! (ly:grob-property beam 'annotation) "")) | 58 (set! (ly:grob-property beam 'annotation) "")) |
59 posns)))) | 59 posns)))) |
60 | 60 |
61 | 61 |
62 (define-public (check-quant-callbacks l r) | 62 (define-public (check-quant-callbacks l r) |
63 (lambda (grob) | 63 (lambda (grob) |
64 ((check-beam-quant l r) | 64 ((check-beam-quant l r) |
65 grob | 65 grob |
66 (beam::individual-slopes grob)))) | 66 (beam::place-broken-parts-individually grob)))) |
67 | 67 |
68 | 68 |
69 (define-public (check-slope-callbacks comparison) | 69 (define-public (check-slope-callbacks comparison) |
70 (lambda (grob) | 70 (lambda (grob) |
71 ((check-beam-slope-sign comparison) | 71 ((check-beam-slope-sign comparison) |
72 grob | 72 grob |
73 (beam::individual-slopes grob)))) | 73 (beam::place-broken-parts-individually grob)))) |
74 | 74 |
LEFT | RIGHT |