Left: | ||
Right: |
LEFT | RIGHT |
---|---|
1 % property-init.ly | 1 % property-init.ly |
2 | 2 |
3 \version "2.19.22" | 3 \version "2.19.22" |
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 13 matching lines...) Expand all Loading... | |
24 (case (length style) | 24 (case (length style) |
25 ((1) (set-accidental-style (car style))) | 25 ((1) (set-accidental-style (car style))) |
26 ((2) (set-accidental-style (cadr style) (car style))) | 26 ((2) (set-accidental-style (cadr style) (car style))) |
27 (else | 27 (else |
28 (ly:parser-error (_ "not an accidental style") | 28 (ly:parser-error (_ "not an accidental style") |
29 (*location*)) | 29 (*location*)) |
30 (make-music 'Music)))) | 30 (make-music 'Music)))) |
31 | 31 |
32 %% ambitus | 32 %% ambitus |
33 | 33 |
34 ambitusAfterKeySignature = { | 34 ambitusAfter = |
Malte Meyn
2018/12/15 10:40:36
Is this the correct file for such a command? Also,
dak
2018/12/15 10:58:19
This looks like something that might rather warran
| |
35 \override Score.BreakAlignment.break-align-orders = | 35 #(define-music-function (target) (symbol?) |
36 #'#((left-edge | 36 (make-apply-context |
37 cue-end-clef | 37 (lambda (context) |
38 breathing-sign | 38 (define (move-ambitus order) |
39 clef | 39 (let* ((without-ambitus (delq 'ambitus order)) |
40 cue-clef | 40 (target-index (list-index (lambda (x) (eq? x target)) without-ambi tus)) |
41 staff-bar | 41 (head (take without-ambitus (1+ target-index))) |
42 key-cancellation | 42 (tail (drop without-ambitus (1+ target-index)))) |
43 key-signature | 43 (append head '(ambitus) tail))) |
44 ambitus | 44 (let* ((grob-def (ly:context-grob-definition context 'BreakAlignment)) |
45 time-signature | 45 (orders (vector->list (ly:assoc-get 'break-align-orders grob-def))) |
46 custos) | 46 (new-orders (list->vector (map move-ambitus orders)))) |
47 (left-edge | 47 (ly:context-pushpop-property context 'BreakAlignment 'break-align-orders new-orders))))) |
48 cue-end-clef | |
49 breathing-sign | |
50 clef | |
51 cue-clef | |
52 staff-bar | |
53 key-cancellation | |
54 key-signature | |
55 ambitus | |
56 time-signature | |
57 custos) | |
58 (left-edge | |
59 breathing-sign | |
60 clef | |
61 key-cancellation | |
62 key-signature | |
63 ambitus | |
64 time-signature | |
65 staff-bar | |
66 cue-clef | |
67 custos)) | |
68 } | |
69 | 48 |
70 %% arpeggios | 49 %% arpeggios |
71 | 50 |
72 % For drawing vertical chord brackets with \arpeggio | 51 % For drawing vertical chord brackets with \arpeggio |
73 % This is a shorthand for the value of the print-function property | 52 % This is a shorthand for the value of the print-function property |
74 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether | 53 % of either Staff.Arpeggio or PianoStaff.Arpeggio, depending whether |
75 % cross-staff brackets are desired. | 54 % cross-staff brackets are desired. |
76 | 55 |
77 arpeggio = #(make-music 'ArpeggioEvent) | 56 arpeggio = #(make-music 'ArpeggioEvent) |
78 arpeggioArrowUp = { | 57 arpeggioArrowUp = { |
(...skipping 738 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... | |
817 (if (eq? (ly:music-property note 'name) 'NoteEvent) | 796 (if (eq? (ly:music-property note 'name) 'NoteEvent) |
818 #{ \tweak style #cross-style $note #} | 797 #{ \tweak style #cross-style $note #} |
819 #{ \xNotesOn $note \xNotesOff #})) | 798 #{ \xNotesOn $note \xNotesOff #})) |
820 | 799 |
821 %% dead notes (these need to come after "x notes") | 800 %% dead notes (these need to come after "x notes") |
822 | 801 |
823 % Define aliases of cross-head notes for specific purposes | 802 % Define aliases of cross-head notes for specific purposes |
824 deadNotesOn = \xNotesOn | 803 deadNotesOn = \xNotesOn |
825 deadNotesOff = \xNotesOff | 804 deadNotesOff = \xNotesOff |
826 deadNote = #xNote | 805 deadNote = #xNote |
LEFT | RIGHT |