// Reach Out I'll Be There — Four Tops
// 122 bpm, 4/4, key E minor. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: Full arrangement: all 97 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(122/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 · fretless bass · "Bass"
const bass = note(`<
  ~ A B C D A B E F G H I H I H J@2 K@2 L M N O P Q R S T U V W X Y Z AA I AB AC AD I H I AE L AF N O AG AH AI W AJ AK
  AL W AM AN AO AP AQ T AR@2 AS AT Z H I H Z H AU H Z AE L AF N O AV AW AX AY AO AT AZ BA BB BC BD BE BB BF BG BH BI BJ
>`.pickRestart({
  A: "e2 ~ e2 ~ e2 ~ e2 b1 e2 ~ e2 ~ e2 ~ e2 b1", B: "e2 ~ e2 ~ e2 ~ e2 b1 e2 ~ e2 ~ e2 ~ e2 f#2",
  C: "b1 ~ b1 ~ b1 ~ b1 f#2 b2 ~ b2 ~ b2 ~ b2 f#2", D: "b1 ~ b1 ~ b1 ~ b1 f#2 b2 ~ b2 ~ b2@2 b1 f#2",
  E: "b1 ~ b1 ~ b1 ~@2 f#2 b2 ~ b2 ~ b2 ~ b2 f#2, ~@3 b1 ~@4", F: "b1 ~ b1 ~ b1 ~ b1 f#2 b2 ~ b2 ~ b2 f#2 b1 ~",
  G: "a1@3 ~ a1@3 a1!2 ~ a1@2 c2@2 d2 ~", H: "d2@3 ~ d2@3 a1 d2 ~ d2@2 c2@2 g1@2",
  I: "a1@3 ~ a1@3 g1 a1 ~ a1@2 c2@2 d2@2", J: "[a1@3 ~ a1@3 g1 a1 ~ a1@2 c2@2 d2@5 ~ d2@3 a1 d2 ~ d2@2 c2@2 g1@2]/2",
  K: "[a1@3 ~ a1@3 g1 a1 ~ a1@2 c2@2 d2@5 ~ d2@3 a1 d2 ~ d2@3 ~ d2@2]/2", L: "b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 ~ b1 a1",
  M: "g1@2 g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1@2", N: "d#2 ~ d#2 ~ d#2 ~ d#2 ~ d#2 ~ d#2 ~ d#2 ~ d#2 e2",
  O: "f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2 ~ f#2@2 c#2@2 f#2 c#2", P: "f#1 ~ f#1 ~ f#1@2 c#2 f#1 f#2 ~ f#2 ~ f#2 c#2 f#1@2",
  Q: "b1@2 ~@2 b1@3 ~ b1@3 ~ b1@2 f#2@2", R: "b2@2 ~@2 b2@3 f#2 b1 ~ b1 ~ b1@2 f#2@2",
  S: "e2@2 ~@2 e2@2 ~@2 e2@2 ~@2 e2 ~ e2 f#2", T: "b1@2 ~@2 b1@3 f#2 b2 ~ b2 ~ b2@2 f#2@2",
  U: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 b1@2 f#2@2", V: "b1@2 ~@2 b1@2 ~ f#2 b2 ~ b2@2 b1@2 b2@2",
  W: "e2@2 ~@2 e2@2 ~@2 e2 ~ e2@4 f#2@2", X: "b1@3 ~ b1@2 ~ b2 b1 ~ b1@3 ~ b1 ~",
  Y: "b1 ~ b1 ~ b1@3 f#2 b2 ~ b2@2 f#2 ~ b1 ~", Z: "a1@3 ~ a1@3 g1 a1 ~ a1@2 c2@2 d2 ~",
  AA: "d2@3 ~ d2@3 a1 d2 ~ d2@2 c2@2 g1 ~", AB: "d2@3 ~ d2@2 ~ a1 d2 ~ d2@2 c2@2 g1 ~",
  AC: "a1@2 ~@2 a1@3 g1 a1 ~ a1 ~ c2@2 d2@2", AD: "d2@2 ~@2 d2@3 a1 d2 ~ d2@2 c2@2 g1@2",
  AE: "d2@3 ~ d2@3 a1 d2 ~ d2@3 ~ d2@2", AF: "g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1 ~ g1@2",
  AG: "f#1 ~ f#1@2 c#2@2 f#1 c#2 f#2 ~ f#2 ~ f#2 c#2 f#1@2", AH: "b1@2 ~@2 b1@3 ~ b1 ~ b1 ~ b1@2 f#2 ~",
  AI: "b2@2 ~@2 b2@3 f#2 b1 ~ b1 ~ b1@2 f#2 ~", AJ: "b1@2 ~@2 b1@3 f#2 b2 ~ b2 ~ b2 f#2 b1 ~",
  AK: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 f#2@2 b1 ~", AL: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 b1@2 b2@2",
  AM: "b1@3 ~ b1@3 e2 b2 ~ b2 ~ b2 f#2 b1 ~", AN: "b1@3 ~ b1@2 ~ f#2 b2 ~ b2@2 f#2@2 b2 ~",
  AO: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@4 f#2@2", AP: "b1@2 ~@2 b1@3 b2 b1 ~ b1@2 b2@2 b1@2",
  AQ: "e2@2 ~@2 e2@2 ~@2 e2 ~ e2@2 e2@2 f#2@2",
  AR: "[b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 f#2@2 b1@4 ~@2 b1@2 ~ f#2 b2 ~ b2@2 f#2@2 b1@2]/2",
  AS: "e2@2 ~@2 e2@2 ~@2 e2 ~ e2@2 b1@2 e2@2", AT: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 f#2 ~ b1 ~",
  AU: "a1@3 ~ a1@3 g1 a1 ~ a1 ~ c2@2 d2 ~", AV: "f#1 ~ f#1@2 c#2@2 f#1 f#2 f#1 ~ f#1@2 g#1@2 a#1@2",
  AW: "b1@2 ~@2 b1@2 ~@2 b1 ~ b1 ~ b1@2 f#2@2", AX: "b2@2 ~@2 b2@3 f#2 b1 ~ b1@2 b2@2 b1@2",
  AY: "e2@2 ~@2 e2@2 ~@2 e2 ~@3 b1 ~ f#2@2, ~@5 e2@2 ~", AZ: "b1@2 ~@2 b1@2 ~ f#2 b1 ~ b1@2 b2@2 b1 ~",
  BA: "e2@2 ~@2 e2@3 ~ e2 ~ e2@2 b1@2 e2@2", BB: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 f#2@2 b2@2",
  BC: "b1@2 ~@2 b1@3 f#2 b2 ~ b2@2 b1@2 f#2 ~", BD: "b1@3 ~ b1@3 f#2 b2 ~ b2@2 b1@2 f#2@2",
  BE: "e2@2 ~@2 e2@3 ~ e2 ~ e2@4 f#2@2", BF: "b1@3 ~ b1@3 f#2 b2 ~ b2@2 f#2 ~ b1 ~",
  BG: "b1@2 ~@2 b1@3 b2 b1 ~ b1@2 b2@2 b1 ~", BH: "e2@2 ~@2 e2@3 e2!2 ~ e2 ~ e2@2 f#2@2",
  BI: "b1@2 ~@2 b1@3 ~ b1@2 ~ b1 f#1@2 a1@2", BJ: "b1 ~ b1 ~ b1 ~@11",
})).s("gm_fretless_bass").gain(0.4)

