% title: Goin’ Home
% composer: Dvorak, Fisher

\version "2.10.0"

\include "english.ly"

#(ly:set-option 'point-and-click #f)

headerMarkup = \markup { \italic "Goin’ Home" }

\paper {
    #(set-paper-size "letter")
    top-margin = .2\in
    bottom-margin = .4\in
    left-margin = .75\in
    line-width = 7\in
    between-system-padding = 0.05\in
    %indent = 0\in
    ragged-last-bottom = ##f
  
    oddHeaderMarkup = \markup
    \fill-line {
      ""
      \on-the-fly #not-first-page \headerMarkup
      \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
    }

    evenHeaderMarkup = \markup
    \fill-line {
      \on-the-fly #print-page-number-check-first \fromproperty #'page:page-number-string
      \on-the-fly #not-first-page \headerMarkup
      ""
    }
}

#(define niceSkip (* 3.0 (/ 11.0 12.0)))

\header {
	composer = \markup { \general-align #Y #-1 "ANTON DVOŘÁK" }
    subtitle = \markup { \override #`(baseline-skip . ,niceSkip)
                         \medium \small \center-align { 
                        "Adapted from the Largo of the Symphony"
                        "“From the New World,” Op. 95." } }
    poet = \markup { \general-align #X #-1
                     \general-align #Y #-1
                     \override #`(baseline-skip . ,niceSkip) 
                     \small \center-align {
                      "Words and adaptation by" 
                      "WILLIAM ARMS FISHER" } }
    %opus = 
	title = "GOIN’ HOME"
    %subtitle = 
    %tagline = ""
    copyright = ""
}

#(set-global-staff-size 18.5)

%for optional notes
smallNotes = {
  \set fontSize = #-2
  \override Stem #'length-fraction = #0.8
  \override Beam #'thickness = #0.384
  \override Beam #'length-fraction = #0.8
}

staffUp = \tag #'scoreOnly { \change Staff = treble }
staffDown = \tag #'scoreOnly { \change Staff = bass }

forceShift = \once \override NoteColumn #'force-hshift = #1.7
forceShiftII = \once \override NoteColumn #'force-hshift = #2.1

global = {
    \override Staff.Accidental #'cautionary-style = #'smaller
    \set Staff.extraNatural = ##f
    \time 4/4
    \key ef \major
    
    s1*11
    %12; page
    s1*16
    %28; page
    s1*4
    %32
    \bar "||"
    \time 2/4
    s2
    \bar "||"
    \time 4/4
    s1*7
    %40; page
    s1*14
    \bar "|."
}

pianoGlobal = {
    <<
        \set Staff.midiInstrument = #"acoustic grand"
        %#(set-accidental-style 'piano 'PianoStaff)
        \global
    >>
}

voice = {
    \relative g'
    {
            \autoBeamOff
            \set Staff.midiInstrument = #"oboe"
            \once \override Score.MetronomeMark #'transparent = ##t
            \tempo 4 = 52
            R1 ^ \markup { Largo ( 
                \teeny \general-align #Y #DOWN \note #"4" #1
                = 52 ) }
            R1*3 |
        %5
            g8. bf16  bf4 g8. f16 ef4 |
            f8. g16 bf8. g16 f2 |
            g8. bf16 bf4 g8. f16 ef4 |
            f8. g16 f8. ef16 ef2 |
            c'8. ef16 ef4 d8 bf c4 |
        %10
            c8 ef d bf c2 |
            c8. ef16 ef4 d8 bf c4 |
        %page
            c8 ef d bf c2 |
            g8. bf16 
                << { \stemUp bf4 \stemNeutral } 
                   \new Voice { \voiceTwo \smallNotes bf8\noBeam bf8 } >>
                g8. f16 ef4 |
            f8. g16 bf8. g16 f2 |
        %15
            g8. bf16 bf4 ef8. f16 g4 |
            f8. ef16 f8 c ef2 |
            R1 |
            << { \voiceThree f,4. ef8 f4 c | ef2. \oneVoice } 
            \new Voice { \voiceOne \smallNotes s2. c'4 ef2. } >>
            r4 |
        %20
            ef2( e) |
            ef2( e) |
            ef2 c4 ^> d^> |
            ef1~ ^> |
            ef4 r2. |
        %25
            R1*3 | %page
            c8 ef d bf c2 |
            c8 ef d bf c2 |
        %30
            c8 ef d bf c af bf([ g]) |
            c8 ef d bf c af bf([ g]) |
            c8 af bf g |
            c4( cf2.) |
            \override Voice.Stem #'neutral-direction = #up
            g8. bf16  bf4 g8. f16 ef4 |
        %35
            f8. g16 bf8. g16 f8( bf4.) |
            g8. bf16 bf4 g8. f16 ef4 |
            f8 g f8. ef16 ef2 |
            c'8. ef16 ef4 d8 bf c4 |
            c8 ef d bf c2 |
        %40, page
            c8. ef16 ef4 d8 bf c4 |
            c8 ef d-- bf-- c2 |
            R1 |
            R1 |
            g8. bf16 bf4 g8. f16 ef4 |
        %45
            f8. g16 bf8. g16 f4( fs) |
            g8. bf16 bf4 ef8. f16 g4 |
            f8. ef16 f8 d ef2 |
            R1 |
            << { \voiceThree f,4. ef8 f4 c | ef2. }
                 \new Voice { \voiceOne \smallNotes s2. c'4 ef2.} >>
            \oneVoice r4 |
        %51
            R1 |
            g,8. bf16 bf2 r4 |
            R1 |
    }
}

voiceDynamics = {
    \dynamicUp
    \set hairpinToBarline = ##f
    \override DynamicTextSpanner #'dash-period = #-1.0
    s1*4
%5
    s8 \p \< s8 s8\! s8 s4 \> s8 \! s8 |
    s8 \< s32 s32 \! s16 s4 \> s4 \! s4 |
    s8. \< s32 s32 \! s4 s4 \> s8 \! s8 |
    s8 \< s32 s32 \! s16 s4 \> s4 \! s4 |
    s1 \mp |
%10
    s1 |
    s1 \mf |
    s1 |
    s1\p |
    s8 \< s32 s32 \! s16 s4 \> s2 \! |
%15
    s1^\markup { \italic cresc. }
    s4.\f s8\< s2 \! |
    s1 |
    s1 \p |
    s1 |
%20
    s2 \p \< s2 \! |
    s2 \p \< s2 \! |
    s2 \f s2 |
    s1 \ff \> |                
    s4 \! s2. |
%25
    s1*3 |
    s1 \p |
    s1 |
%30
    s1 ^\markup { \italic cresc. } | 
    s1 |
    s2 ^\markup { \italic dim. } |
    s8..\< s32\! s8 s8\> s4. s8\! | 
    
    s8. \p \< s16 \! s4 s4 \> s8 \! s8 |
%35
    s2 s8 \< s4. \! |
    s2 \mf s2 ^\markup {\italic cresc. }
    s1
    s8. \< s16 \! s2. |
    s1 |
%40
    s1^\markup { \italic cresc. } |
    s1\f |
    s1 |
    s1 |
    s1 \pp |
%45
    s2 s4\< s4\! |
    s2^\markup { \italic cresc. } s4\< s4 \! |
    s1 |
    s1 |
    s1 \mp |
%50
    s1 |
    s1 |
    s1\pp |
    s1 |
}

theLyrics = \lyricmode {
    Go -- in’ home, go -- in’ home,
    I’m a -- go -- in’ home;
    Qui -- et -- like, some still day,
    I’m jes’ go -- in’ home.
    It’s not far, jes’ close by,
    Through an o -- pen door;
    Work all done, care laid by,
    gwine to fear no more.
    Mo -- ther’s there ’spec -- tin’ me,
    Fa -- ther’s wai -- tin’ too;
    Lots o’ folk ga -- ther’d there,
    All the friends I knew,
    All the friends I knew.
    Home, __ home, __ I’m go -- in’ home! __
    
    No -- thin’ lost, all’s gain,
    No more fret nor pain,
    No more stum -- blin’ on the way,
    No more long -- in’ for the day, __
    Gwine to roam no more! __
    
    Mor -- nin’ star lights the way,
    Res’ -- less dream all done;
    Sha -- dows gone, break o’ day,
    Real life jes’ be -- gun.
    Dere’s no break, ain’t no end,
    Jes’ a -- li -- vin’ on;
    Wide a -- wake, with a smile,
    Go -- in’ on and on.
    
    Go -- in’ home, go -- in’ home,
    I’m jes’ go -- in’ home; __
    It’s not far, jes’ close by,
    Through an o -- pen door.
    I’m jes’ go -- in’ home.
    Go -- in’ home.
}

altVoice = {
    \relative c'' {
        \stemDown
        \autoBeamOff
        \override NoteColumn #'force-hshift = #0
        s1*11
        c8 s8 s2. |
        s4 \smallNotes bf8 bf \set fontSize = #0 
            g8. f16 ef4 |
        s1*14 |
        s1*4
        c'8 s8 s4 |
        s1*5 |
        c8. ef16 ef4 d8 bf c4 |
    }
}

altLyrics = \lyricmode
{
    \override LyricText #'font-size = #-1
    \override Lyrics . VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0)
    "(going)"
    "(there" ex -- pec -- ting "me,)"
    "(Going)"
    "(There’s" no break, there’s no "end,)"
}
    

pianoI = \new Voice {
    \voiceOne
    \relative as
    {
        <as cs fs>2 <g c g'>2 |
        <as cs fs>2 <bf ef g> |
        <cf ef gf>2 <cf ef af> |
        <bf ef bf'>1 |
    %5
        <g bf ef g>2\arpeggio <g bf ef g>2\arpeggio  |
        <af bf d f>2\arpeggio <af bf d f>2\arpeggio  | 
        <g bf ef g>2\arpeggio <b ef g>2\arpeggio |
        f'8.([ g16 f8. ef16~ ] <g, bf ef>2 ) |
        c'8.([ ef16] ef4 d8[ bf] c4) |
    %10
        c8([ ef d bf] c2) |
        c8.( ef16 ef4 d8 bf c4) |
    %page
        c8( ef d bf c2) |
        \set PianoStaff.connectArpeggios = ##t
        g8.( bf16 bf4 <g>8.\arpeggio f16 ef4) |
        <f>8. \arpeggio ( g16 bf8. g16 f2) |
    %15
        g8.( bf16~ bf4 <ef, ef'>8. <f f'>16 \stemDown <g bf ef g>4 ) \stemUp |
        <f f'>8.( <ef ef'>16 <f f'>8 <c af' c>8 <ef g ef'>2 ) |
        g'8.( ef16 f8 c ef2) |
        f4.( ef8 f4 c |
        ef1 ) |
    %20
        s1 |
        s1 |
        s2 c'4^> d^> |
        \tieNeutral
        s2 <g,, bf ef g>2~ |
        <g bf ef g>1 |
        \tieUp
    %25
        g'8.( bf16 bf4 af8 f g4) |
        ef8( g f d ef2) |
        g8.( bf16 bf4 af8 f g4) |
    %page
        ef8( g f d ef2) |
        ef8( g f d ef2) |
    %30
        ef8( g f d ef c d bf) |
        ef8( g f d ef c d bf) |
        ef8([ c d bf] |
        ef2. df8 cf) |
        << { g8.( bf16 s4 \forceShift g8. f16 ef4) }
            \new Voice { \voiceTwo \stemUp \tieUp 
                s4 bf'4~ \stemDown <bf bf,>2 } >>
    %35
        \tieNeutral
        <af, d bf'>2~ ( <af d bf'>8 af' g f) |
        g8.( bf16 bf4 g8. f16 ef4) |
        <c ef c'>4( <d d'>4 <ef ef'>2) |
        c'8.( ef16 ef4 d8 bf c4) |
        c8( ef d bf c2) |
    %40
        c8.( ef16 ef4 d8 bf c4) |
        c8( ef d bf c2) |
        \override Rest #'direction = #0
        c8( ef ef4 d8 bf) r4^\fermata |
        c2 r2 |
        <ef, g>8.( <g bf>16 <g bf>4) <ef g>8.( <bf f'>16 <g ef'>4) |
    %45
        <bf f'>8.([ <ef g>16 <f bf>8. <ef g>16] f4 fs) |
        g8.( bf16 bf4) <ef, ef'>8. <f f'>16 <g g'>4 |
        f'8.([ ef16 f8 d] ef4) g8( bf |
        f8.[ ef16 f8 c] <g ef'>2) |
        f'4.( ef8 f4 c |
    %50
        ef2) s2 |
        ef2 s2 |
        s1 |
        <ef, g>8.( bf'16 bf2) r4 |
    }
}

pianoII = \new Voice {
    \voiceTwo
    \relative c' {
        s1*4 |
    %5
        s1*2 |
        %\tag #'scoreOnly { \hideNotes c8 c c c c c c c \unHideNotes | }
        %\tag #'midiOnly { s1 | }
        s1 |
        c4 d s2 |
        ef1 |
    %10
        ef1 |
        ef1 |
        ef1 |
        <bf ef g>2\arpeggio <g bf ef>\arpeggio |
        <af bf d>1\arpeggio |
    %15
        <bf ef>4 <bf f'> <g' c> s4 |
        <af c>4 s2. |
        c4. f,8 g2 |
        c2. f,4 |
        g1 |
    %20
        \slurUp
        <g' bf ef>2( <e a e'> ) |
        <g bf! ef!>2( <e g c e> ) |
        \once \override Slur #'height-limit = #5
        <ef! af! c ef!>2( <f af f'>  |
        <g bf ef g>1 ) |
        s1 |
        \slurDown
    %25
        bf,1 |
        g1 |
        bf1 |
        g2~ g8 g4 g8~ |
        g2~ g8 g4 g8~ |
    %30
        g1 |
        g1 |
        g2 |
        gf4 af4 <fs a>2 |
        \forceShiftII <bf, ef g>2 s2
    %35
        \forceShift f'8.[ g16 bf8. g16] \forceShift f8 \forceShift <d bf'>4. |
        <bf ef g>2 <b ef b'>2 |
        f'8 g f8. ef16~ \hideNotes ef2 \unHideNotes |
        ef8 ef4 ef ef ef8~ |
        ef8 ef4 ef ef ef8~ |
    %40
        ef8 ef4 ef8 ef\noBeam ef4 ef8~ |
        ef8 ef ef ef ef ef4 ef8~ |
        ef8 ef4 ef ef8 s4 |
        ef8( ef4 ef8) s2 |
        s1 |
    %45
        s2 d4
            \set followVoice = ##t 
            \staffDown \voiceOne c8 \set followVoice = ##f cf |
        \staffUp \voiceTwo |
        ef4 f c' <bf ef> |
        <f af>2 g |
        <c c'>4. s8 s2 |
        c2. f,4 |
    %50
        << \new Voice { \voiceOne
                s4 \hideNotes bf4~ \unHideNotes bf2
                s4 \hideNotes bf4~ \unHideNotes bf2~
                bf4 s2. }
            {  
               <ef, g>8.( <g bf>16 <g bf>4) g8( f ef4)
               <ef g>8.( <g bf>16 <g bf>4) g8( f ef4)
               <ef g>8.( <g bf>16 <g bf>2 ) s4 
            } >> |
        s1 |
    }
}

pianoIII = \new Voice {
    \voiceOne
    \relative fs, {
        <fs cs' fs>2 <e c' e> |
        <fs cs' fs>2 <ef bf' ef> |
        s2 ef'4-- f-- |
        <ef g>1-- |
    %5
        <ef, bf' ef>2 \arpeggio <ef bf' ef>2 \arpeggio
        <ef bf' f'>2 \arpeggio <ef bf' f'>2 \arpeggio
        <ef bf' ef>2 \arpeggio <g ef' g>2 \arpeggio
        \stemNeutral <af ef' af>4 <bf af'>4 <ef, bf' ef>2 \stemUp |
        af'8( c c4 bf8 g af4) |
    %10
        af8( c bf g af2) |
        af8( c c4 bf8 g af4) |
        af8( c bf g af2) |
        ef2~ ef8 bf( g' ef) |
        r4 f8.( g16 af2) |
    %15
        \stemNeutral <ef, ef'>4 <d d'> <c c'> <bf bf'> |
        <af' ef' af>2 <ef bf' ef> |
        <af' ef'>2 <ef bf'> |
        <af ef'>1 |
        <ef bf'>1 |
    %20
        \clef treble \stemUp
        <ef' bf' ef>2( <cs a' cs> ) |
        <ef bf' ef>2( <c g' c> ) |
        s2 c'4^> d^> |
        s2 \clef bass << { <ef,, bf' ef>2~ <ef bf' ef>1 }
            \new Voice { \voiceTwo r8 
                        \repeat tremolo 6 { ef,32 \sf ef,32~ } ef1 } >> | 
    %25
        ef'''8( g g4 f8 d ef4) |
        c8( ef d bf c2) |
        ef8( g g4 f8 d ef4) |
        c8( ef d bf c2) |
        c8( ef d bf c2) |
    %30
        c8( ef d bf c af bf g) |
        c8( ef d bf c af bf g) |
        c8([ af bf g] |
        c4 cf2. )
        r2 ef,4 ( g) |
    %35
        s2 r8 c8( bf af) |
        s1 |
        s1 |
        af8( c c4 bf8 g af4) |
        af8( c bf g af2) |
    %40
        af8( c c4 bf8 g af4) |
        af8( c bf g af2) |
        \override Rest #'direction = #0
        af8( c c4 bf8 g) r4\fermata |
        af2 r2 |
        ef,1~ |
    %45
        ef1 |
        bf'4 bf g8. af16 bf4 |
        s1 |
        ef4.( f8) s2 |
        ef1 |
    %50
        bf2 ef8( bf g4) |
        s2 ef'8( bf g4) |
        bf1~ |
        bf2. r4 |
    }
}

pianoIV = {
    \voiceTwo
    \relative cf {
        s1*2 |
        <cf ef>2 af2 |
        r4 \stemUp \repeat "tremolo" 8 { ef32 \sfp ef,32~ } ef4 \stemDown | 
    %5
        s1*4 |
        <af' ef'>1
    %10
        <af ef'>1
        <af ef'>1
        <af ef'>1
        <ef bf'>1
        <ef bf'>1 |
    %15
        s1*4 |
        \tupletDown
        \times 2/3 { r8 \voiceOne
                     \once \override Slur #'height-limit = #6.0
                     ef8( bf' }
        \tupletNeutral
        \times 2/3 { ef g bf }
        \once \override TupletNumber #'extra-offset = #'(0 . 12.5)
        \times 2/3 { ef \staffUp \stemDown g bf }
        \times 2/3 { ef g bf) } \staffDown | \voiceTwo
    %20
        s1 |
        s1 |
        <af, c>2 <f af> |
        <ef g bf ef>1 ^>
        s1 |
    %25
        <ef, bf'>1 |
        ef1 |
        <ef bf'>1 |
        ef1 |
        ef1 |
    %30
        ef1 |
        ef1 |
        ef2 |
        ef1 |
        << { d4\rest bf2. } \new Voice { ef,1 } >> |
    %35
        <ef bf'>1 |
        <ef bf' ef>2 <g ef' g> |
        <af f' af>4 <bf af' bf> <ef g bf>2 |
        <af, ef'>1 |
        <af ef'>1 |
    %40
        <af ef'>1 |
        <af ef'>1 |
        <af ef'>2. s4 |
        <af ef'>2 s2 |
        s1 |
    %45
        s1 |
        ef'4( d) c( bf) |
        <af ef' cf'>2\arpeggio <ef' bf> |
        af2 <ef bf'> |
        af1 |
    %50
        ef1 |
        <ef, bf'>1 |
        ef1~ |
        ef2. s4 |
        
    }
}

pianoDynamics = {
    \dynamicDown
    \override DynamicLineSpanner #'staff-padding = #3
    s4 \mp \< s4 s4 \> s4 \! |
    s4 \< s4 \! s4 \> s4 \! |
    s4 \< s4 \! s4 \> s4 \! |
    s2. \f \> s4 \! |
%5
    s1\pp |
    s4 s8.\> s16 \! s2 |
    s8. \< s16 \! s4 s8.\> s16\! s4 |
    s8 \< s32 s32 \! s16 s4 \> s4 \pp s4 |
    \revert DynamicLineSpanner #'staff-padding
    s4 \mp \< s4 \! s2 |
%10
    s4 s4\> s2 \! |
    s4 \< s4 \! s2 |
%page
    s4 s4 \> s2 \! |
    \override DynamicLineSpanner #'staff-padding = #3
    s1 \pp |
    s8 \< s8 \! s4 \> s2 \! |
%15
    s8. s16 \< s4 s4 s4 \! |
    s4 \f s8 s8 \> s2 \! |
    s1 \pp |
    s2. \p s4 \> |
    s1 \! \pp |
%20
    s2 \p \< s2 \! |
    s2 \p \< s2 \! |
    s1 \f |
    s1 \ff |
    s1 |
%25
    s1 \pp |
    s1*2 |
    s1\p
    s1 |
%30
    s1_\markup { \italic cresc. } |
    s1 |
    s2 _\markup { \italic dim. } |
    s2 s8 s8\> s8 s8\! |
    s8.. \< s32 \! s4 s4\> s4\! |
%35
    s2 s8\< s8\! s4 |
    s4 \mf s4 \< s2 \! |
    s1 |
    s8 \< s4 \! s8 s2 |
    s1 |
%40
    s1 _\markup { \italic cresc. } |
    s1 \f |
    s1 _\markup { \italic dim. } |
    s1 |
    s1 \pp |
%45
    s1 |
    s1 _\markup { \italic cresc. } |
    s8. s16\> s4 s2 \! |
    s2 _\markup { \italic dim. } s4\> s4 \! |
    s1 \mp
%50
    s4 \p \< s4\! s8.. \> s32\! s4 |
    s1 \pp |
    s1 \ppp
    
}

pu = \sustainUp
pd = \sustainDown

ped = \markup { \override #'(word-space . 0) 
        \line { \musicglyph #"pedal.Ped" "." } }
        
pianoPedals = {
    \override Staff.PianoPedalBracket #'shorten-pair = #'(0 . -1.0)
    \override Staff.PianoPedalBracket #'stencil = ##f
    \set Staff.pedalSustainStyle = #'mixed
    %\set Staff.pedalSustainStrings = #'("Ped." "Ped." " ")
    \override TextScript #'staff-padding = #3.5
    s1*3 
    s1 _ \ped|
%5
    s1 _ \ped |
    s1*4 |
%10
    s1*5 |
%15
    s1*4 |
    s1 _ \ped |
%20
    s1*3 |
    s1 _ \ped |
    s1 |
%25
}

\score
{
    \transpose ef c
    \removeWithTag #'midiOnly
    \new Score \with 
    {
        systemStartDelimiter = #'SystemStartBar
    } <<
        \context Staff = "voiceStaff" <<
                \set Staff.instrumentName = "Voice   "
                \clef treble
                \new Voice = "voice" << \global \voice \voiceDynamics >>
                \new Voice = "altVoice" \with
                {
                    \remove Dots_engraver
                    \remove Stem_engraver
                } { \hideNotes 
                    \altVoice }
           >>
        %\new Devnull = "altVoice" { \altVoice }
        \new Lyrics \lyricsto "voice" \theLyrics
        \new Lyrics \with { 
            \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0)
        } \lyricsto "altVoice" \altLyrics
                
        \context PianoStaff <<
            \set PianoStaff.instrumentName = "Piano "
            \context Staff = "treble" <<
                \clef treble
                \new Voice << \pianoGlobal \pianoI >>
                \new Voice << \pianoGlobal \pianoII \pianoDynamics >>
            >>
            \context Staff = "bass" <<
                \global
                \clef bass
                \new Voice << \pianoGlobal \pianoIII >>
                \new Voice << \pianoGlobal \pianoIV \pianoPedals >>
            >>
        >>
    >>
    
    \layout
    {
        \context
        {
            \Lyrics
            \override LyricText #'font-size = #0
            \override LyricHyphen #'minimum-distance = #0.5
            \override LyricSpace #'minimum-distance = #0.5
        }
    }
}

\score
{
    \transpose ef c
    \removeWithTag #'scoreOnly
    {<<
        \new Staff = "voiceStaff" <<
                \set Staff.instrumentName = "Voice   "
                \clef treble
                \new Voice = "voice" << \global \voice  >>
           >>
                
            \new Staff = "treble" <<
                \new Voice << \pianoGlobal \pianoI  >>
            >>
            \new Staff = "treble" <<
                \new Voice << \pianoGlobal \pianoII  >>
            >>
            \new Staff = "treble" <<
                \new Voice << \pianoGlobal \pianoIII  >>
            >>
            \new Staff = "treble" <<
                \new Voice << \pianoGlobal \pianoIV  >>
            >>
        >>
    }
    
    \midi
    {
    }
}