LEFT | RIGHT |
(no file at all) | |
1 \version "2.19.2" | 1 \version "2.19.16" |
2 | 2 |
3 #(define (glissando::calc-extra-dy grob) | 3 #(define (glissando::calc-extra-dy grob) |
4 (let* ((original (ly:grob-original grob)) | 4 (let* ((original (ly:grob-original grob)) |
5 (left-bound (ly:spanner-bound original LEFT)) | 5 (left-bound (ly:spanner-bound original LEFT)) |
6 (right-bound (ly:spanner-bound original RIGHT)) | 6 (right-bound (ly:spanner-bound original RIGHT)) |
7 (left-pitch (ly:event-property (event-cause left-bound) 'pitch)) | 7 (left-pitch (ly:event-property (event-cause left-bound) 'pitch)) |
8 (right-pitch (ly:event-property (event-cause right-bound) 'pitch))) | 8 (right-pitch (ly:event-property (event-cause right-bound) 'pitch))) |
9 | 9 |
10 (if (and (= (ly:pitch-octave left-pitch) (ly:pitch-octave right-pitch)) | 10 (if (and (= (ly:pitch-octave left-pitch) (ly:pitch-octave right-pitch)) |
11 (= (ly:pitch-notename left-pitch) (ly:pitch-notename right-pitch))
) | 11 (= (ly:pitch-notename left-pitch) (ly:pitch-notename right-pitch))
) |
12 (- (ly:pitch-alteration right-pitch) (ly:pitch-alteration left-pitch)) | 12 (- (ly:pitch-alteration right-pitch) (ly:pitch-alteration left-pitch)) |
13 0 ))) | 13 0 ))) |
14 | 14 |
15 upper= \relative c' { | 15 upper= \relative c' { |
16 \time 4/4 | 16 \time 4/4 |
17 \key e \major | 17 \key e \major |
18 \set Staff.midiInstrument = #"acoustic guitar (steel)" | 18 \set Staff.midiInstrument = #"acoustic guitar (steel)" |
19 \set fingeringOrientations = #'(left) | 19 \set fingeringOrientations = #'(left) |
20 | 20 |
21 \partial 4. cis8 e4 | 21 \partial 4. \acciaccatura c16 \glissando cis8 e4 |
22 < cis-1 g'-3 >2 s8 \grace a16 ( \glissando < b-2 >8\3 ) < d-1 > ( b ) | 22 < cis-1 g'-3 >2 s8 \grace a16 ( \glissando < b-2 >8\3 ) < d-1 > ( b ) |
23 < e-3 >\2 ( <d-1> b ) \grace < ais-2 >16 ( \glissando a8 g ) s4. | 23 < e-3 >\2 ( <d-1> b ) \grace < ais-2 >16 ( \glissando a8 g ) s4. |
24 s4. < d'\3 g\2 >8 < gis,\4 d'\3 fis\2 >2\arpeggio ~ | 24 s4. < d'\3 g\2 >8 < gis,\4 d'\3 fis\2 >2\arpeggio ~ |
25 < gis\4 d'\3 fis\2 >2 < b'\2\harmonic e\harmonic >2\fermata | 25 < gis\4 d'\3 fis\2 >2 < b'\2\harmonic e\harmonic >2\fermata |
26 } | 26 } |
27 | 27 |
28 lower= \relative c { | 28 lower= \relative c { |
29 \set fingeringOrientations = #'(left) | 29 \set fingeringOrientations = #'(left) |
30 | 30 |
31 \partial 4. s4. | 31 \partial 4. s4. |
(...skipping 32 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
64 \context { | 64 \context { |
65 \Staff | 65 \Staff |
66 \hide StringNumber | 66 \hide StringNumber |
67 } | 67 } |
68 \context { | 68 \context { |
69 \TabStaff | 69 \TabStaff |
70 \revert Arpeggio.stencil | 70 \revert Arpeggio.stencil |
71 } | 71 } |
72 } | 72 } |
73 } | 73 } |
LEFT | RIGHT |