// Every Heartbeat — Amy Grant
// 131 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 124 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(131/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.

// bass · electric bass finger · "FINGERDBAS"
const bass = note(`<
  ~ A@2 B C A@2 B C A@2 B C A@2 B C D E F G D E H I J K L M N K O P Q R S T A@2 B C A@2 B C D E F G D E H I J K L M N K
  O P J K L M L K O P U V W X Y Z AA AB AC AD AE AF J K L M N K O P J K L M N K O P J K L M N K O P J K L M N K O P AG T
  AH ~@8
>`.pickRestart({
  A: "c2@4 a1@2 g1@2 ~@2 g1@3 ~@3 g1@2 a1@2 g1@2 a1@2", B: "d2@3 ~ c2@2 d2@3 ~ d1@3 ~ d1 ~ d1@2 g1@2 a1@2 g1@2",
  C: "d2@3 ~ c2@2 d2@3 ~ d1@3 ~ d1 ~ d1@2 a1@2 c2@2 a1@2", D: "d2@4 c2@2 d2@3 ~@7 a1 ~ c2@2 a1@2 c2@2",
  E: "d2@4 c2@2 d2@3 ~@7 d1 ~ d1@2 g1@2 a1@2", F: "a#1@4 a1@2 a#1@3 ~@9 d1@2 g1@2 f1@2",
  G: "a#1@3 ~ d1@2 f1@2 ~@10 c2 ~ a1 ~ c2 ~", H: "c2@2 ~ c2@2 ~ a#1@2 ~ a#1@2 ~",
  I: "a1 ~ d1 ~ a1 ~ a1@5 ~ g1@4 ~@2 g1@4 ~@2", J: "a1@4 ~@2 a1@6 f1@3 ~ f1 ~ f1@2 c2@2 g1@2",
  K: "e1@4 ~@2 e1@4 ~@2 f1@3 ~ f1 ~ e1@2 f1@2 g1@2", L: "c2@4 ~@2 c2@5 ~ g1@3 ~ g1 ~ g1@2 c2@2 g1@2",
  M: "a1@4 ~@2 a1@6 f1@3 ~ f1 ~ f1 ~ a1@2 g1@2", N: "c2@4 ~@2 c2@5 ~ f1@3 ~ f1 ~ f1@2 c2@2 g1@2",
  O: "f1@4 ~@2 f1@3 ~ f1@2 e1@5 ~ e1@5 ~", P: "f1@4 ~@2 f1@2 e1@2 f1@2 g1@5 ~ g1@2 a1@2 g1@2",
  Q: "a1@3 ~ a1@2 e1@2 ~@2 f1@2 ~@2 e1 ~ e1@2 f1@2 e1@2 a1@2",
  R: "a1@3 ~ a1@2 c2@2 ~@2 f1@2 ~@2 f1 ~ f1@2 a1@2 c2@2 a1@2",
  S: "a1@3 ~ a1@2 e1@2 ~@2 f1@2 ~@2 f1 ~ f1@2 g1@2 a1@2 b1@2",
  T: "a1@3 ~ a1@2 g1@2 ~@2 a1@2 ~@2 g1 ~ e1@2 g1@2 a1@2 g1@2", U: "g1@4 ~@2 g1@4 ~@2 g1@3 ~ d1@2 g1@2 ~@2 g1@2",
  V: "d1@2 ~ d1@2 ~ d1@2 ~ d1 d2 a1", W: "g1@4 ~@2 g1@4 ~@2 g1@5 ~ g1@2 c2@2 a1@2", X: "c1@2 ~ c1@2 ~ c1@2 ~ c1 ~ c1",
  Y: "d1@3 ~ d1@5 ~@3 d1@2 ~@2 d1 ~ c1@2 d1@2 a1@2", Z: "a#1@3 ~ a#1@6 ~@2 f1@2 ~@2 a#1@2 a#1@2 a#1@2 f1 ~",
  AA: "d1@3 ~ d1@5 ~@3 d2@2 ~@2 d1@2 d2@2 a#1@2 c2@2", AB: "a#1@3 ~ a#1@6 ~@2 a#1@2 ~@2 a#1@2 a1@2 f1@2 d2@2",
  AC: "c2@2 ~@2 c2@13 ~ c2@2 c1@2 c2@2", AD: "a#1 ~ a#1@6 ~ a#1 a1 a#1", AE: "a1@4 ~@2 a1@5 ~ a1@4 e1@2 a1@6",
  AF: "~@2 g1@3 ~ g1@3 ~@3 g1@3 ~ g1@2 e1@2 f1@2 g1@2", AG: "a1@3 ~ a1@2 g1@2 ~@2 a1@2 ~@2 g1 ~ e1@2 a1@2 e1@2 g1@2",
  AH: "c1 ~@11",
})).s("gm_electric_bass_finger").gain(0.25)

