\version "2.4.2"
\include "espanol.ly"

\header {
  title = "Breve estudio para piano"
  composer = "Luis G. López"
  instrument = " "
  dedication = "To the patients guys from lilypond-list ;)"
}

global = {
  \key do \major
  \time 3/1
}
     upper = \relative do'' {
       \set Score.barNumberVisibility = ##f
       \clef treble
       \global
       \tempo 4.=65
       
       \stemUp
       \override Staff.Beam #'thickness = #0.2
       <<
	 { %Voice 1
       \override Voice.Beam #'positions = #'(8 . 8)
       %1st System
       s2. s16 <<mi,8*7/2 mi'[>> <<fas8*7/2 fas,>> <<do'8*5/2 do'>> <<mib,8*4 mib'>> <<reb8*7/2 reb,>> \hideNotes do16] \unHideNotes
	%2nd System
	\hideNotes do'8*1/2[ \unHideNotes <<sol8*7/2 sol,>> <<mi8*4 mi'>> <<fas8*5/2 fas,>> <<la8*3/2 la'>> <<mib8*4 mib'>> <<reb8*3/2 reb,>> <<sol8*3 sol,>> <<mi8*2 mi'>> \hideNotes do16] \unHideNotes

        } \\
	{ %Voice 2
	  %1st System
         \override Voice.Beam #'positions = #'(-4 . -4)
	  s1*3	 
	  %2nd System
	  s4 la8*3[ si8*2 fa'8*9/2 lab8*2 solb8*11/2 do,8*4 <<la8*1/2 la'>> \hideNotes do16] \unHideNotes
	}
	 >>
     }
     
     lower = \relative do {
       \clef bass
       \global
       \set Score.beatLength = #(ly:make-moment 6 1)
     % 1st system
       si16 dos sol' sib lab
  \set Voice.stemRightBeamCount = #1 re,
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol' sib! lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos^"|" sol' sib! lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol'^"|" sib! lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol' sib!^" |" lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol'^"|" sib! lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol' sib! lab^"|"
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol' sib! lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
\bar ""
       %2nd system
       si16 dos?^"|" sol' sib lab?^"|"
  \set Voice.stemRightBeamCount = #1 re,
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol'^"|" sib! lab^"|"
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol'^"|" sib! lab^"|"
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol' sib!^"|" lab
  \set Voice.stemRightBeamCount = #1 re,^"|"
  \set Voice.stemLeftBeamCount = #1 
       si!^"|" dos sol' sib!^"|" lab
  \set Voice.stemRightBeamCount = #1 re, 
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol'^"|" sib! lab
  \set Voice.stemRightBeamCount = #1 re,^"|"
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol'^"|" sib! lab
  \set Voice.stemRightBeamCount = #1 re,^"|"
  \set Voice.stemLeftBeamCount = #1 
       si! dos sol' sib! lab^"|"
  \set Voice.stemRightBeamCount = #1 re, 
\bar ""
  \set Voice.stemLeftBeamCount = #1 


     }

     dynamics = {
       s1\f s1 s1
       s1\f
     }
     
     \score {
       \context PianoStaff <<
         \context Staff=upper 
	  \with { 
          \remove "Time_signature_engraver" } \upper
         \context Dynamics=dynamics \dynamics
         \context Staff=lower 
	 \with { 
          \remove "Time_signature_engraver" } 
	 <<
           \clef bass
           \lower
           >>
       >>
       \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
         }
       }
       \midi {
	 \tempo 4 . = 65
         \context {
           \type "Performer_group_performer"
           \name Dynamics
           \consists "Piano_pedal_performer"
           \consists "Span_dynamic_performer"
           \consists "Dynamic_performer"
         }
         \context {
           \PianoStaff
           \accepts Dynamics
         }
       }
     }