LEFT | RIGHT |
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 862 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
873 (interfaces . (finger-interface | 873 (interfaces . (finger-interface |
874 font-interface | 874 font-interface |
875 self-alignment-interface | 875 self-alignment-interface |
876 side-position-interface | 876 side-position-interface |
877 text-interface | 877 text-interface |
878 text-script-interface)))))) | 878 text-script-interface)))))) |
879 | 879 |
880 (Flag | 880 (Flag |
881 . ( | 881 . ( |
882 (stencil . ,ly:flag::print) | 882 (stencil . ,ly:flag::print) |
| 883 (X-extent . ,ly:flag::width) |
883 (X-offset . ,ly:flag::calc-x-offset) | 884 (X-offset . ,ly:flag::calc-x-offset) |
884 (Y-offset . ,ly:flag::calc-y-offset) | 885 (Y-offset . ,ly:flag::calc-y-offset) |
885 (meta . ((class . Item) | 886 (meta . ((class . Item) |
886 (interfaces . (flag-interface | 887 (interfaces . (flag-interface |
887 font-interface)))))) | 888 font-interface)))))) |
888 | 889 |
889 (FootnoteItem | 890 (FootnoteItem |
890 . ( | 891 . ( |
891 (annotation-balloon . #f) | 892 (annotation-balloon . #f) |
892 (annotation-line . #t) | 893 (annotation-line . #t) |
(...skipping 1686 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2579 note-head::brew-ez-stencil | 2580 note-head::brew-ez-stencil |
2580 print-circled-text-callback | 2581 print-circled-text-callback |
2581 laissez-vibrer::print | 2582 laissez-vibrer::print |
2582 lyric-text::print | 2583 lyric-text::print |
2583 ly:bar-line::print | 2584 ly:bar-line::print |
2584 ly:mensural-ligature::brew-ligature-primitive | 2585 ly:mensural-ligature::brew-ligature-primitive |
2585 ly:note-head::print | 2586 ly:note-head::print |
2586 ly:dots::print | 2587 ly:dots::print |
2587 ly:clef::print | 2588 ly:clef::print |
2588 ly:flag::print | 2589 ly:flag::print |
| 2590 default-flag |
| 2591 normal-flag |
| 2592 mensural-flag |
| 2593 no-flag |
| 2594 modern-straight-flag |
| 2595 old-straight-flag |
2589 ly:key-signature-interface::print | 2596 ly:key-signature-interface::print |
2590 ly:percent-repeat-item-interface::beat-slash | 2597 ly:percent-repeat-item-interface::beat-slash |
2591 ly:text-interface::print | 2598 ly:text-interface::print |
2592 ly:script-interface::print | 2599 ly:script-interface::print |
2593 ly:sustain-pedal::print)) | 2600 ly:sustain-pedal::print)) |
2594 | 2601 |
2595 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) | 2602 ;; Sometimes we have grobs with (Y-extent . ,ly:grob::stencil-height) |
2596 ;; and the print function is not pure, but there is a easy way to | 2603 ;; and the print function is not pure, but there is a easy way to |
2597 ;; figure out the Y-extent from the print function. | 2604 ;; figure out the Y-extent from the print function. |
2598 (define pure-print-to-height-conversions | 2605 (define pure-print-to-height-conversions |
(...skipping 70 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
2669 (if (not (procedure? unpure)) | 2676 (if (not (procedure? unpure)) |
2670 unpure | 2677 unpure |
2671 (if (memq unpure pure-functions) | 2678 (if (memq unpure pure-functions) |
2672 (apply unpure args) | 2679 (apply unpure args) |
2673 (let ((pure (assq unpure pure-conversions-alist))) | 2680 (let ((pure (assq unpure pure-conversions-alist))) |
2674 (if pure | 2681 (if pure |
2675 (apply (cdr pure) | 2682 (apply (cdr pure) |
2676 (append | 2683 (append |
2677 (list (car args) start end) | 2684 (list (car args) start end) |
2678 (cdr args))))))))) | 2685 (cdr args))))))))) |
LEFT | RIGHT |