// chords · piano · "A.PIANO 2"
const piano = note(`<
  ~ A@2 B C A@2 D E F G H I J@2 K L M N O P Q@2 R S T U V W X Y Z AA AB@2 AC@2 F G H I J@2 K AD M N AE AF AG@2 R AH T U
  AI W X Y Z AJ T U AI W X Y Z AK AL AM AN AO AP AQ AR AS AT AU AV AW AX AY AZ W BA BB BC AA AX BD AZ W BA BB BE BF AX
  BD AZ BG BA BB BH AA AX BI AZ BG BA BJ BH AA ~@11
>`.pickRestart({
  A: "[[g4,e5]@35 ~ d5@3 ~ c5@2 a4@6]/2", B: "[f4,c5]@17 ~ a4@4 c4 ~", C: "e4@2 g4@2 a4@2 c5 ~, c4@10 ~@2 e4@9 ~@3",
  D: "[f4,c5]@17 ~ a4@4 g4@2", E: "[c4,a4]@11 ~", F: "~@6 e4@4 g4 ~ g4@4 ~@2 g4@4 ~@2, c4@6 e4@5 ~",
  G: "g4@5 ~ g4@6 a4@11 ~, e4", H: "~@5 e4 d4@3 c4@3, d4@3 ~@5, ~ a4@2 ~@3", I: "~@2 d4@3 e4 d4@3 c4@2 ~",
  J: "[~@6 e4@3 ~ g4 ~ g4@6 e4@6 f4@6 e4@6 d4@6 c4@4 ~@2, c4@3 ~]/2", K: "[d4,f4]@3 c5@2 e4 d4@3 c4@3",
  L: "~@4 d4@6 e4@2 d4@6 c4@5 ~, a3@7 ~", M: "d4@5 ~ a3@4 c4 ~ c4@6 d4@6, f4@23 ~", N: "e4@3 a3@2 g3 a3@3 c4@3",
  O: "~@6 e4@2 d4 c4@3, d4 ~, ~@3 a4@5 ~@4", P: "e4@6 d4@4 ~@2 d4@3 ~ c4@4 ~@4, a3@7 ~",
  Q: "[d4@6 d4@3 ~ c4@2 d4@6 c4@5 ~ e4@4 d4@4 c4@3 ~ c4@10 ~@2, a3@23 ~]/2",
  R: "c4@3 ~ c4@3 ~ [c4,d4]@2 ~@2 e4@4 ~@2 e4@4 ~@2, ~@4 c4@3 ~", // Csus2
  S: "g4@3 ~ g4@4 a4@2 ~@2 c5@6 a4@2 ~@4, e4@11 ~ e4@8 ~@4", T: "e4@6 g4@4 ~@2 g4@5 ~ g4@4 ~@2, c4@10 ~@2 b3@11 ~",
  U: "g4@4 ~@2 g4@6 [c4,a4]@11 ~, b3@5 ~@7", V: "e4@6 g4@4 ~@2 g4@6 a4@3 ~@3, c4@10 ~@2 b3@9 ~@3",
  W: "d5@3 c5@2 ~ [c4,a4]@5 ~, e4@5 ~@7", X: "~@6 c5@4 ~@2 b4@5 ~ a4@4 g4 ~, e4@5 ~ d4@5 ~",
  Y: "g4@4 ~@2 g4@4 e4@2 [c4,a4]@7 ~@3 g4@2, d4@5 ~@7", Z: "c5@2 ~@2 c5 ~ c5@3 ~ a4@2 [g4,c5]@6 a4@4 g4@2, a4 ~@2",
  AA: "c5@4 ~@2 c5@3 ~@3 [g4,c5]@8 ~@4, a4 ~", // C5
  AB: "[a3@4 c4@3 ~ d4@3 ~@7 c4@3 ~ d4 ~ d4@4 c4@2 g3@16 ~@2, ~@12 g4@35 ~]/2",
  AC: "[a3@4 c4@3 ~ d4@4 ~@6 c4@3 ~ d4 ~ c4@3 ~ d4@2 g3@14 ~@4, ~@4 g4@11 ~]/2",
  AD: "~@4 d4@5 ~ e4@2 d4@5 ~ c4@4 ~@2, a3@7 ~", AE: "~@6 a4@5 ~ e4@4 d4@2 c4@4 ~@2, d4 ~",
  AF: "e4@6 d4@4 ~@2 d4@3 ~ c4@6 ~@2, a3@11 ~",
  AG: "[d4@4 ~@2 d4@3 ~ c4@2 d4@6 c4@6 e4@4 d4@4 c4@2 ~@2 c4@8 ~@4, a3@15 ~]/2",
  AH: "g4@3 ~ g4@4 a4@3 ~ c5@5 ~ a4@2 ~@4, e4@11 ~ e4@8 ~@4", AI: "e4@3 g4@2 ~ g4@3 a4@3, c4@10 ~@2 b3@9 ~@3",
  AJ: "c5@5 ~ c5@3 ~@3 [g4,c5]@8 ~@4, a4@5 ~@7", AK: "c5@4 ~@2 c5@4 ~@2 g4@3 ~ a4@2 g4@6, a4@11 ~ c5@9 ~@3",
  AL: "a#4@10 ~@2 a#4@9 ~@3, d4@5 ~", AM: "a4@5 a#4 a4@6, d4@11 ~", AN: "~@6 a#4@6 c5@5 ~ a#4@3 ~ a4@2, d4@11 ~",
  AO: "g4@6 a4@6 g4@7 ~@5, e4@11 ~", AP: "[f4,a4]@6 d4@5 ~ f4@2 ~ f4@2 ~ g4@6",
  AQ: "f4@6 g4@6 f4@5 ~ f4@3 ~ g4 ~, d4@3 ~@5", AR: "[f4,a4]@6 d4@5 ~ f4@2 ~@2 f4@2 g4@6",
  AS: "f4@6 g4@3 ~ f4@4 ~@10, d4@7 ~@5", AT: "e4@3 g4 ~@2 g4@3 ~ f4 ~ g4@3 ~ f4@2 ~@6, c4@11 ~ c4@6 ~@6",
  AU: "a4@3 ~ g4@4 f4@3 ~ f4@9 ~@3, d4@7 ~", AV: "g4@3 ~ g4@4 a4@4 c5@4 ~@2 c5@4 ~@2, c4@5 ~ e4@5 ~",
  AW: "c5@3 ~ c5@2 ~@2 c5@2 ~@2 c5@5 ~@7, [d4,g4]@5 ~", // G5
  AX: "e4@3 ~ g4 ~ g4@4 ~@2 g4@4 ~@2 g4@4 ~@2, c4@9 ~@3 b3@10 ~@2", AY: "g4@3 ~@3 g4@3 ~ e4@2 [c4,a4]@7 ~@5, b3@3 ~@5",
  AZ: "e4@6 g4@4 ~@2 g4@6 a4@3 ~ g4@2, c4@5 ~ b3@4 ~@2",
  BA: "c5@3 ~ c5@3 ~ c5@2 ~@2 b4@3 ~ a4@3 ~ g4@2 ~@2, e4@5 ~ d4@5 ~",
  BB: "g4@2 ~@2 g4@3 ~ e4@4 [c4,a4]@6 ~@4 g4@2, d4 ~@2", BC: "c5@2 ~@2 c5@2 ~@4 g4@2 [g4,c5]@5 ~ a4@4 g4@2, a4@5 ~@7",
  BD: "g4@4 ~@2 g4@3 ~ e4@2 c4@9 ~@3, b3@9 ~@3 a4@7 ~@5", BE: "a4@4 c5 ~ a4@3 ~ g4@2 [g4,c5]@6 a4@3 ~ g4@2, c5 ~@11",
  BF: "c5@4 ~@2 c5@3 ~@3 [g4,c5]@7 ~@5, a4@11 ~@13", BG: "d5@5 ~ c5@4 ~@2 [c4,a4]@9 ~@3, e4@5 ~@7",
  BH: "a4@4 c5@2 a4@4 g4 ~ [g4,c5]@6 a4@3 g4@3, c5 ~@11", BI: "g4@3 ~@3 g4@3 ~ e4@2 c4@9 ~@3, b3@3 ~ a4@2 ~@2",
  BJ: "g4@2 ~@2 g4@3 ~@2 e4@3 [c4,a4]@7 ~@3 g4@2, d4 ~@2", // F
})).s("gm_piano").gain(0.42)

