// Back at One — Brian McKnight
// 67.1 bpm, 4/4, key B major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: duplicate parts dropped: ch 13 acoustic guitar steel (copy of ch 4 epiano1)
// note: Full arrangement: all 56 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(67.1/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 · acoustic bass
const bass = note(`<
  ~ A B C D E B F G H I A B C D E J H I ~ A B C D E B K G H I A B C D E J H I L M N M O P Q R S A B C D E J H I T
>`.pickRestart({
  A: "b2@3 b2@5", B: "g#2@5 ~ g#2@10", C: "e2@5 ~ e2@10", D: "c#2@6 ~ c#2@2 d#2@2 e2@2 f#2@3", E: "b2@5 ~ b2@10",
  F: "a2@6 g#2@7 a2 g#2 [g2,g#2,a2]", G: "~@6 f3 f#3 f3 c#3 g#2@5 ~, f#2", H: "a2@3 g#2@5", I: "f#2@15 ~",
  J: "g#2@5 ~ g#2@9 f#2", K: "a2@6 g#2@7 a2 g#2 g2", L: "~@3 f#1", M: "d#1@5 ~ d#1@8 c#1 d#1",
  N: "e1@5 ~ e1@5 ~ e1 f#1 e1 ~", O: "g#1@7 ~ g#1@2 ~ b1 c2@2 c2@2, ~@5 a#1 ~@2", P: "c#2@5 ~ c#2@10",
  Q: "d#2@3 f#2@2 g#2 b1@9 a#1, c#2 ~@15", R: "c#2@5 ~ c#2@9 d#2", S: "f#2@7 c#2 g2@8", T: "b2",
})).s("gm_acoustic_bass").gain(0.41)