// chords · electric guitar clean · "Guitar"
const electric_guitar_clean = note(`<
  ~ A B C@2 D B E F G@2 H@4 I@2 J@2 K@2 L@2 ~ M N@2 M@2 N@2 M O P@2 H@6 Q@2 R@2 S T ~ M N@2 M@2 N@2 M U M N@2 M@2 N@2 V
  W@2 X@2 Q@4 Y@2 Z@2 AA AB ~ M N@2 M@2 N@2 V M N@2 M@2 N@2 V AC
>`.pickRestart({
  A: "[b3,e4,a4]@3 [b3,e4,g4] [b3,e4,g4]@3 ~", // Esus4 Em
  B: "[b3,e4,a4]@5 ~ [b3,e4,g4] ~ g4@3 f#4@3 e4@2, ~@8 b3@7 ~, ~@8 e4@5 ~@3", C: "[~@2 f#4@13 ~, [b3,d#4]@15 ~]/2",
  D: "[b3,e4,a4]@6 [b3,e4,g4] ~ [b3,e4,g4]@6 ~@2", E: "~@4 f#4@11 ~, [b3,d#4]@15 ~",
  F: "[b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4]@2 ~@2 [b3,d#4,f#4] ~ [b3,d#4,f#4]@2 ~@2 b3 ~", // B
  G: "[[c4,e4,g4]@8 ~@2 [b3,d4,g4]@3 ~ [a3,d4,f#4]@11 ~ [d4,f#4]@4 a3 ~, ~@26 a3@3 ~@3]/2", // C G D
  H: "[[c4,e4,g4]@9 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@11 ~ [d4,f#4]@4 a3 ~, ~@26 a3@3 ~@3]/2", // C G D
  I: "[[c4,e4,g4]@9 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@10 ~@2 [a3,d4,f#4]@4 a3 ~]/2", // C G D
  J: "[[c4,e4,g4]@9 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@13 ~ [a3,d4,f#4]@2 ~@2]/2", // C G D
  K: "[[b3,d4,g4]@7 ~ d4@2 [b3,d4]@4 ~@2 [b3,d4]@2 [b3,d4]@2 ~@4 [b3,d4]@2 [b3,d4]@2 ~@4, ~@8 g4@23 ~, ~@8 b3 ~@23]/2", // G Bm
  L: "[[a3,d#4,f#4]@2 [d#4,f#4]@3 ~@3 [d#4,f#4] ~@4 a3 ~@2 [c4,d#4,f#4] ~@3 a3 ~@3 [c4,d#4,f#4] ~@7, ~ a3@5 ~ a3@3 ~ a3@2 ~@3, ~@10 [d#4,f#4]@5 ~@3 [c4,d#4,f#4]@5 ~@9]/2", // D#dim D#m Cdim D#m Cdim
  M: "[b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~@3", // B
  N: "[b3,e4,g4] ~@3 [b3,e4,g4] ~@3 [b3,e4,g4] ~@3 [b3,e4,g4] ~@3", // Em
  O: "[b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~ [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~", // B
  P: "[[c4,e4,g4]@3 ~ [c4,e4,g4]@4 ~@2 [b3,d4,g4]@3 ~ [a3,d4,f#4]@11 ~ [d4,f#4]@4 a3 ~, ~@26 a3@3 ~@3]/2", // C G D
  Q: "[[c4,e4,g4]@9 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@13 ~ [a3,d4,f#4]@3 ~]/2", // C G D
  R: "[[b3,d4]@2 ~@2 [b3,d4]@2 ~@2 [b3,d4] ~ [b3,d4] ~ [b3,d4] ~@3 [b3,d4] ~ [b3,d4] ~ [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3, g4]/2", // Bm
  S: "[a3,d#4,f#4]@3 ~ [a3,d#4,f#4]@2 ~@2 [a3,d#4,f#4]@2 a3 ~ [a3,d#4,f#4]@2 a3 ~", // D#dim
  T: "[a3,c4,d#4,f#4]@2 [a3,c4,d#4,f#4] ~ [a3,c4,d#4,f#4] ~ [a3,c4,d#4,f#4] ~ [a3,c4,d#4,f#4] ~@7", // Adim
  U: "[b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~@3", // B
  V: "[b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~@3 [b3,d#4,f#4] ~ [b3,d#4,f#4] ~ [b3,d#4,f#4] ~@3", // B
  W: "[[c4,e4,g4]@8 ~@2 [b3,d4,g4]@3 ~ [a3,d4,f#4]@13 ~ [a3,d4,f#4]@3 ~]/2", // C G D
  X: "[[c4,e4,g4]@9 ~ [b3,d4,g4]@3 ~ [a3,d4,f#4]@12 ~@2 [a3,d4,f#4]@3 ~]/2", // C G D
  Y: "[[c4,e4,g4]@8 ~@2 [b3,d4,g4]@3 ~ [a3,d4,f#4]@13 ~ [a3,d4,f#4]@2 ~@2]/2", // C G D
  Z: "[[b3,d4]@2 ~@2 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3 [b3,d4] ~@3, g4@28 g4@3 ~]/2", // Bm
  AA: "[d#4,f#4]@3 ~ [d#4,f#4]@3 ~ [d#4,f#4]@2 a3 ~ [d#4,f#4]@2 a3 ~, a3@10 ~@2 a3 ~@3", // D#m
  AB: "[a3,c4,d#4,f#4]@2 ~@2 [a3,c4,d#4,f#4]@2 [a3,c4,d#4,f#4] ~ [a3,c4,d#4,f#4] ~@7", // Adim
  AC: "[b2,f#3,b3] ~ [b2,f#3,b3] ~ [b2,f#3,b3] ~@11", // B5
})).s("gm_electric_guitar_clean").gain(0.4).pan(0.8)

