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 1287 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1298 | 1298 |
1299 (MelodyItem | 1299 (MelodyItem |
1300 . ( | 1300 . ( |
1301 (neutral-direction . ,DOWN) | 1301 (neutral-direction . ,DOWN) |
1302 (meta . ((class . Item) | 1302 (meta . ((class . Item) |
1303 (interfaces . (melody-spanner-interface)))))) | 1303 (interfaces . (melody-spanner-interface)))))) |
1304 | 1304 |
1305 (MensuralLigature | 1305 (MensuralLigature |
1306 . ( | 1306 . ( |
1307 (stencil . ,ly:mensural-ligature::print) | 1307 (stencil . ,ly:mensural-ligature::print) |
1308 » (thickness . 1.4) | 1308 » (thickness . 1.3) |
1309 (meta . ((class . Spanner) | 1309 (meta . ((class . Spanner) |
1310 (interfaces . (font-interface | 1310 (interfaces . (font-interface |
1311 mensural-ligature-interface)))))) | 1311 mensural-ligature-interface)))))) |
1312 | 1312 |
1313 (MetronomeMark | 1313 (MetronomeMark |
1314 . ( | 1314 . ( |
1315 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-sta
ff) | 1315 (after-line-breaking . ,ly:side-position-interface::move-to-extremal-sta
ff) |
1316 (break-visibility . ,end-of-line-invisible) | 1316 (break-visibility . ,end-of-line-invisible) |
1317 (direction . ,UP) | 1317 (direction . ,UP) |
1318 (extra-spacing-width . (+inf.0 . -inf.0)) | 1318 (extra-spacing-width . (+inf.0 . -inf.0)) |
(...skipping 1402 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2721 (if (not (procedure? unpure)) | 2721 (if (not (procedure? unpure)) |
2722 unpure | 2722 unpure |
2723 (if (memq unpure pure-functions) | 2723 (if (memq unpure pure-functions) |
2724 (apply unpure args) | 2724 (apply unpure args) |
2725 (let ((pure (assq unpure pure-conversions-alist))) | 2725 (let ((pure (assq unpure pure-conversions-alist))) |
2726 (if pure | 2726 (if pure |
2727 (apply (cdr pure) | 2727 (apply (cdr pure) |
2728 (append | 2728 (append |
2729 (list (car args) start end) | 2729 (list (car args) start end) |
2730 (cdr args)))))))))) | 2730 (cdr args)))))))))) |
LEFT | RIGHT |