// Lay All Your Love on Me — ABBA
// 128 bpm, 4/4, key D minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: Full arrangement: all 147 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(128/4)

// Notation: c3@3 lasts 3 steps · ~ is a rest · [c3,e3] is a chord · "a, b" plays two voices at once · [...]/2 spreads a riff over 2 bars.
// A part's distinct bars are riffs (A, B, C...) played in order, A@4 for four bars: edit a riff to change every repeat.

// chords · french horn · "FR.HORN"
const french_horn = note(`<
  A B C D E F G@2 A B C D H I G@2 ~@16 J@2 K@2 L@5 A B C D E I G@2 ~@14 J@2 K@2 M@5 A B C D E I G@2 A B C D E I N@2 O@4
  ~@12 P@4 Q@5 A B C D E I G@2 A B C D E I G@2 A B C D E I G@2 A B C D E I N@2 R ~
>`.pickRestart({
  A: "[a3,d4,f4]@7 ~ [a3,db4,e4]@7 ~", B: "[f3,a3,d4]@3 ~ [a3,db4,e4]@3 ~ [a3,d4,f4]@3 ~ [a3,d4,g4]@3 ~",
  C: "[bb3,d4,f4]@15 ~", D: "[a3,db4,e4]@15 ~", E: "[a3,d4,f4]@7 ~ [c4,e4,g4]@3 ~ [c4,f4,a4]@3 ~",
  F: "[bb3,d4,g4]@7 ~ [c4,e4,g4]@7 ~", G: "[[a3,c4,f4]@15 ~]/2",
  H: "[a3,d4,f4]@7 ~ [c4,e4,g4]@3 ~ [c4,f4,a4]@3 ~, ~@8 d4 ~@7", I: "[bb3,d4]@7 ~ [c4,e4]@7 ~, g4@15 ~",
  J: "[[a3,d4,f4]@31 ~]/2", K: "[[a3,db4,e4]@31 ~]/2",
  L: "[[d4,f4]@15 ~ [db4,g4]@14 ~@2 [f4,a4]@16 [g4,b4]@19 ~@13, a3@7 ~@9, ~@16 d4@17 ~@7]/5", // Dm Dbdim F G
  M: "[[d4,f4]@15 ~ [db4,e4,g4]@15 ~ [f4,a4]@16 [g4,b4]@19 ~@13, a3@19 ~@21, ~@8 d4@9 ~@3]/5", // Dm Dbdim F G
  N: "[[c4,f4], a3@15 ~]/2", O: "[[f3,a3,d4]@15 ~]/4", P: "[[d4,f4]@32 [db4,e4]@31 ~, a3@63 ~]/4",
  Q: "[[d4,f4]@15 ~ [db4,e4,g4]@15 ~ [f4,a4]@16 [g4,b4]@19 ~@13, a3@19 ~@21, ~@16 d4@17 ~@7]/5", R: "[f3,a3,d4]",
})).s("gm_french_horn").gain(0.2)