// chords · piano
const piano = note("<A@7 B C B C D@6 E F A@7 B C B C D@6 E F ~ G@4 H@2 I J D@6 E F ~>".pickRestart({
  A: "[~@21 f#3 [d#3,f#3,b3]@3 ~ d#3 [d#3,f#3,b3]@2 ~@7 d#3 f#3 [d#3,f#3,b3]@3 ~ d#3 [d#3,f#3,b3]@2 g#2 d#3 ~@5 d#3 g#3 [e3,g#3,b3]@3 ~ e3 [e3,g#3,b3]@2 ~ e3 ~@2 f#1 g#1 ~ e3 g#3 [e3,g#3] [c#1,c#2,e3,b3] ~ [d#1,d#2,d#3,b3] ~ [e1,e2,e3,g#3] ~ [f#1,f#2]@2 ~ b1 d#2 ~@2 d#3 f#3 [d#3,f#3,b3]@3 ~ d#3 [d#3,f#3,b3]@2 ~ d#3 d#2 ~ c#2 ~@2 d#3 f#3 [d#3,f#3,b3]@3 ~ [d#3,f#3] [d#3,f#3,b3]@2 ~ [d#3,b3] f#3, ~@15 d#3@3 f#2@12 d#3@4 d#2@13 d#3@3 b1@13 ~@14 e3@3 ~@2 f#2@2 ~@5 [f#2,b2]@4 [f#2,b2]@2 [d#3,f#3,b3]@5 c#2@10 ~@2, ~@16 b1@15 ~ g#1@14 ~@2 e1@15 ~ c#1@2 ~ [c#1,c#2]@3 ~@29 g#2@5 ~ g#2@3 ~ g#2@2 ~, ~@17 d#2@15 ~ c#2@14 ~@2 g#1@2 e2@5 ~ e2@3 ~ e2@2 [e3,g#3,b3]@5 ~@3 g#3@2 f#3@2 b3@2 [g#3,b3]@6 b2@5 ~@3 d#2 ~@6 d#2@14, ~@19 b2 d#3@2 ~@3 b2@3 ~ b2@2 [f#3,b3]@4 g#2@5 ~ g#2@3 ~@3 [f#3,b3]@6 g#1@11 ~@20 b1@11 ~ g#1@14 ~@2]/7", // B E C#m7 G#m E F# B D#m …
  B: "[a2,a3,b3]@3 ~ a2 e3 [e3,g#3,b3]@3 ~@5 g#3 [c#2,g#3,b3], [a1,e3]@5 ~ g#1@8 ~@2, ~@3 [a3,b3]@3 g#2@2 ~ g#2@2 [g#3,b3]@2 e3@3, ~@5 e3 g#2 ~", // Asus2 E C#7 A5 Asus2 G#m
  C: "~@4 d#3 f#3 [d#3,f#3,b3]@6 [f#1,f#2,d#3,f#3,b3]@3 ~, f#1@3 ~, ~@3 f#2@9 ~@4", // B
  D: "[~@5 f#3 [d#3,f#3,b3]@3 ~ d#3 [d#3,f#3,b3]@2 ~@7 d#3 f#3 [d#3,f#3,b3]@3 ~ d#3 [d#3,f#3,b3]@2 g#2 d#3 ~@5 d#3 g#3 [e3,g#3,b3]@3 ~ e3 [e3,g#3,b3]@2 ~ e3 ~@2 f#1 g#1 ~ e3 g#3 [e3,g#3] [c#1,c#2,e3,b3] ~ [d#1,d#2,d#3,b3] ~ [e1,e2,e3,g#3] ~ [f#1,f#2]@2 ~ b1 d#2 ~@2 d#3 f#3 [d#3,f#3,b3]@3 ~ d#3 [d#3,f#3,b3]@2 ~ d#3 d#2 ~ c#2 ~@2 d#3 f#3 [d#3,f#3,b3]@3 ~ [d#3,f#3] [d#3,f#3,b3]@2 ~ [d#3,b3] f#3, b1@14 d#3@4 d#2@13 d#3@3 b1@13 ~@14 e3@3 ~@2 f#2@2 ~@5 [f#2,b2]@4 [f#2,b2]@2 [d#3,f#3,b3]@5 c#2@10 ~@2, ~ d#2@15 g#1@14 ~@2 e1@15 ~ c#1@2 ~ [c#1,c#2]@3 ~@29 g#2@5 ~ g#2@3 ~ g#2@2 ~, ~@2 f#2@13 ~@2 c#2@14 ~@2 g#1@2 e2@5 ~ e2@3 ~ e2@2 [e3,g#3,b3]@5 ~@3 g#3@2 f#3@2 b3@2 [g#3,b3]@6 b2@5 ~@3 d#2 ~@6 d#2@14, ~@3 b2 d#3@2 ~@3 b2@3 ~ b2@2 [f#3,b3]@4 g#2@5 ~ g#2@3 ~@3 [f#3,b3]@6 g#1@11 ~@20 b1@11 ~ g#1@14 ~@2]/6", // B E C#m7 G#m E F# B D#m …
  E: "[a2,e3,a3,b3]@3 e3 a2 e3 [g#2,e3,g#3,b3]@3 ~@2 g#2@2 [e3,b3] g#2 [e3,g#3,b3], a1@5 ~ g#1@9 ~, ~@3 [a3,b3]@3 ~@3 g#2@2 ~@5, ~@10 [e3,g#3,b3]@3 g#3@2 ~", // Asus2 E E5 E Asus2 E
  F: "~@6 g#2 f#2 b3@7 ~, f#1, [f#3,b3]@4 d#3@2 g#3@9 ~, ~@3 f#2@2 f#3@10 ~, ~@7 g#2@9", // B5
  G: "[d#1 g#1 a#1 d#2@3 [b2,d#3,f#3]@3 ~@2 [d#3,f#3]@2 ~ [b2,d#3,f#3] ~ e1 g#1 b1 ~ b2@2 [b2,e3,g#3]@5 e2 [b2,e3,g#3]@2 e2 g#1 d#1 g#1 a#1 d#2@2 d#1 [b2,d#3,f#3]@5 d#2 ~@4 g#1 c#2 d#2 g#2 g#1 g#2 [d#3,g#3,b3]@3 ~@2 g#2 [e3,g#3,b3]@4, ~@9 d#2@3 ~ d#2@2 ~@4 e2@4 ~@41, ~@10 b2@3 ~@2 [b2,d#3,f#3]@5 ~@11 [b2,e3,g#3]@5 ~@8 [b2,d#3,f#3]@8 ~@12]/4", // B D#m B E B G#m E B …
  H: "[g#1 ~@4 c#2 [c#3,e3,g#3]@6 [c#3,e3] c#2 ~ [c#3,e3] c#2 ~@4 c#3 [d#3,f#3,b3]@5 c#3 [d#3,f#3,b3]@2 c#3 [d#3,f#3,b3], ~@12 g#3@2 ~ g#3@2 ~@15]/2", // C#m B
  I: "c#2@5 a#2 [c#3,e3,g#3]@9 ~", J: "a#2 ~@7 [d#3,f#3,a#3,c#4]@4 [e3,g3,a#3,c#4,e4]@4",
})).s("gm_piano").gain(0.36)

