| 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 |
|---|