// bass · fretless bass · "FRETLESS"
const bass = note(`<
  ~@8 A B C D E F G@2 A@4 H I H I J@2 H I H I J@2 A K L M A N O P Q R B S T U V W X A@2 H I H I J@2 H I H I J@2 A K L M
  A N O P Q R B S T U V W X R Y C Z U F AA X A AB A AC H I H I J@2 H I H I J@2 A K L M A N O P Q R B S T U V W X R B C T
  U F AD AE R Y C D AF F AG AH A B C D U AI AJ AK AL ~
>`.pickRestart({
  A: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~", B: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 c2",
  C: "bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1@2", D: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1@2",
  E: "d2 ~ d2 ~ d2 ~ d2 ~ e2@2 e3 ~ f2@2 f3 ~", F: "bb1 ~ bb1 ~ bb1 ~ bb1@2 c2 ~ c2 ~ c2 ~ c2@2",
  G: "f2 ~ f2 ~ f2 ~ f2 ~ f2 ~ f2 ~ f2 ~ f2 ~", H: "~@2 d2 ~ d2@2 f2 ~ f2@2 a1 ~ a1@4",
  I: "~@2 d2 ~ d2@2 f2 ~ f2@2 g2@2 a2@4", J: "[~@2 c2 ~ c2@2 e2@2 e2@2 g1 ~ g1@6 c2 ~ c2@2 e2 ~ e2@2 f2@2 g2@4]/2",
  K: "d2@2 d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2@2 d2@2", L: "db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2@2",
  M: "db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ db2 ~ a1@2", N: "e2@2 e2 ~ e2@2 e2 ~ e2@2 e2 ~ e2@2 e2@2",
  O: "f2@2 f2 ~ f2 ~ f2 ~ f2 ~ f2 ~ f2 ~ f2@2", P: "g2@2 g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2 ~ g2@2", Q: "g1 ~",
  R: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2!2", S: "bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~ bb1 ~",
  T: "a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1!2", U: "d2 ~ d2 ~ d2 ~ d2 ~ e2@2 e3@2 f2@2 f3@2",
  V: "[bb1,b1] ~ bb1 ~ bb1 ~ bb1@2 c2 ~ c2 ~ c2 ~ c2@2", W: "f1@2 f2 ~ f2@2 f1@2 f1 ~ f1 ~ f1 ~ f1 f2",
  X: "f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~", Y: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ d2 a1",
  Z: "a1@2 a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1 ~ a1@2, ~@14 ab1 ~", AA: "f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 f2",
  AB: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ c2@2 d2@4", AC: "d2 ~ d2 ~ d2 ~ d2 ~ d2 ~ c2@2 d2@3 ~",
  AD: "f2@2 f1 ~ f1 ~ f1@2 f1 ~ f1 ~ f1 ~ f1 f2", AE: "f1 ~ f1 ~ f1 ~ f1 ~ f1@2 f2@2 f1@2 f2@2",
  AF: "d2 ~ d2 ~ d2 ~ d2 ~@3 e3 ~ f2@2 f3@2, ~@2 e2 ~", AG: "f1@2 f2 ~ f2 ~ f1 ~ f1 ~ f1 ~ f1 ~ f2 f1",
  AH: "f2@2 f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1 ~ f1@2", AI: "bb1 ~ bb1 ~ bb1 ~ bb1@2 c2@2 c3 ~ c3 ~ c2@2",
  AJ: "f1 ~ f1@2 f2 ~ f1 ~ f1 ~ f1@2 f2 ~ f2 f1", AK: "f2@2 f1 ~ f1 ~ f1@2 f2@2 f1@2 f2@2 f1@2", AL: "d2@13 ~@3",
})).s("gm_fretless_bass").gain(0.25)

