Two \partCombine pairs on one staff: Difference between revisions

← Older edit

VisualWikitext

@@ Line 1: / Line 1: @@
-The <code>\partCombine</code> function takes two music expressions each containing a part, and distributes them among four <code>Voice</code>s named “two”, “one”, “solo”, and “chords” depending on when and how the parts are merged into a common voice. The voices output from <code>\partCombine</code> can have their layout properties adjusted in the usual way. Here we define extensions of <code>\partCombine</code> to make it easier to put four voices on a staff.
+The <code>\partCombine</code> function takes two music expressions, each containing a part, and distributes them among four <code>Voice</code> contexts named “one”, “two”, “solo”, and “shared”, depending on when and how the parts are merged into a common voice.
-The original version can be input as follows.
+Variants of <code>\partCombine</code> are <code>\partCombineUp</code> and <code>\partCombineDown</code> to produce up-stem and down-stem merging of two voices, respectively.  Combining them to squeeze four parts into a single staff, however, need some special setup, which this snippet defines accordingly.
-<pre>soprano = { d'4 | cis'  b  e'  d'8 cis' | cis'2 b }
+<lilypond version="2.24">
+customPartCombineUp =
+#(define-music-function (part1 part2) (ly:music? ly:music?)
+  "Make an up-stem `VoiceBox` context that combines PART1 and PART2.
+The context is called 'Up'; internally, the function calls
+`\\partCombineUp`."
+  #{
+    \new VoiceBox = "Up" <<
+      \context Voice = "one" { \voiceOne }
+      \context Voice = "two" { \voiceThree }
+      \context Voice = "shared" { \voiceOne }
+      \context Voice = "solo" { \voiceOne }
+      \context NullVoice = "null" {}
+      \partCombine #part1 #part2
+    >>
+  #})
+customPartCombineDown =
+#(define-music-function (part3 part4) (ly:music? ly:music?)
+  "Make a down-stem `VoiceBox` context that combines PART3 and PART4.
+The context is called 'Down'; internally, the function calls
+`\\partCombineDown`."
+  #{
+    \new VoiceBox = "Down" <<
+      \set VoiceBox.soloText = #"Solo III"
+      \set VoiceBox.soloIIText = #"Solo IV"
+      \context Voice ="one" { \voiceFour }
+      \context Voice ="two" { \voiceTwo }
+      \context Voice ="shared" { \voiceFour }
+      \context Voice ="solo" { \voiceFour }
+      \context NullVoice = "null" {}
+      \partCombine #part3 #part4
+    >>
+  #})
+soprano = { d'4 | cis'  b  e'  d'8 cis' | cis'2 b }
 alto = { fis4 | e8 fis gis ais b4 b | b ais fis2 }
 tenor = { a8 b | cis' dis' e'4 b8 cis' d'4 | gis cis' dis'2 }
@@ Line 9: / Line 46: @@
 \new Staff <<
    \key b\minor
    \clef alto
    \partial 4
-   \transpose b b'
+   \transpose b b' \customPartCombineUp \soprano \alto
-  \partCombineUp \soprano \alto
+   \customPartCombineDown \tenor \bass
-   \partCombineDown \tenor \bass
+>>
->></pre>
-And here is the extended snippet.
-<lilypond version="2.24">
 \layout {
    \context {
@@ Line 33: / Line 66: @@
    }
 }
-customPartCombineUp =
-#(define-music-function (partOne partTwo)
-  (ly:music? ly:music?)
-"Take the music in @var{partOne} and @var{partTwo} and return
-a @code{VoiceBox} named @q{Up} containing @code{Voice}s
-that contain @var{partOne} and @var{partTwo} merged into one
-voice where feasible.  This variant sets the default voicing
-in the output to use upward stems."
-#{
-  \new VoiceBox = "Up" <<
-    \context Voice = "one" { \voiceOne }
-    \context Voice = "two" { \voiceThree }
-    \context Voice = "shared" { \voiceOne }
-    \context Voice = "solo" { \voiceOne }
-    \context NullVoice = "null" {}
-    \partCombine #partOne #partTwo
-  >>
-#})
-customPartCombineDown = #
-(define-music-function (partOne partTwo)
-  (ly:music? ly:music?)
-"Take the music in @var{partOne} and @var{partTwo} and return
-a @code{VoiceBox} named @q{Down} containing @code{Voice}s
-that contain @var{partOne} and @var{partTwo} merged into one
-voice where feasible.  This variant sets the default voicing
-in the output to use downward stems."
-#{
-  \new VoiceBox = "Down" <<
-    \set VoiceBox.soloText = #"Solo III"
-    \set VoiceBox.soloIIText = #"Solo IV"
-    \context Voice ="one" { \voiceFour }
-    \context Voice ="two" { \voiceTwo }
-    \context Voice ="shared" { \voiceFour }
-    \context Voice ="solo" { \voiceFour }
-    \context NullVoice = "null" {}
-    \partCombine #partOne #partTwo
-  >>
-#})
-soprano = { d'4 | cis'  b  e'  d'8 cis' | cis'2 b }
-alto = { fis4 | e8 fis gis ais b4 b | b ais fis2 }
-tenor = { a8 b | cis' dis' e'4 b8 cis' d'4 | gis cis' dis'2 }
-bass = { fis8 gis | a4 gis g fis | eis fis b,2 }
-\new Staff <<
-  \key b\minor
-  \clef alto
-  \partial 4
-  \transpose b b'
-  \customPartCombineUp \soprano \alto
-  \customPartCombineDown \tenor \bass
->>
 </lilypond>