Howdy all,

The attached document produces the score that I want, but it has a lot
of repetition and is difficult to read through.

What can I do to “refactor” this document, so that it produces the same
score but the source is easier to follow and less needlessly repetitive?

\version "2.12.3"
\header {
    title = "天馬 (Tenma)"
    copyright = "Copyright © 1998 和太鼓竜胆 (Wadaiko Rindō)"
    composer = "和太鼓竜胆 (Wadaiko Rindō)"
    arranger = "坂本・敏範 (Toshinori Sakamoto)"
    tagline = "transcribed by Ben Finney using GNU LilyPond"
}
#(set-global-staff-size 16)
#(set-default-paper-size "a4")

RH = -\tweak #'text #"R"-1
LH = -\tweak #'text #"L"-2

headCross = \override NoteHead #'style = #'cross
headRevert = \revert NoteHead #'style
rimShotFour = { \headCross c8 c c c }
headShotFour = { \headRevert c8 c c c }

global = {
    \set Score.markFormatter = #format-mark-box-alphabet
    \numericTimeSignature
    \override StaffGroup.SystemStartBracket #'collapse-height = #2
    \override Score.SystemStartBar #'collapse-height = #2
    \stemDown
    \clef percussion
    \time 4/4
}

\paper {
    between-system-space = 10\mm
}

\layout {
    indent = 10\mm
    short-indent = 7.5\mm
}