// chords · pizzicato strings · "PIZZICATO"
const pizzicato_strings = note(`<
  ~@7 A B C D E F G A@2 H I H I H@2 J@2 K L H@4 L@2 M@2 N@2 M O M P Q B R D E S G A@2 H I H@2 J@2 K L H@4 L@2 M@2 N@2 M
  O M P Q B R D E S G A@2 B R D E S G A@2 H I H I H@2 J@2 K L H@4 L@2 M@2 N@2 M O M P Q B R D E S G A@2 T U V E W X A@2
  Y U D E W Z AA A Y R V E W G A@2 AB ~
>`.pickRestart({
  A: "~@2 [a4,c5,f5]!2 ~ [a4,c5,f5]!2 ~ [a4,c5,f5] ~ [a4,c5,f5] ~@3 [a4,c5,f5] ~", // F
  B: "~@2 [a4,d5,f5]!2 ~ [a4,d5,f5]!2 ~@3 [a4,db5,e5] ~@3 [a4,db5,e5] ~", // Dm A
  C: "~@2 [a4,d5,f5] ~@3 [a4,db5,e5] ~@3 [a4,d5,f5] ~@3 [a4,d5,g5] ~", // Dm A Dm Dsus4
  D: "~@2 [bb4,d5,f5]!2 ~ [bb4,d5,f5]!2 ~ [bb4,d5,f5] ~ [bb4,d5,f5] ~@3 [bb4,d5,f5] ~", // Bb
  E: "~@2 [a4,db5,e5]!2 ~ [a4,db5,e5]!2 ~ [a4,db5,e5] ~ [a4,db5,e5] ~@3 [a4,db5,e5] ~", // A
  F: "~@2 [a4,d5,f5]!2 ~ [a4,d5,f5]!2 ~@3 [d5,e5,g5] ~@3 [c5,f5,a5] ~", // Dm Em7 F
  G: "~@2 [bb4,d5,g5]!2 ~ [bb4,d5,g5]!2 ~@3 [c5,e5,g5] ~@3 [c5,e5,g5] ~", // Gm C
  H: "~@2 [a4,d5,f5]!2 ~ [a4,d5,f5]!2 ~ [a4,d5,f5] ~ [a4,d5,f5] ~@3 [a4,d5,f5] ~", // Dm
  I: "~@2 [a4,d5,f5]!2 ~ [a4,d5,f5]!2 ~ [a4,a5] ~ [ab4,ab5] ~ [g4,g5] ~ [f4,f5] ~", // Dm A Ab G F
  J: "~@2 [a4,d5,f5]!2 ~ [a4,d5,f5]!2 ~@3 [a4,d5,f5] ~@3 [a4,d5,f5] ~", // Dm
  K: "~@2 [g4,c5,e5]!2 ~ [g4,c5,e5]!2 ~@3 [g4,c5,e5] ~@3 [g4,c5,e5] ~", // C
  L: "~@2 [g4,c5,e5]!2 ~ [g4,c5,e5]!2 ~ [g4,c5,e5] ~ [g4,c5,e5] ~@3 [g4,c5,e5] ~", // C
  M: "~@2 [a4,d5,f5]!2 ~@2 [a4,d5,f5]!2 ~@2 [a4,d5,f5]!2 ~@2 [a4,d5,f5]!2", // Dm
  N: "~@2 [a4,db5,e5]!2 ~@2 [a4,db5,e5]!2 ~@2 [a4,db5,e5]!2 ~@2 [a4,db5,e5]!2", // A
  O: "~@2 [a4,db5,g5]!2 ~@2 [a4,db5,g5]!2 ~@2 [a4,db5,g5]!2 ~@2 [a4,db5,g5]!2", // A7
  P: "~@2 [b4,d5,g5]!2 ~@2 [b4,d5,g5]!2 ~@2 [b4,d5,g5]!2 ~@2 [b4,d5,g5]!2", Q: "[b4,d5,g5] ~@15",
  R: "~@2 [a4,d5,f5]!2 ~@2 [a4,db5,e5] ~@3 [a4,d5,f5] ~@3 [a4,d5,g5] ~", // Dm A Dm Dsus4
  S: "~@2 [a4,d5,f5]!2 ~ [a4,d5,f5]!2 ~@3 [c5,e5,g5] ~@3 [c5,f5,a5] ~", // Dm C F
  T: "~@2 [a4,d5,f5]!2 ~@2 [a4,d5,f5] ~@3 [a4,db5,e5]!2 ~@2 [a4,db5,e5] ~", // Dm A
  U: "~@2 [a4,d5,f5]!2 ~@2 [a4,db5,e5] ~@3 [a4,d5,f5]!2 ~@2 [a4,d5,g5] ~", // Dm A Dm Dsus4
  V: "~@2 [bb4,d5,f5]!2 ~@2 [bb4,d5,f5] ~@3 [bb4,d5,f5] ~@3 [bb4,d5,f5] ~", // Bb
  W: "~@2 [a4,d5,f5]!2 ~@2 [a4,d5,f5] ~@3 [c5,e5,g5] ~@3 [c5,f5,a5] ~", // Dm C F
  X: "~@2 [bb4,d5,g5]!2 ~ [bb4,d5,g5]!2 ~ [c5,e5,g5] ~ [c5,e5,g5] ~@3 [c5,e5,g5] ~", // Gm C
  Y: "~@2 [a4,d5,f5]!2 ~@2 [a4,d5,f5] ~@3 [a4,db5,e5] ~@3 [a4,db5,e5] ~", // Dm A
  Z: "~@2 [bb4,d5,g5]!2 ~@2 [bb4,d5,g5] ~@3 [c5,e5,g5] ~@3 [c5,e5,g5] ~", // Gm C
  AA: "~@2 [a4,c5,f5]!2 ~@2 [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~@3 [a4,c5,f5] ~", AB: "[a4,d5,f5] ~@15",
})).s("gm_pizzicato_strings").gain(0.17)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  A B C D E F G@2 H I J D E F K@2 ~@16 L@2 M@2 N O P@3 Q R S T U V W@2 ~@8 X@2 Y@2 Z@2 AA@2 M@2 N AB AC@3 Q R S T AD AE
  AF@2 H R J AG U AH AF@2 AI@2 AJ@2 X@2 AK@2 AL@2 AI@2 AM@2 AL@2 L@2 AN@3 AB AO@3 Q AP S T U AQ AR@2 Q R S T U AQ AS@2 Q
  AP S T AT AU AV@2 Q AP S T U AW AX@2 AY ~
