LEFT | RIGHT |
(no file at all) | |
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 2030 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2041 | 2041 |
2042 (System | 2042 (System |
2043 . ( | 2043 . ( |
2044 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) | 2044 (adjacent-pure-heights . ,ly:axis-group-interface::adjacent-pure-heights
) |
2045 (axes . (,X ,Y)) | 2045 (axes . (,X ,Y)) |
2046 (skyline-horizontal-padding . 0.5) | 2046 (skyline-horizontal-padding . 0.5) |
2047 (vertical-skylines . ,ly:axis-group-interface::calc-skylines) | 2047 (vertical-skylines . ,ly:axis-group-interface::calc-skylines) |
2048 (X-extent . ,ly:axis-group-interface::width) | 2048 (X-extent . ,ly:axis-group-interface::width) |
2049 (Y-extent . ,ly:system::height) | 2049 (Y-extent . ,ly:system::height) |
2050 (meta . ((class . System) | 2050 (meta . ((class . System) |
2051 » » (object-callbacks . ((pure-relevant-grobs . ,ly:system::calc-pu
re-relevant-grobs) | 2051 » » (object-callbacks . ((footnotes-before-line-breaking . ,ly:syst
em::footnotes-before-line-breaking) |
| 2052 » » » » (footnotes-after-line-breaking . ,ly:syste
m::footnotes-after-line-breaking) |
| 2053 » » » » (pure-relevant-grobs . ,ly:system::calc-pu
re-relevant-grobs) |
2052 (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common))) | 2054 (pure-Y-common . ,ly:axis-group-interface:
:calc-pure-y-common))) |
2053 (interfaces . (axis-group-interface | 2055 (interfaces . (axis-group-interface |
2054 system-interface)))))) | 2056 system-interface)))))) |
2055 | 2057 |
2056 (SystemStartBar | 2058 (SystemStartBar |
2057 . ( | 2059 . ( |
2058 (collapse-height . 5.0) | 2060 (collapse-height . 5.0) |
2059 (direction . ,LEFT) | 2061 (direction . ,LEFT) |
2060 | 2062 |
2061 ;; ugh--hardcoded. | 2063 ;; ugh--hardcoded. |
(...skipping 647 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2709 (if (not (procedure? unpure)) | 2711 (if (not (procedure? unpure)) |
2710 unpure | 2712 unpure |
2711 (if (memq unpure pure-functions) | 2713 (if (memq unpure pure-functions) |
2712 (apply unpure args) | 2714 (apply unpure args) |
2713 (let ((pure (assq unpure pure-conversions-alist))) | 2715 (let ((pure (assq unpure pure-conversions-alist))) |
2714 (if pure | 2716 (if pure |
2715 (apply (cdr pure) | 2717 (apply (cdr pure) |
2716 (append | 2718 (append |
2717 (list (car args) start end) | 2719 (list (car args) start end) |
2718 (cdr args)))))))))) | 2720 (cdr args)))))))))) |
LEFT | RIGHT |