// other · piccolo · "Flute"
const piccolo = note(`<
  ~ A B C@2 D E F@2 ~@10 G@2 H I ~ J@2 K L J@2 K M ~@11 N@2 H I ~ J@2 K L J@2 K M ~ J@2 K O P@2 K L ~@10 Q@2 R I ~ J@2 K
  O J@2 K L J@2 K O J@2 K M ~
>`.pickRestart({
  A: "a6@6 g6@2 g6@7 ~, e5", B: "[e5,a6]@6 e5@2 g6@3 f#6@3 e6@2, ~@6 g6 ~ e5@8", C: "[[b4,d#6]@2 [d#5,f#6]@13 ~]/2",
  D: "[e5,a6]@6 g6@2 [e5,g6]@7 ~, ~@6 e5 ~@9", E: "[e5,a6]@5 ~ [e5,g6] ~ [e5,g6]@3 f#6@3 e6@2, ~@11 e5@5",
  F: "[d#6@2 [d#5,f#6]@13 ~, b4@3 ~@13]/2", G: "[[g5,b5]@2 [g5,b5]@29 ~]/2", H: "[f#5,c6] [f#5,b5]@7",
  I: "[f#5,c6]@5 ~@3", J: "[[f#5,f#6]@12 [b5,b6]@2 [e5,e6]@15 ~ [e5,e6]@2]/2",
  K: "[a5,a6]@2 [g5,g6]@2 [f#5,f#6] [e5,e6]@3", L: "[d#5,d#6]@2 [f#5,f#6]@13 ~", M: "[d#5,d#6] [f#5,f#6]@7",
  N: "[[g5,b5] ~ [g5,b5]@29 ~]/2", O: "[d#5,d#6] [f#5,f#6]@6 ~", P: "[[f#5,f#6]@6 [b5,b6] [e5,e6]@7 ~ [e5,e6]]/2",
  Q: "[[g5,b5] ~ [g5,b5]@30]/2", R: "c6 [f#5,b5]@7, f#5 ~@15",
})).s("gm_piccolo").gain(0.4).pan(0.2)

