LEFT | RIGHT |
(no file at all) | |
1 % property-init.ly | 1 % property-init.ly |
2 | 2 |
3 \version "2.21.0" | 3 \version "2.21.0" |
4 | 4 |
5 %% for dashed slurs, phrasing slurs, and ties | 5 %% for dashed slurs, phrasing slurs, and ties |
6 #(define (make-simple-dash-definition dash-fraction dash-period) | 6 #(define (make-simple-dash-definition dash-fraction dash-period) |
7 (list (list 0 1 dash-fraction dash-period))) | 7 (list (list 0 1 dash-fraction dash-period))) |
8 | 8 |
9 %% common definition for all note head styles reverting | 9 %% common definition for all note head styles reverting |
10 %% (palm mute, harmonics, dead notes, ...) | 10 %% (palm mute, harmonics, dead notes, ...) |
(...skipping 737 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
748 } | 748 } |
749 | 749 |
750 | 750 |
751 %% volta brackets | 751 %% volta brackets |
752 | 752 |
753 allowVoltaHook = | 753 allowVoltaHook = |
754 #(define-void-function (bar) (string?) | 754 #(define-void-function (bar) (string?) |
755 (_i "Allow the volta bracket hook being drawn over bar line @var{bar}.") | 755 (_i "Allow the volta bracket hook being drawn over bar line @var{bar}.") |
756 (allow-volta-hook bar)) | 756 (allow-volta-hook bar)) |
757 | 757 |
| 758 |
| 759 %% vowel transitions |
| 760 |
| 761 vowelTransition = #(make-music 'VowelTransitionEvent) |
| 762 |
| 763 |
758 %% x notes | 764 %% x notes |
759 | 765 |
760 #(define (cross-style grob) | 766 #(define (cross-style grob) |
761 ;; Returns the symbol 'cross to set the 'style-property for (Tab-)NoteHead. | 767 ;; Returns the symbol 'cross to set the 'style-property for (Tab-)NoteHead. |
762 ;; If the current text-font doesn't contain the glyph set 'font-name to '() | 768 ;; If the current text-font doesn't contain the glyph set 'font-name to '() |
763 ;; and 'font-family to 'feta. | 769 ;; and 'font-family to 'feta. |
764 ;; If 'feta is replaced by another music-font without cross-style-glyphs | 770 ;; If 'feta is replaced by another music-font without cross-style-glyphs |
765 ;; note-head.cc throws a warning and no visual output happens. | 771 ;; note-head.cc throws a warning and no visual output happens. |
766 (let* ((layout (ly:grob-layout grob)) | 772 (let* ((layout (ly:grob-layout grob)) |
767 (props (ly:grob-alist-chain grob)) | 773 (props (ly:grob-alist-chain grob)) |
(...skipping 19 matching lines...) Expand all Loading... |
787 (if (eq? (ly:music-property note 'name) 'NoteEvent) | 793 (if (eq? (ly:music-property note 'name) 'NoteEvent) |
788 #{ \tweak style #cross-style $note #} | 794 #{ \tweak style #cross-style $note #} |
789 #{ \xNotesOn $note \xNotesOff #})) | 795 #{ \xNotesOn $note \xNotesOff #})) |
790 | 796 |
791 %% dead notes (these need to come after "x notes") | 797 %% dead notes (these need to come after "x notes") |
792 | 798 |
793 % Define aliases of cross-head notes for specific purposes | 799 % Define aliases of cross-head notes for specific purposes |
794 deadNotesOn = \xNotesOn | 800 deadNotesOn = \xNotesOn |
795 deadNotesOff = \xNotesOff | 801 deadNotesOff = \xNotesOff |
796 deadNote = #xNote | 802 deadNote = #xNote |
LEFT | RIGHT |