+\version "1.7.18"
-\version "1.3.110";
+%% I don't know what this example is supposed to do. delete it?
+%% It shows how to use the autochange feature together with an extra
+%% voice. When I needed to typeset this example, I found it not trivial
+%% and dumped a piece of it here. Move to refman?
-global = \notes {
- \key a \minor;
- \time 6/4;
-% \skip 1.*34;
-% \bar ".|";
+\header{
+ texidoc="When using automatic staff changes for the one voice, the
+other voice must be given a name explicitely."
+}
+
+global = \notes{
+ \key a \minor
+ \time 6/4
}
melody = \notes\relative c''{
- r2 r r
- r2 r r
- r4 a'8-- \< a-- a-- a-- c-- \!b-- a--\> gis f \!e
- es8 \grace b c r4 r2 r
+ r2 r r
+ r2 r r
+ r4 a'8-- \< a-- a-- a-- c-- \!b-- a--\> gis f \!e
+ es8 \grace b c r4 r2 r
}
basloopje = \notes\relative c{
- d,8( a' d f a d f d a f d )a
+ d,8( a' d f a d f d a f d a-)
}
-accompany = \notes \relative c{
- \notes\relative c \basloopje
- \notes\relative c \basloopje
- \notes\relative c \basloopje
- \notes\relative c \basloopje
-}
+accompany = \repeat unfold 4 \notes \relative c \basloopje
\score{
- \notes \context PianoStaff <
- \context Staff=up <
- \global
- \context Voice=foo {
- \property Voice.verticalDirection = #1
- \property Voice.scriptVerticalDirection = #1
- \melody
- }
- >
- \context Staff=down <
- \global
- \clef bass;
- \autochange Staff \accompany
- >
+ \notes \context PianoStaff<
+ \context Staff=up <
+ \global
+ \context Voice=foo{
+ \voiceOne
+ \melody
+ }
>
+ \context Staff=down<
+ \global
+ \clef bass
+ \autochange Staff \context Voice \accompany
+ >
+ >
- \paper {
- gourlay_maxmeasures = 4.;
- indent = 8.\mm;
- textheight = 295.\mm;
-
- % ugly is beautiful
- slur_beautiful = 5.0;
-
- \translator{
- \PianoStaffContext
- defaultBarType = #""
- }
- \translator{
- \StaffContext
- % don't auto-generate bars: not a good idea: -> no breakpoints
- % barAuto = "0";
- % urg defaultBarType = #""
- defaultBarType = #""
- \remove "Time_signature_engraver";
-
- slurVerticalDirection = #1
- verticalDirection = -1
- autoBeamSettings \override (end * * * *) = #(make-moment 1 2)
- }
- }
- \midi {
- \tempo 4 = 54;
+ \paper {
+ \translator{
+ \StaffContext
+ autoBeamSettings \override #'(end * * * *)
+ = #(ly:make-moment 1 2)
}
+ }
+ \midi {
+ \tempo 4 = 54
+ }
}
+%% new-chords-done %%