// chords · percussive organ · "Organ"
const percussive_organ = note(`<
  ~@9 A@2 B@2 C@2 D@2 E@4 F@2 ~ G@7 H@2 A@2 I@2 J@2 B@2 K@4 L@2 ~ M@3 N@4 H@2 O@7 P I@2 Q@2 R@2 S@2 T@2 U@2 F@2 ~ V@3
  W@4 X@4 Y@4 P Z
>`.pickRestart({
  A: "[[g5,c6,e6]@5 [g5,b5]@2 [f#5,a5]@9, ~@5 d6@11]/2", B: "[[g5,c6,e6]@10 [g5,b5]@3 ~ [f#5,a5]@18, ~@10 d6@21 ~]/2",
  C: "[[c6,e6]@10 b5@3 ~ [f#5,a5]@18, g5@7 ~@9, ~@5 d6@11]/2", // C F#m
  D: "[[c6,e6]@10 b5@3 ~ [f#5,a5]@18, g5@13 ~@19, ~@5 d6@11]/2", // C F#m
  E: "[[g5,c6,e6]@10 [g5,b5]@3 ~ [f#5,a5]@17 ~ [g5,b5]@32, ~@10 d6@53 ~]/4", // C G F#m G
  F: "[~@16 c6@9 ~@7, [f#5,a5,d#6]@25 ~@7]/2", // D#dim
  G: "[[f#5,d#6] ~@2 [f#5,d#6]@2 [g5,e6]@2, b5@32 b5@79 ~, ~@16 [g5,e6]@33 ~@63]/7", H: "[f#5,b5,d#6]/2",
  I: "[[g5,c6,e6]@10 [g5,b5]@3 ~ [f#5,a5]@18, ~@5 d6@11]/2", J: "[[g5,c6,e6]@5 [g5,b5,d6]@2 [f#5,a5,d6]@9]/2",
  K: "[[g5,c6,e6]@10 [g5,b5]@3 ~ [f#5,a5]@17 ~ [g5,b5]@32, ~@5 d6@27]/4", L: "[~@16 c6@9 ~@7, [f#5,a5,d#6]@13 ~@3]/2",
  M: "[[f#5,d#6] [g5,e6]@2, b5@47 ~]/3", N: "[[f#5,d#6] [g5,e6], b5]/4",
  O: "[d#6@16 [g5,e6]@32 [f#5,d#6]@32 [g5,e6]@31 ~, b5@111 ~]/7", P: "[f#5,b5,d#6]",
  Q: "[[g5,c6,e6]@9 ~ [g5,b5]@3 ~ [f#5,a5]@18, ~@10 d6@21 ~]/2", // C G F#m
  R: "[[g5,c6,e6]@10 [g5,b5]@4 [f#5,a5]@17 ~, ~@5 d6@11]/2", S: "[[c6,e6]@10 [b5,d6]@3 ~ [f#5,a5,d6]@18, g5@7 ~@9]/2",
  T: "[[g5,c6,e6]@9 ~ [g5,b5,d6]@3 ~ [f#5,a5,d6]@18]/2", U: "[g5,b5,d6]/2", V: "[[f#5,d#6] [g5,e6]@2, b5]/3",
  W: "[[f#5,d#6]@32 [g5,e6]@31 ~, b5@63 ~]/4", X: "[[f#5,d#6]@32 g5@15 ~ [g5,b5]@16, b5@3 ~, ~ e6]/4",
  Y: "[[f#5,d#6]@32 e6@15 ~ [b5,e6]@15 ~, b5@47 ~@17, ~@16 g5@15 ~]/4", Z: "b4 ~ b4 ~ b4 ~@11",
})).s("gm_percussive_organ").gain(0.24).pan(0.3)

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

