// Soul Man — Sam & Dave
// 114 bpm, 4/4, key G major. Source: midi.
// Generated by strudelify. One cycle = one bar.
// note: pitch bends are ignored
// note: sustain pedal (CC 64) lengthens the held notes
// note: Full arrangement: all 79 bars on a 16-step grid, each part at one level. Source detail keeps the original performance.
setcpm(114/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.

// chords · electric guitar jazz · "JAZZ GTR"
const electric_guitar_jazz = note(`<
  A B C D E F G H I J K L@2 M N J O P Q R S T@2 U I J K L@2 M N J V P Q R S W@2 U I J K L@2 M N J X Y Z ~ AA AB AC AD AE
  AF AG AH AI AJ AK AL AM AN AO AP AQ@2 AR AS AO AN AO AP AQ AT ~
>`.pickRestart({
  A: "c4 c#4 ~@12 d4@2, ~ d4@13 ~@2, ~ b4@7", B: "[d4,b4] [c4,c#4,a#4] a4 c4@3 ~@2 a4@7 ~, ~@3 a4@5 ~@8, ~@3 c4@4 ~",
  C: "e4 ~@13 f4@2, ~ f4@12 ~@3, ~ d5@7", D: "f4 f#4 ~@4 g4@2 g4 g#4 f#5@6, ~ g4@5 ~@3 a4@7, ~@2 e5@7 ~@7",
  E: "[b3,d4,g4] ~@2 [b3,c4,d4,g4] ~ [d4,g4,b4] [d4,g4,b4]@2 [g4,b4] ~ [e4,a4] ~ [b3,d4,g4] ~@3", // G A5 G
  F: "[d4,g4] ~@2 [b3,d4,g4] ~ [a#3,g4,b4] [g4,b4]@2 [d4,g4,b4] ~ [c4,e4,a4] ~ [d4,g4] ~@3, ~@5 d4@3 ~@8", // G5 G D# G Am G5
  G: "[b3,d4,g4] ~@2 [d4,g4] ~ [g4,b4] [g4,b4]@2 [d4,g4,b4] ~ [c4,e4,a4] ~ [d4,g4,a#4] ~@3, ~@5 d4@3 ~@8", // G G5 G Am Gm
  H: "[b3,d4,g4] ~@2 [b3,d4,g4] ~ [d4,g4,b4]!3 [g4,b4] ~ [c4,e4,a4] ~ [d4,g4] ~@3", // G Am G5
  I: "[b3,d4,g4] ~@2 [b3,d4,g4] ~ [d4,g4,b4] [d4,g4,b4]@2 [g4,b4] ~ [c4,e4,a4] ~ [d4,g4] ~@3", // G Am G5
  J: "[b3,d4,g4] ~@2 [b3,d4,g4] ~ [g4,b4] [g4,b4]@2 [d4,g4,b4] ~ [c4,e4,a4] ~ [b3,d4,g4] ~@3, ~@5 d4@3 ~@8", // G Am G
  K: "[d4,g4] ~@2 [b3,d4,g4] ~ [d4,g4,b4] [d4,g4,b4]@2 [d4,g4,b4] ~ [c4,e4,a4] ~ [b3,d4,g4] ~@3", // G5 G Am G
  L: "[b3,d4,g4] ~@2 [b3,d4,g4] ~ [d4,g4,b4] [d4,g4,b4]@2 [d4,g4,b4] ~ [c4,e4,a4] ~ [b3,d4,g4,a#4] ~@3", // G Am G
  M: "[b3,d4,g4] ~@2 [b3,d4,g4] ~ [d4,g4,b4] [d4,g4,b4]@2 [g4,b4] ~ [c4,e4,a4] ~ [b3,d4,g4] ~@3", // G Am G
  N: "[b3,d4,g4] ~@2 [b3,d4,g4] ~ [d4,g4,b4] [d4,g4,b4]@2 [d4,g4,b4] ~ [c4,e4,a4] ~ [b3,d4,g4] ~@3", // G Am G
  O: "[b3,d4,g4] ~@3 [c#4,a#4] ~@9 d4 ~, ~@2 b4@5 ~, ~@4 d4@9 ~@3", // G F#
  P: "[d4,b4] [c4,c#4,a4,a#4] ~ [d4,b4] [c4,a4]@8 ~@4, ~@4 [c#4,a#4] ~@11", Q: "~@6 e5 f5", R: "f5@3 ~ f5@11 ~",
  S: "~@10 c#4 ~ b4 ~ c#4 d4, ~@11 d4@2 ~@3", T: "[[c4,a4]@12 ~@2 [g#3,e4] f4@3 g4@10 ~@4, ~@15 a3@13 ~@4]/2",
  U: "c3 ~@2 [d#3,e3]@2 ~ g3 ~ d3@2 ~@6", V: "~@4 [d4,b4]@10 d4 ~, ~@4 [c#4,a#4] ~@11",
  W: "[[c4,a4]@12 ~@2 g#3 f4@3 g4@10 ~@4, ~@15 a3@13 ~@4]/2", X: "c#4 ~@13 d4@2, ~ d4@5 d4@7 ~@3, ~@3 b4@5 b4@8",
  Y: "d4 a#4 ~@6 a4@6 ~@2, ~ c4@5 c4@8 ~@2, ~@3 a4@5 ~@8", Z: "~@2 f5@2 ~ f#5@3 f5@8",
  AA: "~@8 c#4 ~ [a#4,b4] c#4 ~@2 d4@2, ~@9 d4@2 ~ [d4,b4]@2 ~@2, ~@13 b4@3", AB: "[d4,b4] a4@11 g#4 ~@3",
  AC: "[a#3,f#4] [b3,g4]@12 ~@3", AD: "c3@2 ~ e3@3 g3@2 d3@2 ~@6",
  AE: "[g3,a#3,d#4,g4] ~@2 [g3,a#3,d#4,g4] ~@4 [g3,a#3,d#4,g4] ~@2 [a#3,d#4,g4] ~@4", // D#
  AF: "[a#3,d4,f4,a#4] ~@2 [a#3,d4,f4,a#4] ~@4 [a#3,d4,f4,a#4] ~@2 [a#3,d4,f4,a#4] ~@4", // A#
  AG: "[c4,e4,g4,c5] ~@2 [c4,e4,g4,c5] ~@4 [c4,e4,g4,c5] ~@2 [e4,g4,c5] ~@4", // C
  AH: "~@2 [c4,e4,g4,c5] ~ [c4,e4,g4,c5] ~@3 [c4,e4,g4,c5] ~ [c4,e4,g4,c5] ~@3 [e4,g4,c5] ~", // C
  AI: "~@2 [a#3,d#4,g4,a#4] ~ [a#3,d#4,g4,a#4] ~@3 [d#4,g4,a#4] ~ [a#3,d#4,g4,a#4] ~@5", // D#
  AJ: "[d4,b4] [d#4,c5]@13 [d#4,c5] ~", AK: "[d#4,c5] [c#4,d4,a#4,b4] ~ [c#4,a#4] ~@2 [c#4,a#4] ~ [c#4,a#4]@7 ~",
  AL: "f4 ~@7 d#5@7 ~, ~ f#4@5 f#4@9 ~, ~@3 d#5@5 ~@8", AM: "g4 ~ f5@4 g#4 [a4,f#5] [a#4,g5]@8, ~ g#4@4 ~@11",
  AN: "[c4,d#4,g#4] ~@2 [c4,d#4,g#4] ~ [d#4,g#4,c5] [d#4,g#4,c5]@2 [g#4,c5] ~ [c#4,f4,a#4] ~ [d#4,g#4] ~@3", // G# A#m G#5
  AO: "[c4,d#4,g#4] ~@2 [c4,d#4,g#4] ~ [g#4,c5] [g#4,c5]@2 [d#4,g#4,c5] ~ [c#4,f4,a#4] ~ [c4,d#4,g#4] ~@3, ~@5 d#4@3 ~@8", // G# A#m G#
  AP: "[d#4,g#4] ~@2 [c4,d#4,g#4] ~ [d#4,g#4,c5] [d#4,g#4,c5]@2 [d#4,g#4,c5] ~ [c#4,f4,a#4] ~ [c4,d#4,g#4] ~@3", // G#5 G# A#m G#
  AQ: "[c4,d#4,g#4] ~@2 [c4,d#4,g#4] ~ [d#4,g#4,c5] [d#4,g#4,c5]@2 [d#4,g#4,c5] ~ [c#4,f4,a#4] ~ [c4,d#4,g#4,b4] ~@3", // G# A#m G#
  AR: "[c4,d#4,g#4] ~@2 [c4,d#4,g#4] ~ [d#4,g#4,c5] [d#4,g#4,c5]@2 [g#4,c5] ~ [c#4,f4,a#4] ~ [c4,d#4,g#4] ~@3", // G# A#m G#
  AS: "[c4,d#4,g#4] ~@2 [c4,d#4,g#4] ~ [d#4,g#4,c5] [d#4,g#4,c5]@2 [d#4,g#4,c5] ~ [c#4,f4,a#4] ~ [c4,d#4,g#4] ~@3", // G# A#m G#
  AT: "[c4,d#4,g#4] ~@2 [c4,d#4,g#4] ~ [d#4,g#4,c5] [d#4,g#4,c5]@2 [d#4,g#4,c5] ~ [c#4,f4,a#4] ~ [c4,d#4,g#4,b4] ~@2 [c4,d#4,g#4]", // G# A#m G#
})).s("gm_electric_guitar_jazz").gain(0.32).pan(0.2)

// bass · acoustic bass · "ACOU BASS"
const bass = note(`<
  ~@4 A@2 B@8 A C D E D@2 F E D G B@8 D E D@2 F E D G B@8 D E D@2 F E D G H I J@2 K ~@4 L@2 M@8 L N O ~
>`.pickRestart({
  A: "g2@2 g2 e2 ~ e2 d2 ~ c2@2 c2@2 d2@2 e2@2", B: "g2@2 g2 e2 ~ e2 d2@2 c2@2 c2@2 d2@2 e2@2",
  C: "g2@2 g2 e2 ~ e2 d2@2 c2@2 c2@2 c#2@2 e2@2", D: "g2!8", E: "f2!8", F: "g2@2 g2@2 g2@2 g2@2 g2@2 g2@2 g2@2 g2 ~",
  G: "c2 ~@3 d2 ~@3", H: "d#2@2 ~@2 a#1@2 ~@2 d#2 g1@3 g#1@2 a1@2", I: "a#1 ~ f2 ~ a#1 f2 d#2 d2",
  J: "c2@2 ~@2 g1@2 ~@2 c2@2 ~@2 g1@2 c2 ~", K: "d#2 ~ a#1 ~ d#2 ~ a#1 ~",
  L: "g#2@2 g#2 f2 ~ f2 d#2 ~ c#2@2 c#2@2 d#2@2 f2@2", M: "g#2@2 g#2 f2 ~ f2 d#2@2 c#2@2 c#2@2 d#2@2 f2@2",
  N: "g#2@2 g#2 f2 ~ f2 d#2@2 c#2@2 c#2@2 d2@2 f2@2", O: "g#2@5 ~ g#2@3 ~ d#2!2 ~@2 g#1!2",
})).s("gm_acoustic_bass").gain(0.44).pan(0.3)

// chords · piano · "A.PIANO 1"
const piano = note(`<
  A B C D E@12 F G H@2 F I J K L M N O N P@2 Q F G H@2 F I J K E@8 F G H@2 F I J R S T U V W X Y Z AA AB@12 AC ~
>`.pickRestart({
  A: "[g1,g2]", B: "[f1,f2]", C: "[a#1,a#2]", D: "[c2,c3] [d2,d3]",
  E: "[b3,d4]@2 g2 [b3,d4]@2 g2!2 [c4,e4] ~ [c4,e4]@2 ~ [b3,d4]@2 g2 ~", // Bm C Bm
  F: "g1@2 g1@2 g1@2 g1@2 g1@2 g1@2 g1@2 g1 ~, [d3,g3,d4]@15 ~", // G5
  G: "f1@2 f1@2 f1@2 f1@2 f1@2 f1@2 f1@2 f1 ~, [f3,c4]@15 ~", // F5
  H: "[g1@2 g1@2 g1@2 g1@2 g1@2 g1@2 g1@2 g1 ~ g1@2 g1@2 g1@2 g1@2 g1@2 g1@2 g1@2 g1 ~, [d3,g3,d4]@31 ~]/2", // G5
  I: "f1@2 f1@2 f1@2 f1@2 f1@2 f1@2 f1@2 f1 ~, [c3,f3,c4]@15 ~", J: "g1!8, [d3,g3,d4]",
  K: "[c2,c3,e3,g3]@8 ~@4 [d5,d6] ~@3, ~@4 [d2,d3,f#3,a3] d2@2 ~, ~@9 d4@2 ~@5", // C D
  L: "[g3,b3,d4,d5]@5 ~ [g3,c4]@4 [g4,g5] ~ [g3,b3,d4,d5] ~@3, ~@6 [e4,e5]@3 ~@7", // G C5 G E
  M: "[g3,b3,d4,d5]@6 [g3,c4,e5]@4 [g4,g5] ~ [g3,b3,d4,d5]@2 ~@2, ~@6 e4@3 ~@7", // G C G
  N: "[g3,b3,d4,d5]@6 [g3,c4]@4 [g4,g5] ~ [g3,b3]@2 ~@2, ~@6 [e4,e5]@3 ~@3 [d4,d5] ~@3", // G C5 G E D
  O: "[g3,b3,d4,d5]@6 [g3,c4]@4 [g4,g5] ~ [g3,d4,d5] ~@3, ~@6 [e4,e5]@3 ~@3 b3@2 ~@2", // G C5 G G5 E
  P: "[g3,b3,d4,d5]@6 [g3,c4]@4 [g4,g5] ~ [g3,b3,d4,d5]@2 ~@2, ~@6 [e4,e5]@3 ~@7", // G C5 G E
  Q: "[g3,b3,d4,d5]@6 [g3,c4]@4 [g4,g5] ~ [g3,b3,d4,d5]@3 ~, ~@6 [e4,e5]@3 ~@7", // G C5 G E
  R: "[c2,c3,e3,g3]@4 [d2,d3,f#3,a3] ~@3", // C D
  S: "[a#3,d#4,g4] d#3 [c4,d#4,g#4] d#3 [a#3,d#4,g4] d#3 [c4,d#4,g#4] d#3 [a#3,d#4,g4] d#3 [c4,d#4,g#4] ~ [a#3,d#4,g4]@4, ~@11 d#3@5", // D# G# D# G# D# G# D#
  T: "[f3,a#3,d4] a#2 [g3,a#3,d#4] a#2 [g#3,a#3,f4] a#2 [g3,a#3,d#4] a#2 [f3,a#3,d4] a#2 [g3,a#3,d#4] ~ [f3,a#3,d4]@4, ~@11 a#2@4 ~", // A# D# A#7 D# A# D# A#
  U: "[g3,c4,e4] c3 [a3,c4,f4] c3 [g3,c4,e4] c3 [a3,c4,f4] c3 [g3,c4,e4] c3 [a3,c4,f4] ~ [g3,c4,e4]@4, ~@11 c3@5", // C F C F C F C
  V: "[c3,g3,c4,e4]@2 ~ [c3,g3,c4,e4]@3 [c3,g3,c4,e4]@4 [g3,c4,e4]@3 [g3,c4,e4] ~@2, ~@10 c3@5 ~", // C
  W: "[d#2,d#3,d#4]@2 ~ [d#2,d#3,d#4]@2 ~ [d#2,d#3,d#5,d#6]@4 [d#2,d#3,d#5,d#6]@2 [d#2,d#3,d#5,d#6]@3 ~", // D#
  X: "[g#1,g#2]", Y: "[f#1,f#2]", Z: "[b1,b2]", AA: "[c#2,c#3]@8 ~ d#5 d#4 ~ [d#5,d#6] ~@3, ~@4 d#2 ~@3",
  AB: "[c4,d#4]@2 g#2 [c4,d#4]@2 g#2!2 [c#4,f4] ~ [c#4,f4]@2 ~ [c4,d#4]@2 g#2 ~", // Cm C# Cm
  AC: "[c4,d#4]@2 g#2 [c4,d#4]@2 g#2!2 [c#4,f4] ~ [c#4,f4]@2 ~ [c4,d#4]@2 g#2!2", // Cm C# Cm
})).s("gm_piano").gain(0.32).pan(0.9)

// other · epiano1 · "E.PIANO 1"
const epiano1 = note("<~@15 A B A C A B A B ~@8 A B A B A B A B ~@8 A B A B A B A B ~@24>".pickRestart({
  A: "~@6 b3 c4", B: "d4@6 c4@3 a#3 g3@6", C: "d4@6 c4@3 a#3 g3@4 ~@2",
})).s("gm_epiano1").gain(0.4).pan(0.7)

// other · percussive organ · "ORGAN 2" · Fm C#sus2
const percussive_organ = note(`<
  ~@60
  [~@4 g#5@2 f5@2 ~@4 a#5@2 [f5,g5,g#5] [c#5,d#5]]
  ~@3
  [~@12 c5@2 c#5 ~]
  [d#5@6 c#5@3 b4 g#4@4 ~@2]
  ~@13
>`).s("gm_percussive_organ").gain(0.32).pan(0.7)

// other · trumpet
const trumpet = note(`<
  ~@3 A B@4 C@2 D@2 E@2 D@2 ~ F ~@3 F ~ G H@7 ~@2 I ~@3 F ~ G H@7 ~@2 F ~@3 F ~ G J K L M N ~@4 O P O Q O Q O Q O R S Q
  T ~
>`.pickRestart({
  A: "~@10 d5 e5 g5 e5 d5 e5", B: "[g5@20 ~@6 e5 ~ d5 e5 ~ g4@18 ~@15]/4", C: "[g5@25 ~@7]/2", D: "[g5@27 ~@5]/2",
  E: "[g5@7 ~]/2", F: "a#4 a4 ~ g4 ~ f4 a#4 a4 ~ g4 f4@4 ~@2", G: "c5 ~@2 e5@3 g5 ~ d5 ~@7", H: "~@14 g5 ~",
  I: "a#4 a4 ~ g4 ~ f4 a#4 a4 ~ g4 f4@5 ~", J: "d#4", K: "f4@15 ~", L: "g4@3 ~", M: "g5", N: "g#5@3 ~",
  O: "g#5@12 ~@2 g#5 ~", P: "f5@2 d#5@7 ~@7", Q: "f5 d#5@5 ~@2", R: "f5@2 d#5@11 ~@3", S: "g#5@11 ~@3 g#5 ~",
  T: "g#5@6 g#5@7 ~ g#5!2",
})).s("gm_trumpet").gain(0.32).pan(0.3)

// other · trombone
const trombone = note(`<
  ~@3 A B@4 C@2 D@4 E@2 ~ F ~@3 F ~ G H@7 ~@2 I ~@3 J ~ G H@7 ~@2 K ~@3 K ~ G L M N@2 O ~@4 P Q R S R T U S U Q U V W ~
>`.pickRestart({
  A: "~@10 d3 e3 g3 e3 d3 e3", B: "[g3@24 ~@2 e3 ~ d3 e3 ~ g2@18 ~@15]/4", C: "[g3@3 ~]/2", D: "[g3@29 ~@3]/2",
  E: "[g3@27 ~@5]/2", F: "a#3 a3 ~ g3 ~ f3 a#3 a3 ~ g3 f3@5 ~", G: "c3 ~@2 e3@3 g3 ~ d3 ~@7", H: "~@14 g2 ~",
  I: "a#3 a3@2 g3 ~ f3 a#3 a3 ~ g3 f3@5 ~", J: "a#3 a3 ~ g3 ~ f3 a#3 a3 ~ g3 f3@4 ~@2",
  K: "a#2 a2 ~ g2 ~ f2 a#2 a2 ~ g2 f2@5 ~", L: "d#3", M: "a#2", N: "c3", O: "d#3@3 ~", P: "g#3@14 g#3 ~",
  Q: "f3@2 d#3@9 ~@5", R: "g#3@13 ~ g#3 ~", S: "f3 d#3@5 ~@2", T: "f3@2 d#3@11 ~@3", U: "g#3@12 ~@2 g#3 ~",
  V: "f3 d#3@4 ~@3", W: "g#3@5 ~ g#3@8 ~ g#2",
})).s("gm_trombone").gain(0.36).pan(1)

// other · alto sax
const alto_sax = note(`<
  ~@3 A B@4 C@2 D@4 E@2 ~ F ~@3 G ~ H I@7 ~@2 G ~@3 F ~ J I@7 ~@2 G ~@3 G ~ K L M N L O ~@4 P Q P R S T P T P Q P R U ~
>`.pickRestart({
  A: "~@10 d4 e4 g4 e4 d4 e4", B: "[g4@24 ~@2 e4 ~ d4 e4 ~ g3@19 ~@14]/4", C: "[d4@25 ~@7]/2", D: "[d4@7 ~]/2",
  E: "[d4@13 ~@3]/2", F: "a#3 a3 ~ g3 ~ f3 a#3 a3 ~ g3 f3@4 ~@2", G: "a#3 a3 ~ g3 ~ f3 a#3 a3 ~ g3 f3@5 ~",
  H: "c3 ~@2 e3@3 g3 ~ d3 ~@7", I: "~@14 [d3,b3] ~", J: "c3@2 ~ e3@3 g3 ~ d3 ~@7", K: "c3 ~@2 e3@3 g3 ~ d3@2 ~@6",
  L: "g3", M: "f3@15 ~", N: "g3@15 ~", O: "g#3@3 ~", P: "g#3@13 ~ g#3 ~", Q: "f3@2 d#3@9 ~@5", R: "f3 d#3@5 ~@2",
  S: "g#3@12 ~@2 g#3 ~", T: "f3@2 d#3@11 ~@3", U: "g#3@6 g#3@7 ~ g#3!2",
})).s("gm_alto_sax").gain(0.36).pan(0.6)

// drums · kick
const kick = s("bd").struct(`<
  A@3 B C D@11 E@7 ~ C D@6 F G E@6 H C D@6 F G E@6 I D C J C J A@3 B C F C D@10 ~
>`.pickRestart({
  A: "~ x ~ x", B: "~ x ~@2", C: "x ~ x ~@4 x!2 ~ x ~@4 x", D: "x ~@6 x!2 ~ x ~@4 x", E: "x!8",
  F: "x ~@6 x!2 ~ x ~@3 x ~", G: "~ x!7", H: "x!4 ~@4", I: "x!2", J: "x ~ x ~@4 x!2 ~ x ~@5",
})).gain(0.49)

// drums · rim
const rim = s("rim").struct("<[~ x ~ x]!3 [~ x ~@2] ~@57 [~ x ~ x]!3 [~ x ~@2] ~@14>").gain(0.55)

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

// drums · hihat
const hihat = s("hh").struct("<~@4 A@19 B A@15 B A@15 C D A@2 D E ~@4 A@12 C F>".pickRestart({
  A: "x!8", B: "x!4 ~@4", C: "x!5 ~@3", D: "~ x!7", E: "~ x!5 ~@2", F: "x",
})).gain(0.33)

// drums · open hat
const open_hat = s("oh").struct("<~@77 [~@10 x ~@4 x] ~>").gain(0.44)

// drums · crash
const crash = s("cr").struct("<~@56 x ~@2 x!2 ~@18>").gain(0.38)

// drums · ride bell
const ride_bell = s("rd").struct("<[x!4]!3 [x!2 ~@2] ~@57 [x!4]!3 [x!2 ~@2] ~@14>").gain(0.38)

// drums · tambourine
const tambourine = s("tb").struct("<A@3 B A@19 B A@15 B A@15 B A@8 B A@13 ~>".pickRestart({
  A: "~ x ~ x", B: "~ x ~@2",
})).gain(0.44)

stack(
  electric_guitar_jazz, bass, piano, epiano1, percussive_organ, trumpet, trombone, alto_sax, kick, rim, snare, hihat,
  open_hat, crash, ride_bell, tambourine
)