Midi issue

[Carter Brey]

Greetings Lilyponders --

Can't figure out why the midi output from this file does not include all 
the piano voices. Any help would be appreciated.

By the way, the new point-and-click method using URI tags is brilliant. 
One observation: the manual sez the EDITOR variable should be set to 
"vim". It actually should be set to "gvim". Additionally, an instance of 
the browser needs to be running already for the call to gvim to work, at 
least the way I have things set up. Just thought I'd offer these 
comments to help non-supergeeky users such as myself.

Thanks a lot,
Carter


\header {
        title = "Margaritki (Daisies)"
        subtitle = ""
        composer = "Sergei Rachmaninov"
        poet = "Arr. William `Skip' Doppman"
        opus = "Op. 38 No. 3"
        tagline = ""
        instrument = ""
        copyright = "Copyright by William Doppman"
        }

\version "2.5.13"

u = { \change Staff = up \stemDown }
w = { \change Staff = down \stemUp }
        
melody =        \context Voice = "Violoncello" {
                #(set-global-staff-size 20)     
                \time 3/4
                \key f \major
                \clef treble
                \override Hairpin  #'extra-offset = #'(0 . -1)
                \override DynamicText   #'extra-offset = #'(0 . -1)
                r8^\markup { \bold \large\bigger {\hspace #-5.0 \raise #2.0 
"Lento"}}\p\< bes^""^\markup{\italic cantabile}   b c' ees'4\!\mp( ~
                \override Hairpin   #'extra-offset = #'(0 . -2)
                \override DynamicText   #'extra-offset = #'(0 . -1)
                ees'\> d' des')\! 
                \override Hairpin #'extra-offset = #'(0 . -0.5)
%               \revert DynamicText #'extra-offset
                r r8 c'\< f'4 ~
                f'2\! bes'8--(a' ~
                a' f') c'4.(\> bes8)
                a2\! r4
                \override Hairpin #'extra-offset = #'(0 . -0.75) c'8\p\< c' 
d'4.\!\>( c'8\!)
                r8 g'( f'4.\> c'8)\! \revert Hairpin #'extra-offset
                \override DynamicText   #'extra-offset = #'(0 . -1.5)
                r4. a'8\pp bes'8.[( c''16)]
                \revert DynamicText #'extra-offset 
                a'2 d'4
                \override TextScript   #'extra-offset = #'(0 . -1.5)
                ees'( _\markup \italic "cresc." e') f'
                \revert TextScript #'extra-offset 
                ges'8[( aes')] bes'[( c'')] d''[\mf c'']
                \override Hairpin   #'extra-offset = #'(0 . 0.25)
                c''(\> g') r4\! \clef tenor \override Hairpin  #'extra-offset = 
#'(0 . -1) \times 2/3 {bes8[\<( b c')]}
                \override DynamicText   #'extra-offset = #'(0 . -1)
                ees'[\mp\! des'] ges4 \times 2/3 {bes8[( c' ges')]}
                \revert Hairpin #'extra-offset 
                \times 2/3 {ees'[( des') bes]( ~ }  \times 2/3 {bes[ ges aes)]} 
\grace {aes16[( bes]} \times 2/3 {aes8[ ges aes)]} 
                bes4._\markup \italic "cresc." f'8( ~ f' bes' ~ 
                bes') f' ~ f'4. \clef bass f,8(
                \grace {g,)-0} \override DynamicText   #'extra-offset = #'(0 . 