// drums · rim
const rim = s("rim").struct(`<
  ~@3
  [~@2 x!3 ~ x!3 ~ x!3 ~ x!2]
  [x ~ x!3 ~ x!3 ~ x!3 ~ x!2]!4
  [x ~ x!3 ~ x!3 ~ x!3 ~@3]
  ~@88
>`).gain(0.35)

// drums · snare
const snare = s("sd").struct(`<
  ~@8 A B@13 C ~ B@3 D B@3 D@2 B@13 C ~ B@3 D B@3 D@2 B@7 D B@13 C ~ B@3 D B@3 D B@3 D B@3 D ~
>`.pickRestart({
  A: "~@5 x!2 ~", B: "x!4", C: "x!3 ~", D: "x ~ x ~ x!3 ~",
})).gain(0.4)

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

// drums · low tom
const low_tom = s("lt").struct(`<
  ~@8 A ~@14 A ~@3 A ~@3 A@2 ~@14 A ~@3 A ~@3 A@2 ~@3 A ~@3 A ~@14 A ~@3 A ~@3 A ~@3 A ~@3 A ~
>`.pickRestart({
  A: "~@7 x",
})).gain(0.35)

// drums · mid tom
const mid_tom = s("mt").struct(`<
  ~@8 A ~@18 A ~@3 A@2 ~@18 A ~@3 A@2 ~@3 A ~@3 A ~@18 A ~@3 A ~@3 A ~@3 A ~
>`.pickRestart({
  A: "~@13 x ~@2",
})).gain(0.35)

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

// drums · tambourine
const tambourine = s("tb").struct("<~@9 [x!16]!87 ~>").gain(0.25)

stack(
  bass, electric_guitar_clean, piccolo, percussive_organ, kick, rim, snare, hihat, low_tom, mid_tom, crash, tambourine
)