// I Can't Stop Loving You — Ray Charles
// 84 bpm, 4/4, key C major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 56 bars on a 24-step grid, each part at one level. Source detail keeps the original performance.
setcpm(84/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: edit a riff to change every repeat.

// bass · electric guitar jazz · "BASS"
const bass = note(`<
  ~@2 A B C D E F G H I@2 J K I F G L E M N O G@2 P I A Q E R L@2 E@2 S A N T L@2 I E A@2 E U L G I V A S W X Y@2
>`.pickRestart({
  A: "g1@9 ~ b1@2 d2@6 b1@4 d2@2", B: "g1@11 ~", C: "c2@4 d2 e2 f2@6", D: "g2@5 ~ g1@16 ~@2",
  E: "c2@9 ~ e2@2 g2@6 e2@4 g2@2", F: "c2@5 e2 g2@3 c2 d2 e2", G: "f2@9 ~ a2@2 c3@6 a2@4 c3@2",
  H: "f2@5 a2 c3@3 a2@2 c3", I: "c2@5 e2 g2@3 e2@2 g2", J: "d2@5 f2 a2@3 d2@3", K: "g2@3 g1@8 ~",
  L: "f2@4 ~ a2 c3@3 a2@2 c3", M: "c2@5 e2 g2@3 g1@3", N: "c2@5 ~ c2@2 d2@2 e2@2 f2@4 ~@2 f2@2 e2@2 d2@2",
  O: "c2@3 ~@3 c2@6 d2@6 e2@5 ~", P: "c2@4 ~ e2 g2@3 e2@2 g2", Q: "g1@9 ~ b1@2 d2@6 g1@4 b1@2",
  R: "c2@8 ~@2 c2@2 d2@6 e2@5 ~", S: "g1@4 ~ b1 d2@3 b1@2 d2", T: "c2 ~@2 c2@3 d2@3 e2@3", U: "c2@4 ~ c2 d2@3 e2@3",
  V: "c2@8 ~@2 e2@2 g2@6 e2@3 ~ g2@2", W: "c2@5 ~ c2@2 d2@2 e2@2 f2@5 ~ f2@2 e2@2 d2@2", X: "c2@5 ~@19",
  Y: "[c2@35 ~@13]/2",
})).s("gm_electric_guitar_jazz").gain(0.5)

// chords · synth strings 1 · "SYN STRING"
const synth_strings_1 = note("<~@2 A@4 B@3 C@7 D@6 E@8 F@8 G@8 H@3 I@3 J@4>".pickRestart({
  A: "[[b3,e4,g4]@9 [a#3,d#4,f#4]@2 ~ a3@10 ~ b3@22 ~@2 [c4,e4]@12 ~ [a3,c4]@11 ~ [b3,d4,g4]@22 ~@2, ~@4 [d4,f4]@12 ~@4 f4@11 ~, ~@23 g3@35 ~@38]/4", // Em D#m C Am G Dm
  B: "[~@23 a#3@23 ~@2 f4@24, [g3,c4,e4]@47 [a3,c4]@25]/3", // C Am
  C: "[~@23 [g3,e4]@48 a3@23 ~ b3@23 ~@25 a#3@24 ~, ~@23 c4@71 ~ g3@72 ~, ~@71 [d4,f4]@48 [c4,e4]@48 ~]/7", // C Dm C
  D: "[[a3,c4,f4]@47 [c4,e4]@36 ~ [b3,d4,f4]@12 [c4,e4]@12 [a3,f4]@11 ~ [g3,e4]@3 ~@3 [g3,c4,e4]@6 [f3,a#3,d4]@5 ~ [a#3,c4]@6, ~@47 g3@59 ~@2 c4@15 ~@15 e3@4 ~@2]/6", // F C Bdim C Dm C A# A#sus2
  E: "[~ [a3,c4,f4]@46 ~@13 a3@13 ~@23 b3@46 ~@13 a3@11 ~@2 a#3@11 ~ [f3,a#3,d4]@6 [e3,a#3,c4]@6, ~@47 e4@48 [d4,f4]@48 ~@49, ~@48 g3@131 ~@13, ~@48 c4@47 ~@48 [c4,e4]@36 ~@13]/8", // F A# C7 Dm C
  F: "[[c4,f4]@47 g3@13 a3@12 ~@24 [b3,d4,f4]@47 [g3,c4]@11 ~@2 f4@12 [g3,e4]@11 ~ a#3@5 ~ [e3,c4]@5 ~, a3@45 ~@2 e4@49 ~@47 e4@12 ~@37, ~@47 c4@47 ~@61 c4@24 ~@6 a#3@5 ~@2, ~@72 g3@70 ~@13 a3@11 ~@13 [f3,d4]@6 ~@7]/8", // F5 Bdim C5 C Dm
  G: "[[a3,c4,f4]@47 g3@13 a3@12 [g3,c4]@22 ~ [d4,f4]@48 ~@13 a3@11 ~ a#3@11 ~ [f3,a#3,d4]@5 ~ e3@4 ~@2, ~@47 e4@48 b3@46 ~@2 [c4,e4]@36 ~@6 [a#3,c4]@5 ~@2, ~@47 c4@24 ~@24 g3@83 ~@14]/8", // F C5 Dm A# C A#sus2
  H: "[[a3,c4,f4]@47 ~ g3@12 a3@12, ~@47 e4@23 ~@2, ~@48 c4@23 ~]/3", I: "[[c4,e4]@23 [b3,d4,f4]@48 ~, g3@35 ~]/3",
  J: "[[g3,c4,e4]@12 [a3,c4,f4]@11 ~ [g3,c4]@11 [f3,a3]@10 ~@9 e3@31 ~@11, ~@23 e4@12 d#4@12 g3@5 ~@44, ~@24 [c3,a#3,c4]@19 ~@5]/4", // C F C5 F C7
})).s("gm_synth_strings_1").gain(0.35)

// chords · trumpet
const trumpet = note("<~ A@3 B C ~@15 D E@2 ~@13 D E@2 ~@14 F@2>".pickRestart({
  A: "[~@6 c5@6 e5@5 ~ a5@5 ~ g5@10 [a#4,f#5]@2 [a4,f5]@17 ~ g4@6 [f4,b4]@6 [b4,f5]@6, ~@23 b4@8 ~@41]/3", // D#m Dm Fdim Bdim
  B: "[c5,e5] ~ [c5,e5] ~ [c5,e5] ~ [c5,e5] ~ [c5,e5] ~ [c5,e5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [c5,f5,a5] ~ [c5,f5,a5] ~ [c5,f5,a5] ~", // C F
  C: "[b4,f5,g5] ~@5 f5@9 ~@9, ~@5 [b4,g5]@9 ~@10", D: "~@6 [g4,c5,e5]@6 [f4,a#4,d5]@5 ~ [e4,a#4,c5]@5 ~",
  E: "[[a4,c5]@13 ~@11]/2", F: "[[c4,g4,a#4,e5]@13 ~@11]/2",
})).s("gm_trumpet").gain(0.4).pan(0.7)

// chords · string ensemble 1 · "STRINGS"
const string_ensemble_1 = note("<~ A B@2 C@2 ~@15 D@5 E@8 F@2 G@6 H@2 I@8 J K L@2>".pickRestart({
  A: "~@6 c5@6 e5@7 a5@5", B: "[[b4,e5,g5]@5 [a#4,d#5,f#5] [a4,d5,f5]@9 g4@3 ~@3 d5@3, ~@5 b4@3, ~@3 f4]/2",
  C: "[[e4,g4]@4 a4@4 [g4,b4] ~ [g3,d4,f4,g4]@2 ~@4, c5 ~, ~@4 f4@5 ~@7]/2", // Em G G7
  D: "[~@6 [c6,e6]@6 [f5,d6]@6 e5@5 ~@25 a4@24 g4@12 a4@12 g4@22 [e4,a4]@2, ~@18 c6@15 f5@39 e5@46 ~@2, ~@24 a5@24 c5@71 ~]/5", // C Dm A5
  E: "[~@24 f4@22 ~@14 a4@11 [g4,a#4]@4 ~@4 [c6,e6]@5 [a#5,d6]@10 e5@2 ~@36 f4@12 g4@12 a4@12 g4@22 a4@2, g4@60 ~@36 a5@24 c5@71 ~, b4@47 ~@47 c6@13 ~@13 a4@23 ~ e4@46 ~@2, ~@18 d4@30 [c4,e4]@36 ~@22 f5@29 ~@57]/8", // Gm C A# C
  F: "[d4,f4,g4,b4]/2", // G7
  G: "[[e4,g4]@12 [f4,a4]@12 [e4,g4,c5]@3 ~@3 [c4,c6,e6]@6 [d4,a#5,d6]@6 ~ [e4,e5]@5 ~@24 a4@23 ~ g4@12 a4@12 ~@22 a4@2, c4@29 ~@19 f4@48 ~@24 g4@24, c5@24 ~@19 c6@15 f5@36 ~@2 e5@36 e4@12, ~@24 a5@11 ~@37, ~@33 c5@38 ~]/6", // Em F C Gm E
  H: "[~ f4@7, b4, [d4,g4]@23 ~]/2", // G5
  I: "[g4@12 a4@12 [g4,a#4]@4 ~@4 c4@4 [d4,a#5,d6]@6 [e4,e5]@6 ~@24 a4@23 ~ g4@12 a4@12 g4@11 ~ g4@10 a4@2 [d4,g4,b4]@48, e4@32 ~@16 f4@48 e4@47 ~ f4@46 ~@2, c5@28 ~@2 [c6,e6]@6 ~@6 c6@17 f5@37 e5@33 ~@3 c4@12 ~@48, ~@48 a5@23 ~ c5@73 ~@47]/8", // Gm E G C
  J: "[c4,e4]@5 ~ [c4,f4]@5 ~, c5@11 ~, g4 a4", K: "[c4,e4,g4,c5]@5 ~@19", L: "[~ [c3,g3,e4]@35 ~@12, a#3@17 ~@7]/2",
})).s("gm_string_ensemble_1").gain(0.3)

// chords · piano · "A.PIANO"
const piano = note(`<
  A ~ B C D E F G H@2 F@2 I J F K H@2 F L M N O@2 P@2 Q@2 R S T O U P Q@2 V W O X Y P Q@2 Z AA O@2 U Z Q@2 AB AC AD@2
>`.pickRestart({
  A: "c#-1", B: "[b3,e4,g4]@9 ~ [a#3,d#4,f#4] ~ [a3,d4,f4]@10 ~@2", C: "[g3,b3,d4,f4]@5 ~",
  D: "[g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~ [g3,c4,e4] ~ [a3,c4,f4] ~ [a3,c4,f4] ~ [a3,c4,f4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~ [c4,f4,a4] ~", // C F
  E: "[f4,g4] ~@5 [b3,d4,f4,g4]@14 ~@4, b3 ~@11", // Fsus2 G7
  F: "[g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~", // C
  G: "[g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~", // C C7
  H: "[a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~", // F
  I: "[a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~ [a4,c5,d5,f5] ~", // Dm7
  J: "[g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5]@13 ~@5", // G7
  K: "[g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~ [g4,a#4,c5,e5] ~", // C C7
  L: "[g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~ [g4,b4,d5,f5] ~", // C G7
  M: "[g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [g4,c5,e5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~ [a4,c5,f5] ~", // C F
  N: "[g4,c5,e5]@2 ~@4 [g5,c6,e6]@5 ~ [f5,a#5,d6]@5 ~ [e5,a#5,c6]@5 ~", // C A# C7
  O: "[f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~", // F
  P: "[e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~", // C
  Q: "[d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~ [d5,f5,g5,b5] ~", // G7
  R: "[e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,a5,c6] ~ [e5,g5,a5,c6] ~ [e5,g5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~", // C Am7 Am
  S: "[e5,g5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~", // C C7
  T: "[e5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~", // Am F
  U: "[e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~", // C Am
  V: "[e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~", // C F
  W: "[e5,g5,c6] ~@5 [g5,c6,e6]@4 ~@2 [a#5,d6]@5 ~ [e5,a#5,c6]@4 ~@2, ~@6 a5 ~@5 f5@3 ~@9", // C A# C7
  X: "[f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~", // F
  Y: "[e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~", // C Am
  Z: "[e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~ [e5,a5,c6] ~", // C Am
  AA: "[e5,f5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,g5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~ [e5,a#5,c6] ~", // C7
  AB: "[e5,g5,a#5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [e5,g5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~ [f5,a5,c6] ~", // C7 C F
  AC: "[c5,e5,g5,c6] ~@11", // C
  AD: "[~@3 a#3 [e4,g4] [a#3,e4] [g3,a#3,g4] [c3,e4,g4] [g3,a#3] [c3,g3,a#3,e4,g4] [e4,g4] [c3,g3,a#3] [c3,e4,g4] [g3,a#3,e4,g4] [c3,a#3] [g3,e4,g4] [c3,g3,a#3] [c3,e4,g4] [g3,a#3,e4,g4] [c3,a#3] [g3,g4] [c3,a#3] [g3,g4] ~ [e4,g4] ~ [g3,g4] a#3 [e4,g4] ~ [e4,g4]@11 ~@7, [a#3,g4]@3 ~ c3@2 ~@14 e4@2 e4@2 g3@2 e4@2 ~ a#3@12 ~@7, ~ [c3,g3,e4]@4 ~@18 [c3,a#3]@2 [c3,a#3]@2 ~ c3@10 ~@10, ~@29 g3@8 ~@11]/2", // Em A#dim Gm C Gm C7 Em C7 …
})).s("gm_piano").gain(0.25).pan(0.3)

// drums · kick
const kick = s("bd").struct("<~@2 A@3 B A@7 B A@7 C A@15 C A@15 D@2 ~>".pickRestart({
  A: "x ~@4 x!2 ~@5", B: "x!2 ~@2", C: "x!4", D: "x",
})).gain(0.5)

// drums · rim
const rim = s("rim").struct("<~@6 [~ x ~ x]!7 [~ x ~@2] [~ x ~ x]!7 ~@35>").gain(0.5)

// drums · snare
const snare = s("sd").struct("<~@2 A@2 B ~@17 A@7 C A@7 D A@7 E A@6 F ~@3>".pickRestart({
  A: "~ x ~ x", B: "~@3 x ~@5 x ~ x", C: "~@3 x ~@4 x!2 ~ x", D: "~ x ~@2", E: "~@2 x!2 ~ x ~@2 x!4",
  F: "~@3 x ~@4 x!4",
})).gain(0.5)

// drums · low tom
const low_tom = s("lt").struct("<~@5 A ~@7 B ~@7 C ~@15 C ~@18>".pickRestart({
  A: "~@3 x ~@7 x", B: "~@11 x", C: "~@9 x!3",
})).gain(0.3)

// drums · hihat
const hihat = s("hh").struct("<~@2 [x!12]!3 [x!2 ~@2] [x!12]!7 [x!4 ~@7 x] [x!12]!7 [x!4] ~@34>").gain(0.25)

// drums · mid tom
const mid_tom = s("mt").struct("<~@5 A ~@7 A ~@7 B ~@15 B ~@18>".pickRestart({
  A: "~@5 x", B: "~@6 x!3 ~@3",
})).gain(0.3)

// drums · high tom
const high_tom = s("ht").struct("<~@5 A ~@7 B ~@7 C ~@15 D ~@18>".pickRestart({
  A: "~@7 x!3 ~@2", B: "~@7 x ~ x ~@2", C: "~@3 x!3 ~@6", D: "~@2 x!4 ~@6",
})).gain(0.3)

// drums · crash
const crash = s("cr").struct("<~@2 A ~@2 B A ~@6 B A ~@7 A ~@7 A ~@7 A ~@7 A ~@6 A ~@2>".pickRestart({
  A: "x", B: "~ x ~@2",
})).gain(0.3)

// drums · ride
const ride = s("rd").struct("<~@22 A B A C A B A@3 B A B A B D A@3 B@4 A E A B@2 A B@2 A F@2 ~>".pickRestart({
  A: "x!12", B: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~", C: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!3 ~",
  D: "x ~ x!3 ~ x ~ x ~ x ~ x ~ x!3 ~ x ~ x ~ x ~", E: "x ~ x ~ x ~ x ~ x ~ x ~ x ~ x!3 ~ x ~ x ~ x ~", F: "x",
})).gain(0.2)

stack(
  bass, synth_strings_1, trumpet, string_ensemble_1, piano, kick, rim, snare, low_tom, hihat, mid_tom, high_tom, crash,
  ride
)