// chords · epiano2 · "E.PIANO 2"
const epiano2 = note(`<
  ~ A@2 B@2 A@2 B@2 A@2 B@2 A@2 B@2 C@2 D@2 C@2 E F G H G I G H J K A@6 B@2 A@2 B@2 C@2 D@2 C@2 E F G H G I G H J K G H
  G I G H J K L M L N O@2 D@2 N P N Q G H G I G H J K G H G I G H J K G H G I G H J K G H G I G H J K A@2 ~@9
>`.pickRestart({
  A: "[c4,e4,g4]/2", B: "[c4,f4,a4]/2", C: "[c4,d4,f4,a4]/2", D: "[a#3,d4,f4,a4]/2", E: "[c4,e4,g4] [a#3,e4,g4]",
  F: "[a3,c4,e4,g4] [g3,c4,e4]", G: "[c4,e4,g4] [d4,g4,b4]", H: "[e4,g4,b4] [c4,f4,a4]", I: "[c4,e4,g4] [c4,f4,a4]",
  J: "[c4,f4,a4] [c4,e4,g4]", K: "[c4,f4,a4] [c4,d4,g4]", L: "[d4,g4,a#4]", M: "[d4,f#4,a4]", N: "[c4,e4,g4]",
  O: "[d4,f4,a4]/2", P: "[a#3,d4,f4]", Q: "[c4,d4,g4]",
})).s("gm_epiano2").gain(0.25).pan(0.7)

