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))
17 %% Hide fret number: useful to draw slide into/from a casual point of
19 hideFretNumber = { \once \override TabNoteHead #'transparent = ##t
20 \once \override NoteHead #'transparent = ##t
21 \once \override Stem #'transparent = ##t
22 \once \override NoteHead #'no-ledgers = ##t
33 \set Staff.midiInstrument = #"acoustic guitar (steel)"
34 \set fingeringOrientations = #'(left)
36 %\override Staff.Glissando #'extra-offset = #' (0.0 . 1.0)
37 \partial 4. \acciaccatura c16 \glissando cis8 e4
38 < cis-1 g'-3 >2 s8 \grace a16 ( \glissando <b-2>8\3 ) <d-1> ( b ) |
39 <e-3>\2 ( <d-1> b ) \grace <ais-2>16 ( \glissando a8 g ) s4. |
40 s4. < d'\3 g\2 >8 < gis,\4 d'\3 fis\2 >2\arpeggio ~ |
42 < gis\4 d'\3 fis\2 >2 < b'\2\harmonic e\harmonic >2\fermata |
47 \set fingeringOrientations = #'(left)
52 e4 \hideFretNumber \grace { b8 \glissando s4 } <e-2>4\5 e,2 ~ |
54 e2 < e'\6\harmonic > |
59 \new Staff = "guitar" <<
60 \context Voice = "upper guitar" { \clef "G_8" \voiceOne
61 \override Glissando #'gap = #0.5
62 \override Glissando #'extra-offset = #'(-0.5 . 0)
63 \override Glissando #'springs-and-rods = #ly:spanner::set-spacing-rods
64 \override Glissando #'minimum-length = #4
65 \override Glissando #'extra-dy = #glissando::calc-extra-dy
67 \context Voice = "lower guitar" { \clef "G_8" \voiceTwo
68 \override Glissando #'bound-details #'right #'padding = #1
69 \override Glissando #'bound-details #'left #'padding = #0.2
72 \new TabStaff = "tab" <<
73 \context TabVoice = "upper tab" { \clef "moderntab" \voiceOne \upper }
74 \context TabVoice = "lower tab" { \clef "moderntab" \voiceTwo \lower }
80 \Score tempoWholesPerMinute = #(ly:make-moment 120 4)
88 \override StringNumber #'transparent = ##t
93 \revert Arpeggio #'stencil