0)aes\f( g) f4.( ees8) 
                f4.( ees8) f4\>
                \revert DynamicText #'extra-offset
                r\! <des, aes,>\mf^\markup "pizz." r
                r8 des,16[\> aes,] f[ aes8 bes16] ~ bes[ des' f'8]\!\p
                R2.
                \override TextScript   #'extra-offset = #'(0 . 2)
                \override Hairpin   #'extra-offset = #'(0 . -1.1)
                r2 r8 b\p^\markup "arco"(
                \revert TextScript #'extra-offset 
                c' f) f4.( \override Hairpin #'extra-offset = #'(0 . 
-0.5)c'8)\< \clef treble
                f'4.\!\>( ees'8) c'( bes)\!
                c'2.
                r8 c''\pp^\markup \italic "dolciss." bes'4.( a'8)
                \override DynamicText   #'extra-offset = #'(0 . -0.5)
                a'4\< a'2\!\>\trill\mp(
                \override Hairpin   #'extra-offset = #'(0 . -1.25)
                \grace {gis'16[ a']} f'4\!) a'4\trill(\mp  \times  8/9 {\small 
a'32\> gis' bes' a' gis' g' gis' bes' a')}
                \override Hairpin   #'extra-offset = #'(0 . -1)
                \normalsize f'4\! f'4.\trill \p \times 2/3 {e'16\>( gis' 
a'\!-0)}
                \override TextScript   #'extra-offset = #'(0 . -2)
                f'4 f'8\trill (\p ~ f'32 e' g' f') \small \times 8/10 
{e'_\markup \italic \large "cresc."( dis' e' f' fis' g' gis' b' bes' a')}
                \normalsize f'4 f''4.\mf( c''8)
                a'( f') b2
                \override DynamicText   #'extra-offset = #'(0 . -1.5)
                f'8\mp( c') a2
                \revert DynamicText #'extra-offset 
                \clef bass a8\p( f) bes,2
                \override TupletBracket   #'number-visibility = ##f
                \override TextScript   #'extra-offset = #'(0 . -1.25)
                r16 c,[( a, c)] d[( b, d c)] \times 16/20 {\tiny e64\<( g f gis 
bes a) b( d' c' e' g'\! f'_\markup \italic \large "poco") \clef treble a'( 
gis'\> bes' a' c'' b' d'' c'')}
                \override DynamicText   #'extra-offset = #'(0 . -0.75)
                \normalsize a''2.\!-0\pp ~
                a''4 r4. \clef bass f'8-0\fermata \bar "|."
                } 

PianoRH =       {       
                #(set-accidental-style 'piano-cautionary)       
                        \key f \major
                        R2.
                        % voice 3: 
                        << {b'4.-- bes'8( b'4)
                        s2.*36} \\
                        % voice 1:
                        {f'4( e'2) s2 s8 s8\< 
                        r8 c''\!( f''4.\>) c''8\!(
                        des''4 d'' ees''8 e'')
                        r4 s2
                        s2.
                        s4 \times 2/3 {r4 c''8(]} \times 2/3 {g''[ f'' e'']} 
                        ees''[ des''] c''[ b'] bes'4) 
                        r2 \times 2/3 {r8 c''[ d'']} 
                        f''[( ees''] c''4.) bes''8
                        c'''4 s s} \\ 
                % voice 2:
                        {g'8 aes' ~ aes'4 \stemDown g'
                        s2.*20
                        \slurDown \stemDown \override Hairpin #'extra-offset = 
#'(0 . -1) f'2\>( e'4\!)
                        s2.*15} \\
                % voice 4
                           {\override Hairpin #'extra-offset = #'(0 . -3.0) 
\override DynamicText #'extra-offset = #'(0 . -3.0)s2\> s8\! \slurUp b''8\p( 
c'''8 f'' f''4.) \stemUp c'''8(
                        f'''4 \grace {ees'''16[ f''']} ees'''8 c''' c'''4)
                        r8 f''( a'' c''' \tiny a''32 bes'' a'' aes'' \times 4/5 
{g'' aes'' a'' c''' bes'')}
                        \normalsize a''8( f'' d''4 des''8 c'')
                        \stemDown c'''8( f'' f''4) \times 2/3 {\slurDown c'''8( 
f''' g'''} 
                        f'''4) \stemUp \grace {c'''16[ des''']} \stemUp \times 
2/3 {c'''8 bes'' c'''} \times 2/3 {a''4 c'''8}
                        a''16[ gis'' a'' g''] \times 4/6  {\set subdivideBeams 
= ##t \set Score.beatLength = #(ly:make-moment 3 16) a''[ fis'' a'' f'' a'' 
e'']} \set subdivideBeams = ##f a''8.[^\trill gis''32( a'']) 
                        a''8[( f'')] f''4 \times 2/3 {\slurUp g''8[( aes'' 
bes'')]}
                        \slurUp c'''8( aes''4) c'''8( d'''[ aes'''] 
                        \grace {f'''16[ g''']} f'''8[ ees'''] c'''[ aes''] 
bes''[ c''')]
                        \times 2/3 {c'''[( d''' c''']} c'''_\markup \italic 
"dim."[ g'']) r4
                        \override DynamicText #'extra-offset = #'(0 . 0) r8_\mp 
ges'8( bes'[ aes''] f''[ ges'']
                        bes''[ ges''] ees'' bes'4 c''8
                        d''[) \slurDown f'']( \override Hairpin   
#'extra-offset = #'(0 . 0)\times 2/3 {bes''\>[ c''' bes'']} bes''[-- f'']\!) ~
                        f''_""_""_\markup \italic "cresc." g''16( a'' \grace 
{bes''[ c''']} bes''[ a'' bes'' c'''] \set subdivideBeams = ##t \set 
Score.beatLength = #(ly:make-moment 2 16) des'''[ ees''' \times 2/3 {c''' 
des''' ees''']}
                        f'''8\f des'''4) #(set-octavation 1) f'''8( g'''[ 
<des''' des''''>)]\arpeggio 
                        << { bes'''([ aes'''] f''') #(set-octavation 0) \slurUp 
des'''_\markup \italic "dim."[( c''' des''']
                         bes''[ aes''] f'' des''4) \slurUp bes'8\mf(
                        g'_""_""_\markup \italic "dim."[ aes'] f'[ des'] bes[ g]
                        \override DynamicText #'extra-offset = #'(0 . -1) 
