staccato marking in piano staves

[Alexander Tudor]

Dear Sir/Madam,

First off, hats off! Great program!

I am a beginner and running 2.6.4 on OS X 10.3.9. Attached is .ly
source that follows pg.36 example on centering dynamics between piano
staves. Having done that,I am unable to get the staccato markings to
print.

Advanced thanks,

Alexander Tudor

\version "2.6.0" 
%       << a,,4 a, c e >> << a,,8-. a, c e >> << a,,8-. a, c e >> 
%       << gis,,4-. gis, b, e >> << gis,,-. gis, b, e >>

pedal = { 
        s2\sustainDown 
        s2\sustainUp 
} 

upper = { 
        \clef treble 
        \key c \major 
        \time 2/4

%       \relative c' { <<e2\f\> a2 c2 e2~>> }
        \relative c' { <<e2 a2 c2 e2~>> }
        \relative c' { <<e2 a2 c2 e2>> }

        \change Staff = lower {

        \stemUp { << c4 e >> << c8 e >> << c8 e >> }
        
        }

} 

lower = { 
        \clef bass 
        \key c \major 
        \time 2/4

%       \relative c  { <<e2\sustainDown a2 c2~>> }
%       \relative c  { <<e2 a2 c2\sustainUp>> } 
        \relative c  { <<e2 a2 c2~>> }
        \relative c  { <<e2 a2 c2>> } 
%       \relative c { <<a,4 a4 c4 e4>> }

        \stemDown { <<a,,4 a,>> <<a,,8-. a,>> <<a,,8-. a,>> }

}

dynamics = { 
        s2\f\> s4 
        s\!
} 

\score { 
        \context PianoStaff << 
                \context Staff = upper \upper 

                \context Dynamics = dynamics \dynamics

                \context Staff = lower \lower 

                \context Dynamics = pedal\pedal
        >> 
        \layout { 


                \context { 
                        \type "Engraver_group_engraver" 
                        \name Dynamics 
                        \alias Voice % So that \cresc works, for example. 
                        \consists "Output_property_engraver" 

                        minimumVerticalExtent = #'(-1 . 1)
                        pedalSustainStrings = #'("Ped." "*Ped." "*")
                        pedalUnaCordaStrings = #'("una corda" "" "tre corde")

                        \consists "Piano_pedal_engraver" 
                        \consists "Script_engraver" 
                        \consists "Dynamic_engraver" 
                        \consists "Text_engraver" 

                        \override TextScript #'font-size = #2
                        \override TextScript #'font-shape = #'italic 
                        \override DynamicText #'extra-offset = #'(0 . 2.5) 
                        \override Hairpin #'extra-offset = #'(0 . 2.5)

                        \consists "Skip_event_swallow_translator" 

                        \consists "Axis_group_engraver" 
                } 
                \context { 
                        \PianoStaff 
                        \accepts Dynamics 
                        \override VerticalAlignment #'forced-distance = #7 
                } 


        } % layout 
%       \midi { \tempo 4=60 } 
}  

\score { 
        \context PianoStaff << 
                \context Staff=upper << \upper \dynamics >> 
                \context Staff=lower << \lower \dynamics >> 
                \context Dynamics=pedal \pedal 
        >> 
        \midi { 
                \tempo 4=60
                \context { 
                        \type "Performer_group_performer" 
                        \name Dynamics 
                        \consists "Piano_pedal_performer" 
                } 
                \context { 
                        \PianoStaff 
                        \accepts Dynamics 
                } 
        } 
}