3 #(set-global-staff-size 22.45)
5 #(define (glissando::calc-extra-dy grob)
6 (let* ((original (ly:grob-original grob))
7 (left-bound (ly:spanner-bound original LEFT))
8 (right-bound (ly:spanner-bound original RIGHT))
9 (left-pitch (ly:event-property (event-cause left-bound) 'pitch))
10 (right-pitch (ly:event-property (event-cause right-bound) 'pitch)))
12 (if (and (= (ly:pitch-octave left-pitch) (ly:pitch-octave right-pitch))
13 (= (ly:pitch-notename left-pitch) (ly:pitch-notename right-pitch)))
14 (- (ly:pitch-alteration right-pitch) (ly:pitch-alteration left-pitch))
25 \set Staff.midiInstrument = #"acoustic guitar (steel)"
26 \set fingeringOrientations = #'(left)
29 < cis-1 g'-3 >2 s8 \grace a16 ( \glissando < b-2 >8\3 ) < d-1 > ( b )
30 < e-3 >\2 ( <d-1> b ) \grace < ais-2 >16 ( \glissando a8 g ) s4.
31 s4. < d'\3 g\2 >8 < gis,\4 d'\3 fis\2 >2\arpeggio ~
32 < gis\4 d'\3 fis\2 >2 < b'\2\harmonic e\harmonic >2\fermata
36 \set fingeringOrientations = #'(left)
41 e4 \hideNotes \grace { b8 \glissando s4 } \unHideNotes < e-2 >4\5 e,2 ~
47 \new Staff = "guitar" <<
48 \context Voice = "upper guitar" {
50 \override Glissando.gap = #0.5
51 \override Glissando.extra-offset = #'(-0.5 . 0)
52 \override Glissando.springs-and-rods = #ly:spanner::set-spacing-rods
53 \override Glissando.minimum-length = #4
54 \override Glissando.extra-dy = #glissando::calc-extra-dy
57 \context Voice = "lower guitar" {
59 \override Glissando.bound-details.right.padding = #1
60 \override Glissando.bound-details.left.padding = #0.2
64 \new TabStaff = "tab" <<
65 \context TabVoice = "upper tab" { \clef "moderntab" \voiceOne \upper }
66 \context TabVoice = "lower tab" { \clef "moderntab" \voiceTwo \lower }
73 \override StringNumber.transparent = ##t
77 \revert Arpeggio.stencil