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 911 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
922 (meta . ((class . Item) | 922 (meta . ((class . Item) |
923 (interfaces . (chord-name-interface | 923 (interfaces . (chord-name-interface |
924 font-interface | 924 font-interface |
925 fret-diagram-interface | 925 fret-diagram-interface |
926 rhythmic-grob-interface)))))) | 926 rhythmic-grob-interface)))))) |
927 | 927 |
928 | 928 |
929 (Glissando | 929 (Glissando |
930 . ( | 930 . ( |
931 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) | 931 (after-line-breaking . ,ly:spanner::kill-zero-spanned-time) |
932 » (bound-details . ((right . ((attach-dir . ,CENTER) | 932 » (bound-details . ((right . ((attach-dir . ,LEFT) |
933 » » » » (padding . 1.5) | 933 » » » » (end-on-accidental . #t) |
| 934 » » » » (padding . 0.5) |
934 )) | 935 )) |
935 » » » (left . ((attach-dir . ,CENTER) | 936 » » » (left . ((attach-dir . ,RIGHT) |
936 » » » » (padding . 1.5) | 937 » » » » (padding . 0.5) |
937 )) | 938 )) |
938 )) | 939 )) |
939 (gap . 0.5) | 940 (gap . 0.5) |
940 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) | 941 (left-bound-info . ,ly:line-spanner::calc-left-bound-info) |
941 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints) | 942 (normalized-endpoints . ,ly:spanner::calc-normalized-endpoints) |
942 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) | 943 (right-bound-info . ,ly:line-spanner::calc-right-bound-info) |
943 (simple-Y . #t) | 944 (simple-Y . #t) |
944 (stencil . ,ly:line-spanner::print) | 945 (stencil . ,ly:line-spanner::print) |
945 (style . line) | 946 (style . line) |
946 (X-extent . #f) | 947 (X-extent . #f) |
(...skipping 1706 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2653 (if (not (procedure? unpure)) | 2654 (if (not (procedure? unpure)) |
2654 unpure | 2655 unpure |
2655 (if (memq unpure pure-functions) | 2656 (if (memq unpure pure-functions) |
2656 (apply unpure args) | 2657 (apply unpure args) |
2657 (let ((pure (assq unpure pure-conversions-alist))) | 2658 (let ((pure (assq unpure pure-conversions-alist))) |
2658 (if pure | 2659 (if pure |
2659 (apply (cdr pure) | 2660 (apply (cdr pure) |
2660 (append | 2661 (append |
2661 (list (car args) start end) | 2662 (list (car args) start end) |
2662 (cdr args))))))))) | 2663 (cdr args))))))))) |
OLD | NEW |