bes\p[ aes)] \override Hairpin #'extra-offset = #'(0 . -3.0) s4\< s8 s8\!
                        b'2.^--( 
                        \override DynamicText #'extra-offset = #'(1 . -2) 
c''2.)\pp } \\
                        {s2.
                        r8 c'' des'' ges' s4
                        s2.*2
                        g'4( aes'2)
                        s2. } >>
                        \override Hairpin #'extra-offset = #'(0 . -1.0)r8 
f''\<( ges''4.\!\>--  g''8\!
                        c''4)  s8. bes'16 s8. b'16
                        \override Slur #'attachment = #'(stem . stem)
                        s8. c''8 s4 s16 \stemDown e'8
                        s4 e'( ees')
                        s4 e'( ees')
                        s4 d'( des')
                        s4 d'( des')
                        s2.*3
                        \clef bass
                        s2.*4
                        } >>
 
                                                
                        } 

PianoLH =       {
                #(set-accidental-style 'piano-cautionary)
                        \key f \major
                        \clef treble
                        r2 r8 \override DynamicText   #'extra-offset = #'(0 . 
2.0) c'^\mp
                        \revert DynamicText #'extra-offset
                        ees'4 d' des'   
                        \clef bass <f, a c>16(\arpeggio   \clef treble c' a' 
c'') d'( f' a' c'') ees'( g' a' c'')
                        \clef bass <f,, f,>( \clef treble f' a' f') des'( f' 
bes' c'') c'( f' a' f') 
                        b( f' a' f') c'( f' a' f') des'( e' bes' c'')
                        << {<f c'>( f' a' f') d'( f' a' d') ees'( g' a' e')}\\
                           {s4 s8. d'16 ees'8.( e'16)}>>
                        \clef bass <f, c a>(\arpeggio \clef treble c' a' c'') 
d'( f' a' c'') ees'( g' a' c'')
                        \clef bass <f,, f,>( \clef treble f' a' c'') des'( f' 
bes' f') c'( f' a' f')
                        <f cis'>( f' a' f') d'[( f' a' f')] des'[( e' bes' e')] 
  
                        <f c'>[( f' a' c'')] des'[( f' a' c'')] \override 
Hairpin #'extra-offset = #'(0 . 0.5) d'^\<[( f' aes' c''\!)]
                        \override DynamicText #'extra-offset = #'(0 . 1) <aes 
ees'>^\mp[( aes'^""^""^\markup \italic "poco cresc." c'' aes')] e'[( aes' c'' 
ees'')] f'[( aes' c'' d'')]
                        <aes ees'>[( aes' c'' ees'')] \slurDown e'[( aes' c'' 
\u ees'')]  \w f'[( aes' c'' \u d'')]
                        \w <g e'>[( g' c'' e'')] d'[( f' c'' \u f'')] \w c'[( 
e' \u bes' g'')]
                        \w \clef bass <ges, des bes>16\arpeggio[( des'8 bes16)] 
\clef treble d'[( ges' bes' des'')] ees'[( ges' bes' \u des'')]
                        \w <ges fes'>[( ges' bes' ges')] ees'[( ges'8 des''16)] 
