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) 1998--2011 Han-Wen Nienhuys <hanwen@xs4all.nl> | 3 ;;;; Copyright (C) 1998--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 655 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
666 (axes . (,X)) | 666 (axes . (,X)) |
667 (direction . ,RIGHT) | 667 (direction . ,RIGHT) |
668 (positioning-done . ,ly:dot-column::calc-positioning-done) | 668 (positioning-done . ,ly:dot-column::calc-positioning-done) |
669 (X-extent . ,ly:axis-group-interface::width) | 669 (X-extent . ,ly:axis-group-interface::width) |
670 (meta . ((class . Item) | 670 (meta . ((class . Item) |
671 (interfaces . (axis-group-interface | 671 (interfaces . (axis-group-interface |
672 dot-column-interface)))))) | 672 dot-column-interface)))))) |
673 | 673 |
674 (Dots | 674 (Dots |
675 . ( | 675 . ( |
| 676 (avoid-slur . inside) |
676 (dot-count . ,dots::calc-dot-count) | 677 (dot-count . ,dots::calc-dot-count) |
677 (staff-position . ,dots::calc-staff-position) | 678 (staff-position . ,dots::calc-staff-position) |
678 (stencil . ,ly:dots::print) | 679 (stencil . ,ly:dots::print) |
679 (extra-spacing-height . (-0.5 . 0.5)) | 680 (extra-spacing-height . (-0.5 . 0.5)) |
680 (meta . ((class . Item) | 681 (meta . ((class . Item) |
681 (interfaces . (dots-interface | 682 (interfaces . (dots-interface |
682 font-interface | 683 font-interface |
683 staff-symbol-referencer-interface)))))) | 684 staff-symbol-referencer-interface)))))) |
684 | 685 |
685 (DoublePercentRepeat | 686 (DoublePercentRepeat |
(...skipping 2047 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2733 (if (not (procedure? unpure)) | 2734 (if (not (procedure? unpure)) |
2734 unpure | 2735 unpure |
2735 (if (memq unpure pure-functions) | 2736 (if (memq unpure pure-functions) |
2736 (apply unpure args) | 2737 (apply unpure args) |
2737 (let ((pure (assq unpure pure-conversions-alist))) | 2738 (let ((pure (assq unpure pure-conversions-alist))) |
2738 (if pure | 2739 (if pure |
2739 (apply (cdr pure) | 2740 (apply (cdr pure) |
2740 (append | 2741 (append |
2741 (list (car args) start end) | 2742 (list (car args) start end) |
2742 (cdr args)))))))))) | 2743 (cdr args)))))))))) |
OLD | NEW |