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 336 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
347 ;; sadly possibly breaking patterns with high order beams. | 347 ;; sadly possibly breaking patterns with high order beams. |
348 (beamed-stem-shorten . (1.0 0.5 0.25)) | 348 (beamed-stem-shorten . (1.0 0.5 0.25)) |
349 | 349 |
350 (beaming . ,ly:beam::calc-beaming) | 350 (beaming . ,ly:beam::calc-beaming) |
351 (clip-edges . #t) | 351 (clip-edges . #t) |
352 (collision-interfaces . (beam-interface | 352 (collision-interfaces . (beam-interface |
353 clef-interface | 353 clef-interface |
354 inline-accidental-interface | 354 inline-accidental-interface |
355 key-signature-interface | 355 key-signature-interface |
356 note-head-interface | 356 note-head-interface |
| 357 rest-interface |
357 stem-interface | 358 stem-interface |
358 time-signature-interface)) | 359 time-signature-interface)) |
359 (concaveness . ,ly:beam::calc-concaveness) | 360 (concaveness . ,ly:beam::calc-concaveness) |
360 (cross-staff . ,ly:beam::calc-cross-staff) | 361 (cross-staff . ,ly:beam::calc-cross-staff) |
361 (damping . 1) | 362 (damping . 1) |
362 (details | 363 (details |
363 .( | 364 .( |
364 (secondary-beam-demerit . 10) | 365 (secondary-beam-demerit . 10) |
365 (stem-length-demerit-factor . 5) | 366 (stem-length-demerit-factor . 5) |
366 (region-size . 2) | 367 (region-size . 2) |
(...skipping 2277 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2644 (if (not (procedure? unpure)) | 2645 (if (not (procedure? unpure)) |
2645 unpure | 2646 unpure |
2646 (if (memq unpure pure-functions) | 2647 (if (memq unpure pure-functions) |
2647 (apply unpure args) | 2648 (apply unpure args) |
2648 (let ((pure (assq unpure pure-conversions-alist))) | 2649 (let ((pure (assq unpure pure-conversions-alist))) |
2649 (if pure | 2650 (if pure |
2650 (apply (cdr pure) | 2651 (apply (cdr pure) |
2651 (append | 2652 (append |
2652 (list (car args) start end) | 2653 (list (car args) start end) |
2653 (cdr args))))))))) | 2654 (cdr args))))))))) |
OLD | NEW |