d'16[( ges'8) \u bes'16] 
                        << {\stemDown bes'4 s2} \\
                        {\w \clef bass <f, d bes>16\arpeggio[( \clef treble f' 
bes' f')] ees'[( f' bes' ees'')] d'[( f' bes' d'')]} >> 
                        \w c'[( f' bes' ees'')] bes[( f' bes' ees'')] a[( f' 
c'' ees'')] \clef bass
                        << {\slurDown <des,, aes,>\arpeggio[( des f aes] 
\stemDown f'[ aes des' f'] bes'[ f des' aes]   
                        g'[ f' des' aes] aes'8[) <des, aes,>16 f] f'[ des' 
aes\(  f( ] 
                        <f aes>8)\)[ aes,16 f] des'[ f8 aes,16] f'[( des' aes 
f)]  } \\
                        {s2 \stemUp bes'4
                         g' aes' \slurUp f'(
                        ees' des') f'} >> 
                        <des f bes>2 r4
                        \clef treble r4 \times 2/3 {bes8( b c'} ees'4 ~
                        ees' d' des')
                        \clef bass << { \slurDown c16[( f a c')] cis[( f a c')] 
d[( f a c')] } \\
                                { f,2. } >>
                        << { ees16[( f a c')] ges[( bes b c')] des[( e bes c')] 
} \\
                                { <f, ees>2\arpeggio des4 } >>
                        << { \slurDown a16[( \u f' gis' a')] \w b[( \u f' a' 
bes')] \w c'[( \u f' a' b')]
                        \w cis'[( \u f' a' c'')] \w d'[( \u fis' bes' c'')] 
\stemUp \slurUp r f'[( a' c'')]} \\
                                { c2. ~
                                  c2.} \\
                                { s2.
                                  s2 des'8( c') } \\ >>                         
                        <f c'>16[( \u f' a' c'')]  \stemUp e'[(  g' a' d'')]  
\override Hairpin #'extra-offset = #'(0 . -2.5) ees'\>[( ges' a' des''\!)]
                        \w <f c'>[( \u f' a' c'')]  \stemUp e'[(  g' a' d'')]  
ees'\>[( ges' a' des''\!)]
                        \w <f c'>[( \u f' a' c'')]  \stemUp d'[( f' g' c'')] 
des'\>[( e' gis' b'\!)]
                        \w <f c'>[( \u f' a' c'')]  \stemUp d'[( f' g' c'')] 
des'\>[( e' gis' b'\!)]
                        \w \stemUp r f[( c' f'] \u a'[ bes' b' des''] c''\>[ a' 
f' c'\!)]
                        << { \w  r f,,[( des bes] \u b[ f' a' \override Hairpin 
#'extra-offset = #'(0 . -9.0) b'\>] bes'[ a' f' b\!)]
                        \w r f,[( d a] \u c'[ cis' \override Hairpin 
#'extra-offset = #'(0 . -3) e'\> d'] cis'[ \w c' a d\!)] } \\
                                {\w s8 \stemDown des ~ des2
                                 s8 \stemDown d ~ d2 } >>
                        << { \w r16 \slurDown f,,[( f, \u c] des[ d \override 
Hairpin #'extra-offset = #'(0 . -9) a\> aes] g[ \override DynamicText 
#'extra-offset = #'(0 . -9.0) ges\ppp des\! \w \tieDown f,,)]  ~
                            f,,2.} \\
                           {s2. 
                            \u r2 r4_\fermata} >>
                        \w r16 f,,\sustainDown[( f, \u c] a[ \w \clef treble 
d'_""_""_\markup \italic "poco cresc." e' g'] \times 8/10 { \tiny a'32[ \u 
\clef treble d'' e'' g'' a'' \w d''' e''' g''' \u #(set-octavation 1) a''' 
d'''')]} 
                        << { \normalsize \override Hairpin #'extra-offset = 
#'(0 . -2) e''''4\> <f''' f''''>2\!_\fermata } \\
                           { \w << {r4 f'2_\fermata} {s2 s8 s16 s16\sustainUp} 
>> } >>
                        
                        }



\score {
        << \time 3/4
                
                \new Staff <<
                        \set Staff.instrument = \markup {"Violoncello"}
                \set Staff.midiInstrument = "cello"
                        \context Staff #(set-accidental-style 'modern)
                        \melody >>
                \new PianoStaff <<
                \set  PianoStaff.instrument = \markup {\hspace #-1.5 
"Pianoforte"}
%               \new Staff \PianoRH 
                \set Staff.midiInstrument = "acoustic grand"
                        \context Staff = "up" { \context Voice = "uv" \PianoRH }
%               \new Staff \PianoLH 
                \set Staff.midiInstrument = "acoustic grand"
                        \context Staff = "down" { \context Voice = "lv" 
\PianoLH }
        >>
>>
                
        \layout {papersize = letter}
        \midi { \tempo 4 = 66 }
}