\score {

    \new StaffGroup {

        \context RhythmicStaff = "drum" {
            \set Staff.instrumentName = \markup { \column { "鼓" } }
            \global

            <<
                \parallelMusic #'(voiceDrums voiceShimeA voiceShimeB voiceShimeC voiceShimeD) {
                    % Bar 1
                    r1  |
                    c8\RH c\LH r8 c\LH r c\LH c4\RH  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 2
                    r1  |
                    \repeat unfold 4 { c8\RH c\LH }  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 3
                    r1  |
                    \repeat unfold 4 { c8 c }  |
                    r2. c4\RH  |
                    r1  |
                    r1  |
                    % Bar 4
                    r1  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8\RH c\LH }  |
                    r1  |
                    r1  |
                    % Bar 5
                    r1  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8 c }  |
                    r2. c4\RH  |
                    r1  |
                    % Bar 6
                    r1  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8\RH c\LH }  |
                    r1  |
                    % Bar 7
                    r1  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8 c }  |
                    r2. c4\RH  |
                    % Bar 8
                    r1  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8 c }  |
                    \repeat unfold 4 { c8\RH c\LH }  |
                    % Bar 9
                    r2. c4\RH  |
                    \repeat unfold 3 { c8 c } c4\RH  |
                    \repeat unfold 3 { c8 c } c4\RH  |
                    \repeat unfold 3 { c8 c } c4\RH  |
                    \repeat unfold 3 { c8 c } c4\RH  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \voiceDrums }

                \context RhythmicStaff = "shime A" {
                    \set Staff.instrumentName = \markup { \column { "締A" } }
                    \global

                    { \voiceShimeA }
                } % Staff (shime B) ends

                \context RhythmicStaff = "shime B" {
                    \set Staff.instrumentName = \markup { \column { "締B" } }
                    \global

                    { \voiceShimeB }
                } % Staff (shime B) ends

                \context RhythmicStaff = "shime C" {
                    \set Staff.instrumentName = \markup { \column { "締C" } }
                    \global

                    { \voiceShimeC }
                } % Staff (shime C) ends

                \context RhythmicStaff = "shime D" {
                    \set Staff.instrumentName = \markup { \column { "締D" } }
                    \global

                    { \voiceShimeD }
                } % Staff (shime D) ends
            >>

            \break

            {
                \set Staff.instrumentName = \markup { \column { "皆" } }
                \repeat unfold 4 {
                    \repeat unfold 4 { c8 c }  |
                } % repeat ends

                c8\RH c\LH r8 c\LH r c\LH c4\RH  |
            }

            \break

            <<
                \parallelMusic #'(voiceShimeA voiceShimeB voiceShimeC voiceShimeD) {
                    % Bar 1
                    c8\RH c\LH  r2.  |
                    r4          c8\RH c\LH  r2  |
                    r2                      c8\RH c\LH  r4  |
                    r2.                                 c8\RH c\LH  |
                    % Bar 2
                    c8\RH c\LH  r2.  |
                    r4          c8\RH c\LH  r2  |
                    r2                      c8\RH c\LH  r4  |
                    r2.                                 c8\RH c\LH  |
                    % Bar 3
                    c8\RH r8  r2.  |
                    r4        c8\RH r8  r2  |
                    r2                  c8\RH r8  r4  |
                    r2.                           c8\RH r8  |
                    % Bar 4
                    c8\RH c\LH  r2.  |
                    r4          c8\RH c\LH  r2  |
                    r2                      c8\RH c\LH  r4  |
                    r2.                                 c8\RH c\LH  |
                    % Bar 5
                    r2.                                 c8\RH c\LH  |
                    r2                      c8\RH c\LH  r4  |
                    r4          c8\RH c\LH  r2  |
                    c8\RH c\LH  r2.  |
                    % Bar 6
                    r2.                                 c8\RH c\LH  |
                    r2                      c8\RH c\LH  r4  |
                    r4          c8\RH c\LH  r2  |
                    c8\RH c\LH  r2.  |
                    % Bar 7
                    r2.                           c8\RH r8  |
                    r2                  c8\RH r8  r4  |
                    r4        c8\RH r8  r2  |
                    c8\RH r8  r2.  |
                    % Bar 8
                    r2.                                 c8\RH c\LH  |
                    r2                      c8\RH c\LH  r4  |
                    r4          c8\RH c\LH  r2  |
                    c8\RH c\LH  r2.  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \repeat unfold 8 { r1  | } }

                \context RhythmicStaff = "shime A" {
                    \set Staff.instrumentName = \markup { \column { "締A" } }
                    \global

                    { \voiceShimeA }
                } % Staff (shime A) ends

                \context RhythmicStaff = "shime B" {
                    \set Staff.instrumentName = \markup { \column { "締B" } }
                    \global

                    { \voiceShimeB }
                } % Staff (shime B) ends

                \context RhythmicStaff = "shime C" {
                    \set Staff.instrumentName = \markup { \column { "締C" } }
                    \global

                    { \voiceShimeC }
                } % Staff (shime C) ends

                \context RhythmicStaff = "shime D" {
                    \set Staff.instrumentName = \markup { \column { "締D" } }
                    \global

                    { \voiceShimeD }
                } % Staff (shime D) ends
            >>

            \break

            {
                \set Staff.instrumentName = \markup { \column { "皆" } }

                <<
                { s4\p s2.  | s1  | }
                \repeat unfold 2 {
                    \repeat unfold 4 { c8 c }  |
                } % repeat ends
                >>
            }

            \break

            <<
                \parallelMusic #'(voiceDrum voiceShime) {
                    % Bar 1
                    c8\RH\mf c\LH c\RH c\LH  c\RH c\LH c\RH c\LH  |
                    c8\p c c c  c c c c  |
                    % Bar 2
                    c8\RH c\LH c\RH c\LH  c\RH c\LH r8 c8\LH  |
                    c8 c c c  c c c c  |
                    % Bar 3
                    c8\p c c c  c c c c  |
                    c8\RH\mf c\LH c\RH c\LH  c\RH c\LH c\RH c\LH  |
                    % Bar 4
                    c8 c c c  c c c c  |
                    c8\RH c\LH c\RH c\LH  c\RH c\LH r8 c8\LH  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \repeat volta 2 \voiceDrum }

                \context RhythmicStaff = "response" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    \global

                    { \repeat volta 2 \voiceShime }
                } % Staff (response) ends
            >>

            \break

            <<
                \parallelMusic #'(voiceDrum voiceShime) {
                    % Bar 1
                    c8\RH\mf c\LH c\RH c\LH  c\RH c\LH r8 c\LH  |
                    c8\p c c c  c c c c  |
                    % Bar 2
                    c8\RH c\LH c\RH c\LH  c\RH c\LH r8 c\LH  |
                    c8 c c c  c c c c  |
                    % Bar 3
                    c8\p c c c  c c c c  |
                    c8\RH\mf c\LH c\RH c\LH  c\RH c\LH r8 c\LH  |
                    % Bar 4
                    c8 c c c  c c c c  |
                    c8\RH c\LH c\RH c\LH  c\RH c\LH r8 c\LH  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \repeat volta 2 \voiceDrum }

                \context RhythmicStaff = "shime" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    \global

                    { \repeat volta 2 \voiceShime }
                } % Staff (shime) ends
            >>

            \break

            <<
                \parallelMusic #'(voiceDrum voiceShime) {
                    % Bar 1
                    c8\RH\mf r8 c\RH c\LH  r8 c\LH c\RH r8  |
                    c8\p c c c  c c c c  |
                    % Bar 2
                    c8\RH c\LH r8 c\LH  c4\RH c\LH  |
                    c8 c c c  c c c c  |
                    % Bar 3
                    c8\p c c c  c c c c  |
                    c8\RH\mf r8 c\RH c\LH  r8 c\LH c\RH r8  |
                    % Bar 4
                    c8 c c c  c c c c  |
                    c8\RH c\LH r8 c\LH  c4\RH c\LH  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \repeat volta 2 \voiceDrum }

                \context RhythmicStaff = "shime" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    \global

                    { \repeat volta 2 \voiceShime }
                } % Staff (shime) ends
            >>

            \break

            <<
                \parallelMusic #'(voiceDrum voiceShime) {
                    % Bar 1
                    c8\RH\mf c\LH r4  c8\RH c\LH r4  |
                    c8\p c c c  c c c c  |
                    % Bar 2
                    c8\RH c\LH r8 c\LH  r8 c\LH c4\RH  |
                    c8 c c c  c c c c  |
                    % Bar 3
                    c8\p c c c  c c c c  |
                    c8\RH\mf c\LH r4  c8\RH c\LH r4  |
                    % Bar 4
                    c8 c c c  c c c c  |
                    c8\RH c\LH r8 c\LH  r8 c\LH c4\RH  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \repeat volta 2 \voiceDrum }

                \context RhythmicStaff = "shime" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    \global

                    { \repeat volta 2 \voiceShime }
                } % Staff (shime) ends
            >>

            \break

            <<
                \parallelMusic #'(voiceDrum voiceShime) {
                    % Bar 1
                    c8\RH\mf c\LH r8 c\LH  r8 c\LH c4\RH  |
                    c8\p c c c  c c c c  |
                    % Bar 2
                    c8\RH c\LH r4  r2  |
                    c8 c c c  c c c c  |
                    % Bar 3
                    c4\RH  c\LH  c\RH  c8\RH c\LH  |
                    c8 c c c  c c c c  |
                    % Bar 4
                    c8\RH\p c\LH c\RH c\LH  c\RH c\LH c\RH c\LH  |
                    c8 c c c  c c c c  |
                    % Bar 5
                    c8\p c c c  c c c c  |
                    c8\RH\mf c\LH r8 c\LH  r8 c\LH c4\RH  |
                    % Bar 6
                    c8 c c c  c c c c  |
                    c8\RH c\LH r4  r2  |
                    % Bar 7
                    c8 c c c  c c c c  |
                    c4\RH  c\LH  c\RH  c8\RH c\LH  |
                    % Bar 8
                    c8 c c c  c c c c  |
                    c8\RH\p c\LH c\RH c\LH  c\RH c\LH c\RH c\LH  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                { \voiceDrum }

                \context RhythmicStaff = "shime" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    \global

                    { \voiceShime }
                } % Staff (shime) ends
            >>

            \break

            <<
                \parallelMusic #'(voiceDrumA voiceDrumB voiceDrumC voiceDrumD) {
                    % Bar 1
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    % Bar 2
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    % Bar 3
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    % Bar 4
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    % Bar 5
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    % Bar 6
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    % Bar 7
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                    % Bar 8
                    \rimShotFour  \headShotFour  |
                    \headShotFour \rimShotFour  |
                    \headShotFour \rimShotFour  |
                    \rimShotFour  \headShotFour  |
                }

                \parallelMusic #'(voiceShimeA voiceShimeB voiceShimeC voiceShimeD) {
                    % Bar 1
                    c8\RH c\LH  r2.  |
                    r4          c8\RH c\LH  r2  |
                    r2                      c8\RH c\LH  r4  |
                    r2.                                 c8\RH c\LH  |
                    % Bar 2
                    c8\RH c\LH  r2.  |
                    r4          c8\RH c\LH  r2  |
                    r2                      c8\RH c\LH  r4  |
                    r2.                                 c8\RH c\LH  |
                    % Bar 3
                    c8\RH r8  r2.  |
                    r4        c8\RH r8  r2  |
                    r2                  c8\RH r8  r4  |
                    r2.                           c8\RH r8  |
                    % Bar 4
                    c8\RH c\LH  r2.  |
                    r4          c8\RH c\LH  r2  |
                    r2                      c8\RH c\LH  r4  |
                    r2.                                 c8\RH c\LH  |
                    % Bar 5
                    r2.                                 c8\RH c\LH  |
                    r2                      c8\RH c\LH  r4  |
                    r4          c8\RH c\LH  r2  |
                    c8\RH c\LH  r2.  |
                    % Bar 6
                    r2.                                 c8\RH c\LH  |
                    r2                      c8\RH c\LH  r4  |
                    r4          c8\RH c\LH  r2  |
                    c8\RH c\LH  r2.  |
                    % Bar 7
                    r2.                           c8\RH r8  |
                    r2                  c8\RH r8  r4  |
                    r4        c8\RH r8  r2  |
                    c8\RH r8  r2.  |
                    % Bar 8
                    r2.                                 c8\RH c\LH  |
                    r2                      c8\RH c\LH  r4  |
                    r4          c8\RH c\LH  r2  |
                    c8\RH c\LH  r2.  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓A" } }
                <<
                    { \voiceDrumA }
                >>

                \context RhythmicStaff = "drum B" {
                    \set Staff.instrumentName = \markup { \column { "鼓B" } }
                    \global

                    <<
                        { \voiceDrumB }
                    >>
                } % Staff (Drum B) ends

                \context RhythmicStaff = "drum C" {
                    \set Staff.instrumentName = \markup { \column { "鼓C" } }
                    \global

                    <<
                        { \voiceDrumC }
                    >>
                } % Staff (Drum C) ends

                \context RhythmicStaff = "drum D" {
                    \set Staff.instrumentName = \markup { \column { "鼓D" } }
                    \global

                    <<
                        { \voiceDrumD }
                    >>
                } % Staff (Drum D) ends

                \context RhythmicStaff = "shime A" {
                    \set Staff.instrumentName = \markup { \column { "締A" } }
                    \global

                    <<
                        { s1\mf \repeat unfold 7 { s1 } }
                        { \voiceShimeA }
                    >>
                } % Staff (shime A) ends

                \context RhythmicStaff = "shime B" {
                    \set Staff.instrumentName = \markup { \column { "締B" } }
                    \global

                    <<
                        { s1\mf \repeat unfold 7 { s1 } }
                        { \voiceShimeB }
                    >>
                } % Staff (shime B) ends

                \context RhythmicStaff = "shime C" {
                    \set Staff.instrumentName = \markup { \column { "締C" } }
                    \global

                    <<
                        { s1\mf \repeat unfold 7 { s1 } }
                        { \voiceShimeC }
                    >>
                } % Staff (shime C) ends

                \context RhythmicStaff = "shime D" {
                    \set Staff.instrumentName = \markup { \column { "締D" } }
                    \global

                    <<
                        { s1\mf \repeat unfold 7 { s1 } }
                        { \voiceShimeD }
                    >>
                } % Staff (shime D) ends
            >>

            \break

            <<
                \set Staff.instrumentName = \markup { \column { "皆" } }

                {
                    \headRevert c4\RH\mf c\LH c\RH c8\RH c\LH  |
                    r1  |
                }

                \context RhythmicStaff = "shime solo" {
                    \set Staff.instrumentName = \markup { \column { "締 solo" } }
                    \global

                    \headRevert c4\RH\mf c\LH c\RH c8\RH c\LH  |
                    <<
                    { s4\p s2.  | }
                    \repeat unfold 4 { c8 c }  |
                    >>
                } % Staff (shime A) ends
            >>

            \break

            <<
                \parallelMusic #'(voiceDrumA voiceDrumB voiceDrumC voiceDrumD) {
                    % Bar 1
                    r1  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 2
                    r1  |
                    r1  |
                    r2  r4  c8\RH\f c\LH  |
                    r1  |
                    % Bar 3
                    r1  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 4
                    r1  |
                    r2  r4  c8\RH\f c\LH  |
                    r1  |
                    r1  |
                    % Bar 5
                    r1  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 6
                    r1  |
                    r1  |
                    r1  |
                    r2  r4  c8\RH\f c\LH  |
                    % Bar 7
                    r1  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 8
                    r2  r4  c8\RH\f c\LH  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 9
                    r1  |
                    r1  |
                    r2  r4  c8\RH\f c\LH  |
                    r1  |
                    % Bar 10
                    r1  |
                    r2  r4  c8\RH\f c\LH  |
                    r1  |
                    r1  |
                    % Bar 11
                    r1  |
                    r1  |
                    r1  |
                    r2  r4  c8\RH\f c\LH  |
                    % Bar 12
                    r2  r4  c8\RH\f c\LH  |
                    r1  |
                    r1  |
                    r1  |
                }

                \parallelMusic #'(voiceShimeA voiceShimeB voiceShimeC voiceShimeD) {
                    % Bar 1
                    r1  |
                    c8\f c c c  c8 c c c  |
                    r1  |
                    r1  |
                    % Bar 2
                    r1  |
                    c8 c c c  c8 c c c  |
                    r1  |
                    r1  |
                    % Bar 3
                    r1  |
                    r1  |
                    c8\f c c c  c8 c c c  |
                    r1  |
                    % Bar 4
                    r1  |
                    r1  |
                    c8 c c c  c8 c c c  |
                    r1  |
                    % Bar 5
                    c8\f c c c  c8 c c c  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 6
                    c8 c c c  c8 c c c  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 7
                    r1  |
                    r1  |
                    r1  |
                    c8\f c c c  c8 c c c  |
                    % Bar 8
                    r1  |
                    r1  |
                    r1  |
                    c8 c c c  c8 c c c  |
                    % Bar 9
                    r1  |
                    c8\f c c c  c8 c c c  |
                    r1  |
                    r1  |
                    % Bar 10
                    r1  |
                    r1  |
                    c8\f c c c  c8 c c c  |
                    r1  |
                    % Bar 11
                    c8\f c c c  c8 c c c  |
                    r1  |
                    r1  |
                    r1  |
                    % Bar 12
                    r1  |
                    r1  |
                    r1  |
                    c8\f c c c  c8 c c c  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓A" } }
                \global
                <<
                { \repeat unfold 2 { \repeat unfold 6 { s1 } \break } }
                { \voiceDrumA }
                >>

                \context RhythmicStaff = "drum B" {
                    \set Staff.instrumentName = \markup { \column { "鼓B" } }
                    \global

                    { \voiceDrumB }
                } % Staff (Drum B) ends

                \context RhythmicStaff = "drum C" {
                    \set Staff.instrumentName = \markup { \column { "鼓C" } }
                    \global

                    { \voiceDrumC }
                } % Staff (Drum C) ends

                \context RhythmicStaff = "drum D" {
                    \set Staff.instrumentName = \markup { \column { "鼓D" } }
                    \global

                    { \voiceDrumD }
                } % Staff (Drum D) ends

                \context RhythmicStaff = "shime A" {
                    \set Staff.instrumentName = \markup { \column { "締A" } }
                    \global

                    { \voiceShimeA }
                } % Staff (shime A) ends

                \context RhythmicStaff = "shime B" {
                    \set Staff.instrumentName = \markup { \column { "締B" } }
                    \global

                    { \voiceShimeB }
                } % Staff (shime B) ends

                \context RhythmicStaff = "shime C" {
                    \set Staff.instrumentName = \markup { \column { "締C" } }
                    \global

                    { \voiceShimeC }
                } % Staff (shime C) ends

                \context RhythmicStaff = "shime D" {
                    \set Staff.instrumentName = \markup { \column { "締D" } }
                    \global

                    { \voiceShimeD }
                } % Staff (shime D) ends
            >>

            \break

            <<
                \set Staff.instrumentName = \markup { \column { "鼓" } }
                <<
                { s1\f  |  \repeat unfold 3 { s1  | } }
                { \repeat unfold 4 { r4 c8 c  r4 c8 c  | } }
                >>

                \context RhythmicStaff = "shime" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    <<
                    { s1\f  |  \repeat unfold 3 { s1  | } }
                    { \repeat unfold 4 { c8 c r4  c8 c r4  | } }
                    >>
                } % Staff (shime) ends
            >>

            \break

            {
                \set Staff.instrumentName = \markup { \column { "皆" } }

                c4\RH c\LH c\RH c8\RH c\LH  |
                r1  |
            }

            \break

            <<
                \parallelMusic #'(voiceShimeA voiceShimeB voiceShimeC voiceShimeD) {
                    % Bar 1
                    r1  |
                    r1  |
                    c8-> c c c->  c c c-> c  |
                    r1  |
                    % Bar 2
                    r1  |
                    r1  |
                    c8 c-> c c  c-> c c-> c  |
                    r1  |
                    % Bar 3
                    r1  |
                    c8-> c c c->  c c c-> c  |
                    c8-> c c c->  c c c-> c  |
                    r1  |
                    % Bar 4
                    r1  |
                    c8 c-> c c  c-> c c-> c  |
                    c8 c-> c c  c-> c c-> c  |
                    r1  |
                    % Bar 5
                    r1  |
                    c8-> c c c->  c c c-> c  |
                    c8-> c c c->  c c c-> c  |
                    c8-> c c c->  c c c-> c  |
                    % Bar 6
                    r1  |
                    c8 c-> c c  c-> c c-> c  |
                    c8 c-> c c  c-> c c-> c  |
                    c8 c-> c c  c-> c c-> c  |
                    % Bar 7
                    c8-> c c c->  c c c-> c  |
                    c8-> c c c->  c c c-> c  |
                    c8-> c c c->  c c c-> c  |
                    c8-> c c c->  c c c-> c  |
                    % Bar 8
                    c8 c-> c c  c-> c c-> c  |
                    c8 c-> c c  c-> c c-> c  |
                    c8 c-> c c  c-> c c-> c  |
                    c8 c-> c c  c-> c c-> c  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓" } }
                <<
                { \repeat unfold 2 { \repeat unfold 4 { s1 } \break } }
                \repeat unfold 8 { r1  | }
                >>

                \context RhythmicStaff = "shime A" {
                    \set Staff.instrumentName = \markup { \column { "締A" } }
                    <<
                    { s1\p  |  \repeat unfold 7 { s1  | } }
                    { \voiceShimeA }
                    >>
                } % Staff (shime A) ends

                \context RhythmicStaff = "shime B" {
                    \set Staff.instrumentName = \markup { \column { "締B" } }
                    <<
                    { s1\p  |  \repeat unfold 7 { s1  | } }
                    { \voiceShimeB }
                    >>
                } % Staff (shime B) ends

                \context RhythmicStaff = "shime C" {
                    \set Staff.instrumentName = \markup { \column { "締C" } }
                    <<
                    { s1\p  |  \repeat unfold 7 { s1  | } }
                    { \voiceShimeC }
                    >>
                } % Staff (shime C) ends

                \context RhythmicStaff = "shime D" {
                    \set Staff.instrumentName = \markup { \column { "締D" } }
                    <<
                    { s1\p  |  \repeat unfold 7 { s1  | } }
                    { \voiceShimeD }
                    >>
                } % Staff (shime D) ends

            >>

            \break

            {
                \set Staff.instrumentName = \markup { \column { "皆" } }

                <<
                {
                    s8\p\< \repeat unfold 7 { s8 }  |
                    \repeat unfold 6 { s1  | }
                    \repeat unfold 7 { s8 } s8\!\f  |
                }
                {
                    \repeat percent 4 {
                        c8-> c c c->  c c c-> c  |
                        c8 c-> c c  c-> c c-> c  |
                    } % repeat ends
                }
                >>
            }

            \break

            <<
                \parallelMusic #'(voiceDrumA voiceDrumB voiceDrumC voiceDrumD) {
                    % Bar 1
                    r1  |
                    r1  |
                    c8 c c c  c8 c c c  |
                    r1  |
                    % Bar 2
                    r1  |
                    c8 c c c  c8 c c c  |
                    c8 c c c  c8 c c c  |
                    r1  |
                    % Bar 3
                    r1  |
                    c8 c c c  c8 c c c  |
                    c8 c c c  c8 c c c  |
                    c8 c c c  c8 c c c  |
                    % Bar 4
                    c8 c c c  c8 c c c  |
                    c8 c c c  c8 c c c  |
                    c8 c c c  c8 c c c  |
                    c8 c c c  c8 c c c  |
                }

                \set Staff.instrumentName = \markup { \column { "鼓A" } }
                { \voiceDrumA }

                \context RhythmicStaff = "drum B" {
                    \set Staff.instrumentName = \markup { \column { "鼓B" } }
                    \global

                    { \voiceDrumB }
                } % Staff (Drum B) ends

                \context RhythmicStaff = "drum C" {
                    \set Staff.instrumentName = \markup { \column { "鼓C" } }
                    \global

                    { \voiceDrumC }
                } % Staff (Drum C) ends

                \context RhythmicStaff = "drum D" {
                    \set Staff.instrumentName = \markup { \column { "鼓D" } }
                    \global

                    { \voiceDrumD }
                } % Staff (Drum D) ends

                \context RhythmicStaff = "shime" {
                    \set Staff.instrumentName = \markup { \column { "締" } }
                    \global

                    { \repeat unfold 4 { r1  | } }
                } % Staff (shime) ends

            >>

            \break

            {
                \set Staff.instrumentName = \markup { \column { "皆" } }

                <<
                { s8\ff \repeat unfold 7 { s8 } }
                {
                    \repeat percent 4 { c8 c c c  c8 c c c  | }
                }
                >>
                c2\RH  c4\RH c8\RH c\LH  |
            }

            \bar "|."

        } % Staff (drum) ends
    } % StaffGroup ends
} % score ends
-- 
 \        “We cannot solve our problems with the same thinking we used |
  `\                           when we created them.” —Albert Einstein |
_o__)                                                                  |
Ben Finney
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user

Reply via email to