// chords · string ensemble 1
const string_ensemble_1 = note(`<
  ~@11 A B@2 C A D E@3 ~@3 F G H I J K L A B@2 C A D E@3 M N O P Q R S T A B@2 C A D U@3
>`.pickRestart({
  A: "~@3 b4 a#4@2 g#4@2, b5", B: "[f#5 c#5, f#4]/2", C: "c#6@3 d#6, c#4", D: "[f#4,f#5]",
  E: "[c#4@8 ~@12 b5 f#5 d#6@2, f#6@31 ~@17, ~@16 c#6@31 ~]/3", F: "~@7 f#4@2 g#4@2 a#4@2 ~ c#5 d#5, ~@13 b4@2 ~",
  G: "f#5@3 c#6", H: "d#6@2 d#6 c#6", I: "b5", J: "f#5@15 d#5", K: "a5@5 ~ g#5@10", L: "f#5", M: "~@3 b5@5",
  N: "f#5@7 ~ f#5@2 e5 d#5 c#5@4", O: "b4@2 ~ b5@3 c#6 d#6", P: "e6@8 ~@6 d#6 f#6, ~@8 d#6@5 c#6@2 ~, ~@6 b5 ~",
  Q: "~@5 b6 a#6 g#6, g#6@13 ~@3", R: "f#6@7 ~", S: "e6 e6@8 ~ e6@2 d#6@2 c#6 ~", T: "[f#5,f#6]@7 ~ [g5,g6]@8",
  U: "[c#4@16 c#6@31 ~, f#6@31 ~@17]/3",
})).s("gm_string_ensemble_1").gain(0.31)

// drums · kick
const kick = s("bd").struct(`<
  ~ A B A C A B A C A B A B A C A B A B ~ A B A C A B A C A B A B A C A B A B ~ A B A C A B A C A B A C A B A B ~
>`.pickRestart({
  A: "x ~@2 x ~@4", B: "x ~@5 x ~@8 x", C: "x ~@5 x ~@4 x ~ x ~ x",
})).gain(0.46)

// drums · snare
const snare = s("sd").struct("<~ [~ x ~ x]!18 ~ [~ x ~ x]!18 ~ [~ x ~ x]!16 ~>").gain(0.46)

// drums · hihat
const hihat = s("hh").struct("<~ [x!16]!18 x [x!16]!18 x [x!16]!16 x>").gain(0.31)

// drums · mid tom
const mid_tom = s("mt").struct("<~@46 [~@3 x ~@3 x] ~@9>").gain(0.51)

// drums · open hat
const open_hat = s("oh").struct("<~@4 A ~@3 A ~@5 A ~@8 A ~@3 A ~@5 A ~@8 A ~@3 A ~@3 A ~@5>".pickRestart({
  A: "~@15 x",
})).gain(0.51)

// drums · crash
const crash = s("cr").struct("<~@11 x ~@18 x ~@16 x ~@8>").gain(0.46)

// drums · shaker
const shaker = s("sh").struct("<~ [x!8]!18 x [x!8]!18 x [x!8]!16 x>").gain(0.26)

stack(bass, piano, string_ensemble_1, kick, snare, hihat, mid_tom, open_hat, crash, shaker)