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 <n.putt...@gmail.com>
> On 25 August 2010 10:44, Stefan Thomas <kontrapunktste...@googlemail.com>
> 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
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