// other · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note(`<
  ~@17 A@6 B C ~@6 D@2 ~@12 E@6 B C ~@6 D@2 ~@6 D@2 ~@18 D@2 ~@6 D@2 ~@6 D@2 ~@6 D@2 ~@11
>`.pickRestart({
  A: "[~ d4@143, d5@143 ~]/6", B: "[e4,e5]@23 ~", C: "[g4,g5]@23 ~",
  D: "~@2 [c5,c6]@2 ~@2 [c5,c6]@5 ~@3 [c5,c6]@2 ~@2 [c5,c6]@5 ~", E: "[d4,d5]/6",
})).s("gm_string_ensemble_1").gain(0.27).pan(0.4)

// other · brass section · "BRASS 1"
const brass_section = note("<~@62 A ~ B@2 C D ~@22 A ~ B@2 C D ~@2 A ~ B@2 C D ~@2 A ~ B@2 C D ~@12>".pickRestart({
  A: "~@14 [e4,e5] ~@3 [e4,e5] ~ [f4,f5] ~ [g4,g5] ~", B: "[~@18 [d3,d4]@3 ~ [c3,c4]@13 ~@13]/2",
  C: "~@16 [e3,e4]@3 ~ [d3,d4]@3 ~", D: "[c3,c4] ~",
})).s("gm_brass_section").gain(0.2).pan(0.3)

// chords · electric guitar clean · "CLEAN GTR"
const electric_guitar_clean = note("<~@33 A@2 B@8 ~@70 C@2 D ~@8>".pickRestart({
  A: "[~@5 d3 ~@2 d3@16, ~ g2@7, ~@2 c3 g3@9, ~@7 c3@17]/2",
  B: "[~@10 d3@2 ~@26 c3@2 ~@2 [g3,c4]@3 ~ [a3,d4] ~@145, ~@4 c3@2 g3@13 ~@77, ~@7 c3@12 ~ c3@76, ~ d3@11]/8", // C5 D5
  C: "[~@14 c3@26 ~@2 [g3,c4]@3 ~ [a3,d4] ~, ~@4 c3@3 ~@17, ~@6 g3@13 ~@5]/2", D: "[g3,c4] ~@23",
})).s("gm_electric_guitar_clean").gain(0.16).pan(0.7)

// drums · kick
const kick = s("bd").struct("<~ [x!2]!114 x ~@8>").gain(0.3)

// drums · snare
const snare = s("sd").struct("<[~@9 x!3] [~@3 x ~ x ~@3 x ~@2]!114 ~@9>").gain(0.3)

// drums · hihat
const hihat = s("hh").struct("<[~@3 x] [~ x ~@2 x ~ x!3 ~ x!2]!114 ~@9>").gain(0.23)

// drums · open hat
const open_hat = s("oh").struct("<~ [~@3 x ~ x ~@6]!114 ~@9>").gain(0.2)

// drums · crash
const crash = s("cr").struct("<~@115 [x!2 ~@4] ~@8>").gain(0.2)

// drums · tambourine
const tambourine = s("tb").struct("<~ [x ~ x ~@6 x ~@2]!114 ~@9>").gain(0.27)

stack(
  bass, piano, epiano2, string_ensemble_1, brass_section, electric_guitar_clean, kick, snare, hihat, open_hat, crash,
  tambourine
)