lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: vertical position off piano-staff-name


From: Stefan Thomas
Subject: Re: vertical position off piano-staff-name
Date: Thu, 26 Aug 2010 09:26:41 +0200

Yes, off course:
\version "2.12.2"





floete = \relative {
   \set Staff.instrumentName = "Flöte"
 \set Staff.midiInstrument = #"flute"
\tag #'uncued {\set Staff.shortInstrumentName = "Fl. 1" }
\repeat "unfold" 9 { c4 d e f }
}

klarinette = \relative {
  \set Staff.instrumentName = \markup { \column { "Klarinette" \line { "in B" \smaller \flat } } }
 \set Staff.midiInstrument = #"clarinet"
\tag #'uncued { \set Staff.shortInstrumentName = \markup { \column { "Kl." \line { "in B" \smaller \flat } } }
 
  \repeat "unfold" 9 { c4 d e f }
}
}

klavierlinks = {
 
  \clef bass
r2 r4 r8 a8 \laissezVibrer \f-+  | % 1
R1
r2 r8 a-+\f \laissezVibrer r4 | % 2
r2 r8 a-+\f \laissezVibrer r4 | % 4
r2 r8 bes -+\f \laissezVibrer r4 | % 5
bes8-+\f \laissezVibrer bes-+\laissezVibrer r4 r2  \break | % 6
R1*3 | % 7-9
}
klavierrechts = {
  \set PianoStaff.instrumentName = "Klavier"
 \set PianoStaff.midiInstrument = #"piano"
 \tag #'uncued {\set PianoStaff.shortInstrumentName = "Klv."}
  s1*6
%   \tag #'uncued {\set PianoStaff.instrumentName = " "}
}
klavierdynamik = {
 s1*6 | % 1-6
s1*3 | % 7-9
}
klavierpedal = {
  \set PianoStaff.instrumentName = "Klavier"
 \set PianoStaff.midiInstrument = #"piano"
 \tag #'uncued {\set PianoStaff.shortInstrumentName = "Klv."}
   s2.. s8\sustainOn s4 s2.\sustainOff s8*5 s4.\sustainOn | % 1-3
  s4 s4 \sustainOff s8 s4.\sustainOn | % 4
  s8*5 s4\sustainOn s8 \sustainOff | % 5
  s8\sustainOn s8 \sustainOff s2. | % 6
  s1*3
}
\new Score
\with { \override VerticalAlignment #'max-stretch = #ly:align-interface::calc-max-stretch }

{
  \keepWithTag #'uncued
<<
 
\new StaffGroup="Holz" <<
              \new Staff {\floete }
              \new Staff { \klarinette }
            >>

\new PianoStaff = "Klavier"

        <<
        \new Staff= "rechts"
                \with { \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 9)  }
                {  \klavierrechts }
        \new Dynamics="Dynaklavier"
                   \with { \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t }
                {\klavierdynamik }
         \new Staff = "links"
                 \with { \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t \override VerticalAxisGroup #'minimum-Y-extent = #'(-3 . 3)  }
                    { \klavierlinks }
           \new Pedal="klavierpedal"
                      \with { \override VerticalAxisGroup #'keep-fixed-while-stretching = ##t  }
                   {  \klavierpedal }
          >>   


>>
}
%

\layout {
    \context {
      \type "Engraver_group"
      \name Dynamics
      \alias Voice
      \consists "Output_property_engraver" %keine Ahnung, was das bedeuten soll!

      \consists "Script_engraver"
      \consists "New_dynamic_engraver"
      \consists "Dynamic_align_engraver"
      \consists "Text_engraver"
      \consists "Skip_event_swallow_translator"
      \consists "Axis_group_engraver"
      \consists "Text_spanner_engraver"
      \override DynamicLineSpanner #'Y-offset = #0
      \override TextScript #'font-size = #2
      \override TextScript #'font-shape = #'italic
        \override TextScript #'Y-offset = #0
      \override DynamicLineSpanner #'Y-offset = #0
     \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    }
    \context {
      \type "Engraver_group"
      \name Pedal
      \alias Voice
      \consists "Output_property_engraver"
      \consists "Piano_pedal_engraver"
      \consists "Dynamic_align_engraver"
      \consists "Text_engraver"
      \consists "Skip_event_swallow_translator"
      \consists "Axis_group_engraver"
   \consists "Text_spanner_engraver"
      pedalSustainStrings = #'("Ped." "*Ped." "*")
      pedalUnaCordaStrings = #'("una corda" "" "tre corde")
      \override VerticalAxisGroup #'meta =
#(let* ((descr (assoc-get 'VerticalAxisGroup all-grob-descriptions))
       (meta (assoc-get 'meta descr))
       (ifaces (assoc-get 'interfaces meta)))
  ;; Adding piano-pedal-interface to this VerticalAxisGroup
  ;; prevents it being acknowledged by Instrument_name_engraver
  (acons 'interfaces (cons 'piano-pedal-interface ifaces)
         meta))
      \override VerticalAxisGroup #'minimum-Y-extent = #'(-1 . 1)
    }
    % modify PianoStaff context to accept Dynamics context
    \context {
      \PianoStaff
      \accepts Dynamics
        \accepts Pedal
    }
  
        \context {  \Pedal \override PianoPedalBracket #'style = #'bracket }
        \context { \RemoveEmptyStaffContext}
        \context { \Staff \override VerticalAxisGroup #'remove-first = ##t }
       
  }



2010/8/25 Neil Puttock <address@hidden>
On 25 August 2010 10:44, Stefan Thomas <address@hidden> wrote:

> In the below quoted example it should dissapper in bar 7, and at the
> beginning it is too high!

Stefan, your snippet's missing.  Can you try reposting it?

Thanks,
Neil


reply via email to

[Prev in Thread] Current Thread [Next in Thread]