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--2012 Jan Nieuwenhuizen <janneke@gnu.org> | 3 ;;;; Copyright (C) 1998--2012 Jan Nieuwenhuizen <janneke@gnu.org> |
4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> | 4 ;;;; Han-Wen Nienhuys <hanwen@xs4all.nl> |
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 556 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
567 "" | 567 "" |
568 (remainder int 5) | 568 (remainder int 5) |
569 (+ 1 (quotient int 5))))) | 569 (+ 1 (quotient int 5))))) |
570 | 570 |
571 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 571 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
572 ;; accidentals | 572 ;; accidentals |
573 | 573 |
574 (define-public (accidental-interface::calc-alteration grob) | 574 (define-public (accidental-interface::calc-alteration grob) |
575 (ly:pitch-alteration (ly:event-property (event-cause grob) 'pitch))) | 575 (ly:pitch-alteration (ly:event-property (event-cause grob) 'pitch))) |
576 | 576 |
| 577 (define-public (accidental-interface::glyph-name grob) |
| 578 (assoc-get (ly:grob-property grob 'alteration) |
| 579 standard-alteration-glyph-name-alist)) |
| 580 |
577 (define-public cancellation-glyph-name-alist | 581 (define-public cancellation-glyph-name-alist |
578 '((0 . "accidentals.natural"))) | 582 '((0 . "accidentals.natural"))) |
579 | 583 |
580 (define-public standard-alteration-glyph-name-alist | 584 (define-public standard-alteration-glyph-name-alist |
581 '( | 585 '( |
582 ;; ordered for optimal performance. | 586 ;; ordered for optimal performance. |
583 (0 . "accidentals.natural") | 587 (0 . "accidentals.natural") |
584 (-1/2 . "accidentals.flat") | 588 (-1/2 . "accidentals.flat") |
585 (1/2 . "accidentals.sharp") | 589 (1/2 . "accidentals.sharp") |
586 | 590 |
(...skipping 454 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1041 (list))))) | 1045 (list))))) |
1042 | 1046 |
1043 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 1047 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
1044 ;; laissez-vibrer tie | 1048 ;; laissez-vibrer tie |
1045 ;; | 1049 ;; |
1046 ;; needed so we can make laissez-vibrer a pure print | 1050 ;; needed so we can make laissez-vibrer a pure print |
1047 ;; | 1051 ;; |
1048 (define-public (laissez-vibrer::print grob) | 1052 (define-public (laissez-vibrer::print grob) |
1049 (ly:tie::print grob)) | 1053 (ly:tie::print grob)) |
1050 | 1054 |
LEFT | RIGHT |