>`.pickRestart({
  A: "[d4,a4,f5]@7 ~ [db4,a4,db5,e5]@7 ~", // Dm A
  B: "[d4,f4,a4,d5]@3 ~ [db4,a4,db5,e5]@3 ~ [d4,a4,d5,f5]@3 ~ [d4,a4,d5,g5]@3 ~", C: "[bb3,bb4,d5,f5]@15 ~",
  D: "[a3,db5,e5], a4@7 ~", E: "[d4,a4,d5,f5]@8 [e4,c5,g5]@4 [f4,c5,a5]@3 ~",
  F: "[bb4,d5]@6 ~@2 [c4,c5,e5]@7 ~, g5@15 ~, bb3 ~", G: "[[f4,a4,c5,f5]@29 ~@3]/2",
  H: "[d4,a4,d5,f5]@7 ~ [a4,db5,e5]@7 ~", I: "[d4,f4,a4,d5]@4 [a4,db5,e5]@3 ~ [d4,a4,d5,f5]@4 [a4,d5,g5]@3 ~",
  J: "[bb3,bb4,d5,f5]", K: "[[f4,a4,f5], c5@15 ~]/2", L: "[d5@21 ~ d5 e5 f5@3 e5@3 d5@2, [a3,f4]@15 ~]/2",
  M: "[e5@20 ~@2 e5 f5 g5@3 f5@3 e5@2, [db4,a4]@15 ~]/2", N: "f5@5 ~ f5 g5 a5@3 g5@3 f5@2, [d4,a4]@7 ~",
  O: "~@6 g5 a5 bb5@3 a5@3 g5@2, db5@7 ~, g5@5 ~@11, ~ e4@12 ~@3",
  P: "[a5@16 [g4,b5]@19 ~@13, d5@35 ~@13, f4@7 ~@17]/3", Q: "[a4,d5,f5]@7 ~ [a4,db5,e5]@7 ~",
  R: "[f4,a4,d5]@3 ~ [a4,db5,e5]@3 ~ [a4,d5,f5]@3 ~ [a4,d5,g5]@3 ~", S: "[bb4,d5,f5]@15 ~", T: "[a4,db5,e5]",
  U: "[d4,f5]@8 [e4,c5,g5]@4 [f4,c5,a5]@3 ~, a4@3 ~@5", V: "g5@8 ~ g5@7, [g4,bb4]@15 ~, ~ c4, ~@4 e5@3 ~",
  W: "[[f4,a4,f5]@31 ~]/2", X: "[a4@6 c5 d5]/2", Y: "a4/2", Z: "[g4@10 ~@2 c5 d5 e5 f5]/2",
  AA: "[d5@21 ~ d5 e5 f5@3 e5@3 d5@2, [f3,d4]@15 ~]/2", AB: "g5@5 ~ g5 a5 bb5@3 a5@3 g5@2, [e4,db5]@7 ~",
  AC: "[a5@8 d6@4 a5@4 [g4,b5]@19 ~@13, d5@17 ~@7, f4@7 ~@17]/3", AD: "[a4,d5,f5]@7 ~ [e4,c5,g5]@4 [f4,c5,a5]@3 ~",
  AE: "bb3 [c4,c5,e5], g5@15 ~, bb4@3 ~@5", AF: "[[f4,a4,f5]@7 ~, c5 ~]/2", AG: "[a3,a4,db5,e5]",
  AH: "[bb4,d5]@6 ~@2 [c4,c5,e5]@7 ~, g5@15 ~", AI: "[d5@6 c5 d5]/2", AJ: "[a4 g4 a4@27 ~@3]/2",
  AK: "[a4 g4 ~ a4@21 g4@4 f4@4]/2", AL: "[g4@12 c5 d5 e5 f5]/2", AM: "[a4 g4 a4@22 g4@4 f4@4]/2",
  AN: "[e5@20 ~@2 e5 f5 g5@3 f5@3 ~@2 f5@5 ~ f5 g5 a5@3 g5@3 f5@2, [db4,a4]@15 e5 a4@7 ~, ~@31 d4@15 ~@2]/3", // Gbm
  AO: "[[f4,a5]@8 [g4,b5]@9 ~@7, d5@11 ~@5]/3", AP: "[f4,a4,d5]@4 [a4,db5,e5]@3 ~ [a4,d5,f5]@3 ~ [a4,d5,g5]@3 ~",
  AQ: "[bb4,d5]@3 ~ [c4,e5]@4, g5@15 ~, g4@4 c5@3 ~", AR: "[[f4,a4,c5,f5]@13 ~@3]/2", AS: "[[f4,a4,f5]@3 ~, c5 ~]/2",
  AT: "[f4,a4,d5,f5]@7 ~ [e4,c5,e5,g5]@3 ~ [f4,c5,f5,a5]@3 ~", AU: "[bb4,d5]@3 ~ [c4,c5,e5]@4, [g4,g5]@15 ~",
  AV: "[[f4,a4,f5]@7 ~, c5@13 ~@3]/2", AW: "bb4@3 ~ [c4,c5,e5]@4, [g4,g5]@15 ~", AX: "[f4,a4,f5]/2",
  AY: "d5 ~@7, d4 ~@15",
})).s("gm_string_ensemble_1").gain(0.18)

// other · acoustic guitar steel · "STEEL GTR"
const acoustic_guitar_steel = note(`<
  ~@20 A B C B D E F B C B D E G H I J K L M N O ~@10 A B C B D E F B C B D E G H I J K L M N O ~@75
