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 365 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
376 (collision-padding . 0.35) | 376 (collision-padding . 0.35) |
377 (round-to-zero-slope . 0.02))) | 377 (round-to-zero-slope . 0.02))) |
378 (direction . ,ly:beam::calc-direction) | 378 (direction . ,ly:beam::calc-direction) |
379 | 379 |
380 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints) | 380 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints) |
381 ;; only for debugging. | 381 ;; only for debugging. |
382 (font-family . roman) | 382 (font-family . roman) |
383 | 383 |
384 (gap . 0.8) | 384 (gap . 0.8) |
385 (neutral-direction . ,DOWN) | 385 (neutral-direction . ,DOWN) |
386 » (positions . ,(ly:make-simple-closure | 386 » (positions . ,ly:beam::quanting) |
387 » » » (ly:make-simple-closure | |
388 » » » (list chain-grob-member-functions | |
389 » » » `(,cons 0 0) | |
390 » » » ly:beam::calc-least-squares-positions | |
391 » » » ly:beam::slope-damping | |
392 » » » ly:beam::shift-region-to-valid | |
393 » » » ly:beam::quanting | |
394 » » » )))) | |
395 | 387 |
396 ;; this is a hack to set stem lengths, if positions is set. | 388 ;; this is a hack to set stem lengths, if positions is set. |
397 (quantized-positions . ,ly:beam::set-stem-lengths) | 389 (quantized-positions . ,ly:beam::set-stem-lengths) |
398 | 390 |
399 (shorten . ,ly:beam::calc-stem-shorten) | 391 (shorten . ,ly:beam::calc-stem-shorten) |
400 (stencil . ,ly:beam::print) | 392 (stencil . ,ly:beam::print) |
401 | 393 |
402 (meta . ((class . Spanner) | 394 (meta . ((class . Spanner) |
403 (object-callbacks . ((normal-stems . ,ly:beam::calc-normal-stem
s))) | 395 (object-callbacks . ((normal-stems . ,ly:beam::calc-normal-stem
s))) |
404 (interfaces . (beam-interface | 396 (interfaces . (beam-interface |
(...skipping 2305 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2710 (if (not (procedure? unpure)) | 2702 (if (not (procedure? unpure)) |
2711 unpure | 2703 unpure |
2712 (if (memq unpure pure-functions) | 2704 (if (memq unpure pure-functions) |
2713 (apply unpure args) | 2705 (apply unpure args) |
2714 (let ((pure (assq unpure pure-conversions-alist))) | 2706 (let ((pure (assq unpure pure-conversions-alist))) |
2715 (if pure | 2707 (if pure |
2716 (apply (cdr pure) | 2708 (apply (cdr pure) |
2717 (append | 2709 (append |
2718 (list (car args) start end) | 2710 (list (car args) start end) |
2719 (cdr args)))))))))) | 2711 (cdr args)))))))))) |
LEFT | RIGHT |