From e91952e44163f2ea23105f2e2575a2a94eb685a5 Mon Sep 17 00:00:00 2001
From: "flyingscorpio@arch-desktop" <tfranken@protonmail.com>
Date: Tue, 24 Aug 2021 15:39:11 +0200
Subject: [PATCH] Split into two files, use names as variables

---
 named_loops.ly          |  62 +++++++++++++++++++++++++
 siffler-en-presquile.ly | 100 +++-------------------------------------
 2 files changed, 68 insertions(+), 94 deletions(-)
 create mode 100644 named_loops.ly

diff --git a/named_loops.ly b/named_loops.ly
new file mode 100644
index 0000000..97baaca
--- /dev/null
+++ b/named_loops.ly
@@ -0,0 +1,62 @@
+\version "2.22.1"
+
+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 {
+  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 "||"
+}
+
+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 {
+  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 "||"
+}
+
+charly = \relative {
+  f''2 r8 f f16 e d8 | e4 r r2 | ees2 r8 ees ees16 d c8 | d2 r4 e |
+  f2 r8 f f16 e d8 | e a, a g a4 r | ees'2 r8 ees ees16 d c8 | d4. e16 d cis4 d8 e |
+  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 {
+  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 |
+  d2 r4 d | cis4. d8 e4 d8 cis | c2 r | b4. d8 cis4 d8 e \bar "||"
+}
+
+david = \relative {
+  c'''2 a4 f | f16 e e8 e f g4 gis | a2 f4 d | d16 cis cis8 cis e d4 r |
+  c'2 a4 f | f16 e e8 e f g4 a | d,4 r cis d8 e | d4 r r2 \bar "||"
+}
+
+edward = \relative {
+  f''2 r8 f16 g a8 f | c' c, c d e4 r | d2 r8 d16 e f8 d | a' a, a g a4 r |
+  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
+{
+  <<
+    \new Staff {
+      \clef "treble"
+      \key d \minor
+      \alice
+      \bob
+      \charly
+      \david
+      \edward
+    }
+    \new Staff {
+      \clef "treble"
+      \key d \minor
+      \alice_accmpt
+      \bob_accmpt
+      \charly_accmpt
+    }
+  >>
+}
diff --git a/siffler-en-presquile.ly b/siffler-en-presquile.ly
index 3ce86f6..1323c5d 100644
--- a/siffler-en-presquile.ly
+++ b/siffler-en-presquile.ly
@@ -1,101 +1,13 @@
 \version "2.22.1"
 
-one = {
-  <<
-    \new Staff {
-      \clef "treble"
-      \key d \minor
-      \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 "||"
-      }
-    }
-    \new Staff {
-      \clef "treble"
-      \key d \minor
-      \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 "||"
-      }
-    }
-  >>
-}
-
-two = {
-  <<
-    \new Staff {
-      \clef "treble"
-      \key d \minor
-      \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 "||"
-      }
-    }
-    \new Staff {
-      \clef "treble"
-      \key d \minor
-      \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 "||"
-      }
-    }
-  >>
-}
-
-three = {
-  <<
-    \new Staff {
-      \clef "treble"
-      \key d \minor
-      \relative {
-        f''2 r8 f f16 e d8 | e4 r r2 | ees2 r8 ees ees16 d c8 | d2 r4 e |
-        f2 r8 f f16 e d8 | e a, a g a4 r | ees'2 r8 ees ees16 d c8 | d4. e16 d cis4 d8 e |
-        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 "||"
-      }
-    }
-    \new Staff {
-      \clef "alto"
-      \key d \minor
-      \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 |
-        d2 r4 d | cis4. d8 e4 d8 cis | c2 r | b4. d8 cis4 d8 e \bar "||"
-      }
-    }
-  >>
-}
-
-lead_b = \new Staff {
-  \relative {
-    \clef "treble"
-    \key d \minor
-    r8 f'' f16 g8 a16~ 8 a g f | e a a gis16 a~ 2 |
-    r16 d,~ 8 d16 e8 f16~ 8 f e d | c f a, g16 a~ 2 |
-    r8 g g a16 bes~ 2 | d8 cis d e16 d~ 2 |
-    e4 cis d e | e8 d d e16 f~ 2 \bar "||"
-  }
-}
-
-lead_b_bis = \new Staff {
-  \relative {
-    \clef "treble"
-    \key d \minor
-    f''2 c4 a | g8 f' f e16 e~ 4 r |
-    d2 a4 f | e8 d' cis b16 cis~ 4 r \bar "||"
-  }
-}
-
-\one
-\two
-\three
 \relative {
   \key d \minor
-  f''2 r8 f16 g a8 f | c' c, c d e4 r | d2 r8 d16 e f8 d | a' a, a g a4 r |
-  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 "||"
+  r8 f'' f16 g8 a16~ 8 a g f | e a a gis16 a~ 2 |
+  r16 d,~ 8 d16 e8 f16~ 8 f e d | c f a, g16 a~ 2 |
+  r8 g g a16 bes~ 2 | d8 cis d e16 d~ 2 |
+  e4 cis d e | e8 d d e16 f~ 2 \bar "||"
 }
-\one
 \relative {
-  \key d \minor
-  c'''2 a4 f | f16 e e8 e f g4 gis | a2 f4 d | d16 cis cis8 cis e d4 r |
-  c'2 a4 f | f16 e e8 e f g4 a | d,4 r cis d8 e | d4 r r2 \bar "||"
+  f''2 c4 a | g8 f' f e16 e~ 4 r |
+  d2 a4 f | e8 d' cis b16 cis~ 4 r \bar "||"
 }