Use template for string quartet

named_loops.ly

@@ -1,10 +1,15 @@
 \version "2.22.1"
 
+global = {
+  \time 4/4
+  \key d \minor
+}
+
 alice = \relative {
   d''2~ 8 a d e | cis2 r | c2~ 8 a c d | c16 b b8 b4 r2 |
   bes2~ 8 g d' e | f16 e d8 d e f4 r | cis2~ 8 a cis d | e16 d cis8 cis8 e d4 r \bar "||"
 }
-alice_accmpt = \relative {
+aliceViola = \relative {
   d'8 d16 e f e d8 d d16 e f e d8 | cis8 cis16 d e d cis8 cis cis16 d e d cis8 | c8 c16 d e d c8 c c16 d e d c8 | b8 b16 c d c b8 b b16 c d c b8 |
   bes8 bes16 c d c bes8 bes bes16 c d c bes8 | a8 d16 e f e d8 d d16 e f e d8 | cis8 cis16 d e d cis8 cis cis16 d e d cis8 | d8 d16 e f e d8 d d16 e f e d8 \bar "||"
 }
@@ -12,7 +17,7 @@ alice_accmpt = \relative {
 bob = \relative {
   d''2 r8 d16 e f e d8 | f2 r8 f e16 f e8 | d2 r8 d16 e f e d8 | cis2 r \bar "||"
 }
-bob_accmpt = \relative {
+bobViola = \relative {
   bes8 bes16 c d c bes8 bes bes16 c d c bes8 | d8 d16 e f e d8 d d16 e f e d8 | bes8 bes16 c d c bes8 bes bes16 c d c bes8 | a8 a16 b cis b a8 a a16 b cis b a8 \bar "||"
 }
 
@@ -22,7 +27,7 @@ charly = \relative {
   f2 r8 f f16 e d8 | e d e a a,4 r | ees'2 r8 ees ees16 d c8 | d2 r4 e |
   f2 r8 f f16 e d8 | e4 r r2 | ees2 r8 ees ees16 d c8 | d2 r4 e \bar "||"
 }
-charly_accmpt = \relative {
+charlyVTwo = \relative {
   d'2 r4 d | cis4. d8 e4 d8 cis | c2 r | b4. d8 cis4 d8 e |
   f16 e d8 d4 r d | cis4. d8 e4 d8 cis | c2 r | b4. d8 cis4 d8 e |
   f16 e d e f4 r d | cis4. d8 e4 d8 cis | c2 r | b4. d8 cis4 d8 e |
@@ -39,24 +44,95 @@ edward = \relative {
   bes2 r8 bes16 c d8 e | f f, f f f4 r | bes2 r8 bes16 c d8 e | f4. g16 f e4 d8 cis \bar "||"
 }
 
-% MAIN
+frank = \relative {
-{
+  \repeat unfold 3 { f''2. e4 | d a2 r4 } f'2. e4 | fis2. a4 \bar "||"
-  <<
+}
-    \new Staff {
+frankVTwo = \relative {
-      \clef "treble"
+  \repeat unfold 3 { r8 d'16 e f e d8 f2 | r8 d16 e fis e d8 fis2 } r8 d16 e f e d8 f2 | r8 d16 e fis e d8 d4 fis \bar "||"
-      \key d \minor
+}
-      \alice
+frankCello = \relative {
-      \bob
+  \repeat unfold 2 { bes,4 r8 f bes bes c4 | d4 r8 a d,4 r | bes'4 r8 f bes bes c cis | d4 r8 a d,4 r } \bar "||"
-      \charly
+}
-      \david
+
-      \edward
+giuseppe = \relative {
-    }
+  f''2~ 8 f f16 e d8 | e c16 g c8 d e4 fis | g2~ 8 g8 f e | f16 d d8 d e cis4 f8 e |
-    \new Staff {
+  f2~ 8 f f16 e d8 | e16 c c g c8 d e4 fis | g2~ 8 g8 f e | d4. e16 d cis4 r \bar "||"
-      \clef "treble"
+}
-      \key d \minor
+
-      \alice_accmpt
+end = \relative {
-      \bob_accmpt
+  bes''8 a g f f16 e d8 cis e | d4 r r2 \bar "||"
-      \charly_accmpt
+}
-    }
+endVTwo = \relative {
-  >>
+  g'8 e16 f g f e8 g4 e | fis1 \bar "||"
+}
+endCello = \relative {
+  g,4 r8 bes a4 a, | d1 \bar "||"
+}
+
+violinOne = \new Voice {
+  \clef treble
+  \alice
+  \bob
+  \charly
+  \david
+  \giuseppe
+  \edward
+  \alice
+  \frank
+  \end
+  \bar "|."
+}
+violinTwo = \new Voice {
+  \clef treble
+  \repeat unfold 8 { r1 }
+  \repeat unfold 4 { r1 }
+  \charlyVTwo
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \frankVTwo
+  \endVTwo
+  \bar "|."
+}
+viola = \new Voice {
+  \clef alto
+  \aliceViola
+  \bobViola
+  \repeat unfold 16 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \aliceViola
+  \repeat unfold 8 { r1 }
+  \repeat unfold 2 { r1 }
+  \bar "|."
+}
+cello = \new Voice {
+  \clef bass
+  \repeat unfold 8 { r1 }
+  \repeat unfold 4 { r1 }
+  \repeat unfold 16 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \repeat unfold 8 { r1 }
+  \frankCello
+  \endCello
+  \bar "|."
+}
+
+\score {
+  \new StaffGroup <<
+    \new Staff \with { instrumentName = "Violin 1" }
+    << \global \violinOne >>
+    \new Staff \with { instrumentName = "Violin 2" }
+    << \global \violinTwo >>
+    \new Staff \with { instrumentName = "Viola" }
+    << \global \viola >>
+    \new Staff \with { instrumentName = "Cello" }
+    << \global \cello >>
+  >>
+  \layout { }
+  \midi { }
 }