>`.pickRestart({
  A: "~@2 d4 ~ d4@2 f4 ~ f4@2 a3 ~ a3 ~@3", B: "~@2 d4 ~ d4 ~ f4 ~ f4@2 g4@2 a4@3 ~",
  C: "~@2 d4 ~ d4 ~ f4 ~ f4@2 a3 ~ a3@3 ~", D: "~@2 c4 ~ c4@2 e4 ~ e4 ~ g3 ~ g3@3 ~",
  E: "~@2 c4 ~ c4@2 e4 ~ e4@2 f4@2 g4@3 ~", F: "~@2 d4 ~ d4 ~ f4 ~ f4@2 a3 ~ a3@4",
  G: "~@2 d5!2 d4 ~ d5!2 d4 ~ d5!2 d4 ~ d5!2", H: "d4 ~ d5!2 d4 ~ d5!2 d4 ~ d5!2 d4 ~ d5!2",
  I: "db4 ~ db5!2 db4 ~ db5!2 db4 ~ db5!2 db4@2 db5!2", J: "db4@2 db5!2 db4@2 db5!2 db4@2 db5!2 db4@2 db5!2",
  K: "d4@2 d5!2 d4 ~ d5!2 d4@2 d5!2 d4@2 d5!2", L: "e4@2 e5!2 e4@2 e5!2 e4@2 e5!2 e4@2 e5!2",
  M: "f4@2 f5!2 f4 ~ f5!2 f4@2 f5!2 f4@2 f5!2", N: "g4 ~ g5!2 g4@2 g5!2 g4@2 g5!2 g4!2 g5!2", O: "g4 ~@15",
})).s("gm_acoustic_guitar_steel").gain(0.28)

// drums · kick
const kick = s("bd").struct("<~@8 A@32 B A@30 B A@40 B A@32 B ~>".pickRestart({
  A: "x!4", B: "x",
})).gain(0.36)

// drums · snare
const snare = s("sd").struct("<~@7 A B@32 C B@30 C B@40 C B@32 ~@2>".pickRestart({
  A: "~@3 x", B: "~ x ~ x", C: "x ~@2 x",
})).gain(0.36)

// drums · hihat
const hihat = s("hh").struct("<~@7 A B@32 C B@30 C B@40 C B@32 D ~>".pickRestart({
  A: "~@3 x", B: "x!8", C: "x ~@2 x", D: "x",
})).gain(0.3)

stack(french_horn, bass, pizzicato_strings, string_ensemble_1, acoustic_guitar_steel, kick, snare, hihat)